[Koha-patches] [PATCH] Bug 8501: software error in edit items
Fridolyn SOMERS
fridolyn.somers at biblibre.com
Wed Jul 25 13:13:48 CEST 2012
---
cataloguing/additem.pl | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
index 8543297..684e6f6 100755
--- a/cataloguing/additem.pl
+++ b/cataloguing/additem.pl
@@ -564,13 +564,16 @@ if ( C4::Context->preference('EasyAnalyticalRecords') ) {
$analyticfield = '461';
}
foreach my $hostfield ($temp->field($analyticfield)){
- if ($hostfield->subfield('0')){
- my $hostrecord = GetMarcBiblio($hostfield->subfield('0'), 1);
- my ($itemfield, undef) = GetMarcFromKohaField( 'items.itemnumber', GetFrameworkCode($hostfield->subfield('0')) );
- foreach my $hostitem ($hostrecord->field($itemfield)){
- if ($hostitem->subfield('9') eq $hostfield->subfield('9')){
- push (@fields, $hostitem);
- push (@hostitemnumbers, $hostfield->subfield('9'));
+ my $hostbiblionumber = $hostfield->subfield('0');
+ if ($hostbiblionumber){
+ my $hostrecord = GetMarcBiblio($hostbiblionumber, 1);
+ if ($hostrecord) {
+ my ($itemfield, undef) = GetMarcFromKohaField( 'items.itemnumber', GetFrameworkCode($hostbiblionumber) );
+ foreach my $hostitem ($hostrecord->field($itemfield)){
+ if ($hostitem->subfield('9') eq $hostfield->subfield('9')){
+ push (@fields, $hostitem);
+ push (@hostitemnumbers, $hostfield->subfield('9'));
+ }
}
}
}
--
1.7.9.5
More information about the Koha-patches
mailing list