code cleaning: debug statements vergessen zu entfernen

[mfinanz.git] / bin / mozilla / gl.pl

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index ef7352d2f579dde66afe66eb762cdb62d73cc3a9..6dfa457cd81e5f7a495a6f113628406ed4e8eba6 100644 (file)
--- 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 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";
 
 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};
 
   $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 } };
   # 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 } };