[interchange-cvs] interchange - kwalsh modified dist/lib/UI/pages/admin/wizard/do_launch.html
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Tue May 28 20:34:01 2002
User: kwalsh
Date: 2002-05-29 00:33:49 GMT
Modified: dist/lib/UI/pages/admin/wizard do_launch.html
Log:
* $vdb was not defined and was causing problems. I set it to
$Db{variable} for now.
Revision Changes Path
2.2 +2 -1 interchange/dist/lib/UI/pages/admin/wizard/do_launch.html
rev 2.2, prev_rev 2.1
Index: do_launch.html
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/wizard/do_launch.html,v
retrieving revision 2.1
retrieving revision 2.2
diff -u -r2.1 -r2.2
--- do_launch.html 27 Jul 2001 20:56:01 -0000 2.1
+++ do_launch.html 29 May 2002 00:33:49 -0000 2.2
@@ -14,6 +14,7 @@
my $udb = $Db{userdb};
my $tdb = $Db{transactions};
my $odb = $Db{orderline};
+ my $vdb = $Db{variable};
my %doit = (
nukeusers => sub {
@@ -48,7 +49,7 @@
my $status = $val->();
push @messages, "$_ subroutine returned $status.";
}
- elsif($val =~ /\w+/) {
+ elsif ($vdb && $val =~ /\w+/) {
$vdb->set_field($val, 'Variable', $Values->{$_});
push @messages, "$_ set $val to '$Values->{$_}' in variable.";
}