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

move EMSSubmissionForm editSubmissionForm to FormBuilder

Browse source
This commit is contained in:
Doug Bell 2011-01-04 20:40:56 -06:00
parent 4d55fd82d7
commit d54ad71f37
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Asset/EMSSubmissionForm.pm
View file

@ -234,8 +234,8 @@ sub www_editSubmissionForm {
} }
my $asset = $self || $parent; my $asset = $self || $parent;
my $url = $asset->getUrl('func=editSubmissionFormSave'); my $url = $asset->getUrl('func=editSubmissionFormSave');
my $newform = WebGUI::HTMLForm->new( $session, action => $url ); my $newform = WebGUI::FormBuilder->new( $session, action => $url );
$newform->hidden( name => 'assetId', value => $assetId ); $newform->addField( "hidden",name => 'assetId', value => $assetId );
my @fieldNames = qw/title description startDate duration seatsAvailable location/; my @fieldNames = qw/title description startDate duration seatsAvailable location/;
my $fields; my $fields;
my @defs = reverse @{ WebGUI::Asset::EMSSubmission->definition($session) }; my @defs = reverse @{ WebGUI::Asset::EMSSubmission->definition($session) };
@ -257,7 +257,7 @@ sub www_editSubmissionForm {
$fields->{ $metaField->{fieldId} }{fieldType} = $metaField->{dataType}; $fields->{ $metaField->{fieldId} }{fieldType} = $metaField->{dataType};
$fields->{ $metaField->{fieldId} }{hoverHelp} = $metaField->{helpText}; $fields->{ $metaField->{fieldId} }{hoverHelp} = $metaField->{helpText};
} }
$newform->hidden( name => 'fieldNames', value => join( ' ', @fieldNames ) ); $newform->addField( "hidden", name => 'fieldNames', value => join( ' ', @fieldNames ) );
@defs = reverse @{ WebGUI::Asset::EMSSubmissionForm->definition($session) }; @defs = reverse @{ WebGUI::Asset::EMSSubmissionForm->definition($session) };
for my $def (@defs) { for my $def (@defs) {
my $properties = $def->{properties}; my $properties = $def->{properties};
@ -270,7 +270,7 @@ sub www_editSubmissionForm {
my %fieldParams = %{ $properties->{$fieldName} }; my %fieldParams = %{ $properties->{$fieldName} };
$fieldParams{name} = $fieldName; $fieldParams{name} = $fieldName;
$fieldParams{value} = $params->{$fieldName} || $self ? $self->get($fieldName) : undef; $fieldParams{value} = $params->{$fieldName} || $self ? $self->get($fieldName) : undef;
$newform->dynamicField(%fieldParams); $newform->addField( "dynamicField", %fieldParams);
} }
} }
} }
@ -279,14 +279,14 @@ sub www_editSubmissionForm {
for my $fieldId (@fieldNames) { for my $fieldId (@fieldNames) {
next if $fieldId eq 'submissionStatus'; next if $fieldId eq 'submissionStatus';
my $field = $fields->{$fieldId}; my $field = $fields->{$fieldId};
$newform->yesNo( $newform->addField( "yesNo",
label => $field->{label}, label => $field->{label},
name => $field->{fieldId} . '_yesNo', name => $field->{fieldId} . '_yesNo',
defaultValue => 0, defaultValue => 0,
value => $formDescription->{ $field->{fieldId} }, value => $formDescription->{ $field->{fieldId} },
); );
} }
$newform->submit; $newform->addField( "submit", name => "submit" );
my $title = $assetId eq 'new' ? $i18n->get('new form') || 'new' : $asset->get('title'); my $title = $assetId eq 'new' ? $i18n->get('new form') || 'new' : $asset->get('title');
if ( $params->{asHashRef} ) { if ( $params->{asHashRef} ) {
; # not setting mimie type ; # not setting mimie type
@ -302,7 +302,8 @@ sub www_editSubmissionForm {
isDynamic => $session->form->get('asJson') || 0, isDynamic => $session->form->get('asJson') || 0,
backUrl => $parent->getUrl, backUrl => $parent->getUrl,
pageTitle => $title, pageTitle => $title,
pageForm => $newform->print, pageForm => $newform->toHtml,
%{ $newform->toTemplateVars },
}, },
$parent->get('eventSubmissionTemplateId') $parent->get('eventSubmissionTemplateId')
); );