[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, at errors);
-	}
 }
 
 sub delissue {