Revision 9fbf7096
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/todo.pl | ||
|---|---|---|
|
|
||
|
use SL::TODO;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
sub create_todo_list {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
|
||
|
my %params = @_;
|
||
|
my $postfix = '_login' if ($params{login_screen});
|
||
| ... | ... | |
|
my %todo_cfg = TODO->get_user_config('login' => $form->{login});
|
||
|
|
||
|
if ($params{login_screen} && !$todo_cfg{show_after_login}) {
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
return '';
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
@todo_items = grep { $_ } @todo_items;
|
||
|
$todo_list = join("", @todo_items);
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return $todo_list;
|
||
|
}
|
||
|
|
||
|
sub show_todo_list {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{todo_list} = create_todo_list();
|
||
|
$form->{title} = $locale->text('TODO list');
|
||
| ... | ... | |
|
$form->header();
|
||
|
print $form->parse_html_template('todo/show_todo_list');
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub todo_list_follow_ups {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
require "bin/mozilla/fu.pl";
|
||
|
|
||
|
my $content = report_for_todo_list();
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return $content;
|
||
|
}
|
||
|
|
||
|
sub todo_list_overdue_sales_quotations {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
require "bin/mozilla/oe.pl";
|
||
|
|
||
|
my $content = report_for_todo_list();
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return $content;
|
||
|
}
|
||
Auch abrufbar als: Unified diff
todo strict