X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fcp.pl;h=6a21edecbbf1990eed7f7a3320ebeb7d85702136;hb=710ebb28d9a0f0125dd7e7d1f0662d3127ac1328;hp=5ced174723eac6c3d7f9abc5874b440efd3cce18;hpb=4d86fbb217847c0db64e03c55b24ac1fabde83f7;p=kivitendo-erp.git diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl index 5ced17472..6a21edecb 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"; @@ -114,6 +116,8 @@ sub payment { sub form_header { $lxdebug->enter_sub(); + $auth->assert('cash'); + my ($vc, $vclabel, $allvc, $arap, $department, $exchangerate); my ($jsscript, $button1, $button2, $onload); @@ -178,16 +182,6 @@ sub form_header { # $locale->text('AR') # $locale->text('AP') - $department = qq| -