PayPalStd resurrected

This commit is contained in:
Paul Driver 2009-07-20 21:04:12 +00:00
parent 9af746c7af
commit a632380882
8 changed files with 1159 additions and 292 deletions

View file

@ -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;