X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/470a8fa1710b22e2b381eef4cacb01bebaeff725..e14cb525c640cb15bb6b2dfb62ccebbe78cb45cd:/bin/mozilla/common.pl diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl index dfa7d0f78..9d78d9f1b 100644 --- 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||; print qq|

|.$locale->text('Mark as paid?').qq|

|; print qq| |; print qq||; - print qq||; } $main::lxdebug->leave_sub();