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

Committing the new Ecommerce system

Browse source
This commit is contained in:
Martin Kamerbeek 2004-11-29 15:51:25 +00:00
parent eeafe944e2
commit ad19f999b8
4 changed files with 63 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

4
etc/WebGUI.conf.original
View file

@ -23,6 +23,10 @@ passiveProfileInterval = 86400 # in seconds
emailRecoveryLoggingEnabled = 1
passwordChangeLoggingEnabled = 1
# Commerce part
# The PayFlowPro plugin is commented out because it depends on proprietary code from VeriSign
# paymentPlugins = PayFlowPro
authMethods = LDAP, WebGUI
wobjects = Article, EventsCalendar, FileManager, HttpProxy, \

18
lib/WebGUI/AdminConsole.pm
View file

@ -202,6 +202,24 @@ sub getAdminFunction {
op=>"viewActiveSessions",
group=>"3"
},
"commerce"=>{
title=>{
id=>"commerce settings",
namespace=>"Commerce"
},
icon=>"commerce.gif",
op=>"editCommerceSettings",
group=>"3"
},
"subscriptions"=>{
title=>{
id=>"manage subscriptions",
namespace=>"Subscription"
},
icon=>"subscriptions.gif",
op=>"listSubscriptions",
group=>"3"
},
};
if ($id) {
return $self->_formatFunction($functions->{$id});

24
lib/WebGUI/Operation.pm
View file

@ -242,7 +242,29 @@ sub getOperations {
'editUserSave' => 'WebGUI::Operation::User',
'listUsers' => 'WebGUI::Operation::User',
'theWg' => 'WebGUI::Operation::WebGUI',
'genesis' => 'WebGUI::Operation::WebGUI'
'genesis' => 'WebGUI::Operation::WebGUI',
'deleteSubscription' => 'WebGUI::Operation::Subscription',
'editSubscription' => 'WebGUI::Operation::Subscription',
'editSubscriptionSave' => 'WebGUI::Operation::Subscription',
'listSubscriptions' => 'WebGUI::Operation::Subscription',
'purchaseSubscription' => 'WebGUI::Operation::Subscription',
'createSubscriptionCodeBatch' => 'WebGUI::Operation::Subscription',
'createSubscriptionCodeBatchSave' => 'WebGUI::Operation::Subscription',
'deleteSubscriptionCodeBatch' => 'WebGUI::Operation::Subscription',
'listSubscriptionCodeBatches' => 'WebGUI::Operation::Subscription',
'redeemSubscriptionCode' => 'WebGUI::Operation::Subscription',
'listSubscriptionCodes' => 'WebGUI::Operation::Subscription',
'deleteSubscriptionCodes' => 'WebGUI::Operation::Subscription',
'checkout' => 'WebGUI::Operation::Commerce',
'checkoutConfirm' => 'WebGUI::Operation::Commerce',
'checkoutSubmit' => 'WebGUI::Operation::Commerce',
'editCommerceSettings' => 'WebGUI::Operation::Commerce',
'editCommerceSettingsSave' => 'WebGUI::Operation::Commerce',
'listPendingTransactions' => 'WebGUI::Operation::Commerce',
'cancelTransaction' => 'WebGUI::Operation::Commerce',
'completePendingTransaction' => 'WebGUI::Operation::Commerce',
'viewPurchaseHistory' => 'WebGUI::Operation::TransactionLog',
'cancelRecurringTransaction' => 'WebGUI::Operation::TransactionLog',
};
}

32
lib/WebGUI/Operation/Shared.pm
View file

@ -34,25 +34,29 @@ our @EXPORT = qw(&menuWrapper);
push(@array,\%hash);
}
unless ($session{form}{op} eq "displayAccount"){
my %hash;
$hash{'options.display'} = '<a href="'.WebGUI::URL::page('op=displayAccount').'">'.WebGUI::International::get(342).'</a>';
push(@array,\%hash);
my %hash;
$hash{'options.display'} = '<a href="'.WebGUI::URL::page('op=displayAccount').'">'.WebGUI::International::get(342).'</a>';
push(@array,\%hash);
}
unless ($session{form}{op} eq "editProfile"){
my %hash;
$hash{'options.display'} = '<a href="'.WebGUI::URL::page('op=editProfile').'">'.WebGUI::International::get(341).'</a>';
push(@array,\%hash);
my %hash;
$hash{'options.display'} = '<a href="'.WebGUI::URL::page('op=editProfile').'">'.WebGUI::International::get(341).'</a>';
push(@array,\%hash);
}
unless ($session{form}{op} eq "viewProfile"){
my %hash;
$hash{'options.display'} = '<a href="'.WebGUI::URL::page('op=viewProfile&uid='.$session{user}{userId}).'">'.WebGUI::International::get(343).'</a>';
push(@array,\%hash);
}
unless ($session{form}{op} eq "viewMessageLog"){
my %hash;
$hash{'options.display'} = '<a href="'.WebGUI::URL::page('op=viewMessageLog').'">'.WebGUI::International::get(354).'</a>';
push(@array,\%hash);
my %hash;
$hash{'options.display'} = '<a href="'.WebGUI::URL::page('op=viewProfile&uid='.$session{user}{userId}).'">'.WebGUI::International::get(343).'</a>';
push(@array,\%hash);
}
unless ($session{form}{op} eq "viewMessageLog"){
my %hash;
$hash{'options.display'} = '<a href="'.WebGUI::URL::page('op=viewMessageLog').'">'.WebGUI::International::get(354).'</a>';
push(@array,\%hash);
}
unless ($session{form}{op} eq "redeemSubscriptionCode") {
push(@array, {'options.display' => '<a href="'.WebGUI::URL::page('op=redeemSubscriptionCode').'">'.WebGUI::International::get('redeem code', 'Subscription').'</a>'});
}
my %logout;
$logout{'options.display'} = '<a href="'.WebGUI::URL::page('op=logout').'">'.WebGUI::International::get(64).'</a>';
push(@array,\%logout);