X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Ftodo.pl;h=c50d44d5ecc84f678933ecafffba00058225be0a;hb=3d9df149ec915037561bebce349e6d49584749e0;hp=8f09fee5a5f58207fa8e969623fd059315cebf1a;hpb=713a6d703c0b2806f6a1f8fafa6bc9b6554c4087;p=kivitendo-erp.git diff --git a/bin/mozilla/todo.pl b/bin/mozilla/todo.pl index 8f09fee5a..c50d44d5e 100644 --- a/bin/mozilla/todo.pl +++ b/bin/mozilla/todo.pl @@ -29,16 +29,20 @@ use SL::TODO; +use strict; + sub create_todo_list { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + 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}); if ($params{login_screen} && !$todo_cfg{show_after_login}) { - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); return ''; } @@ -50,13 +54,16 @@ sub create_todo_list { @todo_items = grep { $_ } @todo_items; $todo_list = join("", @todo_items); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); return $todo_list; } sub show_todo_list { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my $locale = $main::locale; $form->{todo_list} = create_todo_list(); $form->{title} = $locale->text('TODO list'); @@ -64,29 +71,29 @@ sub show_todo_list { $form->header(); print $form->parse_html_template('todo/show_todo_list'); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub todo_list_follow_ups { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); require "bin/mozilla/fu.pl"; my $content = report_for_todo_list(); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); return $content; } sub todo_list_overdue_sales_quotations { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); require "bin/mozilla/oe.pl"; my $content = report_for_todo_list(); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); return $content; }