Revision 385

Date:
2013/10/08 16:43:35
Author:
ahitrov
Revision Log:
Incorrect datatype check
Files:

Legend:

 
Added
 
Removed
 
Modified

  • koi8/core/lib/SQL/Common.pm

     
    58 58 } elsif ( $value eq 'positive' || $value eq 'negative' || $value eq 'natural' ) {
    59 59 $mode = $value eq 'positive' ? '>' : $value eq 'negative' ? '<' : '>=';
    60 60 return "$field $mode 0", [];
    61 } elsif ( $value =~ /^[0-9 ,]+$/ ) {
    61 } elsif ( $value =~ /^[0-9 ,\-]+$/ ) {
    62 62 my @values = split(/\s*,\s*/, $value);
    63 63 my $values_string = '?, 'x(scalar (@values)-1).'?';
    64 64 return " ($field $mode ($values_string)) ", \@values;