X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/bfec2184531d2e9bf4b379b5b038dacd58a76a70..927673c0f5fc3559f531e64c9acbc0f5166b9847:/bin/mozilla/gl.pl diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl index ef7352d2f..6dfa457cd 100644 --- a/bin/mozilla/gl.pl +++ b/bin/mozilla/gl.pl @@ -49,7 +49,6 @@ use SL::DBUtils qw(selectrow_query selectall_hashref_query); use SL::Webdav; use SL::Locale::String qw(t8); use SL::Helper::GlAttachments qw(count_gl_attachments); -use Carp; require "bin/mozilla/common.pl"; require "bin/mozilla/reportgenerator.pl"; @@ -95,7 +94,7 @@ sub load_record_template { $template->substitute_variables; my $payment_suggestion = $::form->{form_defaults}->{amount_1}; - # croak ("hier" . $payment_suggestion); + # Clean the current $::form before rebuilding it from the template. my $form_defaults = delete $::form->{form_defaults}; delete @{ $::form }{ grep { !m{^(?:script|login)$}i } keys %{ $::form } };