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,
);
|
