[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Bull.pm [rel_2_2]
From: |
paul poulain |
Subject: |
[Koha-cvs] koha/C4 Bull.pm [rel_2_2] |
Date: |
Tue, 04 Apr 2006 13:15:50 +0000 |
CVSROOT: /cvsroot/koha
Module name: koha
Branch: rel_2_2
Changes by: paul poulain <address@hidden> 06/04/04 13:15:50
Modified files:
C4 : Bull.pm
Log message:
add the last 5 arrived serials for a given subscription (to enable
"rollback")
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Bull.pm.diff?only_with_tag=rel_2_2&tr1=1.6.2.21&tr2=1.6.2.22&r1=text&r2=text
Patches:
Index: koha/C4/Bull.pm
diff -u koha/C4/Bull.pm:1.6.2.21 koha/C4/Bull.pm:1.6.2.22
--- koha/C4/Bull.pm:1.6.2.21 Wed Feb 8 09:20:11 2006
+++ koha/C4/Bull.pm Tue Apr 4 13:15:50 2006
@@ -357,6 +357,18 @@
sub getserials {
my ($subscriptionid) = @_;
my $dbh = C4::Context->dbh;
+ # OK, now add the last 5 issues arrives/missing
+ my $sth=$dbh->prepare("select serialid,serialseq, status,
planneddate,notes from serial where subscriptionid = ? and (status in (2,4,5))
order by serialid DESC");
+ $sth->execute($subscriptionid);
+ my $counter=0;
+ my @serials;
+ while((my $line = $sth->fetchrow_hashref) && $counter <5) {
+ $counter++;
+ $line->{"status".$line->{status}} = 1; # fills a "statusX"
value, used for template status select list
+ $line->{"planneddate"} = format_date($line->{"planneddate"});
+ push @serials,$line;
+ }
+
# status = 2 is "arrived"
my $sth=$dbh->prepare("select serialid,serialseq, status,
planneddate,notes from serial where subscriptionid = ? and status <>2 and
status <>4 and status <>5");
$sth->execute($subscriptionid);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/C4 Bull.pm [rel_2_2],
paul poulain <=