Fix some warnings

[ypp-sc-tools.db-test.git] / yarrg / web / query_route

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index dc1ebc9917608eaf7a596e7d3eaf95e58165676a..ea94d61c8f20ddf3428f2d873232c4e2f1d27557 100644 (file)
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -108,6 +108,8 @@ foreach my $arch (keys %islandlistdata) {
                $optionlistmap->($islandlistdata{$arch}, '');
 }
 
+$dbh->rollback();
+
 </%perl>
 
 <input type=hidden name=dropdowns value="<% $qa->{Dropdowns} |h %>">