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

various fixes to EMS Submissin system

Browse source
This commit is contained in:
daviddelikat 2009-11-22 20:32:17 -06:00
parent 31fb0886bc
commit e0b87268c5
8 changed files with 28 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -277,7 +277,7 @@ sub www_editSubmissionForm {
my $formDescription = $params->{formDescription} || $self ? $self->getFormDescription : { };
for my $fieldId ( @fieldNames ) {
next if $fieldId =~ /^(submissionStatus|sendEmailOnChange)$/;
next if $fieldId eq 'submissionStatus';
my $field = $fields->{$fieldId};
$newform->yesNo(
label => $field->{label},
@ -474,7 +474,6 @@ sub processForm {
my @fieldNames = split( ' ', $form->get('fieldNames') );
$params->{formDescription} = { map { $_ => $form->get($_ . '_yesNo') } ( @fieldNames ) };
$params->{formDescription}{submissionStatus} = 0;
$params->{formDescription}{sendEmailOnChange} = 1;
$params->{formDescription}{_fieldList} = [ map { $params->{formDescription}{$_} ? $_ : () } ( @fieldNames ) ];
if( scalar( @{$params->{formDescription}{_fieldList}} ) == 0 ) {
$params->{_isValid} = 0;