Recommit von r1119 von skoehler: Bugfix - im Lieferschein fehlt Nummer, wenn ueber...

[kivitendo-erp.git] / bin / mozilla / ap.pl

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 9fa038f..442531a 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -129,7 +129,7 @@ sub create_links {
   $form->{selecttaxchart} = $tax;
 
   # currencies
-  @curr = split /:/, $form->{currencies};
+  @curr = split(/:/, $form->{currencies});
   chomp $curr[0];
   $form->{defaultcurrency} = $curr[0];
 
@@ -540,19 +540,21 @@ $jsscript
     $selectAP_amount = $selectAP_amount_unquoted;
     $re_amount = quotemeta($form->{"AP_amount_$i"});
     $selectAP_amount =~
-      s/option value=\"${re_amount}\"/option value=\"${re_amount}\" selected/;
+      s/option value=\"${re_amount}\"/option value=\"$form->{"AP_amount_$i"}\" selected/;
     $tax          = $taxchart;
     $tax_selected = $form->{"taxchart_$i"};
     $tax =~ s/value=\"$tax_selected\"/value=\"$tax_selected\" selected/;
     $tax =
       qq|<td><select id="taxchart_$i" name="taxchart_$i" style="width:200px">$tax</select></td>|;
 
+    my $korrektur = $form->{"korrektur_$i"} ? 'checked' : '';
+
     print qq|
        <tr>
           <td width=50%><select name="AP_amount_$i" onChange="setTaxkey(this, $i)" style="width:100%">$selectAP_amount</select></td>
           <td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td>
           <td><input name="tax_$i" size=10 value=$form->{"tax_$i"}></td>
-          <td><input type="checkbox" name="korrektur_$i" value="1"></td>
+          <td><input type="checkbox" name="korrektur_$i" value="1" "$korrektur"></td>
           $tax
          <td><input name="projectnumber_$i" size=20 value="$form->{"projectnumber_$i"}">
              <input type=hidden name="project_id_$i" value=$form->{"project_id_$i"}>