[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;