From 35d05a7f3835adc698b0c2ea3873730f42ceb494 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Wed, 4 Aug 2010 12:13:45 -0500
Subject: [PATCH] add upgrade script to add new admin contentHandler

---
 share/upgrades/7.9.10-8.0.0/addNewAdminConsole.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 share/upgrades/7.9.10-8.0.0/addNewAdminConsole.pl

diff --git a/share/upgrades/7.9.10-8.0.0/addNewAdminConsole.pl b/share/upgrades/7.9.10-8.0.0/addNewAdminConsole.pl
new file mode 100644
index 000000000..20ea3b9f3
--- /dev/null
+++ b/share/upgrades/7.9.10-8.0.0/addNewAdminConsole.pl
@@ -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;