From f800a0d8b0e0151d69725c4e66dee8bf8acc46cb Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 1 Mar 2007 00:19:15 +0000
Subject: [PATCH] Data::Dumper clean-up

---
 lib/WebGUI/Help/Asset_Template.pm                   | 3 ---
 lib/WebGUI/Help/Workflow_Activity.pm                | 2 --
 lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm | 2 +-
 3 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/lib/WebGUI/Help/Asset_Template.pm b/lib/WebGUI/Help/Asset_Template.pm
index 3fb16e1e7..2ea159404 100644
--- a/lib/WebGUI/Help/Asset_Template.pm
+++ b/lib/WebGUI/Help/Asset_Template.pm
@@ -176,9 +176,6 @@ our $HELP = {
 			my $i18n = WebGUI::International->new($session, 'Asset_Template');
 			my $yes = $i18n->get(138, 'WebGUI');
 			my $no = $i18n->get(139, 'WebGUI');
-			use Data::Dumper;
-			$session->errorHandler->warn(Dumper \@enabledPlugins);
-			$session->errorHandler->warn(Dumper \@plugins);
 			my $plugin_table =
 				join "\n", 
 				map { join '', '<tr><td>', $_,
diff --git a/lib/WebGUI/Help/Workflow_Activity.pm b/lib/WebGUI/Help/Workflow_Activity.pm
index 4578b68a0..00ae5c159 100644
--- a/lib/WebGUI/Help/Workflow_Activity.pm
+++ b/lib/WebGUI/Help/Workflow_Activity.pm
@@ -75,8 +75,6 @@ our $HELP = {
 			my @activities = map { s/^WebGUI::Workflow::Activity:://; $_; }
 					map { @{ $workflows{$_} } }
 					keys %workflows;
-			#use Data::Dumper;
-			#$session->errorHandler->warn(Dumper \@activities);
 			return map {
 				my ($namespace, $tag) = ($_, $_);
 				$tag =~ s/([a-z])([A-Z])/$1 $2/g;  #Separate studly caps
diff --git a/lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm b/lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm
index 051b030f3..8ab516f6f 100755
--- a/lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm
+++ b/lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm
@@ -88,7 +88,7 @@ sub execute {
 	my $sth	    = $self->session->db->prepare("select * from Calendar_feeds");
 	$sth->execute();
 	
-	use Data::Dumper;
+	#use Data::Dumper;
 
 	FEED:while (my $feed = $sth->hashRef) {