allow field overrides in the config file

This commit is contained in:
Luke Robinson 2010-01-27 10:19:37 +00:00 committed by Colin Kuskie
parent ca86f3d84b
commit 017a9a7fc2
3 changed files with 120 additions and 62 deletions

View file

@ -1100,6 +1100,23 @@ sub getEditForm {
return $tabform;
}
sub setupFormField {
my ($self, $tabform, $fieldName, $extraFields, $overrides) = @_;
my %params = %{$extraFields->{$fieldName}};
my $tab = delete $params{tab};
if (exists $overrides->{fields}{$fieldName}) {
my %overrideParams = %{$overrides->{fields}{$fieldName}};
my $overrideTab = delete $overrideParams{tab};
$tab = $overrideTab if defined $overrideTab;
foreach my $key (keys %overrideParams) {
$params{"-$key"} = $overrideParams{$key};
}
}
$tab ||= 'properties';
return $tabform->getTab($tab)->dynamicField(%params);
}
#-------------------------------------------------------------------