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

changed the old isSerial to isSingleton and created a new isSerial that would do what you'd expect

Browse source
This commit is contained in:
JT Smith 2006-04-22 21:59:15 +00:00
parent 5a59c41771
commit b43cb6aaeb
6 changed files with 40 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Workflow.pm
View file

@ -393,9 +393,13 @@ A boolean indicating whether this workflow may be executed right now.
A string indicating the type of object this workflow will be operating on. Valid values are "None", or any object type, like "WebGUI::VersionTag".
=head4 isSingleton
A boolean indicating whether this workflow should be run as a singleton. If it's a singleton, then only one instance of the workflow will be allowed to be created at a given time. So if you try to create a new instance of it, and one instance is already created, the create() method will return undef instead of a reference to the object.
=head4 isSerial
A boolean indicating whether this workflow can be run in parallel or serial. If it's serial, then only one instance of the workflow will be allowed to be created at a given time. So if you try to create a new instance of it, and one instance is already created, the create() method will return undef instead of a reference to the object.
A boolean indicating whether this workflow should be run in serial mode. If it's run in serial, then only one instance of this workflow will be run at a given time, and all other instances of it will queue up.
=cut
@ -412,6 +416,11 @@ sub set {
} elsif ($properties->{isSerial} == 0) {
$self->{_data}{isSerial} = 0;
}
if ($properties->{isSingleton} == 1) {
$self->{_data}{isSingleton} = 1;
} elsif ($properties->{isSingleton} == 0) {
$self->{_data}{isSingleton} = 0;
}
$self->{_data}{title} = $properties->{title} || $self->{_data}{title} || "Untitled";
$self->{_data}{description} = (exists $properties->{description}) ? $properties->{description} : $self->{_data}{description};
$self->{_data}{type} = $properties->{type} || $self->{_data}{type} || "None";