Falschen Spaltennamen korrigiert.

[kivitendo-erp.git] / bin / mozilla / common.pl
diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl

index 47de5b0..d006c54 100644 (file)
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -168,7 +168,7 @@ sub part_selection_internal {
  
    my $callback = "$form->{script}?action=part_selection_internal&";
    map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
-      (qw(login path password partnumber description input_partnumber input_description input_partsid), grep({ /^[fl]_/ } keys %$form)));
+      (qw(login password partnumber description input_partnumber input_description input_partsid), grep({ /^[fl]_/ } keys %$form)));
  
    my @header_sort = qw(partnumber description);
    my %header_title = ( "partnumber" => $locale->text("Part Number"),
@@ -209,7 +209,7 @@ sub project_selection_internal {
  
    my $callback = "$form->{script}?action=project_selection_internal&";
    map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
-      (qw(login path password projectnumber description input_projectnumber input_description input_project_id), grep({ /^[fl]_/ } keys %$form)));
+      (qw(login password projectnumber description input_projectnumber input_description input_project_id), grep({ /^[fl]_/ } keys %$form)));
  
    my @header_sort = qw(projectnumber description);
    my %header_title = ( "projectnumber" => $locale->text("Project Number"),
@@ -250,7 +250,7 @@ sub employee_selection_internal {
  
    my $callback = "$form->{script}?action=employee_selection_internal&";
    map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
-      (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
+      (qw(login password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
  
    my @header_sort = qw(name);
    my %header_title = ( "name" => $locale->text("Name"),
@@ -290,7 +290,7 @@ sub delivery_customer_selection {
  
    my $callback = "$form->{script}?action=delivery_customer_selection&";
    map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
-      (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
+      (qw(login password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
  
    my @header_sort = qw(name customernumber address);
    my %header_title = ( "name" => $locale->text("Name"),
@@ -332,7 +332,7 @@ sub vendor_selection {
  
    my $callback = "$form->{script}?action=vendor_selection&";
    map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
-      (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
+      (qw(login password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
  
    my @header_sort = qw(name customernumber address);
    my %header_title = ( "name" => $locale->text("Name"),
@@ -408,7 +408,7 @@ sub set_longdescription {
  
    my $callback = "$form->{script}?action=set_longdescription&";
    map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
-      (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
+      (qw(login password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
  
    $form->{"title"} = $locale->text("Enter longdescription");
    $form->header();
@@ -565,4 +565,30 @@ 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};
+    $referer =~ s/^(.*)action\=.*\&(.*)$/$1action\=mark_as_paid\&mark_as_paid\=1\&login\=$form->{login}\&password\=$form->{password}\&id\=$form->{id}\&$2/;
+    $form->header();
+    print qq|<body>|;
+    print qq|<p><b>|.$locale->text('Mark as paid?').qq|</b></p>|;
+    print qq|<input type="button" value="|.$locale->text('yes').qq|" onclick="document.location.href='|.$referer.qq|'">&nbsp;|;
+    print qq|<input type="button" value="|.$locale->text('no').qq|" onclick="javascript:history.back();">|;
+    print qq|</body></html>|;
+}
+  
+  $lxdebug->leave_sub();
+}
+
  1;