added style switch for user functions

This commit is contained in:
JT Smith 2005-02-07 03:38:37 +00:00
parent d1f8e2bf20
commit 4f7a7740d7
9 changed files with 36 additions and 9 deletions

View file

@ -17,6 +17,7 @@ use WebGUI::Grouping;
use WebGUI::International;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Style;
our @ISA = qw(Exporter);
our @EXPORT = qw(&menuWrapper);
@ -84,4 +85,16 @@ sub menuWrapper {
return $output;
}
#-------------------------------------------------------------------
sub userStyle {
my $output = shift;
if ($output) {
return WebGUI::Style::process($output,$session{setting}{userFunctionStyleId});
} else {
return undef;
}
}
1;