Aufrufe von focus() entfernt.

[mfinanz.git] / bin / mozilla / common.pl
diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl

index dfa7d0f788517128b98c86b4dabe6bfbb08dacf4..9d78d9f1b01d21283d993d7fcfd29e897b095976 100644 (file)
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -9,7 +9,6 @@
  #
  ######################################################################
  
-use Carp;
  use SL::Common;
  use SL::DB::Helper::Mappings;
  use SL::DBUtils;
@@ -440,9 +439,6 @@ sub call_sub {
      $form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
    }
  
-  $::called_subs{$name}++;
-  confess "RECURSION DETECTION: call_sub($name) called " . $::called_subs{$name} . " time(s)" if $::called_subs{$name} > 10;
-
    {
      no strict "refs";
      &{ $name }(@_);
@@ -528,11 +524,9 @@ sub mark_as_paid_common {
      }
      $referer = $script . "?action=mark_as_paid&mark_as_paid=1&id=$form->{id}" . $callback;
      $form->header();
-    print qq|<body>|;
      print qq|<p><b>|.$locale->text('Mark as paid?').qq|</b></p>|;
      print qq|<input type="button" value="|.$locale->text('yes').qq|" onclick="document.location.href='|.$referer.qq|'">&nbsp;|;
      print qq|<input type="button" value="|.$locale->text('no').qq|" onclick="javascript:history.back();">|;
-    print qq|</body></html>|;
    }
  
    $main::lxdebug->leave_sub();