r2668 - /packages/libpdf-report-perl/trunk/Report.pm

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Sun Apr 30 20:28:22 2006
New Revision: 2668

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2668
Log:
reverted Report.pm

Modified:
    packages/libpdf-report-perl/trunk/Report.pm

Modified: packages/libpdf-report-perl/trunk/Report.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-report-perl/trunk/Report.pm?rev=2668&op=diff
==============================================================================
--- packages/libpdf-report-perl/trunk/Report.pm (original)
+++ packages/libpdf-report-perl/trunk/Report.pm Sun Apr 30 20:28:22 2006
@@ -576,18 +576,6 @@
 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",
@@ -604,7 +592,24 @@
   my $img = $self->{pdf}->$sub($file);
   my $gfx = $self->{page}->gfx;
 
-  $gfx->image($img, $x, $y, $scale);
+  $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);
 }
 
 =item $pdf->setGfxLineWidth($width);