[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