X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9c8d0637fda107ec6d4a35ae52802ee2d1cb9eb3..dec270d227e4e9c199001064f32cef1ef37c4296:/bin/mozilla/dn.pl

diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl
index e418fa28f..ca08da498 100644
--- a/bin/mozilla/dn.pl
+++ b/bin/mozilla/dn.pl
@@ -24,7 +24,8 @@
 # GNU General Public License for more details.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
 #======================================================================
 #
 # Dunning process module
@@ -34,10 +35,9 @@
 use POSIX qw(strftime);
 
 use SL::IS;
-use SL::PE;
 use SL::DN;
 use SL::DB::Dunning;
-use SL::Helper::Flash;
+use SL::Helper::Flash qw(flash);
 use SL::Locale::String qw(t8);
 use SL::ReportGenerator;
 
@@ -133,7 +133,7 @@ sub show_invoices {
     if ($row->{next_dunning_config_id}) {
       map { $_->{SELECTED} = $_->{id} == $row->{next_dunning_config_id} } @{ $row->{DUNNING_CONFIG } };
     }
-    map { $row->{$_} = $form->format_amount(\%myconfig, $row->{$_} * 1, -2) } qw(amount open_amount fee interest);
+    map { $row->{$_} = $form->format_amount(\%myconfig, $row->{$_} * 1, 2) } qw(amount open_amount fee interest);
 
     if ($row->{'language_id'}) {
       $row->{language} = SL::DB::Manager::Language->find_by_or_create('id' => $row->{'language_id'})->{'description'};