From: Nick J. <nje...@us...> - 2002-02-28 04:36:15
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv10166/lib/SandWeb Modified Files: UI.pm Log Message: * made some changes to UI to reflect MESSAGE changes Index: UI.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/UI.pm,v retrieving revision 1.26 retrieving revision 1.27 diff -U2 -r1.26 -r1.27 --- UI.pm 22 Feb 2002 23:00:07 -0000 1.26 +++ UI.pm 28 Feb 2002 04:36:12 -0000 1.27 @@ -29,15 +29,15 @@ my @debug_msgs = (); - my $error_msg = ''; + my $message = ''; # set debug mesg if debug is toggled if ($log->get_debug_toggle()) { - foreach my $msg ($log->get_debug_msgs()) { + foreach my $debug_msg ($log->get_debug_msgs()) { my %debug_content; - $debug_content{'DEBUG_MSG'} = "DEBUG: $msg"; + $debug_content{'DEBUG_MSG'} = "DEBUG: $debug_msg"; push @debug_msgs, \%debug_content; } } - if ($args{'ERROR'}) { - $error_msg = "$args{'ERROR'}"; + if ($args{'MESSAGE'}) { + $message = "$args{'MESSAGE'}"; } @@ -52,5 +52,5 @@ MENU_BAR => $menu_bar, DEBUG => \@debug_msgs, - ERROR => $error_msg, + MESSAGE => $message, ); |