Revision cc042e07
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| SL/Template.pm | ||
|---|---|---|
| 838 | 838 |
|
| 839 | 839 |
package OpenDocumentTemplate; |
| 840 | 840 |
|
| 841 |
use Archive::Zip; |
|
| 841 | 842 |
use POSIX 'setsid'; |
| 842 | 843 |
use vars qw(@ISA); |
| 843 | 844 |
|
| 845 |
use SL::Iconv; |
|
| 846 |
|
|
| 844 | 847 |
use Cwd; |
| 845 | 848 |
# use File::Copy; |
| 846 | 849 |
# use File::Spec; |
| ... | ... | |
| 856 | 859 |
|
| 857 | 860 |
my $self = $type->SUPER::new(@_); |
| 858 | 861 |
|
| 859 |
foreach my $module (qw(Archive::Zip Text::Iconv)) {
|
|
| 860 |
eval("use ${module};");
|
|
| 861 |
if ($@) {
|
|
| 862 |
$self->{"form"}->error("The Perl module '${module}' could not be " .
|
|
| 863 |
"loaded. Support for OpenDocument templates " . |
|
| 864 |
"does not work without it. Please install your " . |
|
| 865 |
"distribution's package or get the module from " . |
|
| 866 |
"CPAN ( http://www.cpan.org )."); |
|
| 867 |
} |
|
| 868 |
} |
|
| 869 |
|
|
| 870 | 862 |
$self->{"rnd"} = int(rand(1000000));
|
| 871 |
$self->{"iconv"} = Text::Iconv->new($main::dbcharset, "UTF-8");
|
|
| 863 |
$self->{"iconv"} = SL::Iconv->new($main::dbcharset, "UTF-8");
|
|
| 872 | 864 |
|
| 873 | 865 |
$self->set_tag_style('<%', '%>');
|
| 874 | 866 |
$self->{quot_re} = '"';
|
Auch abrufbar als: Unified diff
UTF8-Flags setzen/beachten
Conflicts: