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

fixed a bug caused by changing the template api

Browse source
This commit is contained in:
JT Smith 2004-06-27 14:47:37 +00:00
parent 874cf16d29
commit dae0123fae
2 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Page.pm
View file

@ -451,7 +451,7 @@ sub generate {
WebGUI::ErrorHandler::fatalError("Wobject runtime error: ${$wobject}{namespace}. Root cause: ".$@) if($@);
}
$sth->finish;
return WebGUI::Template::process($session{page}{templateId},"Page",\%var);
return WebGUI::Template::process($session{page}{templateId},"page",\%var);
}
@ -484,8 +484,9 @@ The id of the page template you wish to retrieve. Defaults to the current page's
=cut
sub getTemplate {
my $templateId = $_[0] || $session{page}{templateId};
return WebGUI::Template::get($templateId,"page");
my $templateId = shift || $session{page}{templateId};
my $template = WebGUI::Template::get($templateId,"page");
return $template->{template};
}
#-------------------------------------------------------------------

12
lib/WebGUI/Template.pm
View file

@ -99,7 +99,7 @@ Defaults to "1". Specify the templateId of the template to retrieve.
=item namespace
Defaults to "Page". Specify the namespace of the template to retrieve.
Defaults to "page". Specify the namespace of the template to retrieve.
=back
@ -107,7 +107,7 @@ Defaults to "Page". Specify the namespace of the template to retrieve.
sub get {
my $templateId = shift || 1;
my $namespace = shift || "Page";
my $namespace = shift || "page";
return WebGUI::SQL->quickHashRef("select * from template where templateId=".$templateId." and namespace=".quote($namespace));
}
@ -122,14 +122,14 @@ Returns a hash reference containing template ids and template names of all the t
=item namespace
Defaults to "Page". Specify the namespace to build the list for.
Defaults to "page". Specify the namespace to build the list for.
=back
=cut
sub getList {
my $namespace = $_[0] || "Page";
my $namespace = $_[0] || "page";
return WebGUI::SQL->buildHashRef("select templateId,name from template where namespace=".quote($namespace)." and showInForms=1 order by name");
}
@ -148,7 +148,7 @@ Defaults to "1". Specify the templateId of the template to retrieve.
=item namespace
Defaults to "Page". Specify the namespace of the template to retrieve.
Defaults to "page". Specify the namespace of the template to retrieve.
=item vars
@ -160,7 +160,7 @@ A hash reference containing template variables and loops. Automatically includes
sub process {
my $templateId = shift || 1;
my $namespace = shift || "Page";
my $namespace = shift || "page";
my $vars = shift;
my $file = _getTemplateFile($templateId,$namespace);
my %params = (