X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a43c94fd42214048fc61bcd4404f2800e92c49de..aa1102e99b95c7ffc7bfb0078af520429595b702:/SL/Template.pm diff --git a/SL/Template.pm b/SL/Template.pm index 27ebb36a3..c7257e991 100644 --- a/SL/Template.pm +++ b/SL/Template.pm @@ -213,7 +213,9 @@ sub parse_foreach { $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; @@ -1305,16 +1307,17 @@ sub format_string { sub get_mime_type() { my ($self) = @_; - if ($self->{"form"}->{"format"} =~ /xml/i) { + if ($self->{"form"}->{"format"} =~ /elsterwinston/i) { return "application/xml "; + } elsif ($self->{"form"}->{"format"} =~ /elstertaxbird/i) { + return "application/x-taxbird"; } else { - return "text/xml"; + return "text"; } } sub uses_temp_file { -# my ($self) = @_; - # no tempfile needet for XML Output + # tempfile needet for XML Output return 1; }