chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Pass $dbh down through the stack, for better lifetime
[ypp-sc-tools.main.git]
/
yarrg
/
web
/
query_commod
diff --git
a/yarrg/web/query_commod
b/yarrg/web/query_commod
index eddc0975d05f067358c6835a81710d97f8039b8d..9cb14ca6870e70abf887b518f2e9698313d67158 100644
(file)
--- a/
yarrg/web/query_commod
+++ b/
yarrg/web/query_commod
@@
-35,6
+35,7
@@
</%doc>
<%args>
$quri
</%doc>
<%args>
$quri
+$dbh
$commodstring => '';
$someresults
$emsgokorprint
$commodstring => '';
$someresults
$emsgokorprint
@@
-56,7
+57,8
@@
Enter commodity (abbreviations are OK):<br>
<form action="<% $quri->() |h %>" method="get">
<form action="<% $quri->() |h %>" method="get">
-<&| qtextstring, qa => $qa, thingstring => 'commodstring', emsgstore => \$emsg,
+<&| qtextstring, qa => $qa, dbh => $dbh,
+ thingstring => 'commodstring', emsgstore => \$emsg,
perresult => sub { ($commodname,$commodid)= @_; }
&>
size=80
perresult => sub { ($commodname,$commodid)= @_; }
&>
size=80