[Koha-cvs] koha/reports issues_avg_stats.pl [rel_3_0]

[Henri-Damien LAURENT]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Henri-Damien LAURENT <hdl>	06/12/07 16:29:31

Modified files:
	reports        : issues_avg_stats.pl 

Log message:
	Fixing Should now be useable.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/reports/issues_avg_stats.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.5.2.3&r2=1.5.2.4

Patches:
Index: issues_avg_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/issues_avg_stats.pl,v
retrieving revision 1.5.2.3
retrieving revision 1.5.2.4
diff -u -b -r1.5.2.3 -r1.5.2.4
--- issues_avg_stats.pl	7 Dec 2006 16:00:41 -0000	1.5.2.3
+++ issues_avg_stats.pl	7 Dec 2006 16:29:31 -0000	1.5.2.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: issues_avg_stats.pl,v 1.5.2.3 2006/12/07 16:00:41 hdl Exp $
+# $Id: issues_avg_stats.pl,v 1.5.2.4 2006/12/07 16:29:31 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -340,7 +340,7 @@
 		$linefield .="Year($line)";
 		$lineorder .= $line;  
 	} elsif (($line=~/timestamp/) or ($line=~/returndate/)){
-		$linefield .= "date_format('$line',\"%Y-%m-%d\")";
+		$linefield .= "date_format(\'$line\',\"%Y-%m-%d\")";
 		$lineorder .= $line;  
 	} else {
 		$linefield .= $line;
@@ -354,9 +354,9 @@
 		if ($linefilter[1] and ($linefilter[0])){
 			$strsth .= " and $line between '$linefilter[0]' and '$linefilter[1]' " ;
 		} elsif ($linefilter[1]) {
-				$strsth .= " and $line < '$linefilter[1]' " ;
+				$strsth .= " and $line < \'$linefilter[1]\' " ;
 		} elsif ($linefilter[0]) {
-			$strsth .= " and $line > '$linefilter[0]' " ;
+			$strsth .= " and $line > \'$linefilter[0]\' " ;
 		}
 		if ($linefilter[2]){
 			$strsth .= " and dayname($line) = '$linefilter[2]' " ;
@@ -524,7 +524,7 @@
 		$col = "zzEMPTY" if ($col eq undef);
 		$row = "zzEMPTY" if ($row eq undef);
 #		warn "506 row :".$row." column :".$col;
-		my $result =Delta_Days(split (/-/,$returndate),split(/-/,$issuedate)) ;
+		my $result =Delta_Days(split(/-/,$issuedate),split (/-/,$returndate)) ;
 #  DateCalc returns => 0:0:WK:DD:HH:MM:SS   the weeks, days, hours, minutes,
 #  and seconds between the two
 		$loanlength = $result;