Lines 30-35
use List::MoreUtils qw(any);
Link Here
|
30 |
|
30 |
|
31 |
my $cgi = CGI->new; |
31 |
my $cgi = CGI->new; |
32 |
my $uri = $cgi->param('uri') || ''; |
32 |
my $uri = $cgi->param('uri') || ''; |
|
|
33 |
$uri =~ s/^\s+|\s+$//g if $uri; # trim |
33 |
my $biblionumber = $cgi->param('biblionumber') || 0; |
34 |
my $biblionumber = $cgi->param('biblionumber') || 0; |
34 |
my $itemnumber = $cgi->param('itemnumber') || 0; |
35 |
my $itemnumber = $cgi->param('itemnumber') || 0; |
35 |
|
36 |
|
36 |
- |
|
|