Fix bucket name truncation in the bucket log, and don't forget to check the delta interval when summarizing.

perlDreamer · perlDreamer · commit b6c4adc8e0d4 · 2011-10-20T20:25:16.000-07:00
diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
@@ -4,6 +4,7 @@
  - fixed #12201: AssetReport - no selects.
  - fixed #12269: Login / Loginbox with encryptlogin
  - fixed #12271: Calendar List View does not always show labels
+ - fixed Passive Analytics, UI, Progress Bar, server load.
 
 7.10.23
  - fixed #12225: Stock asset, multiple instances on a page
diff --git a/docs/upgrades/upgrade_7.10.23-7.10.24.pl b/docs/upgrades/upgrade_7.10.23-7.10.24.pl
@@ -33,6 +33,7 @@ BEGIN
 # upgrade functions go here
 addPALastLogTable($session);
 addForkRedirect($session);
+extendBucketName($session);
 
 finish($session); # this line required
 
@@ -68,6 +69,18 @@ sub addForkRedirect {
     print "DONE!\n" unless $quiet;
 }
 
+#----------------------------------------------------------------------------
+# Describe what our function does
+sub extendBucketName {
+    my $session = shift;
+    print "\tExtend the size of the bucket name in the bucketLog table for Passive Analytics... " unless $quiet;
+    # and here's our code
+    $session->db->write(<<EOSQL);
+ALTER TABLE bucketLog CHANGE COLUMN Bucket Bucket CHAR(255)
+EOSQL
+    print "DONE!\n" unless $quiet;
+}
+
 #----------------------------------------------------------------------------
 # Describe what our function does
 #sub exampleFunction {
diff --git a/lib/WebGUI/Workflow/Activity/SummarizePassiveAnalytics.pm b/lib/WebGUI/Workflow/Activity/SummarizePassiveAnalytics.pm
@@ -113,7 +113,9 @@ sub execute {
             $recordLast->execute([ (@{ $logLine }{qw/userId sessionId timeStamp url/}) ]);
             if ($lastLine->{timeStamp}) {
                 my $delta = $logLine->{timeStamp} - $lastLine->{timeStamp};
-                $deltaLog->execute([ (@{ $lastLine }{qw/userId assetId timeStamp url/}), $delta]);
+                if ($delta <= $deltaInterval) {
+                    $deltaLog->execute([ (@{ $lastLine }{qw/userId assetId timeStamp url/}), $delta]);
+                }
             }
             if (time() > $endTime) {
                 $expired = 1;
diff --git a/t/supporting_collateral/passiveAnalyticsLog b/t/supporting_collateral/passiveAnalyticsLog
@@ -6,3 +6,4 @@ user2 session21 200 /yelnats
 user2 session21 202 /one/uno
 user2 session21 205 /whatever
 user2 session21 210 /something_else
+user2 session21 610 /something_else
