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

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Chris Cormack <address@hidden>  06/05/09 12:35:47

Modified files:
        C4             : Context.pm 

Log message:
        debugging

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Context.pm.diff?only_with_tag=dev_week&tr1=1.18.2.5.2.3&tr2=1.18.2.5.2.4&r1=text&r2=text

Patches:
Index: koha/C4/Context.pm
diff -u koha/C4/Context.pm:1.18.2.5.2.3 koha/C4/Context.pm:1.18.2.5.2.4
--- koha/C4/Context.pm:1.18.2.5.2.3     Tue May  9 12:01:02 2006
+++ koha/C4/Context.pm  Tue May  9 12:35:47 2006
@@ -15,7 +15,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.18.2.5.2.3 2006/05/09 12:01:02 kados Exp $
+# $Id: Context.pm,v 1.18.2.5.2.4 2006/05/09 12:35:47 rangi Exp $
 
 package C4::Context;
 use strict;
@@ -26,7 +26,7 @@
        qw($context),
        qw(@context_stack);
 
-$VERSION = do { my @v = '$Revision: 1.18.2.5.2.3 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.18.2.5.2.4 $' =~ /\d+/g;
                shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -469,7 +469,9 @@
 ## Zebra handler with write permission
 sub new_Zconnauth {
 my $Zconnauth;
-
+    warn "zebra user and pass";
+warn $context->{"config"}{"zebrauser"};
+warn $context->{"config"}{"zebrapass"};    
 eval{
  $Zconnauth=new 
ZOOM::Connection($context->{"config"}{"hostname"},$context->{"config"}{"zebraport"},databaseName=>$context->{"config"}{"zebradb"},
                                                
user=>$context->{"config"}{"zebrauser"},
@@ -812,6 +814,9 @@
 
 =cut
 # $Log: Context.pm,v $
+# Revision 1.18.2.5.2.4  2006/05/09 12:35:47  rangi
+# debugging
+#
 # Revision 1.18.2.5.2.3  2006/05/09 12:01:02  kados
 # add use Zoom;
 #