% my ($message, $type) = split /=/, $status_msg;
% $type ||= 'status';
<TABLE CLASS="fsinnerbox" STYLE="background-color:<% $status_color{$type} %>"><TR>
% my ($message, $type) = split /=/, $status_msg;
% $type ||= 'status';
<TABLE CLASS="fsinnerbox" STYLE="background-color:<% $status_color{$type} %>"><TR>
## status->green(#eeffee), warning->yellow(#fdfd96), error->red(#f97c7c)
my %status_color = ( 'status' => '#eeffee', 'warning' => '#fefbd0', 'error' => '#f97c7c', );
## status->green(#eeffee), warning->yellow(#fdfd96), error->red(#f97c7c)
my %status_color = ( 'status' => '#eeffee', 'warning' => '#fefbd0', 'error' => '#f97c7c', );