diff --git a/docs/upgrades/upgrade_7.7.20-7.8.0.pl b/docs/upgrades/upgrade_7.7.20-7.8.0.pl index 08ffebafe..55b01d88e 100644 --- a/docs/upgrades/upgrade_7.7.20-7.8.0.pl +++ b/docs/upgrades/upgrade_7.7.20-7.8.0.pl @@ -119,7 +119,7 @@ sub fixEmptyCalendarIcalFeeds { print "DONE!\n" unless $quiet; } -[ + #---------------------------------------------------------------------------- # Add tables for the EMS Submission feature sub addEMSSubmission { @@ -172,7 +172,7 @@ ESQL print "DONE!\n" unless $quiet; } -] + #---------------------------------------------------------------------------- # Add the column for featured wiki pages sub addFeaturedPageWiki { diff --git a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm index 9759575e8..1e4b2457d 100644 --- a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm +++ b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm @@ -793,7 +793,6 @@ sub www_addSubmission { $session->http->setMimeType( 'text/html' ); } my $content = '

' . $title . '

' ; -use lib '/root/pb/lib'; use dav; dav::log $content; if( $asJson ) { return JSON->new->encode( { text => $content, title => $title, id => 'list' . rand } ); } else { diff --git a/lib/WebGUI/Workflow/Activity/CleanupEMSSubmissions.pm b/lib/WebGUI/Workflow/Activity/CleanupEMSSubmissions.pm index 69eadb33e..3cd147211 100644 --- a/lib/WebGUI/Workflow/Activity/CleanupEMSSubmissions.pm +++ b/lib/WebGUI/Workflow/Activity/CleanupEMSSubmissions.pm @@ -68,13 +68,10 @@ See WebGUI::Workflow::Activity::execute() for details. =cut -use lib '/root/pb/lib'; use dav; - sub execute { my $self = shift; my $session = $self->session; my $root = WebGUI::Asset->getRoot($session); -dav::log __PACKAGE__ . " executing\n"; # keep track of how much time it's taking my $start = time; @@ -86,7 +83,6 @@ dav::log __PACKAGE__ . " executing\n"; } ); for my $emsForm ( @$list ) { -dav::log __PACKAGE__ . "::executing::emsForm loop\n"; my $daysBeforeCleanup = $emsForm->get('daysBeforeCleanup') ; next if ! $daysBeforeCleanup; my $whereClause = q{ submissionStatus='denied' }; @@ -101,7 +97,6 @@ dav::log __PACKAGE__ . "::executing::emsForm loop\n"; whereClause => $whereClause, } ); for my $submission ( @$res ) { -dav::log __PACKAGE__ . "::executing::submission loop\n"; $submission->purge; $limit--; return $self->WAITING(1) if ! $limit or time > $start + $timeLimit;