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::Id;
use WebGUI::International; use WebGUI::International;
use WebGUI::Macro; use WebGUI::Macro;
use WebGUI::Node;
use WebGUI::Privilege; use WebGUI::Privilege;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Style; use WebGUI::Style;

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

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

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

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