Author: spadkins
Date: Mon Nov 16 11:05:58 2009
New Revision: 13547
Modified:
p5ee/trunk/App-Repository/lib/App/Repository.pm
Log:
simple check in summarize_rows to see if colidx is defined
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 Mon Nov 16 11:05:58 2009
@@ -3409,8 +3409,10 @@
my $key_idx = [];
my %key_idx_used = ();
foreach $key_column (@$summary_keys) {
- push(@$key_idx, $colidx{$key_column});
- $key_idx_used{$key_column} = 1;
+ if (defined $colidx{$key_column}) {
+ push(@$key_idx, $colidx{$key_column});
+ $key_idx_used{$key_column} = 1;
+ }
}
for (my $j = 0; $j <= $#$columns; $j++) {
$key_column = $columns->[$j];