From c1d04f220a259664210989af04825d383db3de37 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 26 Mar 2009 22:12:21 +0000
Subject: [PATCH] more bug/test fixes

---
 docs/upgrades/upgrade_7.7.0-7.7.1.pl | 13 +++++++------
 t/Account/Friends.t                  |  1 +
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/docs/upgrades/upgrade_7.7.0-7.7.1.pl b/docs/upgrades/upgrade_7.7.0-7.7.1.pl
index 9db2510a0..2646d757a 100644
--- a/docs/upgrades/upgrade_7.7.0-7.7.1.pl
+++ b/docs/upgrades/upgrade_7.7.0-7.7.1.pl
@@ -48,7 +48,7 @@ finish($session); # this line required
 
 sub addSurveyQuestionTypes{
     my $session = shift;
-    print "\tAdding new survey table Survey_questionTypes \n" unless $quiet;
+    print "\tAdding new survey table Survey_questionTypes... " unless $quiet;
     $session->db->write("
 	CREATE TABLE `Survey_questionTypes` (
           `questionType` varchar(56) NOT NULL,
@@ -75,7 +75,7 @@ sub addRssLimit {
     print "\tAdding rssLimit to RSSCapable table, if needed... " unless $quiet;
     my $sth = $session->db->read('describe RSSCapable rssCapableRssLimit');
     if (! defined $sth->hashRef) {
-        $session->db->write("alter table RSSCapable add column rssCableRssLimit integer");
+        $session->db->write("alter table RSSCapable add column rssCapableRssLimit integer");
     }
     print "Done.\n" unless $quiet;
 }
@@ -104,7 +104,8 @@ sub addStatisticsCacheTimeoutToMatrix{
 # Describe what our function does
 sub adSkuInstall {
     my $session = shift;
-    print "\tCreate AdSku database table." unless $quiet;
+    print "\tInstalling the AdSku Asset...\n" unless $quiet;
+    print "\t\tCreate AdSku database table.\n" unless $quiet;
     $session->db->write("CREATE TABLE AdSku (
 	assetId VARCHAR(22) BINARY NOT NULL,
 	revisionDate BIGINT NOT NULL,
@@ -118,12 +119,12 @@ sub adSkuInstall {
 	impressionDiscounts VARCHAR(1024) default '',
 	PRIMARY KEY (assetId,revisionDate)
     )");
-    print "\tCreate Adsku crud table.\n" unless $quiet;
+    print "\t\tCreate Adsku crud table.\n" unless $quiet;
     use WebGUI::AssetCollateral::Sku::Ad::Ad;
     WebGUI::AssetCollateral::Sku::Ad::Ad->crud_createTable($session);
-    print "\tInstalling the AdSku Asset.\n" unless $quiet;
+    print "\t\tAdding to config file.\n" unless $quiet;
     $session->config->addToHash("assets", 'WebGUI::Asset::Sku::Ad' => { category => 'shop' } );
-    print "DONE!\n" unless $quiet;
+    print "\tDone.\n" unless $quiet;
 }
 
 #----------------------------------------------------------------------------
diff --git a/t/Account/Friends.t b/t/Account/Friends.t
index 169092acd..f630ae3f3 100644
--- a/t/Account/Friends.t
+++ b/t/Account/Friends.t
@@ -46,6 +46,7 @@ SKIP: { # Not everyone has Test::Exception yet
 
 my $friends;
 # ok() tests booleans. assignment evaluates to the value assigned (it's how '$a = $b = 4' works)
+my $account;
 ok( $account = WebGUI::Account->new( $session ), 
     "WebGUI::Account object created successfully" 
 );