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

some minor fixes

Browse source
This commit is contained in:
daviddelikat 2009-12-02 19:10:33 -06:00
parent f93a42330d
commit babbbed4c9
1 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Asset/EMSSubmission.pm
View file

@ -300,10 +300,15 @@ sub drawRelatedRibbonsField {
sub drawStatusField { sub drawStatusField {
my ($self, $params) = @_; my ($self, $params) = @_;
my $options = $self->ems->getSubmissionStatus;
my $currentStatus = $self->get('submissionStatus');
for my $key ( qw/pending created failed/ ) {
delete $options->{$key} unless $currentStatus eq $key;
}
return WebGUI::Form::SelectBox($self->session, { return WebGUI::Form::SelectBox($self->session, {
name => 'submissionStatus', name => 'submissionStatus',
value => $self->get('submissionStatus'), value => $currentStatus,
options => $self->ems->getSubmissionStatus, options => $options,
}); });
} }
@ -433,6 +438,9 @@ sub www_editSubmission {
} }
# for each field # for each field
if( $fields->{submissionStatus}{value} eq 'created' ) {
$formDescription = { } ; # no editable fields once the ticket is created.
}
for my $fieldId ( @fieldNames ) { for my $fieldId ( @fieldNames ) {
my $field = $fields->{$fieldId}; my $field = $fields->{$fieldId};
if( $formDescription->{$field->{fieldId}} || $asset->ems->isRegistrationStaff ) { if( $formDescription->{$field->{fieldId}} || $asset->ems->isRegistrationStaff ) {
@ -445,10 +453,17 @@ sub www_editSubmission {
$newform->dynamicField(%$field); $newform->dynamicField(%$field);
} else { } else {
my $value;
# TODO see that the data gets formatted # TODO see that the data gets formatted
if( $fieldId eq 'submissionStatus' ) {
$value = $field->{value} || 'pending';
$value = $i18n->get($value);
} else {
$value = $field->{value} || '[ ]';
}
$newform->readOnly( $newform->readOnly(
label => $field->{label}, label => $field->{label},
value => $field->{value} || '[ ]', value => $value,
fieldId => $field->{fieldId}, fieldId => $field->{fieldId},
); );
} }