use SL::Common;
use SL::DB::Helper::Mappings;
-use SL::DBUtils;
+use SL::DB;
+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;
# -------------------------------------------------------------------------
-sub set_longdescription {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my $locale = $main::locale;
-
- $form->{title} = $locale->text("Enter longdescription");
- $form->header(no_layout => 1);
- print $form->parse_html_template("generic/set_longdescription");
-
- $main::lxdebug->leave_sub();
-}
-
-# -------------------------------------------------------------------------
-
sub H {
return $main::locale->quote_special_chars('HTML', $_[0]);
}
$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%' ) ";
+ } elsif ( $form->{trans_id_type} eq 'id' ) {
+ $restriction = " AND ( snumbers NOT LIKE 'invnumber_%' AND snumbers NOT LIKE 'gltransaction%' AND (what_done NOT LIKE '%Buchungsnummer%' OR what_done IS null))";
+ } else {
+ $restriction = '';
+ };
+
print $form->parse_html_template( "common/show_history", {
- "DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
+ "DATEN" => $form->get_history($dbh,$form->{input_name},$restriction,$form->{order}),
"SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
uc($sort) => 1,
uc($sort)."BY" => $sortby,
+ callback => $callback,
} );
$dbh->disconnect();
my $locale = $main::locale;
if($form->{mark_as_paid}) {
- my $dbh ||= $form->get_standard_dbh($myconfig);
- my $query = qq|UPDATE $db_name SET paid = amount, datepaid = current_date WHERE id = ?|;
- do_query($form, $dbh, $query, $form->{id});
- $dbh->commit();
+ SL::DB->client->with_transaction(sub {
+ my $dbh ||= SL::DB->client->dbh;
+ my $query = qq|UPDATE $db_name SET paid = amount, datepaid = current_date WHERE id = ?|;
+ do_query($form, $dbh, $query, $form->{id});
+ 1;
+ }) or do { $::form->error(SL::DB->client->error) };
$form->redirect($locale->text("Marked as paid"));
} else {