From 3b8d5f62bcd1ea095844ea60161af1c514e9de43 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 20 Jul 2009 15:37:31 +0000
Subject: [PATCH] Remove debug code from Shortcut.

---
 lib/WebGUI/Asset/Shortcut.pm | 2 --
 1 file changed, 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Shortcut.pm b/lib/WebGUI/Asset/Shortcut.pm
index 1abfd8703..d6fa45878 100644
--- a/lib/WebGUI/Asset/Shortcut.pm
+++ b/lib/WebGUI/Asset/Shortcut.pm
@@ -375,7 +375,6 @@ sub getFieldsList {
 	my $output  = '<a href="'.$self->getUrl('op=editProfileSettings').'" class="formLink">'.$i18n->get('Manage Profile Fields').'</a><br /><br />';
 	my %fieldNames;
 	tie %fieldNames, 'Tie::IxHash';
-    use Data::Dumper;
 	foreach my $field (@{WebGUI::ProfileField->getFields($session)}) {
 		my $fieldId = $field->getId;
 		next if $fieldId =~ /contentPositions/;
@@ -384,7 +383,6 @@ sub getFieldsList {
 	}
 	$output .= '<table cellspacing="0" cellpadding="3" border="1"><tr><td><table cellspacing="0" cellpadding="3" border="0">';
 	my @prefFieldsToShow = $self->getPrefFieldsToShow;
-    $session->log->warn('fieldsToShow: '.Dumper \@prefFieldsToShow);
 	my $list = WebGUI::Form::CheckList->new($session,
 		-name=>"prefFieldsToShow",
 		-value=>\@prefFieldsToShow,