[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);
  }