From 1d1b94ec909a9ab078b78d3299d109818a78b628 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 1 Nov 2007 12:40:36 +0000
Subject: [PATCH] =?utf8?q?Das=20Modul=20HTML::Template=20wird=20nicht=20me?=
 =?utf8?q?hr=20ben=C3=B6tigt.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Form.pm              | 32 --------------------------------
 SL/InstallationCheck.pm |  1 -
 doc/INSTALL             |  5 ++---
 3 files changed, 2 insertions(+), 36 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 0445a2546..951b85061 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -39,7 +39,6 @@ package Form;
 use Data::Dumper;
 
 use Cwd;
-use HTML::Template;
 use Template;
 use SL::Template;
 use CGI::Ajax;
@@ -547,37 +546,6 @@ sub _prepare_html_template {
   return $file;
 }
 
-sub parse_html_template {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $file, $additional_params) = @_;
-
-  $additional_params ||= { };
-
-  $file = $self->_prepare_html_template($file, $additional_params);
-
-  my $template = HTML::Template->new("filename" => $file,
-                                     "die_on_bad_params" => 0,
-                                     "strict" => 0,
-                                     "case_sensitive" => 1,
-                                     "loop_context_vars" => 1,
-                                     "global_vars" => 1);
-
-  foreach my $key ($template->param()) {
-    my $param = $additional_params->{$key} || $self->{$key};
-    $param = [] if (($template->query("name" => $key) eq "LOOP") && (ref($param) ne "ARRAY"));
-    $template->param($key => $param);
-  }
-
-  my $output = $template->output();
-
-  $output = $main::locale->{iconv}->convert($output) if ($main::locale);
-
-  $main::lxdebug->leave_sub();
-
-  return $output;
-}
-
 sub parse_html_template2 {
   $main::lxdebug->enter_sub();
 
diff --git a/SL/InstallationCheck.pm b/SL/InstallationCheck.pm
index 2c92136a3..e82298ea8 100644
--- a/SL/InstallationCheck.pm
+++ b/SL/InstallationCheck.pm
@@ -8,7 +8,6 @@ use vars qw(@required_modules);
   { "name" => "CGI::Ajax", "url" => "http://search.cpan.org/~bct/" },
   { "name" => "DBI", "url" => "http://search.cpan.org/~timb/" },
   { "name" => "DBD::Pg", "url" => "http://search.cpan.org/~dbdpg/" },
-  { "name" => "HTML::Template", "url" => "http://search.cpan.org/~samtregar/" },
   { "name" => "Archive::Zip", "url" => "http://search.cpan.org/~adamk/" },
   { "name" => "Text::Iconv", "url" => "http://search.cpan.org/~mpiotr/" },
   { "name" => "Time::HiRes", "url" => "http://search.cpan.org/~jhi/" },
diff --git a/doc/INSTALL b/doc/INSTALL
index b259ce0dd..cc0798f2f 100644
--- a/doc/INSTALL
+++ b/doc/INSTALL
@@ -29,7 +29,6 @@ Standard-Perl-Installation sind:
 
 * DBI
 * DBD::Pg
-* HTML::Template
 * CGI::Ajax
 * Class::Accessor
 * Archive::Zip
@@ -45,7 +44,7 @@ hei
 Für Debian beötigen Sie diese Pakete:
 
   apache, postgresql, libdbi-perl, libdbd-pg-perl, libpgperl,
-  libhtml-template-perl, libclass-accessor-perl, libarchive-zip-perl,
+  libclass-accessor-perl, libarchive-zip-perl,
   libtext-iconv-perl, libyaml-perl, libtext-csv-perl,
   libio-stringy-perl, libtemplate-perl
 
@@ -57,7 +56,7 @@ F
 
   apache2, postgresql-server, perl-DBI, perl-DBD-Pg, perl-Archive-Zip,
   perl-Class-Accessor, perl-Text-Iconv, perl-Text-CSV_XS,
-  perl-HTML-Template, perl-IO-stringy, perl-Template-Toolkit
+  perl-IO-stringy, perl-Template-Toolkit
 
 
 Da Perl-CGI-Ajax nicht als Paket für Distributionen bereit steht, muß
-- 
2.20.1