[Koha-cvs] koha/C4 Context.pm

[Tumer Garip]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Tumer Garip <tgarip1957 at savannah.gnu.org>	06/05/20 14:28:02

Modified files:
	C4             : Context.pm 

Log message:
	Adding support to read zebra database name from config files

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

Patches:
Index: koha/C4/Context.pm
diff -u koha/C4/Context.pm:1.39 koha/C4/Context.pm:1.40
--- koha/C4/Context.pm:1.39	Fri May 19 09:52:54 2006
+++ koha/C4/Context.pm	Sat May 20 14:28:02 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.39 2006/05/19 09:52:54 alaurin Exp $
+# $Id: Context.pm,v 1.40 2006/05/20 14:28:02 tgarip1957 Exp $
 package C4::Context;
 use strict;
 use DBI;
@@ -25,7 +25,7 @@
 	qw($context),
 	qw(@context_stack);
 
-$VERSION = do { my @v = '$Revision: 1.39 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.40 $' =~ /\d+/g;
 		shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -438,7 +438,7 @@
 
 retry:
 	eval {
-		$Zconn=new ZOOM::Connection($context->config("hostname"),$port,
+		$Zconn=new ZOOM::Connection($context->config("hostname"),$port,databaseName=$context->{"config"}->{$server},
 		preferredRecordSyntax => "USmarc",elementSetName=> "F");
 	};
 	if ($@){
@@ -467,7 +467,7 @@
 my ($tcp,$host,$port)=split /:/,$context->{"listen"}->{$server}->{"content"};
 retry:
 eval{
- $Zconnauth=new ZOOM::Connection($context->config("hostname"),$port,
+ $Zconnauth=new ZOOM::Connection($context->config("hostname"),$port,databaseName=$context->{"config"}->{$server},
 						user=>$context->{"config"}->{"zebrauser"},
 						password=>$context->{"config"}->{"zebrapass"},preferredRecordSyntax => "USmarc",elementSetName=> "F");
 };
@@ -826,6 +826,9 @@
 
 =cut
 # $Log: Context.pm,v $
+# Revision 1.40  2006/05/20 14:28:02  tgarip1957
+# Adding support to read zebra database name from config files
+#
 # Revision 1.39  2006/05/19 09:52:54  alaurin
 # committing new feature ip and printer management
 # adding two fields in branches table (branchip,branchprinter)