Pass $dbh down through the stack, for better lifetime

[ypp-sc-tools.db-live.git] / yarrg / web / qtextstring

diff --git a/yarrg/web/qtextstring b/yarrg/web/qtextstring
index 3b0bd6b72e65b5f942ff1eff70b0786d9901c903..16aa372bd6794caad89992d6d7b2f2a976d519c2 100644 (file)
--- a/yarrg/web/qtextstring
+++ b/yarrg/web/qtextstring
@@ -36,10 +36,11 @@
 
 </%doc>
 <%args>
+$qa => $m->caller_args(1)->{'qa'}
+$dbh
 $thingstring
 $emsgstore
 $perresult
-$qa => $m->caller_args(1)->{'qa'}
 </%args>
 <%perl>
 my $stringval= $qa->{$thingstring};