DATEV-Schnittstelle: Auslagerung von KNE-Schreibfunktionen in eigenes Modul. Kosmetik...

[mfinanz.git] / bin / mozilla / gl.pl
diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl

index 128113eaf8dece0912d820780768a383f793ce85..0f5f944528ae8f194ae4a81e0beac7e9ed799dee 100644 (file)
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -793,10 +793,10 @@ sub display_rows {
    my %charts = ();
    my $taxchart_init;
    foreach my $item (@{ $form->{ALL_CHARTS} }) {
-    my $key = Q($item->{accno}) . "--" . Q($item->{tax_id});
+    my $key = $item->{accno} . "--" . $item->{tax_id};
      $taxchart_init = $item->{taxkey_id} unless (@chart_values);
      push(@chart_values, $key);
-    $chart_labels{$key} = H($item->{accno}) . "--" . H($item->{description});
+    $chart_labels{$key} = $item->{accno} . "--" . $item->{description};
      $charts{$item->{accno}} = $item;
    }
  
@@ -804,11 +804,10 @@ sub display_rows {
    my @taxchart_values = ();
    my %taxcharts = ();
    foreach my $item (@{ $form->{ALL_TAXCHARTS} }) {
-    my $key = Q($item->{id}) . "--" . Q($item->{rate});
+    my $key = $item->{id} . "--" . $item->{rate};
      $taxchart_init = $key if ($taxchart_init eq $item->{taxkey});
      push(@taxchart_values, $key);
-    $taxchart_labels{$key} = H($item->{taxdescription}) . " " .
-      H($item->{rate} * 100) . ' %';
+    $taxchart_labels{$key} = $item->{taxdescription} . " " . $item->{rate} * 100 . ' %';
      $taxcharts{$item->{id}} = $item;
    }
  
@@ -1068,7 +1067,7 @@ sub form_header {
    $form->header;
  
    print qq|
-<body onLoad="fokus()">
+<body onLoad="focus()">
  
  <script type="text/javascript" src="js/common.js"></script>
  <script type="text/javascript" src="js/follow_up.js"></script>