Extrayendo metadatos para todos los subfolders.
This commit is contained in:
parent
5984ff492c
commit
e171bbd37a
@ -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 [
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user