[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/circ circulation.pl [dev_week]
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha/circ circulation.pl [dev_week] |
Date: |
Fri, 13 Oct 2006 17:17:09 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Joshua Ferraro <kados> 06/10/13 17:17:09
Modified files:
circ : circulation.pl
Log message:
issues weren't sorting properly because the timestamp field is in a
different format in my sql 4.1 than 3.23
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.81.2.14.2.9&r2=1.81.2.14.2.10
Patches:
Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.81.2.14.2.9
retrieving revision 1.81.2.14.2.10
diff -u -b -r1.81.2.14.2.9 -r1.81.2.14.2.10
--- circulation.pl 5 Oct 2006 23:23:50 -0000 1.81.2.14.2.9
+++ circulation.pl 13 Oct 2006 17:17:09 -0000 1.81.2.14.2.10
@@ -54,7 +54,7 @@
query => $query,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { circulate => 1 },
+ flagsrequired => { catalogue => 1 },
});
my $branches = getbranches();
my $printers = getprinters();
@@ -219,6 +219,8 @@
my $issuedate = $issueslist->{$it}->{'timestamp'};
$issuedate =~ s/-//g;
$issuedate = substr($issuedate, 0, 8);
+ # to let perl sort this correctly
+ $issueslist->{$it}->{'timestamp'} =~ s/(-|\:| )//g;
# warn "today: $todaysdate issue: $issuedate";
if ($todaysdate == $issuedate) {
push @todaysissues, $issueslist->{$it};
@@ -231,7 +233,7 @@
my $togglecolor;
# parses today & build Template array
foreach my $book (sort {$b->{'timestamp'} <=> $a->{'timestamp'}}
@todaysissues){
-
+ warn "TIMESTAMP".$book->{'timestamp'};
# ADDED BY JF: NEW ITEMTYPE COUNT DISPLAY
$issued_itemtypes_count->{$book->{'itemtype'}}++;