From e171bbd37a5a731f3fc8039ab4f475647f7df4d3 Mon Sep 17 00:00:00 2001
From: nestorsire <nsnestorramon@gmail.com>
Date: Mon, 21 Nov 2022 13:09:16 -0500
Subject: [PATCH] Extrayendo metadatos para todos los subfolders.

---
 src/PaqueteSemanal/PaqueteSemanal.class.st | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/PaqueteSemanal/PaqueteSemanal.class.st b/src/PaqueteSemanal/PaqueteSemanal.class.st
index ca7d754..1feebde 100644
--- a/src/PaqueteSemanal/PaqueteSemanal.class.st
+++ b/src/PaqueteSemanal/PaqueteSemanal.class.st
@@ -16,6 +16,16 @@ PaqueteSemanal class >> location: anObject [
 	location := anObject 
 ]
 
+{ #category : #accessing }
+PaqueteSemanal >> extractMetadataForAllFolders [
+	| subfolders |
+	subfolders := self location children reject: [:each | each basename = '.DS_Store'].
+	subfolders do: [:each | 
+		self extractMetadataForFolder: each basename.
+	].
+	^ self metadataFolder
+]
+
 { #category : #accessing }
 PaqueteSemanal >> extractMetadataForFolder: subfolder [