Use whole page with for printable tables (htmldoc is a bit odd)

diff --git a/yarrg/web/autohandler b/yarrg/web/autohandler
index f69ef55a53d92529c3a68f29d673e4238504d2ed..8ff09966b953143dfd474a4a0d43c66913f47c38 100644 (file)
--- a/yarrg/web/autohandler
+++ b/yarrg/web/autohandler
@@ -42,7 +42,8 @@ if ($printable =~ m/^pdf|^ps/) {
        my $output;
        my $got= $m->call_self(\$output);
        if ($got) {
-               my @htargs= qw(htmldoc --continuous --gray --size 210x279mm);
+               my @htargs= qw(htmldoc --continuous --gray --size 210x279mm
+                               --left 1cm --right 1cm);
                $printable =~ m/^[a-z]+/;
                push @htargs, '-t',$&;
                if ($printable =~ m/2$/) {

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index 71cdbd2152b7ba870e9cb4994e9993758f16a84d..b27850676adb2a498288c853cae53cfbf29c1dc7 100644 (file)
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -615,7 +615,7 @@ $addcols->({ Total => 0, DoReverse => 1, TotalSubflows => 1 }, qw(
 %
 <h2><a name="plan">Voyage trading plan</a></h2>
 
-<table rules=groups>
+<table rules=groups <% printable($m) ? 'width=100%' : '' %> >
 % my $tbody= sub {
 %      if (!printable($m)) { return '<tbody>'; }
 %#  return "<tr><td colspan=7><hr>";