Author: spadkins
Date: Tue Aug 7 15:24:39 2007
New Revision: 9830
Modified:
p5ee/trunk/App-Repository/lib/App/Repository.pm
Log:
fixed the OPTIONAL_DEFAULT regex. it was messing up RA columns
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 Tue Aug 7 15:24:39 2007
@@ -919,7 +919,7 @@
&App::sub_entry if ($App::trace);
my ($self, $table, $cols, $options) = @_;
my (%colidx, $expr_columns, $expr, $extended, $col);
- my $OPTIONAL_DEFAULT = ':?([-0-9\.]+)?';
+ my $OPTIONAL_DEFAULT = '(?::([-0-9\.]+))?';
# Take note of which columns are alread in the list of requested columns.
for (my $i = 0; $i <= $#$cols; $i++) {
$col = $cols->[$i];
@@ -3370,7 +3370,7 @@
sub evaluate_expression {
&App::sub_entry if ($App::trace);
my ($self, $expr, $values, $validx, $column_defs) = @_;
- my $OPTIONAL_DEFAULT = ':?([-0-9\.]+)?';
+ my $OPTIONAL_DEFAULT = '(?::([-0-9\.]+))?';
my $value = $expr;
if ($values) {
