X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/7a7f33b5c1b3531ab761adba1cf19d4ad68cffcd..e09347c89ca119213c4d8ba43083653cda793399:/bin/mozilla/todo.pl

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);