kivitendo/SL/Template/XML.pm @ 0fba3edd
| 0fba3edd | Moritz Bunkus | package SL::Template::XML;
|
|
use SL::Template::HTML;
|
|||
use vars qw(@ISA);
|
|||
@ISA = qw(SL::Template::HTML);
|
|||
use strict;
|
|||
sub new {
|
|||
#evtl auskommentieren
|
|||
my $type = shift;
|
|||
return $type->SUPER::new(@_);
|
|||
}
|
|||
sub format_string {
|
|||
my ($self, $variable) = @_;
|
|||
my $form = $self->{"form"};
|
|||
$variable = $main::locale->quote_special_chars('Template/XML', $variable);
|
|||
# Allow no markup to be converted into the output format
|
|||
my @markup_replace = ('b', 'i', 's', 'u', 'sub', 'sup');
|
|||
foreach my $key (@markup_replace) {
|
|||
$variable =~ s/\<(\/?)${key}\>//g;
|
|||
}
|
|||
return $variable;
|
|||
}
|
|||
sub get_mime_type() {
|
|||
my ($self) = @_;
|
|||
if ($self->{"form"}->{"format"} =~ /elsterwinston/i) {
|
|||
return "application/xml ";
|
|||
} elsif ($self->{"form"}->{"format"} =~ /elstertaxbird/i) {
|
|||
return "application/x-taxbird";
|
|||
} else {
|
|||
return "text";
|
|||
}
|
|||
}
|
|||
sub uses_temp_file {
|
|||
# tempfile needet for XML Output
|
|||
return 1;
|
|||
}
|
|||
1;
|