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

removed old template system and replaced with template asset

Browse source
This commit is contained in:
JT Smith 2005-01-05 17:28:14 +00:00
parent 023ce77917
commit 4798ba497d
50 changed files with 614 additions and 660 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -14,6 +14,8 @@ use strict qw(refs vars);
use Tie::CPHash;
use Tie::IxHash;
use WebGUI::AdminConsole;
use WebGUI::Asset;
use WebGUI::Asset::Template;
use WebGUI::Grouping;
use WebGUI::International;
use WebGUI::Macro;
@ -26,7 +28,7 @@ use WebGUI::Utility;
sub process {
return "" unless ($session{var}{adminOn});
my @param = WebGUI::Macro::getParams($_[0]);
my $templateId = $param[0] || 1;
my $templateId = $param[0] || "PBtmpl0000000000000090";
my %var;
my (%cphash, %hash2, %hash, $r, @item, $query);
tie %hash, "Tie::IxHash";
@ -97,7 +99,7 @@ sub process {
$i++;
}
$var{'admin_loop'} = \@admin;
return WebGUI::Template::process($templateId,"Macro/AdminBar",\%var);
return WebGUI::Asset::Template->new($templateId)->process(\%var);
}

8
lib/WebGUI/Macro/AdminToggle.pm
View file

@ -15,7 +15,7 @@ use WebGUI::Grouping;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::URL;
#-------------------------------------------------------------------
@ -32,7 +32,11 @@ sub process {
$var{'toggle.url'} = WebGUI::URL::page('op=switchOnAdmin');
$var{'toggle.text'} = $turnOn;
}
return WebGUI::Template::process(WebGUI::Template::getIdByName($templateName,"Macro/AdminToggle")||1,"Macro/AdminToggle",\%var);
if (defined $templateName) {
return WebGUI::Asset::Template->newByUrl($templateName)->process(\%var);
} else {
return WebGUI::Asset::Template->new("PBtmpl0000000000000036")->process(\%var);
}
}
return "";
}

4
lib/WebGUI/Macro/EditableToggle.pm
View file

@ -15,7 +15,7 @@ use WebGUI::Grouping;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::URL;
#-------------------------------------------------------------------
@ -32,7 +32,7 @@ sub process {
$var{'toggle.url'} = WebGUI::URL::page('op=switchOnAdmin');
$var{'toggle.text'} = $turnOn;
}
return WebGUI::Template::process(WebGUI::Template::getIdByName($param[2],"Macro/EditableToggle"),"Macro/EditableToggle",\%var);
return WebGUI::Asset::Template->newByUrl($param[2])->process(\%var);
}
return "";
}

4
lib/WebGUI/Macro/GroupAdd.pm
View file

@ -15,7 +15,7 @@ use WebGUI::Group;
use WebGUI::Grouping;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::URL;
#-------------------------------------------------------------------
@ -31,7 +31,7 @@ sub process {
my %var = ();
$var{'group.url'} = WebGUI::URL::page("op=autoAddToGroup&groupId=".$g->groupId);
$var{'group.text'} = $param[1];
return WebGUI::Template::process(WebGUI::Template::getIdByName($param[2],"Macro/GroupAdd"), "Macro/GroupAdd", \%var);
return WebGUI::Asset::Template->newByUrl($param[2])->process(\%var);
}

4
lib/WebGUI/Macro/GroupDelete.pm
View file

@ -15,7 +15,7 @@ use WebGUI::Group;
use WebGUI::Grouping;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::URL;
#-------------------------------------------------------------------
@ -31,7 +31,7 @@ sub process {
my %var = ();
$var{'group.url'} = WebGUI::URL::page("op=autoDeleteFromGroup&groupId=".$g->groupId);
$var{'group.text'} = $param[1];
return WebGUI::Template::process(WebGUI::Template::getIdByName($param[2],"Macro/GroupDelete"),"Macro/GroupDelete", \%var);
return WebGUI::Asset::Template->newByUrl($param[2])->process(\%var);
}

7
lib/WebGUI/Macro/H_homeLink.pm
View file

@ -11,6 +11,7 @@ package WebGUI::Macro::H_homeLink;
#-------------------------------------------------------------------
use strict;
use WebGUI::Asset::Template;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Session;
@ -34,7 +35,11 @@ sub process {
} else {
$var{'homeLink.text'} = WebGUI::International::get(47);
}
$temp = WebGUI::Template::process(WebGUI::Template::getIdByName($param[1],"Macro/H_homeLink"), "Macro/H_homeLink", \%var);
if (defined $param[1]) {
$temp = WebGUI::Asset::Template->newByUrl($param[1])->process(\%var);
} else {
$temp = WebGUI::Asset::Template->new("PBtmpl0000000000000042")->process(\%var);
}
}
return $temp;
}

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

