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("|", @[EMAIL PROTECTED]) :
"";
+ $key = ($#summary_key_idx > -1) ? join(",", @[EMAIL PROTECTED]) :
"";
$summary_row = $summary_row{$key};
if (!$summary_row) {
$summary_row = [];