X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fcommon.pl;h=dfa7d0f788517128b98c86b4dabe6bfbb08dacf4;hb=cdacfe1cb5156c4bde158f0592d1dd3c445be7dd;hp=cef7fcab88b169215be3150eef9861dd7fbe397c;hpb=d5440cc6f9cc5b2942458ce7480526e2b90b17a4;p=kivitendo-erp.git

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index cef7fcab8..dfa7d0f78 100644
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -396,6 +396,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();