[Top][All Lists]
[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]));
! }
}
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/bull statecollection.pl,1.3.2.1,1.3.2.2,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/acqui.simple addbiblio-nomarc.pl,1.2,1.2.4.1 addbiblio.pl,1.52.2.4,1.52.2.5 addbooks.pl,1.22,1.22.2.1 additem-nomarc.pl,1.4,1.4.2.1 additem.pl,1.27.2.1,1.27.2.2 isbnsearch.pl,1.14.2.2,1.14.2.3
- Next by Date:
[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.9.2.1,1.9.2.2
- Previous by thread:
[Koha-cvs] CVS: koha/acqui.simple addbiblio-nomarc.pl,1.2,1.2.4.1 addbiblio.pl,1.52.2.4,1.52.2.5 addbooks.pl,1.22,1.22.2.1 additem-nomarc.pl,1.4,1.4.2.1 additem.pl,1.27.2.1,1.27.2.2 isbnsearch.pl,1.14.2.2,1.14.2.3
- Next by thread:
[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.9.2.1,1.9.2.2
- Index(es):