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$/) {
%
<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>";