use SL::Common;
use SL::DB::Helper::Mappings;
-use SL::DBUtils;
+use SL::DBUtils qw(do_query);
use SL::Form;
-use SL::MoreCommon;
-use SL::Helper::Flash;
+use SL::MoreCommon qw(restore_form save_form);
use strict;
$form->{title} = $locale->text("History");
$form->header(no_layout => 1);
+ my $callback = build_std_url(qw(action longdescription trans_id_type input_name));
my $restriction;
if ( $form->{trans_id_type} eq 'glid' ) {
$restriction = "AND ( snumbers LIKE 'invnumber%' OR what_done LIKE '%Buchungsnummer%' OR snumbers LIKE 'gltransaction%' ) ";
"SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
uc($sort) => 1,
uc($sort)."BY" => $sortby,
+ callback => $callback,
} );
$dbh->disconnect();