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];

Reply via email to