PayPalStd resurrected
This commit is contained in:
parent
9af746c7af
commit
a632380882
8 changed files with 1159 additions and 292 deletions
|
|
@ -30,6 +30,7 @@ my $quiet; # this line required
|
|||
|
||||
my $session = start(); # this line required
|
||||
replaceUsageOfOldTemplatesAgain($session);
|
||||
updatePayPalDriversAgain($session);
|
||||
|
||||
# upgrade functions go here
|
||||
|
||||
|
|
@ -45,6 +46,24 @@ finish($session); # this line required
|
|||
# print "DONE!\n" unless $quiet;
|
||||
#}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub updatePayPalDriversAgain {
|
||||
my $session = shift;
|
||||
my $config = $session->config;
|
||||
print "\tUpdating paypal drivers in config file..." unless $quiet;
|
||||
my $old = 'WebGUI::Shop::PayDriver::PayPal';
|
||||
my @new = qw(
|
||||
WebGUI::Shop::PayDriver::PayPal::PayPalStd
|
||||
WebGUI::Shop::PayDriver::PayPal::ExpressCheckout
|
||||
);
|
||||
$config->deleteFromArray('paymentDrivers', $old);
|
||||
foreach my $n (@new) {
|
||||
$config->deleteFromArray('paymentDrivers', $n);
|
||||
$config->addToArray('paymentDrivers', $n) ;
|
||||
}
|
||||
print "DONE!\n" unless $quiet;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub replaceUsageOfOldTemplatesAgain {
|
||||
my $session = shift;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue