+ $main::lxdebug->leave_sub();
+}
+
+# -------------------------------------------------------------------------
+
+sub H {
+ return $main::locale->quote_special_chars('HTML', $_[0]);
+}
+
+sub Q {
+ return $main::locale->quote_special_chars('URL@HTML', $_[0]);
+}
+
+sub E {
+ return $main::form->escape($_[0]);
+}
+
+sub NTI {
+ my ($element) = @_;
+
+ $element =~ s/tabindex\s*=\s*"\d+"//;
+ return $element;
+}
+
+sub format_dates {
+ return $::form->format_dates(@_);
+}
+
+sub reformat_numbers {
+ return $::form->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();
+
+ my $name = shift;
+
+ my $form = $main::form;
+ my $locale = $main::locale;
+
+ if (!$name) {
+ $form->error($locale->text("Trying to call a sub without a name"));