Das Perl-Modul PDF::API2 ist nun feste Voraussetzung.
authorMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 25 Jul 2008 12:50:42 +0000 (12:50 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 25 Jul 2008 12:50:42 +0000 (12:50 +0000)
SL/InstallationCheck.pm
SL/ReportGenerator.pm

index 74cb83e..96c8a06 100644 (file)
@@ -20,10 +20,10 @@ use vars qw(@required_modules @optional_modules);
   { "name" => "List::Util", "url" => "http://search.cpan.org/~gbarr/" },
   { "name" => "Template", "url" => "http://search.cpan.org/~abw/" },
   { "name" => "Digest::MD5", "url" => "http://search.cpan.org/~gaas/" },
+  { "name" => "PDF::API2", "url" => "http://search.cpan.org/~areibens/" },
   );
 
 @optional_modules = (
-  { "name" => "PDF::API2", "url" => "http://search.cpan.org/~areibens/" },
   );
 
 sub module_available {
index 1c0fa7c..050984a 100644 (file)
@@ -5,6 +5,8 @@ use IO::Wrap;
 use List::Util qw(max);
 use Text::CSV_XS;
 use Text::Iconv;
+use PDF::API2;
+use PDF::Table;
 
 use SL::Form;
 
@@ -371,9 +373,6 @@ sub prepare_html_content {
 
   my $allow_pdf_export = $opts->{allow_pdf_export};
 
-  eval { require PDF::API2; require PDF::Table; };
-  $allow_pdf_export |= 1 if (! $@);
-
   my $variables = {
     'TITLE'                => $opts->{title},
     'TOP_INFO_TEXT'        => $self->html_format($opts->{top_info_text}),
@@ -921,7 +920,7 @@ Output format. Used by generate_with_headers to determine the format. Supported
 
 =item allow_pdf_export
 
-Used to determine if a button for PDF export should be displayed. Default is yes. The PDF button is hidden if neither the Perl module PDF::API2 nor the external applications html2ps and Ghostscript are available regardless of this parameter's value.
+Used to determine if a button for PDF export should be displayed. Default is yes.
 
 =item allow_csv_export