X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/35f843186e9f902d8850ec55b13a0ad936372e83..54e4131e091831e00a861fe2c4f53e344b87ddca:/SL/USTVA.pm

diff --git a/SL/USTVA.pm b/SL/USTVA.pm
index f1bd2a034..84dc4f312 100644
--- a/SL/USTVA.pm
+++ b/SL/USTVA.pm
@@ -861,18 +861,14 @@ sub get_accounts_ustva {
   my $accno;
   my $ref;
 
-  # Show all $query in Debuglevel LXDebug::QUERY
-  $callingdetails = (caller (0))[3];
-  $main::lxdebug->message(LXDebug::QUERY, "$callingdetails \$query=\n $query");
-              
+  #print $query;
   my $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
 
   while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
-# Bug 365 solved?!
-#    if ($ref->{amount} < 0) {
+    if ($ref->{amount} < 0) {
       $ref->{amount} *= -1;
-#    }
+    }
     if ($category eq "pos_bwa") {
       if ($last_period) {
         $form->{ $ref->{$category} }{kumm} += $ref->{amount};