added a bunch of style functions
This commit is contained in:
parent
264287a0fb
commit
759dfd2f6b
22 changed files with 75 additions and 36 deletions
|
|
@ -22,11 +22,11 @@ use WebGUI::Utility;
|
|||
sub process {
|
||||
my ($temp, @param, $styleId);
|
||||
@param = WebGUI::Macro::getParams($_[0]);
|
||||
$temp = WebGUI::URL::append($session{env}{REQUEST_URI},'makePrintable=1');
|
||||
$temp = WebGUI::URL::append($session{env}{REQUEST_URI},'op=makePrintable');
|
||||
if ($param[1] ne "") {
|
||||
($styleId) = WebGUI::SQL->quickArray("select styleId from style where name=".quote($param[1]));
|
||||
if ($styleId != 0) {
|
||||
$temp = WebGUI::URL::append($temp,'style='.$styleId);
|
||||
$temp = WebGUI::URL::append($temp,'styleId='.$styleId);
|
||||
}
|
||||
}
|
||||
if ($param[0] ne "linkonly") {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue