X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;ds=sidebyside;f=C4%2FRecord.pm;h=cecb6ed266aca1913e63d6a317ff357437fbca9f;hb=dc1d934c8f966dfbb824613f9ef034519acd2f05;hp=497c03d56826e1ff903aee3a73ab51c54f3aedb7;hpb=49e13b94174f173e17bafb595ca31da99a2d3864;p=koha_gimpoz diff --git a/C4/Record.pm b/C4/Record.pm index 497c03d568..cecb6ed266 100644 --- a/C4/Record.pm +++ b/C4/Record.pm @@ -1,7 +1,7 @@ package C4::Record; # # Copyright 2006 (C) LibLime -# Joshua Ferraro +# Parts copyright 2010 BibLibre # # This file is part of Koha. # @@ -266,12 +266,19 @@ sub marc2modsxml { sub marc2endnote { my ($marc) = @_; my $marc_rec_obj = MARC::Record->new_from_usmarc($marc); - my $f260 = $marc_rec_obj->field('260'); - my $f260a = $f260->subfield('a') if $f260; + my ( $abstract, $f260a, $f710a ); + my $f260 = $marc_rec_obj->field('260'); + if ($f260) { + $f260a = $f260->subfield('a') if $f260; + } my $f710 = $marc_rec_obj->field('710'); - my $f710a = $f710->subfield('a') if $f710; - my $f500 = $marc_rec_obj->field('500'); - my $abstract = $f500->subfield('a') if $f500; + if ($f710) { + $f710a = $f710->subfield('a'); + } + my $f500 = $marc_rec_obj->field('500'); + if ($f500) { + $abstract = $f500->subfield('a'); + } my $fields = { DB => C4::Context->preference("LibraryName"), Title => $marc_rec_obj->title(), @@ -359,7 +366,7 @@ sub marcrecord2csv { my $output; # Getting the record - my $record = GetMarcBiblio($biblio); + my $record = GetMarcBiblio($biblio, 1); next unless $record; # Getting the framework my $frameworkcode = GetFrameworkCode($biblio); @@ -411,6 +418,8 @@ sub marcrecord2csv { foreach (@marcfields) { my $field = $_->{field}; + # Remove any blank char that might have unintentionally insered into the tag name + $field =~ s/\s+//g; # If we have a user-supplied header, we use it if (exists $_->{header}) {