koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/bull statecollection.pl,1.3.2.1,1.3.2.2


From: Paul POULAIN
Subject: [Koha-cvs] CVS: koha/bull statecollection.pl,1.3.2.1,1.3.2.2
Date: Fri, 25 Mar 2005 04:54:05 -0800

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

Modified Files:
      Tag: rel_2_2
        statecollection.pl 
Log Message:
adding feature to create an issue manally

Index: statecollection.pl
===================================================================
RCS file: /cvsroot/koha/koha/bull/statecollection.pl,v
retrieving revision 1.3.2.1
retrieving revision 1.3.2.2
diff -C2 -r1.3.2.1 -r1.3.2.2
*** statecollection.pl  11 Jan 2005 15:07:57 -0000      1.3.2.1
--- statecollection.pl  25 Mar 2005 12:54:02 -0000      1.3.2.2
***************
*** 32,40 ****
  # change status except, if subscription has expired, for the "waited" issue.
  if ($op eq 'serialchangestatus') {
!       my $sth = $dbh->prepare("select subscriptionid,status from serial where 
serialid=?");
        for (my $i=0;$i<=$#serialids;$i++) {
                $sth->execute($serialids[$i]);
!               my ($x,$oldstatus) = $sth->fetchrow;
!               
serialchangestatus($serialids[$i],$serialseqs[$i],format_date_in_iso($planneddates[$i]),$status[$i])
 unless ($hassubscriptionexpired && $oldstatus == 1);
        }
  }
--- 32,45 ----
  # change status except, if subscription has expired, for the "waited" issue.
  if ($op eq 'serialchangestatus') {
!       my $sth = $dbh->prepare("select status from serial where serialid=?");
        for (my $i=0;$i<=$#serialids;$i++) {
                $sth->execute($serialids[$i]);
!               my ($oldstatus) = $sth->fetchrow;
!               if ($serialids[$i]) {
!                       
serialchangestatus($serialids[$i],$serialseqs[$i],format_date_in_iso($planneddates[$i]),$status[$i])
 unless ($hassubscriptionexpired && $oldstatus == 1);
!               } else {
!                       my $subscription=getsubscription($subscriptionid);
!                       
newissue($serialseqs[$i],$subscriptionid,$subscription->{biblionumber},$status[$i],
 format_date_in_iso($planneddates[$i]));
!               }
        }
  }




reply via email to

[Prev in Thread] Current Thread [Next in Thread]