OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-src Date: 31-Oct-2007 14:17:34
Branch: HEAD Handle: 2007103113173300
Modified files:
openpkg-src/perl-gfx perl-gfx.patch
Log:
die die die buggy code: fix handling of background colors in case it
is provided as a cell property
Summary:
Revision Changes Path
1.5 +10 -1 openpkg-src/perl-gfx/perl-gfx.patch
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-src/perl-gfx/perl-gfx.patch
============================================================================
$ cvs diff -u -r1.4 -r1.5 perl-gfx.patch
--- openpkg-src/perl-gfx/perl-gfx.patch 31 Oct 2007 12:22:31 -0000
1.4
+++ openpkg-src/perl-gfx/perl-gfx.patch 31 Oct 2007 13:17:33 -0000
1.5
@@ -86,7 +86,7 @@
}
Index: PDF-Table-0.9.3/lib/PDF/Table.pm
--- PDF-Table-0.9.3/lib/PDF/Table.pm.orig 2006-12-27 15:44:26 +0100
-+++ PDF-Table-0.9.3/lib/PDF/Table.pm 2007-10-31 13:20:00 +0100
++++ PDF-Table-0.9.3/lib/PDF/Table.pm 2007-10-31 14:16:23 +0100
@@ -384,15 +384,14 @@
# Keep a running total of the overall min and
max widths
@@ -120,6 +120,15 @@
{
$gfx_bg->fillcolor($col_props->[$j]->{'background_color'});
}
+@@ -621,7 +620,7 @@
+ $gfx->move( $xbase , $cur_y );
+ $gfx->hline( $xbase + $width );
+ $rows_counter++;
+- $row_cnt++ unless ( $first_row );
++ $row_cnt++ unless ( $first_row and ref
$header_props );
+ $first_row = 0;
+ }# End of while(scalar(@{$data}) and $cur_y-$row_h >
$bot_marg)
+
@@ -679,12 +678,23 @@
}
@@ .
______________________________________________________________________
OpenPKG http://openpkg.org
CVS Repository Commit List [email protected]
