oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bugfix [ 955397 ] Make Page Printable Macro Fails

Browse source
This commit is contained in:
JT Smith 2004-05-25 18:26:34 +00:00
parent cdcdd2094e
commit 1ff8ffff7e
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/6.x.x.txt
View file

@ -1,6 +1,7 @@
6.0.3 6.0.3
- Fixed a recursive style change bug. - Fixed a recursive style change bug.
- Bugfix [ 953593 ] perl -MWebGUI -e "" fails - Bugfix [ 953593 ] perl -MWebGUI -e "" fails
- Bugfix [ 955397 ] Make Page Printable Macro Fails
6.0.2 6.0.2

6
lib/WebGUI/Macro/r_printable.pm
View file

@ -22,7 +22,11 @@ use WebGUI::Utility;
sub process { sub process {
my ($temp, @param, $styleId); my ($temp, @param, $styleId);
@param = WebGUI::Macro::getParams($_[0]); @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 "") { if ($param[1] ne "") {
($styleId) = WebGUI::SQL->quickArray("select styleId from style where name=".quote($param[1])); ($styleId) = WebGUI::SQL->quickArray("select styleId from style where name=".quote($param[1]));
if ($styleId != 0) { if ($styleId != 0) {