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

add WebGUI::Wizard

Browse source
This commit is contained in:
Doug Bell 2010-04-23 18:25:32 -05:00
parent 945efb18be
commit 8504a34c65
6 changed files with 608 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
docs/upgrades/upgrade_7.9.3-7.9.4.pl
View file

@ -37,6 +37,7 @@ addWikiSubKeywords($session);
addSynopsistoEachWikiPage($session);
dropVisitorAddressBooks($session);
alterAddressBookTable($session);
addWizardHandler( $session );
finish($session); # this line required
@ -50,6 +51,27 @@ finish($session); # this line required
# print "DONE!\n" unless $quiet;
#}
#----------------------------------------------------------------------------
sub addWizardHandler {
my ( $sesssion ) = @_;
print "\tAdding WebGUI::Wizard... " unless $quiet;
if ( !grep { $_ eq 'WebGUI::Content::Wizard' } @{$session->config->get('contentHandlers')} ) {
# Find the place of Operation and add before
my @handlers = ();
for my $handler ( @{$session->config->get('contentHandlers')} ) {
if ( $handler eq 'WebGUI::Content::Operation' ) {
push @handlers, 'WebGUI::Content::Wizard';
}
push @handlers, $handler;
}
$session->config->set('contentHandlers',\@handlers);
}
print "DONE!\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub addWikiSubKeywords {
my $session = shift;