X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Ftodo.pl;h=8f09fee5a5f58207fa8e969623fd059315cebf1a;hb=34211d2356367e21aa8f624caa7b17ee4b8ec4ac;hp=0f8cf3d7e350f1820988842a567c4661cc68f743;hpb=7a7f33b5c1b3531ab761adba1cf19d4ad68cffcd;p=kivitendo-erp.git diff --git a/bin/mozilla/todo.pl b/bin/mozilla/todo.pl index 0f8cf3d7e..8f09fee5a 100644 --- a/bin/mozilla/todo.pl +++ b/bin/mozilla/todo.pl @@ -27,13 +27,25 @@ # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ####################################################################### +use SL::TODO; + sub create_todo_list { $lxdebug->enter_sub(); + 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(); + return ''; + } + my (@todo_items, $todo_list); - push @todo_items, todo_list_follow_ups(); - push @todo_items, todo_list_overdue_sales_quotations(); + push @todo_items, todo_list_follow_ups() if ($todo_cfg{"show_follow_ups${postfix}"}); + push @todo_items, todo_list_overdue_sales_quotations() if ($todo_cfg{"show_overdue_sales_quotations${postfix}"}); @todo_items = grep { $_ } @todo_items; $todo_list = join("", @todo_items);