diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt index 64cee651a..2b91d6a43 100644 --- a/docs/changelog/6.x.x.txt +++ b/docs/changelog/6.x.x.txt @@ -1,6 +1,7 @@ 6.0.3 - Fixed a recursive style change bug. - Bugfix [ 953593 ] perl -MWebGUI -e "" fails + - Bugfix [ 955397 ] Make Page Printable Macro Fails 6.0.2 diff --git a/lib/WebGUI/Macro/r_printable.pm b/lib/WebGUI/Macro/r_printable.pm index f404fdfd1..534c2364a 100644 --- a/lib/WebGUI/Macro/r_printable.pm +++ b/lib/WebGUI/Macro/r_printable.pm @@ -22,7 +22,11 @@ use WebGUI::Utility; sub process { my ($temp, @param, $styleId); @param = WebGUI::Macro::getParams($_[0]); - $temp = WebGUI::URL::append($session{env}{REQUEST_URI},'op=makePrintable'); + my $append = 'op=makePrintable'; + if ($session{env}{REQUEST_URI} =~ /op\=/) { + $append = 'action2='.WebGUI::URL::escape($append); + } + $temp = WebGUI::URL::append($session{env}{REQUEST_URI},$append); if ($param[1] ne "") { ($styleId) = WebGUI::SQL->quickArray("select styleId from style where name=".quote($param[1])); if ($styleId != 0) {