If entry string is first word of a target string, don't regard it as ambiguous. ...

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index 24ee53e92f2c580930ff772a2720cd77738be95e..adcff3492c154682263fe00698cf6fc6d8c7863a 100644 (file)
--- a/yarrg/CommodsWeb.pm
+++ b/yarrg/CommodsWeb.pm
@@ -160,7 +160,7 @@ sub dbw_lookup_string ($$$$$$$$) { # => ( $emsg, @dbresults )
     $each =~ s/^\s*//;  $each =~ s/\s*$//;  $each =~ s/\s+/ /g;
     my %m;
     my $results;
-    my @pats= ("$each", "$each\%", "\%$each\%");
+    my @pats= ("$each", "$each \%", "$each\%", "\%$each\%");
     if ($abbrev_initials) {
        push @pats, join ' ', map { "$_%" } split //, $each;
     }