[Koha-cvs] koha/C4 Context.pm

[Ryan Higgins]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Ryan Higgins <rych>	07/03/12 21:17:05

Modified files:
	C4             : Context.pm 

Log message:
	add server, serverinfo as arrays from config

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Context.pm?cvsroot=koha&r1=1.51&r2=1.52

Patches:
Index: Context.pm
===================================================================
RCS file: /sources/koha/koha/C4/Context.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- Context.pm	9 Mar 2007 14:31:47 -0000	1.51
+++ Context.pm	12 Mar 2007 21:17:05 -0000	1.52
@@ -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.51 2007/03/09 14:31:47 tipaul Exp $
+# $Id: Context.pm,v 1.52 2007/03/12 21:17:05 rych Exp $
 use strict;
 use DBI;
 use ZOOM;
@@ -28,7 +28,7 @@
     qw($context),
     qw(@context_stack);
 
-$VERSION = do { my @v = '$Revision: 1.51 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.52 $' =~ /\d+/g;
         shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -138,7 +138,7 @@
 sub read_config_file {
     my $fname = shift;    # Config file to read
     my $retval = {};    # Return value: ref-to-hash holding the configuration
-    my $koha = XMLin($fname, keyattr => ['id'],forcearray => ['listen']);
+    my $koha = XMLin($fname, keyattr => ['id'],forcearray => ['listen', 'server', 'serverinfo']);
     return $koha;
 }
 
@@ -874,6 +874,9 @@
 =cut
 
 # $Log: Context.pm,v $
+# Revision 1.52  2007/03/12 21:17:05  rych
+# add server, serverinfo as arrays from config
+#
 # Revision 1.51  2007/03/09 14:31:47  tipaul
 # rel_3_0 moved to HEAD
 #