Revision 9fbf7096
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/todo.pl | ||
|---|---|---|
| 29 | 29 |
|
| 30 | 30 |
use SL::TODO; |
| 31 | 31 |
|
| 32 |
use strict; |
|
| 33 |
|
|
| 32 | 34 |
sub create_todo_list {
|
| 33 |
$lxdebug->enter_sub(); |
|
| 35 |
$main::lxdebug->enter_sub(); |
|
| 36 |
|
|
| 37 |
my $form = $main::form; |
|
| 34 | 38 |
|
| 35 | 39 |
my %params = @_; |
| 36 | 40 |
my $postfix = '_login' if ($params{login_screen});
|
| ... | ... | |
| 38 | 42 |
my %todo_cfg = TODO->get_user_config('login' => $form->{login});
|
| 39 | 43 |
|
| 40 | 44 |
if ($params{login_screen} && !$todo_cfg{show_after_login}) {
|
| 41 |
$lxdebug->leave_sub(); |
|
| 45 |
$main::lxdebug->leave_sub();
|
|
| 42 | 46 |
return ''; |
| 43 | 47 |
} |
| 44 | 48 |
|
| ... | ... | |
| 50 | 54 |
@todo_items = grep { $_ } @todo_items;
|
| 51 | 55 |
$todo_list = join("", @todo_items);
|
| 52 | 56 |
|
| 53 |
$lxdebug->leave_sub(); |
|
| 57 |
$main::lxdebug->leave_sub();
|
|
| 54 | 58 |
|
| 55 | 59 |
return $todo_list; |
| 56 | 60 |
} |
| 57 | 61 |
|
| 58 | 62 |
sub show_todo_list {
|
| 59 |
$lxdebug->enter_sub(); |
|
| 63 |
$main::lxdebug->enter_sub(); |
|
| 64 |
|
|
| 65 |
my $form = $main::form; |
|
| 66 |
my $locale = $main::locale; |
|
| 60 | 67 |
|
| 61 | 68 |
$form->{todo_list} = create_todo_list();
|
| 62 | 69 |
$form->{title} = $locale->text('TODO list');
|
| ... | ... | |
| 64 | 71 |
$form->header(); |
| 65 | 72 |
print $form->parse_html_template('todo/show_todo_list');
|
| 66 | 73 |
|
| 67 |
$lxdebug->leave_sub(); |
|
| 74 |
$main::lxdebug->leave_sub();
|
|
| 68 | 75 |
} |
| 69 | 76 |
|
| 70 | 77 |
sub todo_list_follow_ups {
|
| 71 |
$lxdebug->enter_sub(); |
|
| 78 |
$main::lxdebug->enter_sub();
|
|
| 72 | 79 |
|
| 73 | 80 |
require "bin/mozilla/fu.pl"; |
| 74 | 81 |
|
| 75 | 82 |
my $content = report_for_todo_list(); |
| 76 | 83 |
|
| 77 |
$lxdebug->leave_sub(); |
|
| 84 |
$main::lxdebug->leave_sub();
|
|
| 78 | 85 |
|
| 79 | 86 |
return $content; |
| 80 | 87 |
} |
| 81 | 88 |
|
| 82 | 89 |
sub todo_list_overdue_sales_quotations {
|
| 83 |
$lxdebug->enter_sub(); |
|
| 90 |
$main::lxdebug->enter_sub();
|
|
| 84 | 91 |
|
| 85 | 92 |
require "bin/mozilla/oe.pl"; |
| 86 | 93 |
|
| 87 | 94 |
my $content = report_for_todo_list(); |
| 88 | 95 |
|
| 89 |
$lxdebug->leave_sub(); |
|
| 96 |
$main::lxdebug->leave_sub();
|
|
| 90 | 97 |
|
| 91 | 98 |
return $content; |
| 92 | 99 |
} |
Auch abrufbar als: Unified diff
todo strict