X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Ftodo.pl;h=44b9eaf6f427073c94f6d6ada5bb274da00fd23d;hb=f3324b5ad66924333bf2a313974f6d4d21932707;hp=c50d44d5ecc84f678933ecafffba00058225be0a;hpb=45970e731c7e0c8a3d469a1c344af20c18987c20;p=kivitendo-erp.git

diff --git a/bin/mozilla/todo.pl b/bin/mozilla/todo.pl
index c50d44d5e..44b9eaf6f 100644
--- a/bin/mozilla/todo.pl
+++ b/bin/mozilla/todo.pl
@@ -24,7 +24,8 @@
 # GNU General Public License for more details.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
 #######################################################################
 
 use SL::TODO;
@@ -34,12 +35,14 @@ use strict;
 sub create_todo_list {
   $main::lxdebug->enter_sub();
 
+  $main::auth->assert('productivity');
+
   my $form     = $main::form;
 
   my %params   = @_;
   my $postfix  = $params{login_screen} ? '_login' : '';
 
-  my %todo_cfg = TODO->get_user_config('login' => $form->{login});
+  my %todo_cfg = TODO->get_user_config('login' => $::myconfig{login});
 
   if ($params{login_screen} && !$todo_cfg{show_after_login}) {
     $main::lxdebug->leave_sub();
@@ -62,6 +65,8 @@ sub create_todo_list {
 sub show_todo_list {
   $main::lxdebug->enter_sub();
 
+  $main::auth->assert('productivity');
+
   my $form     = $main::form;
   my $locale   = $main::locale;
 
@@ -77,6 +82,8 @@ sub show_todo_list {
 sub todo_list_follow_ups {
   $main::lxdebug->enter_sub();
 
+  $main::auth->assert('productivity');
+
   require "bin/mozilla/fu.pl";
 
   my $content = report_for_todo_list();
@@ -89,6 +96,8 @@ sub todo_list_follow_ups {
 sub todo_list_overdue_sales_quotations {
   $main::lxdebug->enter_sub();
 
+  $main::auth->assert('productivity');
+
   require "bin/mozilla/oe.pl";
 
   my $content = report_for_todo_list();