chiark / gitweb /
Dump optimisation results too
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 23 Aug 2009 10:47:04 +0000 (11:47 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 23 Aug 2009 10:47:04 +0000 (11:47 +0100)
yarrg/web/dumptable
yarrg/web/routetrade

index 20dc25f..e60415c 100644 (file)
@@ -96,6 +96,19 @@ $qa => undef
 %      }
 </%method>
 
+<%method literal>
+<%args>
+$cols
+$rows
+$qa => undef
+</%args>
+<& SELF:start, cols => $cols &>
+%      foreach my $row (@$rows) {
+<& SELF:row, cols => $cols, row => $row &>
+%      }
+<& SELF:end &>
+</%method>
+
 <& SELF:start, sth => $sth &>
 %      my $row;
 %      while ($row= $sth->fetchrow_hashref) {
index fa29e6a..9c2a5a4 100644 (file)
@@ -255,7 +255,8 @@ print join ' ', map { $_->{Optimal} } @flows;
 push @columns, qw(Opt_qty Opt_profit);
 
 </%perl>
-<% join ' ', @columns %>
+
+<& dumptable:literal, cols => \@columns, rows => \@flows &>
 
 % } # ========== OPTIMISATION ==========