added asset manager to upgrade

This commit is contained in:
Doug Bell 2008-05-26 22:10:09 +00:00
parent f3996eb316
commit 60670a8a08

View file

@ -61,6 +61,7 @@ addVendors($session);
modifyThingyPossibleValues( $session );
removeLegacyTable($session);
migrateSubscriptions( $session );
addAssetManager( $session );
finish($session); # this line required
@ -80,6 +81,26 @@ sub changeRealtimeWorkflows {
print "DONE!\n" unless $quiet;
}
#----------------------------------------------------------------------------
# Add the Asset Manager content handler to the list
# Must go before the Operation content handler (since we use ?op=assetManager)
sub addAssetManager {
my $session = shift;
print "\tAdding new Asset Manager ..." unless $quiet;
my $config = $session->config;
my @handlers = ();
foreach my $element (@{$config->get("contentHandlers")}) {
if ($element eq "WebGUI::Content::Operation") {
push @handlers, "WebGUI::Content::AssetManager";
}
push @handlers, $element;
}
$config->set("contentHandlers", \@handlers);
print "DONE! \n" unless $quiet;
}
#----------------------------------------------------------------------------
sub addCoupon {
my $session = shift;