Blame foomatic-margins.patch
|
Tim Waugh |
fb859b |
--- foomatic-db-engine-3.0-20070614/lib/Foomatic/DB.pm.margins 2007-06-14 11:42:16.000000000 +0100
|
|
Tim Waugh |
fb859b |
+++ foomatic-db-engine-3.0-20070614/lib/Foomatic/DB.pm 2007-06-14 11:43:13.000000000 +0100
|
|
Tim Waugh |
fb859b |
@@ -4289,9 +4289,10 @@
|
|
Tim Waugh |
fb859b |
sub getmargins {
|
|
Tim Waugh |
fb859b |
my ($dat, $width, $height, $pagesize) = @_;
|
|
Tim Waugh |
fb859b |
# Determine the unprintable margins
|
|
Tim Waugh |
fb859b |
- # Zero margins when no margin info exists
|
|
Tim Waugh |
fb859b |
+ # Safe margins when no margin info exists
|
|
Tim Waugh |
fb859b |
+ my $border = 36;
|
|
Tim Waugh |
fb859b |
my ($left, $right, $top, $bottom) =
|
|
Tim Waugh |
fb859b |
- (0, $width, $height, 0);
|
|
Tim Waugh |
fb859b |
+ ($border, $width - $border, $height - $border, $border);
|
|
Tim Waugh |
fb859b |
# Margins from printer database entry
|
|
Tim Waugh |
fb859b |
my ($pleft, $pright, $ptop, $pbottom) =
|
|
Tim Waugh |
fb859b |
getmarginsformarginrecord($dat->{'printermargins'},
|