Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 713a6d70

Von Moritz Bunkus vor fast 17 Jahren hinzugefügt

  • ID 713a6d703c0b2806f6a1f8fafa6bc9b6554c4087
  • Vorgänger 919007c2
  • Nachfolger 11f0cc99

Benutzerkonfiguration um Einstellungen zur Aufgabenliste erweitert.

Unterschiede anzeigen:

bin/mozilla/todo.pl
27 27 
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
28 28 
#######################################################################
29 29 

  		




  
  30
  
    
use SL::TODO;


  		




  
  31
  
    

  		




  30
  32
  
    
sub create_todo_list {


  		




  31
  33
  
    
  $lxdebug->enter_sub();


  		




  32
  34
  
    

  		




  
  35
  
    
  my %params   = @_;


  		




  
  36
  
    
  my $postfix  = '_login' if ($params{login_screen});


  		




  
  37
  
    

  		




  
  38
  
    
  my %todo_cfg = TODO->get_user_config('login' => $form->{login});


  		




  
  39
  
    

  		




  
  40
  
    
  if ($params{login_screen} && !$todo_cfg{show_after_login}) {


  		




  
  41
  
    
    $lxdebug->leave_sub();


  		




  
  42
  
    
    return '';


  		




  
  43
  
    
  }


  		




  
  44
  
    

  		




  33
  45
  
    
  my (@todo_items, $todo_list);


  		




  34
  46
  
    

  		




  35
  
  
    
  push @todo_items, todo_list_follow_ups();


  		




  36
  
  
    
  push @todo_items, todo_list_overdue_sales_quotations();


  		




  
  47
  
    
  push @todo_items, todo_list_follow_ups()               if ($todo_cfg{"show_follow_ups${postfix}"});


  		




  
  48
  
    
  push @todo_items, todo_list_overdue_sales_quotations() if ($todo_cfg{"show_overdue_sales_quotations${postfix}"});


  		




  37
  49
  
    

  		




  38
  50
  
    
  @todo_items = grep { $_ } @todo_items;


  		




  39
  51
  
    
  $todo_list  = join("", @todo_items);


  		












Auch abrufbar als:  Unified diff