- # build list of images
- my $imagedir_filesystem = getitemtypeimagedir();
- my $imagedir_web = getitemtypeimagesrc();
- opendir( DIR, $imagedir_filesystem )
- or warn "can't opendir " . $imagedir_filesystem . ": " . $!;
- my @imagelist;
- my $i = 0;
- my $image_per_line = 12;
- while ( my $line = readdir(DIR) ) {
- $i++;
- if ( $line =~ /\.(gif|png)$/i ) {
- if ( $i == $image_per_line ) {
- $i = 0;
- push @imagelist, { KohaImage => '', KohaImageSrc => '' };
- }
- else {
- push(
- @imagelist,
- {
- KohaImage => $line,
- KohaImageSrc => $imagedir_web . '/' . $line,
- checked => $line eq $data->{imageurl} ? 1 : 0,
- }
- );
- }
- }
- }
- closedir DIR;