[Bio] / Sprout / CustomAttributes.pm Repository:
ViewVC logotype

Diff of /Sprout/CustomAttributes.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38, Sat Oct 18 09:52:21 2008 UTC revision 1.39, Mon Oct 20 17:37:49 2008 UTC
# Line 1100  Line 1100 
1100          # then we can create SQL filtering for it. If any of the values are specified          # then we can create SQL filtering for it. If any of the values are specified
1101          # as a regular expression, however, that's more complicated, because          # as a regular expression, however, that's more complicated, because
1102          # we need to read every value to verify a match.          # we need to read every value to verify a match.
1103          if (@values > 0) {          if (@values > 0 && defined $values[0]) {
1104              # Get the first value and put its alternatives in an array.              # Get the first value and put its alternatives in an array.
1105              my $valueParm = $values[0];              my $valueParm = $values[0];
1106              my @valueList;              my @valueList;
# Line 2012  Line 2012 
2012                  # Here we have a regular expression match.                  # Here we have a regular expression match.
2013                  my $section = $sections[$i];                  my $section = $sections[$i];
2014                  $matching = eval("\$section =~ $value");                  $matching = eval("\$section =~ $value");
2015                } elsif (! defined $value) {
2016                    # Wild card. Skip it.
2017              } else {              } else {
2018                  # Here we have a normal match.                  # Here we have a normal match.
2019                  Trace("SQL match used.") if T(4);                  Trace("SQL match used.") if T(4);

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3