oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove debug code from Shortcut.

Browse source
This commit is contained in:
Colin Kuskie 2009-07-20 15:37:31 +00:00
parent 6b2935305f
commit 3b8d5f62bc
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Shortcut.pm
View file

@ -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 $output = '<a href="'.$self->getUrl('op=editProfileSettings').'" class="formLink">'.$i18n->get('Manage Profile Fields').'</a><br /><br />';
my %fieldNames; my %fieldNames;
tie %fieldNames, 'Tie::IxHash'; tie %fieldNames, 'Tie::IxHash';
use Data::Dumper;
foreach my $field (@{WebGUI::ProfileField->getFields($session)}) { foreach my $field (@{WebGUI::ProfileField->getFields($session)}) {
my $fieldId = $field->getId; my $fieldId = $field->getId;
next if $fieldId =~ /contentPositions/; 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">'; $output .= '<table cellspacing="0" cellpadding="3" border="1"><tr><td><table cellspacing="0" cellpadding="3" border="0">';
my @prefFieldsToShow = $self->getPrefFieldsToShow; my @prefFieldsToShow = $self->getPrefFieldsToShow;
$session->log->warn('fieldsToShow: '.Dumper \@prefFieldsToShow);
my $list = WebGUI::Form::CheckList->new($session, my $list = WebGUI::Form::CheckList->new($session,
-name=>"prefFieldsToShow", -name=>"prefFieldsToShow",
-value=>\@prefFieldsToShow, -value=>\@prefFieldsToShow,