fixing upgrade bugs

This commit is contained in:
JT Smith 2003-05-26 04:14:34 +00:00
parent 4c86a32b70
commit 938ccbb565
2 changed files with 39 additions and 34 deletions

View file

@ -39,12 +39,13 @@ $macros->{GroupDelete} = "GroupDelete";
$macros->{SI} = "SI_scaledImage";
$conf->set("macros"=>$macros);
my $wobjects = $conf->get("wobjects");
foreach my $i ($wobjects) {
if ($wobjects->[$i] eq "MailForm") {
$wobjects->[$i] = "DataForm";
my @newWobjects = qw(DataForm);
foreach (@{$wobjects}) {
unless ($_ eq "MailForm") {
push(@newWobjects, $_);
}
}
$conf->set("wobjects"=>$wobjects);
$conf->set("wobjects"=>\@newWobjects);
$conf->set("searchAndReplace"=>{ ":)" => "<img src='/extras/smileys/smile01.gif' align='absMiddle' border='0'>",
":-)" => "<img src='/extras/smileys/smile01.gif' align='absMiddle' border='0'>",
":(" => "<img src='/extras/smileys/smile02.gif' align='absMiddle' border='0'>",