X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=50b2e025d68bb394de22840248ebd506b4dd602d;hb=ce47a2340ef118b494854deae1b0ddc74b1d1c5a;hp=d39625d482fc34fd5430370e892596b14435d6dc;hpb=820f3066c313c0538f7abdf90b3a8e12a28449e2;p=kivitendo-erp.git
diff --git a/SL/Form.pm b/SL/Form.pm
index d39625d48..50b2e025d 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1066,7 +1066,7 @@ sub dbconnect_noauto {
$main::lxdebug->enter_sub();
my ($self, $myconfig) = @_;
-
+
# connect to database
$dbh =
DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser},
@@ -2706,4 +2706,30 @@ sub all_years {
$main::lxdebug->leave_sub();
}
+sub mark_as_paid {
+ $main::lxdebug->enter_sub();
+
+ my ($self, $myconfig, $db_name) = @_;
+
+ if($self->{mark_as_paid}) {
+ my $dbh ||= $self->get_standard_dbh($myconfig);
+ my $query = qq|UPDATE $db_name SET paid = amount WHERE id = ?|;
+ do_query($self, $dbh, $query, $self->{id});
+ $dbh->commit();
+ $self->redirect($main::locale->text("Marked as paid"));
+ }
+ else {
+ my $referer = $ENV{HTTP_REFERER};
+ $referer =~ s/^(.*)action\=.*\&(.*)$/$1action\=mark_as_paid\&mark_as_paid\=1\&login\=$self->{login}\&password\=$self->{password}\&id\=$self->{id}\&$2/;
+ $self->header();
+ print qq||;
+ print qq||.$main::locale->text('Mark as paid?').qq|
|;
+ print qq| |;
+ print qq||;
+ print qq|