add upgrade script to add new admin contentHandler

This commit is contained in:
Doug Bell 2010-08-04 12:13:45 -05:00
parent 7b3855c991
commit 35d05a7f38

View file

@ -0,0 +1,13 @@
use WebGUI::Upgrade::Script;
use List::MoreUtils qw( any );
report "\tAdding new Admin Console...";
if ( ! any { $_ eq 'WebGUI::Content::Admin' } @{session->config->get('contentHandlers')} ) {
session->config->addToArrayAfter(
'contentHandlers', 'WebGUI::Content::Referral', 'WebGUI::Content::Admin'
);
}
done;