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

Cleaned the pollution from the forms system.

Browse source
This commit is contained in:
JT Smith 2008-04-16 16:11:10 +00:00
parent 53b81b36d0
commit 8500c4d506
81 changed files with 2675 additions and 1570 deletions
Download patch file Download diff file Expand all files Collapse all files

54
lib/WebGUI/Form/Workflow.pm
View file

@ -39,6 +39,18 @@ The following methods are specifically available from this class. Check the supe
#-------------------------------------------------------------------
=head2 areOptionsSettable ( )
Returns 0.
=cut
sub areOptionsSettable {
return 0;
}
#-------------------------------------------------------------------
=head2 definition ( [ additionalTerms ] )
See the super class for additional details.
@ -68,22 +80,14 @@ If set to 1 then a "None" option will appear in the list of workflows, which wil
Most workflow triggers can't handle realtime workflows, so we leave out realtime workflows unless they should
specifically be included.
=head4 optionsSettable
A boolean indicating whether the options are settable using an options hashref or not settable because this form
type generates its own options.
=cut
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session, 'Workflow');
my $i18n = WebGUI::International->new($session, 'Workflow');
push(@{$definition}, {
formName=>{
defaultValue=>$i18n->get("topicName")
},
label=>{
defaultValue=>$i18n->get("topicName")
},
@ -99,18 +103,37 @@ sub definition {
includeRealtime => {
defaultValue => 0
},
dbDataType => {
defaultValue => "VARCHAR(22) BINARY",
},
optionsSettable=>{
defaultValue=>0
},
});
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------
=head2 getDatabaseFieldType ( )
Returns "VARCHAR(22) BINARY".
=cut
sub getDatabaseFieldType {
return "VARCHAR(22) BINARY";
}
#-------------------------------------------------------------------
=head2 getName ( session )
Returns the human readable name of this control.
=cut
sub getName {
my ($self, $session) = @_;
return WebGUI::International->new($session, 'Workflow')->get('topicName');
}
#-------------------------------------------------------------------
=head2 toHtml ( )
Renders a template picker control.
@ -138,7 +161,6 @@ sub toHtmlWithWrapper {
my $returnUrl = ";proceed=goBackToPage;returnUrl=".$self->session->url->escape($self->session->asset->getUrl) if $self->session->asset;
my $buttons;
# This edit button will not work with multiple workflows.
#$buttons .= $self->session->icon->edit("op=editWorkflow;workflowId=".$self->get("value")->[0].$returnUrl) if ($self->get("value"));
$buttons .= $self->session->icon->manage("op=manageWorkflows".$returnUrl);
$self->set("subtext",$buttons . $self->get("subtext"));
return $self->SUPER::toHtmlWithWrapper;