fixed a number of slide panel admin bar issues

This commit is contained in:
JT Smith 2005-06-05 22:38:43 +00:00
parent 9612c9f764
commit 7bc78aa995
4 changed files with 38 additions and 32 deletions

View file

@ -280,19 +280,19 @@ Creates an HTML formatted string
sub showDebug {
my $text = $WebGUI::Session::session{debug}{'error'};
$text =~ s/\n/\<br \/\>\n/g;
my $output = '<div style="margin-left:15px;background-color: #800000;color: #ffffff;">'.$text."</div>\n";
my $output = '<div style="background-color: #800000;color: #ffffff;">'.$text."</div>\n";
$text = $WebGUI::Session::session{debug}{'warn'};
$text =~ s/\n/\<br \/\>\n/g;
$output .= '<div style="margin-left:15px;background-color: #ffdddd;color: #000000;">'.$text."</div>\n";
$output .= '<div style="background-color: #ffdddd;color: #000000;">'.$text."</div>\n";
$text = $WebGUI::Session::session{debug}{'info'};
$text =~ s/\n/\<br \/\>\n/g;
$output .= '<div style="margin-left:15px;background-color: #ffffdd;color: #000000;">'.$text."</div>\n";
$output .= '<div style="background-color: #ffffdd;color: #000000;">'.$text."</div>\n";
$text = $WebGUI::Session::session{debug}{'debug'};
$text =~ s/\n/\<br \/\>\n/g;
$output .= '<div style="margin-left:15px;background-color: #dddddd;color: #000000;">'.$text."</div>\n";
$output .= '<div style="background-color: #dddddd;color: #000000;">'.$text."</div>\n";
$text = getSessionVars();
$text =~ s/\n/\<br \/\>\n/g;
$output .= '<div style="margin-left:15px;background-color: #ffffff;color: #000000;">'.$text."</div>\n";
$output .= '<div style="background-color: #ffffff;color: #000000;">'.$text."</div>\n";
return $output;
}