X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c90ba6c8ad4b35f2b7cd3159165aab5f29b4e3d2..eb22bdb44c4e27c1936bdc2ad620823a0248dd55:/bin/mozilla/common.pl

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index 359e58601..e05a146df 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;
 }
@@ -307,9 +307,9 @@ sub delivery_customer_selection {
 
   $form->{"title"} = $locale->text("Select a Customer");
   $form->header();
-  print($form->parse_html_template("generic/select_delivery_customer", { "HEADER" => \@header,
-                                                                   "DELIVERY" => $delivery,
-                                                                   "onload" => $onload }));
+  print $form->parse_html_template2("generic/select_delivery_customer", { "HEADER"   => \@header,
+                                                                          "DELIVERY" => $delivery,
+                                                                          "onload"   => $onload });
 
   $lxdebug->leave_sub();
 }
@@ -349,9 +349,9 @@ sub vendor_selection {
 
   $form->{"title"} = $locale->text("Select a Customer");
   $form->header();
-  print($form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,
-                                                                   "VENDOR" => $vendor,
-                                                                   "onload" => $onload }));
+  print $form->parse_html_template2("generic/select_vendor", { "HEADER" => \@header,
+                                                               "VENDOR" => $vendor,
+                                                               "onload" => $onload });
 
   $lxdebug->leave_sub();
 }
@@ -395,9 +395,9 @@ sub calculate_qty {
   $form->{formel} = $formel; 
   $form->{"title"} = $locale->text("Please enter values");
   $form->header();
-  print($form->parse_html_template("generic/calculate_qty", { "HEADER" => \@header,
-                                                                   "VARIABLES" => \@variable,
-                                                                   "onload" => $onload }));
+  print($form->parse_html_template2("generic/calculate_qty", { "HEADER"    => \@header,
+                                                               "VARIABLES" => \@variable,
+                                                               "onload"    => $onload }));
 
   $lxdebug->leave_sub();
 }
@@ -405,14 +405,9 @@ sub calculate_qty {
 sub set_longdescription {
   $lxdebug->enter_sub();
 
-
-  my $callback = "$form->{script}?action=set_longdescription&";
-  map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
-      (qw(login password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
-
-  $form->{"title"} = $locale->text("Enter longdescription");
+  $form->{title} = $locale->text("Enter longdescription");
   $form->header();
-  print($form->parse_html_template("generic/set_longdescription"));
+  print $form->parse_html_template2("generic/set_longdescription");
 
   $lxdebug->leave_sub();
 }
@@ -514,7 +509,7 @@ sub show_history {
   
 	$form->{title} = $locale->text("History");
     $form->header();
-    print $form->parse_html_template( "common/show_history", {
+    print $form->parse_html_template2( "common/show_history", {
     	"DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
     	"SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
       uc($sort) => 1,
@@ -559,10 +554,39 @@ sub show_vc_details {
   $form->{title} = $form->{vc} eq "customer" ?
     $locale->text("Customer details") : $locale->text("Vendor details");
   $form->header();
-  print($form->parse_html_template("common/show_vc_details",
-                                   { "is_customer" => $form->{vc} eq "customer" }));
+  print($form->parse_html_template2("common/show_vc_details",
+                                    { "is_customer" => $form->{vc} eq "customer" }));
 
 	$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|<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;