fixes many warnings during searching.

 opac-search.pl: Use of uninitialized value in concatenation (.) or string at 
/home/mason/git/stable/C4/Biblio.pm line 994., 
 opac-search.pl: Use of uninitialized value in concatenation (.) or string at 
/home/mason/git/stable/C4/Biblio.pm line 994., 
 opac-search.pl: Use of uninitialized value in concatenation (.) or string at 
/home/mason/git/stable/C4/Biblio.pm line 994., 

---
 C4/Biblio.pm |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index e911713..82f24bc 100755
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -993,7 +993,13 @@ sub GetCOinSBiblio {
         $issn       = $record->subfield('022','a');
 
     }
-    $coins_value = 
"ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3A$mtx$genre$title&rft.isbn=$isbn&rft.issn=$issn&rft.aulast=$aulast&rft.aufirst=$aufirst$oauthors&rft.pub=$publisher&rft.date=$pubyear";
+
+    {
+        # stop 'Use of uninitialized value in concatenation (.) or string ' 
warning
+        no warnings 'uninitialized';
+        $coins_value = 
"ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3A$mtx$genre$title&rft.isbn=$isbn&rft.issn=$issn&rft.aulast=$aulast&rft.aufirst=$aufirst$oauthors&rft.pub=$publisher&rft.date=$pubyear";
+    }
+
     $coins_value =~ s/\ /\+/g;
     #<!-- TMPL_VAR NAME="ocoins_format" -->&amp;rft.au=<!-- TMPL_VAR 
NAME="author" -->&amp;rft.btitle=<!-- TMPL_VAR NAME="title" 
-->&amp;rft.date=<!-- TMPL_VAR NAME="publicationyear" -->&amp;rft.pages=<!-- 
TMPL_VAR NAME="pages" -->&amp;rft.isbn=<!-- TMPL_VAR NAME=amazonisbn 
-->&amp;rft.aucorp=&amp;rft.place=<!-- TMPL_VAR NAME="place" 
-->&amp;rft.pub=<!-- TMPL_VAR NAME="publishercode" -->&amp;rft.edition=<!-- 
TMPL_VAR NAME="edition" -->&amp;rft.series=<!-- TMPL_VAR NAME="series" 
-->&amp;rft.genre="
     }
-- 
1.5.6.5

_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches

Reply via email to