cvsuser 03/07/03 14:44:54
Modified: App-Repository/lib/App Repository.pm
Log:
got the base App::Repository to pass the tests
Revision Changes Path
1.7 +10 -5 p5ee/App-Repository/lib/App/Repository.pm
Index: Repository.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -r1.6 -r1.7
--- Repository.pm 27 Jun 2003 18:39:36 -0000 1.6
+++ Repository.pm 3 Jul 2003 21:44:54 -0000 1.7
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Repository.pm,v 1.6 2003/06/27 18:39:36 spadkins Exp $
+## $Id: Repository.pm,v 1.7 2003/07/03 21:44:54 spadkins Exp $
#############################################################################
package App::Repository;
@@ -867,9 +867,14 @@
$colidxs = $options->{cache}{colidx};
if (!defined $colidxs || ! %$colidxs) {
- $colidxs = {} if (!defined $colidxs);
- for ($colidx = 0; $colidx < $#$cols; $colidx++) {
- $column = $cols->[$colidx];
+ my $columns = $self->{table}{$table}{columns};
+ die "Columns not defined for table $table" if (!$columns);
+ if (!defined $colidxs) {
+ $colidxs = {};
+ $options->{cache}{colidx} = $colidxs;
+ }
+ for ($colidx = 0; $colidx < $#$columns; $colidx++) {
+ $column = $columns->[$colidx];
$colidxs->{$column} = $colidx;
}
}
@@ -883,7 +888,7 @@
$column = $param;
$colidx = $colidxs->{$column};
$colvalue = (defined $colidx) ? $row->[$colidx] : undef;
- $repop = "";
+ $repop = "eq";
# check if $column contains an embedded operation, i.e. "name.eq",
"name.contains"
if ($param =~ /^(.*)\.([^.]+)$/) {
$column = $1;
