Lines 573-581
sub getImageSets {
Link Here
|
573 |
|
573 |
|
574 |
my @imagesets = (); # list of hasrefs of image set data to pass to template |
574 |
my @imagesets = (); # list of hasrefs of image set data to pass to template |
575 |
my @subdirectories = _getSubdirectoryNames( $paths->{'staff'}{'filesystem'} ); |
575 |
my @subdirectories = _getSubdirectoryNames( $paths->{'staff'}{'filesystem'} ); |
576 |
warn $paths->{'staff'}{'filesystem'}; |
|
|
577 |
foreach my $imagesubdir ( @subdirectories ) { |
576 |
foreach my $imagesubdir ( @subdirectories ) { |
578 |
warn $imagesubdir; |
577 |
warn $imagesubdir if $DEBUG; |
579 |
my @imagelist = (); # hashrefs of image info |
578 |
my @imagelist = (); # hashrefs of image info |
580 |
my @imagenames = _getImagesFromDirectory( File::Spec->catfile( $paths->{'staff'}{'filesystem'}, $imagesubdir ) ); |
579 |
my @imagenames = _getImagesFromDirectory( File::Spec->catfile( $paths->{'staff'}{'filesystem'}, $imagesubdir ) ); |
581 |
my $imagesetactive = 0; |
580 |
my $imagesetactive = 0; |
582 |
- |
|
|