Revision 1d1b94ec
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 39 | 39 |
use Data::Dumper; |
| 40 | 40 |
|
| 41 | 41 |
use Cwd; |
| 42 |
use HTML::Template; |
|
| 43 | 42 |
use Template; |
| 44 | 43 |
use SL::Template; |
| 45 | 44 |
use CGI::Ajax; |
| ... | ... | |
| 547 | 546 |
return $file; |
| 548 | 547 |
} |
| 549 | 548 |
|
| 550 |
sub parse_html_template {
|
|
| 551 |
$main::lxdebug->enter_sub(); |
|
| 552 |
|
|
| 553 |
my ($self, $file, $additional_params) = @_; |
|
| 554 |
|
|
| 555 |
$additional_params ||= { };
|
|
| 556 |
|
|
| 557 |
$file = $self->_prepare_html_template($file, $additional_params); |
|
| 558 |
|
|
| 559 |
my $template = HTML::Template->new("filename" => $file,
|
|
| 560 |
"die_on_bad_params" => 0, |
|
| 561 |
"strict" => 0, |
|
| 562 |
"case_sensitive" => 1, |
|
| 563 |
"loop_context_vars" => 1, |
|
| 564 |
"global_vars" => 1); |
|
| 565 |
|
|
| 566 |
foreach my $key ($template->param()) {
|
|
| 567 |
my $param = $additional_params->{$key} || $self->{$key};
|
|
| 568 |
$param = [] if (($template->query("name" => $key) eq "LOOP") && (ref($param) ne "ARRAY"));
|
|
| 569 |
$template->param($key => $param); |
|
| 570 |
} |
|
| 571 |
|
|
| 572 |
my $output = $template->output(); |
|
| 573 |
|
|
| 574 |
$output = $main::locale->{iconv}->convert($output) if ($main::locale);
|
|
| 575 |
|
|
| 576 |
$main::lxdebug->leave_sub(); |
|
| 577 |
|
|
| 578 |
return $output; |
|
| 579 |
} |
|
| 580 |
|
|
| 581 | 549 |
sub parse_html_template2 {
|
| 582 | 550 |
$main::lxdebug->enter_sub(); |
| 583 | 551 |
|
| SL/InstallationCheck.pm | ||
|---|---|---|
| 8 | 8 |
{ "name" => "CGI::Ajax", "url" => "http://search.cpan.org/~bct/" },
|
| 9 | 9 |
{ "name" => "DBI", "url" => "http://search.cpan.org/~timb/" },
|
| 10 | 10 |
{ "name" => "DBD::Pg", "url" => "http://search.cpan.org/~dbdpg/" },
|
| 11 |
{ "name" => "HTML::Template", "url" => "http://search.cpan.org/~samtregar/" },
|
|
| 12 | 11 |
{ "name" => "Archive::Zip", "url" => "http://search.cpan.org/~adamk/" },
|
| 13 | 12 |
{ "name" => "Text::Iconv", "url" => "http://search.cpan.org/~mpiotr/" },
|
| 14 | 13 |
{ "name" => "Time::HiRes", "url" => "http://search.cpan.org/~jhi/" },
|
| doc/INSTALL | ||
|---|---|---|
| 29 | 29 |
|
| 30 | 30 |
* DBI |
| 31 | 31 |
* DBD::Pg |
| 32 |
* HTML::Template |
|
| 33 | 32 |
* CGI::Ajax |
| 34 | 33 |
* Class::Accessor |
| 35 | 34 |
* Archive::Zip |
| ... | ... | |
| 45 | 44 |
F?r Debian be?tigen Sie diese Pakete: |
| 46 | 45 |
|
| 47 | 46 |
apache, postgresql, libdbi-perl, libdbd-pg-perl, libpgperl, |
| 48 |
libhtml-template-perl, libclass-accessor-perl, libarchive-zip-perl,
|
|
| 47 |
libclass-accessor-perl, libarchive-zip-perl, |
|
| 49 | 48 |
libtext-iconv-perl, libyaml-perl, libtext-csv-perl, |
| 50 | 49 |
libio-stringy-perl, libtemplate-perl |
| 51 | 50 |
|
| ... | ... | |
| 57 | 56 |
|
| 58 | 57 |
apache2, postgresql-server, perl-DBI, perl-DBD-Pg, perl-Archive-Zip, |
| 59 | 58 |
perl-Class-Accessor, perl-Text-Iconv, perl-Text-CSV_XS, |
| 60 |
perl-HTML-Template, perl-IO-stringy, perl-Template-Toolkit
|
|
| 59 |
perl-IO-stringy, perl-Template-Toolkit |
|
| 61 | 60 |
|
| 62 | 61 |
|
| 63 | 62 |
Da Perl-CGI-Ajax nicht als Paket f?r Distributionen bereit steht, mu? |
Auch abrufbar als: Unified diff
Das Modul HTML::Template wird nicht mehr benötigt.