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