[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.";
 		}