fixed variable masking warnings found by perl -w

[koha_gimpoz] / cataloguing / z3950_search.pl

diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl
index 51605c4..063cf4a 100755 (executable)
--- a/cataloguing/z3950_search.pl
+++ b/cataloguing/z3950_search.pl
@@ -39,6 +39,7 @@ my $title         = $input->param('title');
 my $author        = $input->param('author');
 my $isbn          = $input->param('isbn');
 my $issn          = $input->param('issn');
+my $lccn          = $input->param('lccn');
 my $random        = $input->param('random');
 my $op            = $input->param('op');
 my $noconnection;
@@ -88,6 +89,7 @@ if ( $op ne "do_search" ) {
     $template->param(
         isbn         => $isbn,
         issn         => $issn,
+        lccn         => $lccn,
         title        => $title,
         author       => $author,
         serverloop   => $serverloop,
@@ -107,6 +109,10 @@ else {
         $term = $isbn if ($isbn);
         $term = $issn if ($issn);
     }
+    elsif ($lccn) {
+        $attr = '1=9';
+        $term = $lccn;
+    }
     elsif ($title) {
         $attr = '1=4 ';
         utf8::decode($title);
@@ -215,6 +221,7 @@ else {
                     $row_data{toggle}       = $toggle;
                     $row_data{server}       = $serverhost[$k];
                     $row_data{isbn}         = $oldbiblio->{isbn};
+                    $row_data{lccn}         = $oldbiblio->{lccn};
                     $row_data{title}        = $oldbiblio->{title};
                     $row_data{author}       = $oldbiblio->{author};
                     $row_data{breedingid}   = $breedingid;