#
#
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
$imagenumber = $data->param('imagenumber');
}
elsif ( defined $data->param('biblionumber') ) {
- my @imagenumbers = ListImagesForBiblio( $data->param('biblionumber') );
+ my @imagenumbers = ListImagesForBiblio( scalar $data->param('biblionumber') );
if (@imagenumbers) {
$imagenumber = $imagenumbers[0];
}