koha-cvs
[Top][All Lists]
Advanced

[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'}}++;
        




reply via email to

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