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

[Paul POULAIN]

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]));
! 		}
  	}
  }