[svn:p5ee] r9830 - p5ee/trunk/App-Repository/lib/App

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) {