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) = @_;

  return "text";

}

sub uses_temp_file {
  # tempfile needet for XML Output
  return 1;
}

1;