X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4d86fbb217847c0db64e03c55b24ac1fabde83f7..1465da30:/bin/mozilla/cp.pl diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl index 5ced17472..c19cc5312 100644 --- a/bin/mozilla/cp.pl +++ b/bin/mozilla/cp.pl @@ -42,7 +42,7 @@ use strict ("vars", "subs"); require "bin/mozilla/arap.pl"; require "bin/mozilla/common.pl"; -our ($form, %myconfig, $lxdebug, $locale); +our ($form, %myconfig, $lxdebug, $locale, $auth); 1; @@ -51,6 +51,8 @@ our ($form, %myconfig, $lxdebug, $locale); sub payment { $lxdebug->enter_sub(); + $auth->assert('cash'); + my (@curr); $form->{ARAP} = ($form->{type} eq 'receipt') ? "AR" : "AP"; @@ -72,14 +74,14 @@ sub payment { } # departments - if (@{ $form->{all_departments} }) { + if (@{ $form->{all_departments} || [] }) { $form->{selectdepartment} = "