[Koha-cvs] CVS: koha/C4 Bull.pm,1.6.2.9,1.6.2.10

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
	Bull.pm 
Log Message:
bugfix : when saving a special issue, "arrived" and "missing" status must be stored in history as well.

Index: Bull.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Bull.pm,v
retrieving revision 1.6.2.9
retrieving revision 1.6.2.10
diff -C2 -r1.6.2.9 -r1.6.2.10
*** Bull.pm	16 Jun 2005 15:35:27 -0000	1.6.2.9
--- Bull.pm	17 Jun 2005 15:51:54 -0000	1.6.2.10
***************
*** 406,409 ****
--- 406,420 ----
  	my $sth = $dbh->prepare("insert into serial (serialseq,subscriptionid,biblionumber,status, planneddate) values (?,?,?,?,?)");
  	$sth->execute($serialseq,$subscriptionid,$biblionumber,$status, $planneddate);
+ 	$sth = $dbh->prepare("select missinglist,recievedlist from subscriptionhistory where subscriptionid=?");
+ 	$sth->execute($subscriptionid);
+ 	my ($missinglist,$recievedlist) = $sth->fetchrow;
+ 	if ($status eq 2) {
+ 		$recievedlist .= ",$serialseq";
+ 	}
+ 	if ($status eq 4) {
+ 		$missinglist .= ",$serialseq";
+ 	}
+ 	$sth=$dbh->prepare("update subscriptionhistory set recievedlist=?, missinglist=? where subscriptionid=?");
+ 	$sth->execute($recievedlist,$missinglist,$subscriptionid);
  }