gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed some run-time bugs, so it'll actually load.

This commit is contained in:
arensb 2002-10-02 23:38:47 +00:00
parent 64c01c3574
commit 39d7df4191
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C4/Context.pm
View File

@ -99,7 +99,7 @@ $context = undef; # Initially, no context is set
sub read_config_file
{
my $fname = shift; # Config file to read
my $retval; # Return value: ref-to-hash holding the
my $retval = {}; # Return value: ref-to-hash holding the
# configuration
open (CONF, $fname) or return undef;
@ -141,7 +141,8 @@ sub import
# Create a new context from the given config file name, if
# any, then set it as the current context.
$context = __PACKAGE__->new($conf_fname);
$context = new C4::Context($conf_fname);
return undef if !defined($context);
$context->set_context;
}
@ -178,7 +179,7 @@ sub new
# Load the desired config file.
$self->{"config"} = &read_config_file($conf_fname);
return null if !defined($self->{"config"});
return undef if !defined($self->{"config"});
$self->{"dbh"} = undef; # Database handle