Fix syntax errors with the config file fix.

This commit is contained in:
Colin Kuskie 2010-01-27 21:19:12 -08:00
parent 4ded686e72
commit 6ca3bedcb4

View file

@ -160,33 +160,31 @@ sub getEditForm {
tie my %extraFields, "Tie::IxHash"; tie my %extraFields, "Tie::IxHash";
$extraFields = { $extraFields{thumbnailSize} = {
thumbnailSize => { fieldType => "integer",
fieldType => "integer", name => "thumbnailSize",
name => "thumbnailSize", label => $i18n->get('thumbnail size'),
label => $i18n->get('thumbnail size'), hoverHelp => $i18n->get('Thumbnail size description'),
hoverHelp => $i18n->get('Thumbnail size description'), value => $self->getValue("thumbnailSize"),
value => $self->getValue("thumbnailSize"), };
}, $extraFields{parameters} = {
parameters => { fieldType => "textarea",
fieldType => "textarea", name => "parameters",
name => "parameters", label => $i18n->get('parameters'),
label => $i18n->get('parameters'), hoverHelp => $i18n->get('Parameters description'),
hoverHelp => $i18n->get('Parameters description'), value => $self->getValue("parameters"),
value => $self->getValue("parameters"),
},
}; };
if ($self->get("filename") ne "") { if ($self->get("filename") ne "") {
my ($x, $y) = $self->getStorageLocation->getSizeInPixels($self->get("filename")); my ($x, $y) = $self->getStorageLocation->getSizeInPixels($self->get("filename"));
$extraFields->{thumbnail} = { $extraFields{thumbnail} = {
fieldType => "readOnly", fieldType => "readOnly",
label => $i18n->get('thumbnail'), label => $i18n->get('thumbnail'),
hoverHelp => $i18n->get('Thumbnail description'), hoverHelp => $i18n->get('Thumbnail description'),
value => '<a href="'.$self->getFileUrl.'"><img src="'.$self->getThumbnailUrl.'?noCache='.$self->session->datetime->time().'" alt="thumbnail" /></a>' value => '<a href="'.$self->getFileUrl.'"><img src="'.$self->getThumbnailUrl.'?noCache='.$self->session->datetime->time().'" alt="thumbnail" /></a>'
}; };
$extraFields->{imageSize} = { $extraFields{imageSize} = {
fieldType => "readOnly", fieldType => "readOnly",
label => $i18n->get('image size'), label => $i18n->get('image size'),
value => $x.' x '.$y, value => $x.' x '.$y,
@ -195,8 +193,8 @@ sub getEditForm {
my $overrides = $self->session->config->get("assets/".$self->get("className")); my $overrides = $self->session->config->get("assets/".$self->get("className"));
foreach my $fieldName (keys %{$extraFields}) { foreach my $fieldName (keys %extraFields) {
$self->setupFormField($tabform, $fieldName, $extraFields, $overrides); $self->setupFormField($tabform, $fieldName, \%extraFields, $overrides);
} }
return $tabform; return $tabform;