[Koha-patches] [PATCH] bugfix for 2451 : serial recieve & barcode does exist complaint
paul.poulain at biblibre.com
paul.poulain at biblibre.com
Sat Aug 2 16:53:15 CEST 2008
From: Paul POULAIN <paul at koha-fr.org>
---
serials/serials-edit.pl | 7 ++++---
1 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index 7d514c0..8a1b500 100755
--- a/serials/serials-edit.pl
+++ b/serials/serials-edit.pl
@@ -241,11 +241,12 @@ if ($op eq 'serialchangestatus') {
my $exists = GetItemnumberFromBarcode($record->subfield($tagfield,$tagsubfield)) if ($record->subfield($tagfield,$tagsubfield));
# push @errors,"barcode_not_unique" if($exists);
# if barcode exists, don't create, but report The problem.
- unless ($exists){
- my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$itemhash{$item}->{'bibnum'});
- AddItem2Serial($itemhash{$item}->{'serial'},$itemnumber);
+ if ($exists){
$url_error_str = "rcv_error=barcode_not_unique&rcv_error_param=$serialseqs[$index]";
$template->param("barcode_not_unique" => 1,'errserialseq'=>$serialseqs[$index]);
+ } else {
+ my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$itemhash{$item}->{'bibnum'});
+ AddItem2Serial($itemhash{$item}->{'serial'},$itemnumber);
}
} else {
#modify item
--
1.5.3.2
More information about the Koha-patches
mailing list