[Koha-cvs] koha/C4 Stats.pm [rel_3_0]

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   06/12/14 09:29:47

Modified files:
        C4             : Stats.pm 

Log message:
        we (toins & me) spended almost 1 full day investigating why, under 
mod_perl, we had a strange printing in issues & returns.
        
        toins discovered it was a borrowernumber.
        I discovered this "print $borrowernumber" in the package.
        
        Thanks for your congrats because it was really @{{|@address@hidden 
stuff to investigate...

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Stats.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.24&r2=1.24.2.1

Patches:
Index: Stats.pm
===================================================================
RCS file: /sources/koha/koha/C4/Stats.pm,v
retrieving revision 1.24
retrieving revision 1.24.2.1
diff -u -b -r1.24 -r1.24.2.1
--- Stats.pm    7 Jun 2006 03:58:37 -0000       1.24
+++ Stats.pm    14 Dec 2006 09:29:47 -0000      1.24.2.1
@@ -1,6 +1,6 @@
 package C4::Stats;
 
-# $Id: Stats.pm,v 1.24 2006/06/07 03:58:37 rangi Exp $
+# $Id: Stats.pm,v 1.24.2.1 2006/12/14 09:29:47 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -26,7 +26,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = $VERSION = do { my @v = '$Revision: 1.24 $' =~ /\d+/g;
+$VERSION = $VERSION = do { my @v = '$Revision: 1.24.2.1 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -89,7 +89,6 @@
     }
     my $user         = $env->{'usercode'};
     my $organisation = $env->{'organisation'};
-    print $borrowernumber;
 
     # FIXME - Use $dbh->do() instead
     my $sth = $dbh->prepare(