<td> muss in <tr> stecken.

[mfinanz.git] / SL / Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm

index 48afe63053fc8ae1cf18284c92de72ae7bacffe1..c1b0e28876036b5648a5cabfd7451ba83c10b868 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -434,6 +434,7 @@ sub header {
      }
      print qq|Content-Type: text/html; charset=${db_charset};
  
      }
      print qq|Content-Type: text/html; charset=${db_charset};
  
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
  <html>
  <head>
    <title>$self->{titlebar}</title>
  <html>
  <head>
    <title>$self->{titlebar}</title>
@@ -1016,18 +1017,18 @@ sub get_formname_translation {
    $formname ||= $self->{formname};
  
    my %formname_translations = (
    $formname ||= $self->{formname};
  
    my %formname_translations = (
-     bin_list            => $main::locale->text('Bin List'),
-     credit_note         => $main::locale->text('Credit Note'),
-     invoice             => $main::locale->text('Invoice'),
-     packing_list        => $main::locale->text('Packing List'),
-     pick_list           => $main::locale->text('Pick List'),
-     proforma            => $main::locale->text('Proforma Invoice'),
-     purchase_order      => $main::locale->text('Purchase Order'),
-     request_quotation   => $main::locale->text('RFQ'),
-     sales_order         => $main::locale->text('Confirmation'),
-     sales_quotation     => $main::locale->text('Quotation'),
-     storno_invoice      => $main::locale->text('Storno Invoice'),
-     storno_packing_list => $main::locale->text('Storno Packing List'),
+    bin_list            => $main::locale->text('Bin List'),
+    credit_note         => $main::locale->text('Credit Note'),
+    invoice             => $main::locale->text('Invoice'),
+    packing_list        => $main::locale->text('Packing List'),
+    pick_list           => $main::locale->text('Pick List'),
+    proforma            => $main::locale->text('Proforma Invoice'),
+    purchase_order      => $main::locale->text('Purchase Order'),
+    request_quotation   => $main::locale->text('RFQ'),
+    sales_order         => $main::locale->text('Confirmation'),
+    sales_quotation     => $main::locale->text('Quotation'),
+    storno_invoice      => $main::locale->text('Storno Invoice'),
+    storno_packing_list => $main::locale->text('Storno Packing List'),
    );
  
    return $formname_translations{$formname}
    );
  
    return $formname_translations{$formname}
@@ -2299,7 +2300,7 @@ sub create_links {
                  LEFT JOIN taxkeys tk ON (tk.chart_id = c.id)
                  WHERE c.link LIKE ?
                    AND (tk.id = (SELECT id FROM taxkeys WHERE taxkeys.chart_id = c.id AND startdate <= $transdate ORDER BY startdate DESC LIMIT 1)
                  LEFT JOIN taxkeys tk ON (tk.chart_id = c.id)
                  WHERE c.link LIKE ?
                    AND (tk.id = (SELECT id FROM taxkeys WHERE taxkeys.chart_id = c.id AND startdate <= $transdate ORDER BY startdate DESC LIMIT 1)
-                    OR c.link LIKE '%_tax%')
+                    OR c.link LIKE '%_tax%' OR c.taxkey_id IS NULL)
                  ORDER BY c.accno|;
  
      $sth = $dbh->prepare($query);
                  ORDER BY c.accno|;
  
      $sth = $dbh->prepare($query);