r691 - in packages/libpdf-report-perl/trunk: . debian

[Gunnar Wolf]

Author: gwolf
Date: 2005-02-16 03:41:38 +0100 (Wed, 16 Feb 2005)
New Revision: 691

Modified:
   packages/libpdf-report-perl/trunk/Report.pm
   packages/libpdf-report-perl/trunk/debian/changelog
Log:
Fixed usage of private and deprecated PDF::API2 methods


Modified: packages/libpdf-report-perl/trunk/Report.pm
===================================================================
--- packages/libpdf-report-perl/trunk/Report.pm	2005-02-16 02:15:57 UTC (rev 690)
+++ packages/libpdf-report-perl/trunk/Report.pm	2005-02-16 02:41:38 UTC (rev 691)
@@ -106,9 +106,9 @@
 
   # Set the width and height of the page
   my ($pageWidth, $pageHeight) = 
-    @{$PDF::API2::Page::pgsz{"\L$DEFAULTS{PageSize}"}};
+    (PDF::API2::Util::page_size "\L$DEFAULTS{PageSize}") [2,3];
   ($pageWidth, $pageHeight) = 
-    @{$PDF::API2::Page::pgsz{"\L$defaults{PageSize}"}} 
+    (PDF::API2::Util::page_size "\L$defaults{PageSize}") [2,3]
      if length($defaults{PageSize});
 
   # Swap w and h if landscape
@@ -160,7 +160,7 @@
 
   # Default fonts
   $self->{font} = $self->{pdf}->corefont('Helvetica'); # Default font object
-  $self->{font}->encode('latin1');
+  $self->{font}->encodeByData('latin1');
 
   # Set the users options
   foreach my $key (keys %defaults) {
@@ -264,8 +264,8 @@
   my $txt = $self->{page}->text;
   $txt->font($self->{font}, $self->{size});
   $txt->transform_rel(-translate => [$x, $y], -rotate => $rotate);
-  $txt->text_fancy($text, -color=>[$color], -underline=>$underline, 
-                          -indent=>$indent);
+  $txt->text($text, -color=>[$color], -underline=>$underline,
+	     -indent=>$indent);
 }
 
 =item PDF::API2 Removes all space between every word in the string you pass 

Modified: packages/libpdf-report-perl/trunk/debian/changelog
===================================================================
--- packages/libpdf-report-perl/trunk/debian/changelog	2005-02-16 02:15:57 UTC (rev 690)
+++ packages/libpdf-report-perl/trunk/debian/changelog	2005-02-16 02:41:38 UTC (rev 691)
@@ -1,3 +1,11 @@
+libpdf-report-perl (1.22-2) unstable; urgency=low
+
+  * Fixed usage of private (and deprecated) PDF::API2 attributes which
+    broke the whole thing. Applied patch by Jordan Hrycaj - Thanks!
+    (Closes: #292622)
+
+ -- Gunnar Wolf <gwolf@debian.org>  Tue, 15 Feb 2005 20:36:48 -0600
+
 libpdf-report-perl (1.22-1) unstable; urgency=low
 
   * New upstream version - Thanks to Allard Hoeve <allard@byte.nl> for