[Koha-cvs] koha/circ circulation.pl [dev_week]

[Joshua Ferraro]

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