Aufrufe von focus() entfernt.

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

index cef7fcab88b169215be3150eef9861dd7fbe397c..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;
@@ -396,6 +395,32 @@ sub reformat_numbers {
  
  # -------------------------------------------------------------------------
  
+sub show_history {
+  $main::lxdebug->enter_sub();
+
+  my $form     = $main::form;
+  my %myconfig = %main::myconfig;
+  my $locale   = $main::locale;
+
+  my $dbh = $form->dbconnect(\%myconfig);
+  my ($sort, $sortby) = split(/\-\-/, $form->{order});
+  $sort =~ s/.*\.(.*)/$1/;
+
+  $form->{title} = $locale->text("History");
+  $form->header();
+  print $form->parse_html_template( "common/show_history", {
+    "DATEN"        => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
+    "SUCCESS"      => ($form->get_history($dbh,$form->{input_name}) ne "0"),
+    uc($sort)      => 1,
+    uc($sort)."BY" => $sortby
+  } );
+
+  $dbh->disconnect();
+  $main::lxdebug->leave_sub();
+}
+
+# -------------------------------------------------------------------------
+
  sub call_sub {
    $main::lxdebug->enter_sub();
  
@@ -414,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 }(@_);
@@ -502,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();