first round of changes for the new session system

This commit is contained in:
JT Smith 2005-12-31 21:54:06 +00:00
parent da95226072
commit d4b7f2ce59
128 changed files with 2442 additions and 1478 deletions

View file

@ -11,7 +11,6 @@ package WebGUI::Macro::PageTitle;
#-------------------------------------------------------------------
use strict;
use WebGUI::Session;
=head1 NAME
@ -31,11 +30,12 @@ no asset cached in the session variable, nothing is returned.
#-------------------------------------------------------------------
sub process {
if (exists $session{asset}) {
if ($session{form}{op} || $session{form}{func}) {
return '<a href="'.$session{asset}->getUrl.'">'.$session{asset}->get("title").'</a>';
my $self = shift;
if ($session->asset) {
if ($session->form->process("op") || $session->form->process("func")) {
return '<a href="'.$session->asset->getUrl.'">'.$session->asset->get("title").'</a>';
} else {
return $session{asset}->get("title");
return $session->asset->get("title");
}
}
}