Lines 1-6
Link Here
|
1 |
package C4::Koha; |
1 |
package C4::Koha; |
2 |
|
2 |
|
3 |
# Copyright 2000-2002 Katipo Communications |
3 |
# Copyright 2000-2002 Katipo Communications |
|
|
4 |
# Parts Copyright 2010 Nelsonville Public Library |
4 |
# |
5 |
# |
5 |
# This file is part of Koha. |
6 |
# This file is part of Koha. |
6 |
# |
7 |
# |
Lines 670-675
sub getImageSets {
Link Here
|
670 |
foreach my $imagesubdir ( @subdirectories ) { |
671 |
foreach my $imagesubdir ( @subdirectories ) { |
671 |
my @imagelist = (); # hashrefs of image info |
672 |
my @imagelist = (); # hashrefs of image info |
672 |
my @imagenames = _getImagesFromDirectory( File::Spec->catfile( $paths->{'staff'}{'filesystem'}, $imagesubdir ) ); |
673 |
my @imagenames = _getImagesFromDirectory( File::Spec->catfile( $paths->{'staff'}{'filesystem'}, $imagesubdir ) ); |
|
|
674 |
my $imagesetactive = 0; |
673 |
foreach my $thisimage ( @imagenames ) { |
675 |
foreach my $thisimage ( @imagenames ) { |
674 |
push( @imagelist, |
676 |
push( @imagelist, |
675 |
{ KohaImage => "$imagesubdir/$thisimage", |
677 |
{ KohaImage => "$imagesubdir/$thisimage", |
Lines 678-685
sub getImageSets {
Link Here
|
678 |
checked => "$imagesubdir/$thisimage" eq $checked ? 1 : 0, |
680 |
checked => "$imagesubdir/$thisimage" eq $checked ? 1 : 0, |
679 |
} |
681 |
} |
680 |
); |
682 |
); |
|
|
683 |
$imagesetactive = 1 if "$imagesubdir/$thisimage" eq $checked; |
681 |
} |
684 |
} |
682 |
push @imagesets, { imagesetname => $imagesubdir, |
685 |
push @imagesets, { imagesetname => $imagesubdir, |
|
|
686 |
imagesetactive => $imagesetactive, |
683 |
images => \@imagelist }; |
687 |
images => \@imagelist }; |
684 |
|
688 |
|
685 |
} |
689 |
} |