cvs commit: p5ee/App-WorkQueue/lib/App/WorkQueue Repository.pm
[email protected] (Stephen Adkins)
| Newsgroups | perl.cvs.p5ee |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 06/02/08 13:54:50
Modified: App-WorkQueue/lib/App/WorkQueue Repository.pm
Log:
support identifying fields which contain commas, ALL, and NULL
Revision Changes Path
1.6 +2 -2 p5ee/App-WorkQueue/lib/App/WorkQueue/Repository.pm
Index: Repository.pm
===================================================================
RCS file: /cvs/public/p5ee/App-WorkQueue/lib/App/WorkQueue/Repository.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Repository.pm 8 Feb 2006 21:05:16 -0000 1.5
+++ Repository.pm 8 Feb 2006 21:54:50 -0000 1.6
@@ -169,7 +169,7 @@
}
else {
for (my $i = 0; $i <= $#$id_indexes; $i++) {
- $params{$id_attribs->[$i]} = $entry->[$id_indexes->[$i]];
+ $params{"$id_attribs->[$i].eq"} = $entry->[$id_indexes->[$i]];
}
}
return(\%params);