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

10
lib/WebGUI/Operation/Commerce.pm
View file

@ -14,7 +14,7 @@ use WebGUI::Commerce;
use WebGUI::Operation;
use WebGUI::URL;
use WebGUI::International;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::HTTP;
use WebGUI::Paginator;
use WebGUI::Form;
@ -55,7 +55,7 @@ sub www_cancelTransaction {
$var{message} = WebGUI::International::get('checkout canceled message', 'Commerce');
return WebGUI::Template::process($session{setting}{commerceCheckoutCanceledTemplateId}, 'Commerce/CheckoutCanceled', \%var);
return WebGUI::Asset::Template->new($session{setting}{commerceCheckoutCanceledTemplateId})->process(\%var);
}
# This operation is here for easier future extensions to the commerce system.
@ -103,7 +103,7 @@ sub www_checkoutConfirm {
$var{form} = $f->print;
$var{title} = $i18n->get('checkout confirm title');
return WebGUI::Template::process($session{setting}{commerceConfirmCheckoutTemplateId}, 'Commerce/ConfirmCheckout', \%var);
return WebGUI::Asset::Template->new($session{setting}{commerceConfirmCheckoutTemplateId})->process(\%var);
}
#-------------------------------------------------------------------
@ -212,7 +212,7 @@ sub www_checkoutSubmit {
return WebGUI::Operation::execute('viewPurchaseHistory') unless ($checkoutError);
# If an error has occurred show the template errorlog
return WebGUI::Template::process($session{setting}{commerceTransactionErrorTemplateId}, 'Commerce/TransactionError', \%param);
return WebGUI::Asset::Template->new($session{setting}{commerceTransactionErrorTemplateId})->process(\%param);
}
#-------------------------------------------------------------------
@ -417,7 +417,7 @@ sub www_selectPaymentGateway {
$var{formSubmit} = WebGUI::Form::submit({value=>$i18n->get('payment gateway select')});
$var{formFooter} = WebGUI::Form::formFooter;
return WebGUI::Template::process($session{setting}{commerceSelectPaymentGatewayTemplateId}, 'Commerce/SelectPaymentGateway', \%var);
return WebGUI::Asset::Template->new($session{setting}{commerceSelectPaymentGatewayTemplateId})->process(\%var);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Operation/MessageLog.pm
View file

@ -19,7 +19,7 @@ use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::URL;
use WebGUI::User;
use WebGUI::Utility;
@ -64,7 +64,7 @@ sub www_viewMessageLog {
$vars->{'message.multiplePages'} = ($p->getNumberOfPages > 1);
$vars->{'message.accountOptions'} = WebGUI::Operation::Shared::accountOptions();
return WebGUI::Template::process(1,'Operation/MessageLog/View', $vars);
return WebGUI::Asset::Template->new("PBtmpl0000000000000050")->process($vars);
}
#-------------------------------------------------------------------
@ -91,7 +91,7 @@ sub www_viewMessageLogMessage {
$vars->{'message.text'} = $data->{message};
$vars->{'message.accountOptions'} = WebGUI::Operation::Shared::accountOptions();
return WebGUI::Template::process(1,'Operation/MessageLog/Message', $vars);
return WebGUI::Asset::Template->new("PBtmpl0000000000000049")->process($vars);
}
1;

5
lib/WebGUI/Operation/Profile.pm
View file

@ -12,6 +12,7 @@ package WebGUI::Operation::Profile;
use strict qw(vars subs);
use URI;
use WebGUI::Asset::Template;
use WebGUI::Operation::Auth;
use WebGUI::DateTime;
use WebGUI::ErrorHandler;
@ -192,7 +193,7 @@ sub www_editProfile {
$vars->{'profile.form.elements'} = \@array;
$vars->{'profile.form.submit'} = WebGUI::Form::submit({});
$vars->{'profile.accountOptions'} = WebGUI::Operation::Shared::accountOptions();
return WebGUI::Template::process(1,'Operation/Profile/Edit', $vars);
return WebGUI::Asset::Template->new("PBtmpl0000000000000051")->process($vars);
}
#-------------------------------------------------------------------
@ -255,7 +256,7 @@ sub www_viewProfile {
if ($session{user}{userId} eq $session{form}{uid}) {
$vars->{'profile.accountOptions'} = WebGUI::Operation::Shared::accountOptions();
}
return WebGUI::Template::process(1,'Operation/Profile/View', $vars);
return WebGUI::Asset::Template->new("PBtmpl0000000000000052")->process($vars);
}
1;

4
lib/WebGUI/Operation/Subscription.pm
View file

@ -12,7 +12,7 @@ use WebGUI::FormProcessor;
use WebGUI::Subscription;
use WebGUI::Commerce::ShoppingCart;
use WebGUI::AdminConsole;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::Form;
use WebGUI::International;
@ -426,7 +426,7 @@ sub www_redeemSubscriptionCode {
$f->submit;
$var{codeForm} = $f->print;
return WebGUI::Template::process(1, 'Operation/RedeemSubscription', \%var);
return WebGUI::Asset::Template->new("PBtmpl0000000000000053")->process(\%var);
}
1;

192
lib/WebGUI/Operation/Template.pm
View file

@ -1,192 +0,0 @@
package WebGUI::Operation::Template;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2004 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use Tie::CPHash;
use WebGUI::AdminConsole;
use WebGUI::Grouping;
use WebGUI::HTML;
use WebGUI::HTMLForm;
use WebGUI::Icon;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Template;
use WebGUI::URL;
use WebGUI::Utility;
#-------------------------------------------------------------------
sub _submenu {
my $workarea = shift;
my $title = shift;
$title = WebGUI::International::get($title) if ($title);
my $help = shift;
my $ac = WebGUI::AdminConsole->new("templates");
if ($help) {
$ac->setHelp($help);
}
$ac->addSubmenuItem(WebGUI::URL::page('op=editTemplate&tid=new&namespace='.$session{form}{namespace}), WebGUI::International::get(505));
if ($session{form}{op} eq "editTemplate" && ($session{form}{tid} ne "new" || $session{form}{op} ne "deleteTemplateConfirm")) {
$ac->addSubmenuItem(
WebGUI::URL::page('op=editTemplate&tid='.$session{form}{tid}.'&namespace='.$session{form}{namespace}),
WebGUI::International::get(851)
);
$ac->addSubmenuItem(
WebGUI::URL::page('op=copyTemplate&tid='.$session{form}{tid}.'&namespace='.$session{form}{namespace}),
WebGUI::International::get(852)
);
$ac->addSubmenuItem(
WebGUI::URL::page('op=deleteTemplate&tid='.$session{form}{tid}.'&namespace='.$session{form}{namespace}),
WebGUI::International::get(853)
);
$ac->addSubmenuItem(
WebGUI::URL::page('op=listTemplates&namespace='.$session{form}{namespace}),
WebGUI::International::get(854)
);
}
$ac->addSubmenuItem(WebGUI::URL::page('op=listTemplates'), WebGUI::International::get(855));
return $ac->render($workarea, $title);
}
#-------------------------------------------------------------------
sub www_copyTemplate {
if (WebGUI::Grouping::isInGroup(8)) {
my $template = WebGUI::Template::get($session{form}{tid},$session{form}{namespace});
$template->{name} .= " (copy)";
$template->{templateId} = "new";
WebGUI::Template::set($template);
return www_listTemplates();
} else {
return WebGUI::Privilege::adminOnly();
}
}
#-------------------------------------------------------------------
sub www_deleteTemplateConfirm {
my ($a, $pageId);
if ($session{form}{tid} =~ /^\d+$/ && $session{form}{tid} < 1000 && $session{form}{tid} > 0) {
return _submenu(WebGUI::Privilege::vitalComponent());
} elsif (WebGUI::Grouping::isInGroup(8)) {
if ($session{form}{namespace} eq "Page") {
$a = WebGUI::SQL->read("select * from page where templateId=".quote($session{form}{tid}));
while (($pageId) = $a->array) {
WebGUI::SQL->write("update wobject set templatePosition=1 where pageId=".quote($pageId));
}
$a->finish;
WebGUI::SQL->write("update page set templateId=2 where templateId=".quote($session{form}{tid}));
}
WebGUI::SQL->write("delete from template where templateId=".quote($session{form}{tid})
." and namespace=".quote($session{form}{namespace}));
return www_listTemplates();
} else {
return WebGUI::Privilege::adminOnly();
}
}
#-------------------------------------------------------------------
sub www_editTemplate {
my ($namespaces, %template, $f);
tie %template, 'Tie::CPHash';
if (WebGUI::Grouping::isInGroup(8)) {
if ($session{form}{tid} eq "new" || $session{form}{tid} eq "") {
if ($session{form}{namespace} eq "Page") {
$template{template} = "<table>\n <tr>\n <td>\n\n<tmpl_var page.position1>\n\n".
"</td>\n </tr>\n</table>\n";
} else {
$template{template} = "<h1><tmpl_var title></h1>\n\n";
}
} else {
%template = WebGUI::SQL->quickHash("select * from template where templateId=".quote($session{form}{tid})." and
namespace=".quote($session{form}{namespace}));
}
$f = WebGUI::HTMLForm->new;
$f->hidden("op","editTemplateSave");
$f->readOnly($session{form}{tid},WebGUI::International::get(503));
$f->raw('<input type="hidden" name="op2" value="'.$session{form}{afterEdit}.'" />');
if ($session{form}{tid} eq "new") {
$namespaces = WebGUI::SQL->buildHashRef("select distinct(namespace),namespace
from template order by namespace");
$f->selectList("namespace",$namespaces,WebGUI::International::get(721),[$session{form}{namespace}]);
} else {
$f->hidden("namespace",$session{form}{namespace});
}
$f->hidden("tid",$session{form}{tid});
$f->text("name",WebGUI::International::get(528),$template{name});
$f->codearea(
-name=>"template",
-label=>WebGUI::International::get(504),
-value=>$template{template},
-rows=>(5+$session{setting}{textAreaRows})
);
$f->submit;
return _submenu($f->print,'507',"template add/edit");
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_editTemplateSave {
if (WebGUI::Grouping::isInGroup(8)) {
if ($session{form}{template} eq "" && $session{form}{namespace} eq "Page") {
$session{form}{template} = "<table>\n<tr>\n<td>\n\n<tmpl_var page.position1>\n\n</td>\n </tr>\n</table>\n";
}
$session{form}{tid} = WebGUI::Template::set({
templateId=>$session{form}{tid},
namespace=>$session{form}{namespace},
name=>$session{form}{name},
template=>$session{form}{template}
});
if ($session{form}{op2} eq "") {
return www_listTemplates();
} else {
return "";
}
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_listTemplates {
my ($output, $sth, @data, @row, $i, $p, $where);
if (WebGUI::Grouping::isInGroup(8)) {
$where = "and namespace=".quote($session{form}{namespace}) if ($session{form}{namespace});
$sth = WebGUI::SQL->read("select templateId,name,namespace from template where isEditable=1 $where order by namespace,name");
while (@data = $sth->array) {
$row[$i] = '<tr><td valign="top" class="tableData">'
.deleteIcon('op=deleteTemplateConfirm&tid='.$data[0].'&namespace='.$data[2],'',WebGUI::International::get(502))
.editIcon('op=editTemplate&tid='.$data[0].'&namespace='.$data[2])
.copyIcon('op=copyTemplate&tid='.$data[0].'&namespace='.$data[2])
.'</td>';
$row[$i] .= '<td valign="top" class="tableData">'.$data[1].'</td>';
$row[$i] .= '<td valign="top" class="tableData">'.$data[2].'</td></tr>';
$i++;
}
$sth->finish;
$p = WebGUI::Paginator->new(WebGUI::URL::page('op=listTemplates&namespace='.$session{form}{namespace}));
$p->setDataByArrayRef(\@row);
$output .= '<table border=1 cellpadding=5 cellspacing=0 align="center">';
$output .= $p->getPage($session{form}{pn});
$output .= '</table>';
$output .= $p->getBarTraditional($session{form}{pn});
return _submenu($output,'506',"templates manage");
} else {
return WebGUI::Privilege::insufficient();
}
}
1;

4
lib/WebGUI/Operation/TransactionLog.pm
View file

@ -3,7 +3,7 @@ package WebGUI::Operation::TransactionLog;
use strict;
use WebGUI::Session;
use WebGUI::Commerce::Transaction;
use WebGUI::Template;
use WebGUI::Asset::Template;
use WebGUI::DateTime;
use WebGUI::Operation;
@ -28,7 +28,7 @@ sub www_viewPurchaseHistory {
$var{purchaseHistoryLoop} = \@historyLoop;
return WebGUI::Template::process(1, 'Commerce/ViewPurchaseHistory', \%var);
return WebGUI::Asset::Template->new("PBtmpl0000000000000019")->process(\%var);
}
#-------------------------------------------------------------------