r2666 - in /packages/libpdf-report-perl/trunk: Report.pm
debian/changelog
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Apr 30 16:12:19 UTC 2006
Author: gregoa-guest
Date: Sun Apr 30 16:12:18 2006
New Revision: 2666
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2666
Log:
* Added patch by David Pottage to fix addImgScaled(), thanks!
(Closes: #365471)
Modified:
packages/libpdf-report-perl/trunk/Report.pm
packages/libpdf-report-perl/trunk/debian/changelog
Modified: packages/libpdf-report-perl/trunk/Report.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-report-perl/trunk/Report.pm?rev=2666&op=diff
==============================================================================
--- packages/libpdf-report-perl/trunk/Report.pm (original)
+++ packages/libpdf-report-perl/trunk/Report.pm Sun Apr 30 16:12:18 2006
@@ -576,6 +576,18 @@
sub addImg {
my ( $self, $file, $x, $y ) = @_;
+ $self->addImgScaled($file, $x, $y, 1);
+}
+
+=item $pdf->addImgScaled($file, $x, $y, $scale);
+
+Add image $file to the current page at position ($x, $y) scaled to $scale.
+
+=cut
+
+sub addImgScaled {
+ my ( $self, $file, $x, $y, $scale ) = @_;
+
my %type = (jpeg => "jpeg",
jpg => "jpeg",
tif => "tiff",
@@ -592,24 +604,7 @@
my $img = $self->{pdf}->$sub($file);
my $gfx = $self->{page}->gfx;
- $gfx->image($img, $x, $y);
-}
-
-=item $pdf->addImgScaled($file, $x, $y, $scale);
-
-Add image $file to the current page at position ($x, $y) scaled to $scale.
-
-=cut
-
-sub addImgScaled {
- my ( $self, $file, $x, $y, $scale ) = @_;
-
-# my $img = $self->{pdf}->image($file);
-# my $gfx = $self->{page}->gfx;
-
-# $gfx->image($img, $x, $y, $scale);
-
- $self->addImg($file, $x, $y);
+ $gfx->image($img, $x, $y, $scale);
}
=item $pdf->setGfxLineWidth($width);
Modified: packages/libpdf-report-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-report-perl/trunk/debian/changelog?rev=2666&op=diff
==============================================================================
--- packages/libpdf-report-perl/trunk/debian/changelog (original)
+++ packages/libpdf-report-perl/trunk/debian/changelog Sun Apr 30 16:12:18 2006
@@ -1,3 +1,10 @@
+libpdf-report-perl (1.30-6) unstable; urgency=low
+
+ * Added patch by David Pottage to fix addImgScaled(), thanks!
+ (Closes: #365471)
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Sun, 30 Apr 2006 18:10:00 +0200
+
libpdf-report-perl (1.30-5) unstable; urgency=low
* debian/rules: don't compress images in examples directory.
More information about the Pkg-perl-cvs-commits
mailing list