From 53b944b5f5caf674feb62e83723a833a6e208e86 Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Wed, 27 May 2009 09:01:00 -0500
Subject: [PATCH] fix uninitialized value warnings during COinS generation

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 C4/Biblio.pm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 27a2795877..36d9ad4bbd 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1050,13 +1050,13 @@ sub GetCOinSBiblio {
     my $mtx;
     my $genre;
     my ($aulast, $aufirst) = ('','');
-    my $oauthors;
-    my $title;
-    my $subtitle;
-    my $pubyear;
-    my $isbn;
-    my $issn;
-    my $publisher;
+    my $oauthors  = '';
+    my $title     = '';
+    my $subtitle  = '';
+    my $pubyear   = '';
+    my $isbn      = '';
+    my $issn      = '';
+    my $publisher = '';
 
     if ( C4::Context->preference("marcflavour") eq "UNIMARC" ){
         my $fmts6;
@@ -1125,7 +1125,9 @@ sub GetCOinSBiblio {
         $genre = "&amp;rft.genre=book";
 
         # Setting datas
-        $oauthors .= "&amp;rft.au=".$record->subfield('100','a');
+        if ($record->field('100')) {
+            $oauthors .= "&amp;rft.au=".$record->subfield('100','a');
+        }
         # others authors
         if($record->field('700')){
             for my $au ($record->field('700')->subfield('a')){
-- 
2.11.0