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

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   06/10/11 14:27:26

Modified files:
        C4             : Context.pm 

Log message:
        removing a warning

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Context.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.43.2.2&r2=1.43.2.3

Patches:
Index: Context.pm
===================================================================
RCS file: /sources/koha/koha/C4/Context.pm,v
retrieving revision 1.43.2.2
retrieving revision 1.43.2.3
diff -u -b -r1.43.2.2 -r1.43.2.3
--- Context.pm  10 Oct 2006 15:28:16 -0000      1.43.2.2
+++ Context.pm  11 Oct 2006 14:27:26 -0000      1.43.2.3
@@ -16,7 +16,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Context.pm,v 1.43.2.2 2006/10/10 15:28:16 hdl Exp $
+# $Id: Context.pm,v 1.43.2.3 2006/10/11 14:27:26 tipaul Exp $
 use strict;
 use DBI;
 use ZOOM;
@@ -28,7 +28,7 @@
        qw($context),
        qw(@context_stack);
 
-$VERSION = do { my @v = '$Revision: 1.43.2.2 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.43.2.3 $' =~ /\d+/g;
                shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -421,8 +421,6 @@
        my $auth=shift;
        my $piggyback=shift;
        my $syntax=shift;
-    warn "self : $self server : $server";
-
        if ( defined($context->{"Zconn"}) ) {
                return $context->{"Zconn"};
 
@@ -843,6 +841,9 @@
 
 =cut
 # $Log: Context.pm,v $
+# Revision 1.43.2.3  2006/10/11 14:27:26  tipaul
+# removing a warning
+#
 # Revision 1.43.2.2  2006/10/10 15:28:16  hdl
 # BUG FIXING : using database name in Zconn if defined and not hard coded value
 #