Depurando extracción de metadatos.
This commit is contained in:
parent
1bba25f2fc
commit
d1568f748d
@ -20,7 +20,7 @@ PaqueteSemanal class >> location: anObject [
|
||||
PaqueteSemanal >> extractMetadataForFolder: subfolder [
|
||||
|
||||
| subfolderFiles extractMetadatos |
|
||||
subfolderFiles := subfolder allChildren select: [:item | item isFile and: [(item basename = '.DS_Store') not ]].
|
||||
subfolderFiles := (self location / subfolder) allChildren select: [:item | item isFile and: [(item basename = '.DS_Store') not ]].
|
||||
subfolderFiles do: [:archivoPruebas | | metadatosArchivo titulo metaTiddler |
|
||||
extractMetadatos := GtSubprocessWithInMemoryOutput new
|
||||
command: '/usr/local/bin/exiftool';
|
||||
@ -42,6 +42,11 @@ PaqueteSemanal >> extractMetadataForFolder: subfolder [
|
||||
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
PaqueteSemanal >> location [
|
||||
^ location
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
PaqueteSemanal >> location: anObject [
|
||||
location := anObject
|
||||
|
Loading…
Reference in New Issue
Block a user