Header-Menu soll nicht mitscrollen

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

index 1eddce3b252d4963cfa4e94069b0570945b9491d..95fbbdeec4f988a716b361916a88476d2e417d6f 100644 (file)
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -288,7 +288,6 @@ sub update_prices {
  #  $form->header;
  #
  #  print qq|
-#<body>
  #  <form method=post action=ic.pl>
  #    <table width=100%>
  #     <tr>
@@ -388,8 +387,6 @@ sub update_prices {
  #    . $locale->text('TOP100') . qq|">
  #
  #</form>
-#</body>
-#</html>
  #|;
  #  $lxdebug->leave_sub();
  #}    #end list()
@@ -725,8 +722,6 @@ sub addtop100 {
    my $colspan = $#column_index + 1;
  
    print qq|
-<body>
-
  <table width=100%>
    <tr>
      <th class=listtop colspan=$colspan>$form->{title}</th>
@@ -981,9 +976,6 @@ sub addtop100 {
      . $locale->text('choice') . qq|">
  
    </form>
-
-</body>
-</html>
  |;
  
    $lxdebug->leave_sub();
@@ -1331,11 +1323,11 @@ sub generate_report {
      $row->{description}->{link} = $edit_link;
  
      foreach (qw(sellprice listprice lastcost)) {
-      $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, -2);
+      $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, 2);
        $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
      }
      foreach ( @pricegroup_columns ) {
-      $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{"$_"}, -2);
+      $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{"$_"}, 2);
      };
  
  
@@ -1841,7 +1833,6 @@ sub save {
    $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
  
    # save part
-  $lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
    if (IC->save(\%myconfig, \%$form) == 3) {
      $form->error($locale->text('Partnumber not unique!'));
    }
@@ -1909,8 +1900,6 @@ sub save {
          $form->{"sellprice_$i"} /= $form->{exchangerate};
        }
  
-      $lxdebug->message($LXDebug::DEBUG1, qq|sellprice_$i in previousform 2 = | . $form->{"sellprice_$i"} . qq|\n|);
-
        map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
        chop $form->{"taxaccounts_$i"};
        foreach my $item (qw(description rate taxnumber)) {
@@ -1959,7 +1948,6 @@ sub save {
      }
      $form->{callback} = $callback;
    }
-  $lxdebug->message($LXDebug::DEBUG1, qq|ic.pl: sellprice_$i nach sub save = | . $form->{"sellprice_$i"} . qq|\n|);
  
    # redirect
    $form->redirect;