Revision eff7e112
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 41 | 41 |
use CGI; |
| 42 | 42 |
use CGI::Ajax; |
| 43 | 43 |
use Cwd; |
| 44 |
use IO::File; |
|
| 44 | 45 |
use SL::Auth; |
| 45 | 46 |
use SL::Auth::DB; |
| 46 | 47 |
use SL::Auth::LDAP; |
| ... | ... | |
| 729 | 730 |
|
| 730 | 731 |
map { $additional_params->{$_} ||= $self->{$_} } keys %{ $self };
|
| 731 | 732 |
|
| 733 |
my $in = IO::File->new($file, 'r'); |
|
| 734 |
|
|
| 735 |
if (!$in) {
|
|
| 736 |
print STDERR "Error opening template file: $!"; |
|
| 737 |
$main::lxdebug->leave_sub(); |
|
| 738 |
return ''; |
|
| 739 |
} |
|
| 740 |
|
|
| 741 |
my $input = join('', <$in>);
|
|
| 742 |
$in->close(); |
|
| 743 |
|
|
| 744 |
if ($main::locale) {
|
|
| 745 |
$input = $main::locale->{iconv}->convert($input);
|
|
| 746 |
} |
|
| 747 |
|
|
| 732 | 748 |
my $output; |
| 733 |
if (!$template->process($file, $additional_params, \$output)) {
|
|
| 749 |
if (!$template->process(\$input, $additional_params, \$output)) {
|
|
| 734 | 750 |
print STDERR $template->error(); |
| 735 | 751 |
} |
| 736 | 752 |
|
| 737 |
$output = $main::locale->{iconv}->convert($output) if ($main::locale);
|
|
| 738 |
|
|
| 739 | 753 |
$main::lxdebug->leave_sub(); |
| 740 | 754 |
|
| 741 | 755 |
return $output; |
Auch abrufbar als: Unified diff
HTML-Templates vor und nicht nach der Verarbeitung durch die Template-Klasse mit iconv in das $db_charset konvertieren. Andernfalls würden Daten, die bereits im $db_charset vorliegen, erneut konvertiert und damit falsch codiert sein.