[Koha-cvs] CVS: koha/C4 Bull.pm,1.6.2.12,1.6.2.13

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9147/C4

Modified Files:
      Tag: rel_2_2
	Bull.pm 
Log Message:
Adding a notes field into serial table.
Manage a note for a serial number...
Will allow a librarian to say "contact with supplier for this serial : Will be received on date...  " or anything else.

Index: Bull.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Bull.pm,v
retrieving revision 1.6.2.12
retrieving revision 1.6.2.13
diff -C2 -r1.6.2.12 -r1.6.2.13
*** Bull.pm	2 Aug 2005 15:03:33 -0000	1.6.2.12
--- Bull.pm	24 Aug 2005 09:02:25 -0000	1.6.2.13
***************
*** 359,363 ****
  	my $dbh = C4::Context->dbh;
  	# status = 2 is "arrived"
! 	my $sth=$dbh->prepare("select serialid,serialseq, status, planneddate from serial where subscriptionid = ? and status <>2 and status <>4 and status <>5");
  	$sth->execute($subscriptionid);
  	my @serials;
--- 359,363 ----
  	my $dbh = C4::Context->dbh;
  	# status = 2 is "arrived"
! 	my $sth=$dbh->prepare("select serialid,serialseq, status, planneddate,notes from serial where subscriptionid = ? and status <>2 and status <>4 and status <>5");
  	$sth->execute($subscriptionid);
  	my @serials;
***************
*** 394,398 ****
  
  sub serialchangestatus {
! 	my ($serialid,$serialseq,$planneddate,$status)=@_;
  # 	warn "($serialid,$serialseq,$planneddate,$status)";
  	# 1st, get previous status : if we change from "waited" to something else, then we will have to create a new "waited" entry
--- 394,398 ----
  
  sub serialchangestatus {
! 	my ($serialid,$serialseq,$planneddate,$status,$notes)=@_;
  # 	warn "($serialid,$serialseq,$planneddate,$status)";
  	# 1st, get previous status : if we change from "waited" to something else, then we will have to create a new "waited" entry
***************
*** 405,410 ****
  		delissue($serialseq, $subscriptionid) 
  	}else{
! 		$sth = $dbh->prepare("update serial set serialseq=?,planneddate=?,status=? where serialid = ?");
! 		$sth->execute($serialseq,$planneddate,$status,$serialid);
  		$sth = $dbh->prepare("select missinglist,recievedlist from subscriptionhistory where subscriptionid=?");
  		$sth->execute($subscriptionid);
--- 405,410 ----
  		delissue($serialseq, $subscriptionid) 
  	}else{
! 		$sth = $dbh->prepare("update serial set serialseq=?,planneddate=?,status=?,notes=? where serialid = ?");
! 		$sth->execute($serialseq,$planneddate,$status,$notes,$serialid);
  		$sth = $dbh->prepare("select missinglist,recievedlist from subscriptionhistory where subscriptionid=?");
  		$sth->execute($subscriptionid);