From 5a4369ea964c57bd70c50d863d5b9c58d16e230c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 16 Aug 2011 15:48:52 -0700
Subject: [PATCH] More upgrade fixes.

---
 docs/upgrades/upgrade_7.9.34-7.10.22.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/docs/upgrades/upgrade_7.9.34-7.10.22.pl b/docs/upgrades/upgrade_7.9.34-7.10.22.pl
index 9740cacff..1da5baeef 100644
--- a/docs/upgrades/upgrade_7.9.34-7.10.22.pl
+++ b/docs/upgrades/upgrade_7.9.34-7.10.22.pl
@@ -43,6 +43,7 @@ addProcessorDropdownToSnippet( $session );
 addRichEditToCarousel($session);
 alterAssetIndexTable($session);
 reindexAllThingys($session);
+use WebGUI::Asset::MapPoint;
 WebGUI::AssetAspect::Installable::upgrade("WebGUI::Asset::MapPoint",$session);
 addRenderThingDataMacro($session);
 addAssetPropertyMacro($session);
@@ -327,6 +328,7 @@ sub createThingyDBColumns {
 sub addAssetManagerSortPreferences {
     my $cn   = 'assetManagerSortColumn';
     my $on   = 'assetManagerSortDirection';
+    use WebGUI::ProfileField;
     unless (WebGUI::ProfileField->new($session, $cn)) {
         print 'Adding Asset Manager Sort Column profile field...'
             unless $quiet;
@@ -378,7 +380,6 @@ sub addTicketLimitToBadgeGroup {
     print "\tAdd ticket limit to badge groups... " unless $quiet;
     # Make sure it hasn't been done already...
     my $columns = $session->db->buildHashRef('describe EMSBadgeGroup');
-    use List::MoreUtils qw(any);
     if(! grep { /ticketsPerBadge/ } keys %{$columns}) {
         $session->db->write(q{
             ALTER TABLE EMSBadgeGroup ADD COLUMN `ticketsPerBadge` INTEGER
@@ -399,6 +400,7 @@ sub addWaitForConfirmationWorkflow {
     my $c       = $session->config;
     my $exists  = $c->get('workflowActivities/WebGUI::User');
     my $class   = 'WebGUI::Workflow::Activity::WaitForUserConfirmation';
+    use $class;
     unless (grep { $_ eq $class } @$exists) {
         print "Adding WaitForUserConfirmation workflow..." unless $quiet;
         $c->addToArray('workflowActivities/WebGUI::User' => $class);
@@ -436,6 +438,8 @@ sub addLinkedProfileAddress {
         select userId from users where userId not in ('1','3')
     } );
 
+    use WebGUI::User;
+    use WebGUI::Shop::AddressBook;
     foreach my $userId (@$users) {
         #check to see if there is user profile information available
         my $u = WebGUI::User->new($session,$userId);