From 6565d2203eab19dbb5b562459ff0ab5170d57d3c Mon Sep 17 00:00:00 2001 From: Nahuel ANGELINETTI Date: Wed, 4 Nov 2009 17:33:53 +0100 Subject: [PATCH] (bug #3762) fix warnings in GetCoinsBiblio set defaults values to delete warnings. --- C4/Biblio.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 8cb7a388eb..e5471b257d 100755 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1200,8 +1200,8 @@ sub GetCOinSBiblio { $genre = ($mtx eq 'dc') ? "&rft.type=$genre" : "&rft.genre=$genre"; # Setting datas - $aulast = $record->subfield('700','a'); - $aufirst = $record->subfield('700','b'); + $aulast = $record->subfield('700','a') || ''; + $aufirst = $record->subfield('700','b') || ''; $oauthors = "&rft.au=$aufirst $aulast"; # others authors if($record->field('200')){ @@ -1211,10 +1211,10 @@ sub GetCOinSBiblio { } $title = ( $mtx eq 'dc' ) ? "&rft.title=".$record->subfield('200','a') : "&rft.title=".$record->subfield('200','a')."&rft.btitle=".$record->subfield('200','a'); - $pubyear = $record->subfield('210','d'); - $publisher = $record->subfield('210','c'); - $isbn = $record->subfield('010','a'); - $issn = $record->subfield('011','a'); + $pubyear = $record->subfield('210','d') || ''; + $publisher = $record->subfield('210','c') || ''; + $isbn = $record->subfield('010','a') || ''; + $issn = $record->subfield('011','a') || ''; }else{ # MARC21 need some improve my $fmts; -- 2.20.1