From 5d41f4f9fd6a3f188bba831a1a8902f7890cef8f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 20 Sep 2009 18:39:35 +0100
Subject: [PATCH] Make prices for commodity work again

---
 yarrg/web/query_commod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 </&>
-- 
2.30.2