introduced type concept into workflow

This commit is contained in:
JT Smith 2006-02-11 21:03:14 +00:00
parent d194d3760a
commit 063e8703c7
4 changed files with 60 additions and 13 deletions

View file

@ -168,6 +168,19 @@ sub getName {
return "Unnamed";
}
#-------------------------------------------------------------------
=head2 getType ( )
Returns the type of workflow that this activity may be used in. Unless this method is overriden, the type is "none". This is a class method.
=cut
sub getType {
return "none";
}
#-------------------------------------------------------------------
=head2 new ( session, activityId )

View file

@ -221,14 +221,14 @@ sub set {
my $self = shift;
my $properties = shift;
if ($properties->{enabled} == 1) {
$self->{enabled} = 1;
$self->{_data}{enabled} = 1;
} elsif ($properties->{enabled} == 0) {
$self->{enabled} = 0;
$self->{_data}{enabled} = 0;
}
if ($properties->{runOnce} == 1) {
$self->{runOnce} = 1;
$self->{_data}{runOnce} = 1;
} elsif ($properties->{runOnce} == 0) {
$self->{runOnce} = 0;
$self->{_data}{runOnce} = 0;
}
$self->{_data}{minuteOfHour} = $properties->{minuteOfHour} || $self->{_data}{minuteOfHour} || 0;
$self->{_data}{hourOfDay} = $properties->{hourOfDay} || $self->{_data}{hourOfDay} || "*";