[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/11/27 19:49:08

Modified files:
	C4             : Bull.pm 

Log message:
	Fixing the problem with undefined librarian notes making the insert into subscriptionhistory fail

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

Patches:
Index: Bull.pm
===================================================================
RCS file: /sources/koha/koha/C4/Attic/Bull.pm,v
retrieving revision 1.6.2.35
retrieving revision 1.6.2.36
diff -u -b -r1.6.2.35 -r1.6.2.36
--- Bull.pm	24 Nov 2006 00:23:22 -0000	1.6.2.35
+++ Bull.pm	27 Nov 2006 19:49:08 -0000	1.6.2.36
@@ -326,6 +326,7 @@
 	 				$numberingmethod, $status, $notes);
 	#then create the 1st waited number
 	my $subscriptionid = $dbh->{'mysql_insertid'};
+        if(!(defined($notes))){ $notes = ''; } # as librariannote can't be null
 	$sth = $dbh->prepare("insert into subscriptionhistory (biblionumber, subscriptionid, histstartdate, enddate, missinglist, recievedlist, opacnote, librariannote) values (?,?,?,?,?,?,?,?)");
 	$sth->execute($biblionumber, $subscriptionid, format_date_in_iso($startdate), 0, "", "", "", $notes);
 	# reread subscription to get a hash (for calculation of the 1st issue number)
@@ -1234,6 +1235,7 @@
     #then create the 1st waited number
     my $subscriptionid = $dbh->{'mysql_insertid'};
     my $enddate        = GetSubscriptionExpirationDate($subscriptionid);
+    if(!(defined($notes))){ $notes = ''; } # as librariannote can't be null
 
     $sth =
         $dbh->prepare(