X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/439e45e4d2ae4d410a4d6b27371b34ff0af5baa9..53593baa211863fbf66540cf1bcc36c8fb37257f:/SL/Template/XML.pm diff --git a/SL/Template/XML.pm b/SL/Template/XML.pm deleted file mode 100644 index 2e5078587..000000000 --- a/SL/Template/XML.pm +++ /dev/null @@ -1,47 +0,0 @@ -package SL::Template::XML; - -use parent 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;