Make prices for commodity work again

diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod
index b37fa39001e25ec966f234e4ff84735c340c18b7..81e8208d1b34abd3fda1bb38e0181eb29949762c 100644 (file)
--- a/yarrg/web/query_commod
+++ b/yarrg/web/query_commod
@@ -64,7 +64,7 @@ Enter commodity (abbreviations are OK):<br>
 
 <&| qtextstring, qa => $qa, dbh => $dbh,
     thingstring => 'commodstring', emsgstore => \$emsg,
-    perresult => sub { ($commodname,$cmid)= @_; }
+    onresults => sub { ($commodname,$cmid)= @{ $_[0] }; }
  &>
  size=80
 </&>