temporary config file fix

This commit is contained in:
Graham Knop 2010-06-10 23:50:34 -05:00
parent 24c8e0db7e
commit dfa1a3d7cb
2 changed files with 2 additions and 4 deletions

View file

@ -159,9 +159,7 @@ around new => sub {
my $class = shift;
my $filename = shift;
my $noCache = shift;
if (!File::Spec->file_name_is_absolute($filename)) {
$filename = Cwd::realpath(File::Spec->catfile(WebGUI::Paths->configBase, $filename));
}
$filename = Cwd::realpath(File::Spec->rel2abs($filename, WebGUI::Paths->configBase));
if (exists $config{$filename}) {
return $config{$filename};
}

View file

@ -298,7 +298,7 @@ Creates a new session using the same WebGUI root, config file, and user.
sub duplicate {
my $self = shift;
my $newSession = WebGUI::Session->open(
$self->config->getFilename,
$self->config,
undef,
undef,
$self->getId,