gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix uninitialized value warnings during COinS generation 

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Galen Charlton 2009-05-27 09:01:00 -05:00 committed by Henri-Damien LAURENT
parent 41568f5ddd
commit 60447f3a64
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
C4/Biblio.pm
View File

@ -1037,14 +1037,14 @@ sub GetCOinSBiblio {
my $pos6 = substr $record->leader(), 6,1;
my $mtx;
my $genre;
my ($aulast, $aufirst);
my $oauthors;
my $title;
my $subtitle;
my $pubyear;
my $isbn;
my $issn;
my $publisher;
my ($aulast, $aufirst) = ('','');
my $oauthors = '';
my $title = '';
my $subtitle = '';
my $pubyear = '';
my $isbn = '';
my $issn = '';
my $publisher = '';
if ( C4::Context->preference("marcflavour") eq "UNIMARC" ){
my $fmts6;
@ -1113,7 +1113,9 @@ sub GetCOinSBiblio {
$genre = "&rft.genre=book";
# Setting datas
$oauthors .= "&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')){