X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fcommon.pl;h=dfa7d0f788517128b98c86b4dabe6bfbb08dacf4;hb=470a8fa1710b22e2b381eef4cacb01bebaeff725;hp=64aac69ea209955e4e0b3e417cddb6a9849e4b7a;hpb=cf889668782d1ffbb76b9f28e1d36848544fa3b3;p=kivitendo-erp.git diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl index 64aac69ea..dfa7d0f78 100644 --- a/bin/mozilla/common.pl +++ b/bin/mozilla/common.pl @@ -11,6 +11,7 @@ use Carp; use SL::Common; +use SL::DB::Helper::Mappings; use SL::DBUtils; use SL::Form; use SL::MoreCommon; @@ -390,7 +391,33 @@ sub format_dates { } sub reformat_numbers { - return $::form->format_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(); } # ------------------------------------------------------------------------- @@ -613,13 +640,8 @@ sub gl_transaction { $main::lxdebug->leave_sub(); } -if ($::use_rdbo) { - eval { - require SL::DB::Helper::Mappings; - sub db { - goto &SL::DB::Helper::Mappings::db; - } - } or die $@; +sub db { + goto &SL::DB::Helper::Mappings::db; } 1;