[Koha-cvs] koha/C4 Bull.pm [rel_2_2]

[Robert Lyon]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Robert Lyon <bob_lyon>  06/12/19 02:35:07

Modified files:
        C4             : Bull.pm 

Log message:
        Added ability for the serialitemize to work even if one doesn't want to 
use a barcode

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Bull.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.6.2.39&r2=1.6.2.40

Patches:
Index: Bull.pm
===================================================================
RCS file: /sources/koha/koha/C4/Attic/Bull.pm,v
retrieving revision 1.6.2.39
retrieving revision 1.6.2.40
diff -u -b -r1.6.2.39 -r1.6.2.40
--- Bull.pm     4 Dec 2006 05:27:27 -0000       1.6.2.39
+++ Bull.pm     19 Dec 2006 02:35:06 -0000      1.6.2.40
@@ -783,12 +783,16 @@
 #     warn "biblionumber : ".$data->{biblionumber};
        my 
$bibid=MARCfind_MARCbibid_from_oldbiblionumber($dbh,$data->{biblionumber});
        my $fwk=MARCfind_frameworkcode($dbh,$bibid);
-       if ($info->{barcode}){
+        my $exists;
                my @errors;
-               my $exists = itemdata($info->{'barcode'});
+        # altered to allow for those that don't wish to use barcodes
+        if ($info->{barcode}){
+               $exists = itemdata($info->{'barcode'});
                push @errors,"barcode_not_unique" if($exists);
+       }
                unless ($exists){
                        my $marcrecord = MARC::Record->new();
+                       if ($info->{barcode}){
                        my 
($tag,$subfield)=MARCfind_marc_from_kohafield($dbh,"items.barcode",$fwk);
 #                      warn "items.barcode : $tag , $subfield";
                        my $newField = MARC::Field->new(
@@ -796,6 +800,7 @@
                                "$subfield" => $info->{barcode}
                        );
                        $marcrecord->insert_fields_ordered($newField);
+                       }
                        if ($info->{branch}){
                                my 
($tag,$subfield)=MARCfind_marc_from_kohafield($dbh,"items.homebranch",$fwk);
 #                              warn "items.homebranch : $tag , $subfield";
@@ -888,7 +893,6 @@
                        return 1;
                }
                return (0,@errors);
-       }
 }
 
 sub delissue {