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

fixed a syntax error and the Page and PageTitle macros

Browse source
This commit is contained in:
JT Smith 2005-01-07 17:14:16 +00:00
parent 81ff5f1c48
commit 2050de56cd
3 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Asset/Wobject.pm
View file

@ -28,7 +28,6 @@ use WebGUI::HTMLForm;
use WebGUI::Id;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Node;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::Style;

9
lib/WebGUI/Macro/Page.pm
View file

@ -16,10 +16,11 @@ use WebGUI::Session;
#-------------------------------------------------------------------
sub process {
my (@param, $temp);
@param = WebGUI::Macro::getParams($_[0]);
$temp = $session{page}{$param[0]};
return $temp;
my @param = WebGUI::Macro::getParams($_[0]);
if (exists $session{asset}) {
return $session{asset}->get($param[0]);
}
return "";
}

11
lib/WebGUI/Macro/PageTitle.pm
View file

@ -12,14 +12,15 @@ package WebGUI::Macro::PageTitle;
use strict;
use WebGUI::Session;
use WebGUI::URL;
#-------------------------------------------------------------------
sub process {
if ($session{form}{op} || $session{form}{func}) {
return '<a href="'.WebGUI::URL::page().'">'.$session{page}{title}.'</a>';
} else {
return $session{page}{title};
if (exists $session{asset}) {
if ($session{form}{op} || $session{form}{func}) {
return '<a href="'.$session{asset}->getUrl.'">'.$session{asset}->get("title").'</a>';
} else {
return $session{asset}->get("title");
}
}
}