@ -15,7 +15,7 @@ use WebGUI::Form;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::URL;
#-------------------------------------------------------------------
@ -26,7 +26,7 @@ sub _createURL {
#-------------------------------------------------------------------
sub process {
my @param = WebGUI::Macro::getParams($_[0]);
my $templateId = $param[2] || 1;
my $templateId = $param[2] || "PBtmpl0000000000000092";
my %var;
$var{'user.isVisitor'} = ($session{user}{userId} eq "1");
$var{'customText'} = $param[1];
@ -69,7 +69,7 @@ sub process {
$var{'account.create.url'} = WebGUI::URL::page('op=createAccount');
$var{'account.create.label'} = WebGUI::International::get(407);
$var{'form.footer'} = WebGUI::Form::formFooter();
return WebGUI::Template::process($templateId,"Macro/L_loginBox",\%var);
return WebGUI::Asset::Template->new($templateId)->process(\%var);
}
1;

8
lib/WebGUI/Macro/LoginToggle.pm
View file

@ -14,7 +14,7 @@ use strict;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::URL;
#-------------------------------------------------------------------
@ -32,7 +32,11 @@ sub process {
$var{'toggle.url'} = WebGUI::URL::page('op=logout');
$var{'toggle.text'} = $logout;
}
return WebGUI::Template::process(WebGUI::Template::getIdByName($param[3],"Macro/LoginToggle")||1, "Macro/LoginToggle", \%var);
if ($param[3]) {
return WebGUI::Asset::Template->newByUrl($param[3])->process(\%var);
} else {
return WebGUI::Asset::Template->new("PBtmpl0000000000000043")->process(\%var);
}
}

5
lib/WebGUI/Macro/SubscriptionItem.pm
View file

@ -1,6 +1,7 @@
package WebGUI::Macro::SubscriptionItem;
use strict;
use WebGUI::Asset::Template;
use WebGUI::Macro;
use WebGUI::SQL;
use WebGUI::URL;
@ -8,11 +9,9 @@ use WebGUI::URL;
sub process {
my ($subscriptionId, $templateId, %var);
($subscriptionId, $templateId) = WebGUI::Macro::getParams(@_);
%var = WebGUI::SQL->quickHash('select * from subscription where subscriptionId='.quote($subscriptionId));
$var{url} = WebGUI::URL::page('op=purchaseSubscription&sid='.$subscriptionId);
return WebGUI::Template::process($templateId || 1, 'Macro/SubscriptionItem', \%var);
return WebGUI::Asset::Template->new($templateId || "PBtmpl0000000000000046")->process(\%var);
}
1;

4
lib/WebGUI/Macro/a_account.pm
View file

@ -14,7 +14,7 @@ use strict;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::URL;
#-------------------------------------------------------------------
@ -24,7 +24,7 @@ sub process {
return WebGUI::URL::page("op=displayAccount") if ($param[0] eq "linkonly");
$var{'account.url'} = WebGUI::URL::page('op=displayAccount');
$var{'account.text'} = $param[0] || WebGUI::International::get(46);
return WebGUI::Template::process(WebGUI::Template::getIdByName($param[1],"Macro/a_account"),"Macro/a_account",\%var);
return WebGUI::Asset::Template->newByUrl($param[1])->process(\%var);
}

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

@ -14,7 +14,7 @@ use strict;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::URL;
use WebGUI::Utility;
@ -28,10 +28,7 @@ sub process {
}
$temp = WebGUI::URL::append($session{env}{REQUEST_URI},$append);
if ($param[1] ne "") {
($styleId) = WebGUI::Template::getIdByName($param[1],"style");
if ($styleId != 0) {
$temp = WebGUI::URL::append($temp,'styleId='.$styleId);
}
$temp = WebGUI::URL::append($temp,'styleId='.$param[1]);
}
if ($param[0] ne "linkonly") {
my %var;
@ -41,7 +38,11 @@ sub process {
} else {
$var{'printable.text'} = WebGUI::International::get(53);
}
$temp = WebGUI::Template::process(WebGUI::Template::getIdByName($param[2],"Macro/r_printable"), "Macro/r_printable", \%var);
if ($param[2]) {
$temp = WebGUI::Asset::Template->newByUrl($param[2])->process(\%var);
} else {
$temp = WebGUI::Asset::Template->new("PBtmpl0000000000000109")->process(\%var);
}
}
return $temp;
}