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

getting a baseline activity working for testing

Browse source
This commit is contained in:
JT Smith 2006-02-08 22:32:05 +00:00
parent 662c43ca21
commit 806e47e51c
2 changed files with 201 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -16,7 +16,7 @@ package WebGUI::Workflow::Activity;
=cut
use strict;
use WebGUI::HTMLForm;
=head1 NAME
@ -90,6 +90,24 @@ sub DESTROY {
}
#-------------------------------------------------------------------
=head2 execute ( object )
This method will be called during workflow operation. It needs to be overridden by the base classes.
=head2 object
A reference to some object that will be passed in to this activity for an action to be taken on it.
=cut
sub execute {
my $self = shift;
my $object = shift;
}
#-------------------------------------------------------------------
=head2 get ( name )
@ -105,6 +123,20 @@ sub get {
#-------------------------------------------------------------------
=head2 getEditForm ( )
Returns a WebGUI::HTMLForm object that represents the parameters of this activity. This method must be extended by the subclasses.
=cut
sub getEditForm {
my $self = shift;
my $form = WebGUI::HTMLForm->new($self->session);
return $form;
}
#-------------------------------------------------------------------
=head2 getId ( )
Returns the ID of this instance.
@ -118,6 +150,23 @@ sub getId {
#-------------------------------------------------------------------
=head2 getName ( session )
Returns the name of the activity. Must be overridden. This is a class method.
=head3 session
A reference to the current session.
=cut
sub getName {
my $session = shift;
return "Unnamed";
}
#-------------------------------------------------------------------
=head2 new ( session, activityId )
Constructor.
@ -137,9 +186,9 @@ sub new {
my $session = shift;
my $activityId = shift;
my $main = $session->db->getRow("WorkflowActivity","activityId", $activityId);
return undef unless $main->{activityId};
my $sub = $session->db->buildHashRef("select name,value from WorkflowActivityData where activityId=".$session->db->quote($activityId));
my %data = (%{$main}, %{$sub});
return undef unless $data->{activityId};
bless {_session=>$session, _id=>$activityId, _data=>\%data}, $class;
}