diff --git a/lib/WebGUI/Asset/Shortcut.pm b/lib/WebGUI/Asset/Shortcut.pm index df344a0f1..a91eaeaf8 100644 --- a/lib/WebGUI/Asset/Shortcut.pm +++ b/lib/WebGUI/Asset/Shortcut.pm @@ -332,10 +332,8 @@ sub getEditForm { $tabform->addTab('overrides','Overrides'); my $output = 'Add Override

'; my %overrides = $self->getOverrides; - $output .= ''; - $output .= ''; - my %props = %{$self->getShortcutOriginal->{_properties}}; - use Data::Dumper;WebGUI::ErrorHandler::warn('
'.Dumper(\%props).'
'); + $output .= '
fieldNameEdit/DeleteOriginal ValueNew ValueReplacement value
'; + $output .= ''; foreach my $definition (@{$self->definition}) { foreach my $prop (keys %{$definition->{properties}}) { next if $definition->{properties}{$prop}{fieldType} eq 'hidden'; @@ -400,6 +398,32 @@ sub getFieldsList { return $output; } +#------------------------------------------------------------------- +sub getOverridesList { + my $self = shift; + my $output = 'Add '.$self->_isUserPref('name').'

'; + my @fielden; + if ($self->_isUserPref) { + @fielden = $self->getUserPrefs; + } else { + @fielden = $self->getOverrides; + } + return $output unless scalar @fielden > 0; + $output .= '
fieldNameEdit/DeleteOriginal ValueNew ValueReplacement value
'; + $output .= ''; + foreach my $field (@fielden) { + $output .= ''; + $output .= ''; + $output .= ''; + $output .= ''; + } + $output .= '
fieldNameEdit/Delete
'.$field->get("fieldName").''; + $output .= editIcon('func=edit',$field->getUrl()); + $output .= deleteIcon('func=delete',$field->getUrl()); + $output .= '
'; + return $output; +} + #------------------------------------------------------------------- sub getOverrides { @@ -694,7 +718,7 @@ sub www_manageUserPrefs { } #------------------------------------------------------------------- -sub www_manageOverrides { +sub www_deleteOverride { my $self = shift; return WebGUI::Privilege::insufficient() unless $self->canEdit; my $output = 'Add Override

';