sub _collect_links {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $dest = shift;
my $form = $main::form;
sub add {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
sub edit {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my $locale = $main::locale;
sub display_form {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
$form->get_lists("employees" => "EMPLOYEES");
$params{trans_id} = $form->{LINKS}->[0]->{trans_id} if (@{ $form->{LINKS} });
$form->{FOLLOW_UPS} = FU->follow_ups(%params);
- $form->{jsscript} = 1;
-
$form->header(no_layout => $::form->{POPUP_MODE});
print $form->parse_html_template('fu/add_edit');
sub save_follow_up {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my $locale = $main::locale;
sub finish {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my $locale = $main::locale;
sub delete {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my $locale = $main::locale;
sub search {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my $locale = $main::locale;
$form->get_lists("employees" => "EMPLOYEES");
- $form->{jsscript} = 1;
$form->{title} = $locale->text('Follow-Ups');
$form->header();
sub report {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
sub report_for_todo_list {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my @report_params = qw(created_for subject body reference follow_up_date_from follow_up_date_to itime_from itime_to due_only all_users done not_done);
sub edit_access_rights {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my $locale = $main::locale;
sub save_access_rights {
$main::lxdebug->enter_sub();
+ $main::auth->assert('productivity');
+
my $form = $main::form;
my $locale = $main::locale;
}
sub save {
+ $main::auth->assert('productivity');
+
if ($main::form->{save_nextsub}) {
call_sub($main::form->{save_nextsub});
} else {