use POSIX qw(strftime);
use SL::FU;
+use SL::Locale::String qw(t8);
use SL::ReportGenerator;
require "bin/mozilla/reportgenerator.pl";
+use strict;
+
sub _collect_links {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
my $dest = shift;
+ my $form = $main::form;
+
$dest->{LINKS} = [];
foreach my $i (1 .. $form->{trans_rowcount}) {
push @{ $dest->{LINKS} }, { map { +"trans_$_" => $form->{"trans_${_}_$i"} } qw(id type info) };
}
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub add {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
_collect_links($form);
$form->get_employee($form->get_standard_dbh(\%myconfig));
$form->{created_for_user} = $form->{employee_id};
+ $form->{subject} = $form->{trans_subject_1} if $form->{trans_subject_1};
+
my $link_details;
if (0 < scalar @{ $form->{LINKS} }) {
display_form();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub edit {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
+
+ my $form = $main::form;
+ my $locale = $main::locale;
my $ref = FU->retrieve('id' => $form->{id});
display_form();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub display_form {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
+
+ my $form = $main::form;
$form->get_lists("employees" => "EMPLOYEES");
my %params;
$params{not_id} = $form->{id} if ($form->{id});
$params{trans_id} = $form->{LINKS}->[0]->{trans_id} if (@{ $form->{LINKS} });
- $form->{FOLLOW_UPS} = FU->follow_ups(%params);
- $form->{jsscript} = 1;
+ $form->{sort} = 'follow_up_date';
+ $form->{FOLLOW_UPS_DONE} = FU->follow_ups(%params, done => 1);
+ $form->{FOLLOW_UPS_PENDING} = FU->follow_ups(%params, not_done => 1);
- $form->header();
+ setup_fu_display_form_action_bar() unless $::form->{POPUP_MODE};
+
+ $form->header(no_layout => $::form->{POPUP_MODE});
print $form->parse_html_template('fu/add_edit');
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub save_follow_up {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
+
+ my $form = $main::form;
+ my $locale = $main::locale;
$form->isblank('created_for_user', $locale->text('You must chose a user.'));
$form->isblank('follow_up_date', $locale->text('The follow-up date is missing.'));
$form->isblank('subject', $locale->text('The subject is missing.'));
- my %params = (map({ $_ => $form->{$_} } qw(id subject body created_for_user follow_up_date)), 'done' => 0);
+ my %params = (map({ $_ => $form->{$_} } qw(id subject body note_id created_for_user follow_up_date)), 'done' => 0);
_collect_links(\%params);
if ($form->{POPUP_MODE}) {
$form->header();
print $form->parse_html_template('fu/close_window');
- exit 0;
+ $::dispatcher->end_request;
}
$form->{SAVED_MESSAGE} = $locale->text('Follow-Up saved.');
report();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub finish {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
+
+ my $form = $main::form;
+ my $locale = $main::locale;
if ($form->{id}) {
my $ref = FU->retrieve('id' => $form->{id});
if ($form->{POPUP_MODE}) {
$form->header();
print $form->parse_html_template('fu/close_window');
- exit 0;
+ $::dispatcher->end_request;
}
$form->redirect() if ($form->{callback});
report();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub delete {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
+
+ my $form = $main::form;
+ my $locale = $main::locale;
if ($form->{id}) {
my $ref = FU->retrieve('id' => $form->{id});
if ($form->{POPUP_MODE}) {
$form->header();
print $form->parse_html_template('fu/close_window');
- exit 0;
+ $::dispatcher->end_request;
}
$form->redirect() if ($form->{callback});
report();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub search {
- $lxdebug->enter_sub();
+ $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');
+ setup_fu_search_action_bar();
$form->header();
print $form->parse_html_template('fu/search');
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub report {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+ my $cgi = $::request->{cgi};
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);
$report->set_columns(%column_defs);
$report->set_column_order(@columns);
- $report->set_export_options('report', @report_params);
+ $report->set_export_options('report', @report_params, qw(sort sortdir));
$report->set_sort_indicator($form->{sort}, $form->{sortdir});
'attachment_basename' => $locale->text('follow_up_list') . strftime('_%Y%m%d', localtime time),
);
$report->set_options_from_form();
+ $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
my $idx = 0;
my $callback = build_std_url('action=report', grep { $form->{$_} } @report_params);
$report->add_data($row);
}
+ setup_fu_report_action_bar();
$report->generate_with_headers();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub report_for_todo_list {
- $lxdebug->enter_sub();
+ $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);
my %params = (
'due_only' => 1,
'not_done' => 1,
- 'created_for_login' => $form->{login},
+ 'created_for_login' => $::myconfig{login},
);
my $follow_ups = FU->follow_ups(%params);
'edit_url' => $edit_url, });
}
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
return $content;
}
sub edit_access_rights {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
+
+ my $form = $main::form;
+ my $locale = $main::locale;
my $access = FU->retrieve_access_rights();
- $form->get_lists("employees" => "EMPLOYEES");
+ $form->{EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ deleted => 0 ]);
map { $_->{access} = $access->{$_->{id}} } @{ $form->{EMPLOYEES} };
$form->{title} = $locale->text('Edit Access Rights for Follow-Ups');
+ setup_fu_edit_access_rights_action_bar();
+
$form->header();
print $form->parse_html_template('fu/edit_access_rights');
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub save_access_rights {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('productivity');
+
+ my $form = $main::form;
+ my $locale = $main::locale;
my %access;
$form->{SAVED_MESSAGE} = $locale->text('The access rights have been saved.');
edit_access_rights();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub update {
- call_sub($form->{nextsub});
+ call_sub($main::form->{nextsub});
}
sub continue {
- call_sub($form->{nextsub});
+ call_sub($main::form->{nextsub});
}
sub save {
- if ($form->{save_nextsub}) {
- call_sub($form->{save_nextsub});
+ $main::auth->assert('productivity');
+
+ if ($main::form->{save_nextsub}) {
+ call_sub($main::form->{save_nextsub});
} else {
save_follow_up();
}
}
sub dispatcher {
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my $locale = $main::locale;
+
foreach my $action (qw(finish save delete)) {
if ($form->{"action_${action}"}) {
call_sub($action);
$form->error($locale->text('No action defined.'));
}
+sub setup_fu_search_action_bar {
+ my %params = @_;
+
+ for my $bar ($::request->layout->get('actionbar')) {
+ $bar->add(
+ action => [
+ t8('Show'),
+ submit => [ '#form', { action => "report" } ],
+ accesskey => 'enter',
+ ],
+ );
+ }
+}
+
+sub setup_fu_display_form_action_bar {
+ my %params = @_;
+
+ for my $bar ($::request->layout->get('actionbar')) {
+ $bar->add(
+ action => [
+ t8('Save'),
+ submit => [ '#form', { action => "save" } ],
+ accesskey => 'enter',
+ ],
+ action => [
+ t8('Finish'),
+ submit => [ '#form', { action => "finish" } ],
+ disabled => !$::form->{id} ? t8('The object has not been saved yet.') : undef,
+ ],
+ action => [
+ t8('Delete'),
+ submit => [ '#form', { action => "delete" } ],
+ disabled => !$::form->{id} ? t8('The object has not been saved yet.') : undef,
+ confirm => t8('Do you really want to delete this object?'),
+ ],
+ );
+ }
+}
+
+sub setup_fu_report_action_bar {
+ my %params = @_;
+
+ for my $bar ($::request->layout->get('actionbar')) {
+ $bar->add(
+ action => [
+ t8('Finish'),
+ submit => [ '#form', { action => "finish" } ],
+ checks => [ [ 'kivi.check_if_entries_selected', '[name^=selected_]' ] ],
+ ],
+ action => [
+ t8('Delete'),
+ submit => [ '#form', { action => "delete" } ],
+ checks => [ [ 'kivi.check_if_entries_selected', '[name^=selected_]' ] ],
+ confirm => t8('Do you really want to delete the selected objects?'),
+ ],
+ );
+ }
+}
+
+sub setup_fu_edit_access_rights_action_bar {
+ my %params = @_;
+
+ for my $bar ($::request->layout->get('actionbar')) {
+ $bar->add(
+ action => [
+ t8('Save'),
+ submit => [ '#form', { action => "save_access_rights" } ],
+ accesskey => 'enter',
+ ],
+ );
+ }
+}
+
1;