diff --git a/docs/upgrades/packages-7.8.4/root_import_ems_ems-badge-listing-default.wgpkg b/docs/upgrades/packages-7.8.4/root_import_ems_ems-badge-listing-default.wgpkg new file mode 100644 index 000000000..64aa307a4 Binary files /dev/null and b/docs/upgrades/packages-7.8.4/root_import_ems_ems-badge-listing-default.wgpkg differ diff --git a/docs/upgrades/packages-7.8.4/root_import_ems_ems-event-submission-main.wgpkg b/docs/upgrades/packages-7.8.4/root_import_ems_ems-event-submission-main.wgpkg new file mode 100644 index 000000000..715fadb73 Binary files /dev/null and b/docs/upgrades/packages-7.8.4/root_import_ems_ems-event-submission-main.wgpkg differ diff --git a/docs/upgrades/packages-7.8.4/root_import_ems_ems-event-submission-queue.wgpkg b/docs/upgrades/packages-7.8.4/root_import_ems_ems-event-submission-queue.wgpkg new file mode 100644 index 000000000..717ff6cd2 Binary files /dev/null and b/docs/upgrades/packages-7.8.4/root_import_ems_ems-event-submission-queue.wgpkg differ diff --git a/docs/upgrades/packages-7.8.4/root_import_ems_ems-event-submission.wgpkg b/docs/upgrades/packages-7.8.4/root_import_ems_ems-event-submission.wgpkg new file mode 100644 index 000000000..33b66b03f Binary files /dev/null and b/docs/upgrades/packages-7.8.4/root_import_ems_ems-event-submission.wgpkg differ diff --git a/docs/upgrades/upgrade_7.8.3-7.8.4.pl b/docs/upgrades/upgrade_7.8.3-7.8.4.pl index 95a121a42..1f8240426 100644 --- a/docs/upgrades/upgrade_7.8.3-7.8.4.pl +++ b/docs/upgrades/upgrade_7.8.3-7.8.4.pl @@ -32,6 +32,8 @@ my $session = start(); # this line required # upgrade functions go here dropSkipNotification($session); +addEMSSubmissionTables($session); +configEMSActivities($session); finish($session); # this line required @@ -46,6 +48,118 @@ finish($session); # this line required #} +#---------------------------------------------------------------------------- +# Describe what our function does +sub configEMSActivities { + my $session = shift; + print "\tConfigure EMS Activities... " unless $quiet; + $config->addToArray('workflowActivities/None', 'WebGUI::Workflow::Activity::CleanupEMSSubmissions'); + $config->addToArray('workflowActivities/None', 'WebGUI::Workflow::Activity::ProcessEMSApprovals'); + my $workflow = WebGUI::Workflow->new($session, 'pbworkflow000000000001'); # Daily + BREAK: { foreach my $activity (@{ $workflow->getActivities }) { + last BREAK if $activity->getName() eq 'WebGUI::Workflow::Activity::CleanupEMSSubmissions'; + } + my $activity = $workflow->addActivity('WebGUI::Workflow::Activity::CleanupEMSSubmissions'); + $activity->set('title', 'Purge Denied EMS Submissions'); + $activity->set('description', 'Purges EMS Submissions that were denied and are aged according to parameters''); + } # end of BREAK block + $workflow = WebGUI::Workflow->new($session, 'pbworkflow000000000004'); # Hourly + BREAK: { foreach my $activity (@{ $workflow->getActivities }) { + last BREAK if $activity->getName() eq 'WebGUI::Workflow::Activity::ProcessEMSApprovals'; + } + $activity = $workflow->addActivity('WebGUI::Workflow::Activity::ProcessEMSApprovals'); + $activity->set('title', 'Process Approves EMS Submissions'); + $activity->set('description', 'Create EMS Ticket Assets for approved submissions.'); + } # end of BREAK block + print "DONE!\n" unless $quiet; +} + + +#---------------------------------------------------------------------------- +# make database changes relevant to EMS Submission system +sub addEMSSubmissionTables { + my $session = shift; + print "\tCreate EMS Submission Tables... " unless $quiet; + + $db->write(<write(<write(<write(<write(<write(<write(<write(<write(<