Sonderzeichen in LaTeX ersetzen.

[mfinanz.git] / SL / Template.pm

diff --git a/SL/Template.pm b/SL/Template.pm
index 27ebb36a37f02d62bcb49a0a15660243cad1a8c8..18b44d069288fac571c764dfa189ac71f2d69bde 100644 (file)
--- a/SL/Template.pm
+++ b/SL/Template.pm
@@ -91,7 +91,7 @@ sub format_string {
                  '<pagebreak>',
                  '&', quotemeta("\n"),
                  '"', '\$', '%', '_', '#', quotemeta('^'),
                  '<pagebreak>',
                  '&', quotemeta("\n"),
                  '"', '\$', '%', '_', '#', quotemeta('^'),

-                 '{', '}',  '<', '>', '£', "\r"
+                 '{', '}',  '<', '>', '£', "\r", '±',

                  ],
      quotemeta("\\") => '\\textbackslash ',
      '<pagebreak>'   => '',
                  ],
      quotemeta("\\") => '\\textbackslash ',
      '<pagebreak>'   => '',


@@ -107,6 +107,7 @@ sub format_string {
      '>'             => '$>$',
      '£'             => '\pounds ',
      "\r"            => "",
      '>'             => '$>$',
      '£'             => '\pounds ',
      "\r"            => "",

+     '±'             => '$\pm$',

      quotemeta('^')  => '\^\\',
      quotemeta("\n") => '\newline '
      );
      quotemeta('^')  => '\^\\',
      quotemeta("\n") => '\newline '
      );


@@ -213,7 +214,9 @@ sub parse_foreach {
       $sum += $form->parse_amount($self->{"myconfig"},
                                   $form->{"linetotal"}->[$i]);
     }
       $sum += $form->parse_amount($self->{"myconfig"},
                                   $form->{"linetotal"}->[$i]);
     }

-
+    
+    $form->{"cumulatelinetotal"}[$i] = $form->format_amount($self->{"myconfig"}, $sum, 2);
+    

     my $new_text = $self->parse_block($text, (@indices, $i));
     return undef unless (defined($new_text));
     $new_contents .= $start_tag . $new_text . $end_tag;
     my $new_text = $self->parse_block($text, (@indices, $i));
     return undef unless (defined($new_text));
     $new_contents .= $start_tag . $new_text . $end_tag;


@@ -1305,16 +1308,17 @@ sub format_string {
 sub get_mime_type() {
   my ($self) = @_;
 
 sub get_mime_type() {
   my ($self) = @_;
 

-  if ($self->{"form"}->{"format"} =~ /xml/i) {
+  if ($self->{"form"}->{"format"} =~ /elsterwinston/i) {

     return "application/xml ";
     return "application/xml ";

+  } elsif ($self->{"form"}->{"format"} =~ /elstertaxbird/i) {
+    return "application/x-taxbird";

   } else {
   } else {

-    return "text/xml";
+    return "text";

   }
 }
 
 sub uses_temp_file {
   }
 }
 
 sub uses_temp_file {

-#  my ($self) = @_;
-  # no tempfile needet for XML Output
+  # tempfile needet for XML Output

   return 1;
 }
 
   return 1;
 }