Add POD to 1 Asset and 7 Operations.
Internationalized a label in Operation::LoginHistory
This commit is contained in:
parent
c02a3019c2
commit
4206828715
9 changed files with 256 additions and 1 deletions
|
|
@ -17,7 +17,25 @@ use WebGUI::Privilege;
|
|||
use WebGUI::Session;
|
||||
use WebGUI::URL;
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Package WebGUI::Operation::Style
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Operation for overriding styles in Assets.
|
||||
|
||||
=cut
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 www_makePrintable ( )
|
||||
|
||||
Copy $session{form}{styleId} to printableStyleId and set the makePrintable flag so that
|
||||
the printableStyleId is used instead of the normal styleId for the page.
|
||||
|
||||
=cut
|
||||
|
||||
sub www_makePrintable {
|
||||
if ($session{form}{styleId} ne "") {
|
||||
$session{page}{printableStyleId} = $session{form}{styleId};
|
||||
|
|
@ -26,13 +44,29 @@ sub www_makePrintable {
|
|||
return "";
|
||||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 www_setPersonalStyle ( )
|
||||
|
||||
Sets personalStyleId in the scratch area of the session variable. This allows
|
||||
overriding the style without setting a printable style and on a per user basis.
|
||||
|
||||
=cut
|
||||
|
||||
sub www_setPersonalStyle {
|
||||
WebGUI::Session::setScratch("personalStyleId",$session{form}{styleId});
|
||||
return "";
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 www_unsetPersonalStyle ( )
|
||||
|
||||
Clears the personalStyleId from the scratch area of the session variable.
|
||||
|
||||
=cut
|
||||
|
||||
sub www_unsetPersonalStyle {
|
||||
WebGUI::Session::deleteScratch("personalStyleId");
|
||||
return "";
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue