X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Ftodo.pl;h=44b9eaf6f427073c94f6d6ada5bb274da00fd23d;hb=bfa674c9d4edc551afa6e27aac6f684a7b8cb656;hp=db482fa21d61170111e3d105fe8a11248f83d157;hpb=57bf9c89a037036fcf433de39643778854defe51;p=kivitendo-erp.git diff --git a/bin/mozilla/todo.pl b/bin/mozilla/todo.pl index db482fa21..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 = '_login' if ($params{login_screen}); + 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();