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

setting aside test for a bit to do some coding

Browse source
This commit is contained in:
daviddelikat 2009-10-06 00:18:27 -05:00
parent 50988eaa64
commit 3ed18c775b
7 changed files with 155 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/EMSSubmission.pm
View file

@ -164,7 +164,7 @@ sub definition {
label => $EMS_i18n->get("location"),
hoverHelp => $EMS_i18n->get("location help"),
},
relatedBadgeGroup => {
relatedBadgeGroups => {
tab => "properties",
fieldType => "checkList",
customDrawMethod=> 'drawRelatedBadgeGroupsField',

2
lib/WebGUI/Asset/EMSSubmissionForm.pm
View file

@ -115,7 +115,7 @@ sub definition {
label => $i18n->get("next submission id label"),
hoverHelp => $i18n->get("next submission id label help")
},
canSubmitGroup => {
canSubmitGroupId => {
tab => "security",
fieldType => "groupid",
defaultValue => undef,

6
lib/WebGUI/Workflow/Activity/CleanupEMSSubmissions.pm
View file

@ -18,6 +18,7 @@ package WebGUI::Workflow::Activity::CleanupEMSSubmissions;
use strict;
use base 'WebGUI::Workflow::Activity';
use WebGUI::Asset;
use WebGUI::International;
=head1 NAME
@ -50,8 +51,9 @@ sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new( $session, "Asset_EMSSubmissionForm" );
push(@{$definition}, {
name => "Cleanup EMS Submissions", # TODO internationalize
name => $i18n->get("activity title cleanup submissions"),
properties => {}
});
return $class->SUPER::definition($session,$definition);
@ -70,7 +72,7 @@ sub execute {
my $self = shift;
my $session = $self->session;
my $root = WebGUI::Asset->getRoot($session);
return $self->FAILED;
return $self->ERROR;
my $sth = $session->db->read("select assetId from asset where className='WebGUI::Asset::Wobject::HelpDesk'");
while (my ($assetId) = $sth->array) {

6
lib/WebGUI/Workflow/Activity/ProcessEMSApprovals.pm
View file

@ -18,6 +18,7 @@ package WebGUI::Workflow::Activity::ProcessEMSApprovals;
use strict;
use base 'WebGUI::Workflow::Activity';
use WebGUI::Asset;
use WebGUI::International;
=head1 NAME
@ -50,8 +51,9 @@ sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new( $session, "Asset_EMSSubmissionForm" );
push(@{$definition}, {
name => "Process Approved EMS Submissions", # TODO Internationalize
name => $i18n->get("activity title approve submissions"),
properties => {}
});
return $class->SUPER::definition($session,$definition);
@ -70,7 +72,7 @@ sub execute {
my $self = shift;
my $session = $self->session;
my $root = WebGUI::Asset->getRoot($session);
return $self->FAILED;
return $self->ERROR;
my $sth = $session->db->read("select assetId from asset where className='WebGUI::Asset::Wobject::HelpDesk'");
while (my ($assetId) = $sth->array) {

10
lib/WebGUI/i18n/English/Asset_EMSSubmissionForm.pm
View file

@ -59,6 +59,16 @@ our $I18N = { ##hashref of hashes
lastUpdated => 1131394072,
context => q|This help text is for the form description field. The user should be warned not to edit it unless they really know what they are doing.|
},
'activity title approve submissions' => {
message => q|Process Approved EMS Submissions|,
lastUpdated => 1131394072,
context => q|This is the label used to describe the EMS submission approval activity|
},
'activity title cleanup submissions' => {
message => q|Cleanup EMS Submissions|,
lastUpdated => 1131394072,
context => q|This is the label used to describe the EMS submission cleanup activity|
},
# 'TODO' => {
# message => q|TODO|,