fixed a couple more bugs

This commit is contained in:
JT Smith 2005-04-23 19:18:42 +00:00
parent 2946331b66
commit a5b07a2599
3 changed files with 21 additions and 9 deletions

View file

@ -150,11 +150,16 @@ sub readConfig {
foreach my $key ($config->directives) {
$data{$key} = $config->get($key);
}
foreach my $directive (qw(assetAddPrivilege assets utilityAssets assetContainers authMethods paymentPlugins)) {
foreach my $directive (qw(assets utilityAssets assetContainers authMethods paymentPlugins)) {
if (ref $data{$directive} ne "ARRAY") {
$data{$directive} = [$data{$directive}];
}
}
foreach my $directive (qw(assetAddPrivilege macros)) {
if (ref $data{$directive} ne "HASH") {
$data{$directive} = {};
}
}
if( defined( $data{scripturl} ) ) {
# get rid of leading "/" if present.
$data{scripturl} =~ s/^\///;