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

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) {