From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 20 Sep 2009 17:39:35 +0000 (+0100)
Subject: Make prices for commodity work again
X-Git-Tag: 5.0^2~130
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=commitdiff_plain;h=5d41f4f9fd6a3f188bba831a1a8902f7890cef8f

Make prices for commodity work again
---

diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod
index b37fa39..81e8208 100644
--- 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
 </&>