From fa9a7ca87f3ca64f274f654f3668650c1ac5e6f9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 9 Feb 2009 13:55:04 -0800
Subject: [PATCH] Bucket activity now clears deltaLog based on settings.

It also logs that the log was deleted, and adds that to
the email that is sent out.
---
 lib/WebGUI/Workflow/Activity/BucketPassiveAnalytics.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Workflow/Activity/BucketPassiveAnalytics.pm b/lib/WebGUI/Workflow/Activity/BucketPassiveAnalytics.pm
index b66c2a806..42dd8ea1d 100644
--- a/lib/WebGUI/Workflow/Activity/BucketPassiveAnalytics.pm
+++ b/lib/WebGUI/Workflow/Activity/BucketPassiveAnalytics.pm
@@ -126,12 +126,18 @@ EOSQL1
         $instance->setScratch('logIndex', $logIndex);
         return $self->WAITING(1);
     }
+    my $message = 'Passive analytics is done.';
+    if ($session->setting->get('passiveAnalyticsDeleteDelta')) {
+        $session->log->info('Clearing Passive Analytics delta log');
+        $session->db->write('delete from deltaLog');
+        $message .= '  The delta log has been cleaned up.';
+    }
     my $inbox = WebGUI::Inbox->new($self->session);
     $inbox->addMessage({
         status  => 'unread',
         subject => 'Passive analytics is done',
         userId  => $self->get('userId'),
-        message => 'Passive analytics is done',
+        message => $message,
     });
 
     return $self->COMPLETE;