Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

bug_6433: exception handling

Browse source 
Signed-off-by: Magnus Enger <magnus@enger.priv.no>
This commit is contained in:
Srdjan Janković 2011-05-31 15:18:21 +12:00 committed by Chris Cormack
parent 529842ab6c
commit 5829cef6d8
2 changed files with 21 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
C4/Biblio.pm
View file

@ -21,6 +21,7 @@ package C4::Biblio;
use strict;
use warnings;
use Carp;
# use utf8;
use MARC::Record;
@ -294,6 +295,8 @@ and biblionumber data for indexing.
sub ModBiblio {
my ( $record, $biblionumber, $frameworkcode ) = @_;
croak "No record" unless $record;
if ( C4::Context->preference("CataloguingLog") ) {
my $newrecord = GetMarcBiblio($biblionumber);
logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted );
@ -2667,6 +2670,7 @@ per the bib's MARC framework.
sub EmbedItemsInMarcBiblio {
my ($marc, $biblionumber) = @_;
croak "No MARC record" unless $marc;
my $frameworkcode = GetFrameworkCode($biblionumber);
_strip_item_fields($marc, $frameworkcode);

25
misc/migration_tools/rebuild_zebra.pl
View file

@ -351,8 +351,13 @@ sub export_marc_records_from_sth {
# strung together with no single root element. zebraidx doesn't seem
# to care, though, at least if you're using the GRS-1 filter. It does
# care if you're using the DOM filter, which requires valid XML file(s).
print OUT ($as_xml) ? $marc->as_xml_record(C4::Context->preference('marcflavour')) : $marc->as_usmarc();
$num_exported++;
eval {
print OUT ($as_xml) ? $marc->as_xml_record(C4::Context->preference('marcflavour')) : $marc->as_usmarc();
$num_exported++;
};
if ($@) {
warn "Error exporting record $record_number ($record_type) ".($noxml ? "not XML" : "XML");
}
}
}
print "\nRecords exported: $num_exported\n" if ( $verbose_logging );
@ -449,15 +454,19 @@ sub get_raw_marc_record {
$fetch_sth->execute($record_number);
if (my ($blob) = $fetch_sth->fetchrow_array) {
$marc = MARC::Record->new_from_usmarc($blob);
$fetch_sth->finish();
} else {
return; # failure to find a bib is not a problem -
# a delete could have been done before
# trying to process a record update
unless ($marc) {
warn "error creating MARC::Record from $blob";
}
}
# failure to find a bib is not a problem -
# a delete could have been done before
# trying to process a record update
$fetch_sth->finish();
return unless $marc;
} else {
eval { $marc = GetMarcBiblio($record_number); };
if ($@) {
if ($@ || !$marc) {
# here we do warn since catching an exception
# means that the bib was found but failed
# to be parsed