X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Flicenses.pl;h=6fe4f764eb99d1bb62d2630e8ff5ba6b4dd67141;hb=dbd0ae115bd9a6ba0ede24f9655a29df6bf7dc3b;hp=93efc243544626435b8367a2c082a97ac439ad55;hpb=8c7e44938a661e035f62840e1e177353240ace5d;p=kivitendo-erp.git diff --git a/bin/mozilla/licenses.pl b/bin/mozilla/licenses.pl index 93efc2435..6fe4f764e 100644 --- a/bin/mozilla/licenses.pl +++ b/bin/mozilla/licenses.pl @@ -37,17 +37,21 @@ use SL::LICENSES; require "bin/mozilla/common.pl"; +use strict; + sub quot { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); $_[0] =~ s/\"/\"/g; - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); return $_[0]; } sub form_header { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('license_edit'); - $auth->assert('license_edit'); + my $form = $main::form; $form->{jsscript} = 1; $form->header(); @@ -56,39 +60,47 @@ sub form_header { qq|
+ qq|