From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 18 Oct 2009 17:35:06 +0000 (+0100)
Subject: Use whole page with for printable tables (htmldoc is a bit odd)
X-Git-Tag: 5.0^2~9
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=commitdiff_plain;h=6c413329d9f5db8c16f6c1c6378144d1edee4e2e

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

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>";