diff --git a/lib/WebGUI/Macro/r_printable.pm b/lib/WebGUI/Macro/r_printable.pm index add47cc77..3afe9313b 100644 --- a/lib/WebGUI/Macro/r_printable.pm +++ b/lib/WebGUI/Macro/r_printable.pm @@ -14,14 +14,21 @@ use strict; use WebGUI::International; use WebGUI::Macro; use WebGUI::Session; +use WebGUI::SQL; use WebGUI::URL; use WebGUI::Utility; #------------------------------------------------------------------- sub _replacement { - my ($temp, @param); + my ($temp, @param, $styleId); @param = WebGUI::Macro::getParams($_[0]); $temp = WebGUI::URL::append($session{env}{REQUEST_URI},'makePrintable=1'); + 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); + } + } if ($param[0] ne "linkonly") { $temp = ''; if ($param[0] ne "") { diff --git a/lib/WebGUI/Style.pm b/lib/WebGUI/Style.pm index 8ac85822b..a8fec778a 100644 --- a/lib/WebGUI/Style.pm +++ b/lib/WebGUI/Style.pm @@ -18,10 +18,11 @@ use WebGUI::SQL; #------------------------------------------------------------------- sub getStyle { - my ($header, $footer, @style, %style); + my ($header, $footer, @style, %style, $styleId); tie %style, 'Tie::CPHash'; if ($session{form}{makePrintable}) { - %style = WebGUI::SQL->quickHash("select header,footer,styleSheet from style where styleId=3"); + $styleId = $session{form}{style} || 3; + %style = WebGUI::SQL->quickHash("select header,footer,styleSheet from style where styleId=$styleId"); $header = ''."\n"; $header .= ''.$session{page}{title}.' - '.$session{setting}{companyName}.''; $header .= $style{styleSheet}.''.$style{header};