[Koha-cvs] koha/C4 Stats.pm [rel_3_0]
paul poulain
paul at koha-fr.org
Thu Dec 14 10:29:47 CET 2006
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 @{{|@^~]^@{# 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(
More information about the Koha-cvs
mailing list