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 .= '';
+ $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 .= '';
+ $output .= '';
+ foreach my $field (@fielden) {
+ $output .= '';
+ $output .= '| '.$field->get("fieldName").' | ';
+ $output .= '';
+ $output .= editIcon('func=edit',$field->getUrl());
+ $output .= deleteIcon('func=delete',$field->getUrl());
+ $output .= ' | ';
+ $output .= '
';
+ }
+ $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
';