X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c90ba6c8ad4b35f2b7cd3159165aab5f29b4e3d2..2ef21b8f2aaae439a9408977458bdeb9b0fd9e25:/bin/mozilla/common.pl
diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index 359e58601..dfecb2878 100644
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -14,7 +14,7 @@ use SL::Common;
use SL::MoreCommon;
sub build_std_url {
- $lxdebug->enter_sub();
+ $lxdebug->enter_sub(2);
my $script = $form->{script};
@@ -37,7 +37,7 @@ sub build_std_url {
my $url = "${script}?" . join('&', @parts);
- $lxdebug->leave_sub();
+ $lxdebug->leave_sub(2);
return $url;
}
@@ -565,4 +565,33 @@ sub show_vc_details {
$lxdebug->leave_sub();
}
+sub mark_as_paid_common {
+ $lxdebug->enter_sub();
+ use SL::DBUtils;
+ my ($myconfig, $db_name) = @_;
+
+ if($form->{mark_as_paid}) {
+ my $dbh ||= $form->get_standard_dbh($myconfig);
+ my $query = qq|UPDATE $db_name SET paid = amount WHERE id = ?|;
+ do_query($form, $dbh, $query, $form->{id});
+ $dbh->commit();
+ $form->redirect($locale->text("Marked as paid"));
+}
+ else {
+ my $referer = $ENV{HTTP_REFERER};
+ my $login = $form->escape($form->{login});
+ my $password = $form->escape($form->{password});
+ my $id = $form->escape($form->{id});
+ $referer =~ s/^(.*)action\=.*\&(.*)$/$1action\=mark_as_paid\&mark_as_paid\=1\&login\=$login\&password\=$password\&id\=$id\&$2/;
+ $form->header();
+ print qq||;
+ print qq||.$locale->text('Mark as paid?').qq|
|;
+ print qq| |;
+ print qq||;
+ print qq|