From 6c413329d9f5db8c16f6c1c6378144d1edee4e2e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 18 Oct 2009 18:35:06 +0100
Subject: [PATCH] Use whole page with for printable tables (htmldoc is a bit
 odd)

---
 yarrg/web/autohandler | 3 ++-
 yarrg/web/routetrade  | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/yarrg/web/autohandler b/yarrg/web/autohandler
index f69ef55..8ff0996 100644
--- 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 71cdbd2..b278506 100644
--- 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>";
-- 
2.30.2