small bugfix to search on >= and not >

This commit is contained in:
tipaul 2002-12-18 10:56:41 +00:00
parent 73cd4c6081
commit 492ca6fcc6

View file

@ -33,7 +33,7 @@ sub StringSearch {
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
my $count=@data;
my $query="Select tagfield,liblibrarian,libopac,repeatable,mandatory,authorised_value from marc_tag_structure where (tagfield > $data[0]) order by tagfield";
my $query="Select tagfield,liblibrarian,libopac,repeatable,mandatory,authorised_value from marc_tag_structure where (tagfield >= $data[0]) order by tagfield";
my $sth=$dbh->prepare($query);
$sth->execute;
my @results;