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

bug fixes, and working on next workflow activity

Browse source
This commit is contained in:
JT Smith 2006-02-16 21:54:58 +00:00
parent b92b4044ec
commit aa6fa763c1
3 changed files with 100 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Workflow/Activity.pm
View file

@ -198,6 +198,9 @@ sub getEditForm {
my %params;
foreach my $key (keys %{$properties->{$fieldname}}) {
$params{$key} = $properties->{$fieldname}{$key};
if ($fieldname eq "title" && lc($params{$key}) eq "untitled") {
$params{$key} = $definition->[0]{name};
}
}
$params{value} = $self->get($fieldname);
$params{name} = $fieldname;
@ -291,7 +294,8 @@ Updates activity with data from Form.
sub processPropertiesFromFormPost {
my $self = shift;
my %data;
foreach my $definition (@{$self->definition($self->session)}) {
my $fullDefinition = $self->definition($self->session);
foreach my $definition (@{$fullDefinition}) {
foreach my $property (keys %{$definition->{properties}}) {
$data{$property} = $self->session->form->process(
$property,
@ -300,7 +304,7 @@ sub processPropertiesFromFormPost {
);
}
}
$data{title} = "Untitled" unless ($data{title});
$data{title} = $fullDefinition->[0]{name} if ($data{title} eq "" || lc($data{title}) eq "untitled");
$self->set(\%data);
}