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

Add upgrade code for new Language handler and macro.

Browse source
This commit is contained in:
Colin Kuskie 2009-10-28 13:13:13 -07:00
parent 5f83f87cfe
commit 131bc33a88
1 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
docs/upgrades/upgrade_7.8.2-7.8.3.pl
View file

@ -22,6 +22,7 @@ use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Storage; use WebGUI::Storage;
use WebGUI::Asset; use WebGUI::Asset;
use WebGUI::Utility;
my $toVersion = '7.8.3'; my $toVersion = '7.8.3';
@ -35,6 +36,8 @@ reKeyTemplateAttachments($session);
addSelectPaymentGatewayTemplateToSettings($session); addSelectPaymentGatewayTemplateToSettings($session);
addClipboardAdminSetting($session); addClipboardAdminSetting($session);
addTrashAdminSetting($session); addTrashAdminSetting($session);
addPickLanguageMacro($session);
installSetLanguage($session);
finish($session); # this line required finish($session); # this line required
@ -90,6 +93,30 @@ sub addSelectPaymentGatewayTemplateToSettings {
# print "DONE!\n" unless $quiet; # print "DONE!\n" unless $quiet;
#} #}
#------------------------------------------------------------------------
sub addPickLanguageMacro {
my $session = shift;
print "\tAdding Pick Language macro... " unless $quiet;
$session->config->set('macros/PickLanguage', 'PickLanguage');
print "Done.\n" unless $quiet;
}
sub installSetLanguage {
my $session = shift;
print "\tAdding SetLanguage content handler... " unless $quiet;
##Content Handler
my $contentHandlers = $session->config->get('contentHandlers');
if (!isIn('WebGUI::Content::SetLanguage', @{ $contentHandlers }) ) {
my @newHandlers = ();
foreach my $handler (@{ $contentHandlers }) {
push @newHandlers, $handler;
push @newHandlers, 'WebGUI::Content::SetLanguage' if
$handler eq 'WebGUI::Content::PassiveAnalytics';
}
$session->config->set('contentHandlers', \@newHandlers);
}
print "Done.\n" unless $quiet;
}
# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------