[svn:p5ee] r8327 - p5ee/trunk/App-Repository/lib/App

Author: spadkins
Date: Thu Nov 30 09:10:51 2006
New Revision: 8327

Modified:
   p5ee/trunk/App-Repository/lib/App/Repository.pm

Log:
tiny changes

Modified: p5ee/trunk/App-Repository/lib/App/Repository.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository.pm	(original)
+++ p5ee/trunk/App-Repository/lib/App/Repository.pm	Thu Nov 30 09:10:51 2006
@@ -950,6 +950,7 @@
 }
 
 sub _contains_expr {
+    &App::sub_entry if ($App::trace);
     my ($self, $table, $columns) = @_;
     my $contains_expr = 0;
     my ($column);
@@ -2774,7 +2775,7 @@
         # accumulate the sums of the summable columns
         for ($rowidx = 0; $rowidx <= $#$rows; $rowidx++) {
             $row = $rows->[$rowidx];
-            $key = ($#summary_key_idx > -1) ? join("|", @{$row}[@summary_key_idx]) : "";
+            $key = ($#summary_key_idx > -1) ? join(",", @{$row}[@summary_key_idx]) : "";
             $summary_row = $summary_row{$key};
             if (!$summary_row) {
                 $summary_row = [];