Benutzerkonfiguration um Einstellungen zur Aufgabenliste erweitert.

[mfinanz.git] / bin / mozilla / am.pl

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 51f8f69815352725787ea2d930d5a572a1bddb04..9f7d8f5579581ea512cbce539bb68193ec91ee5b 100644 (file)
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -38,6 +38,7 @@ use SL::Form;
 use SL::User;
 use SL::USTVA;
 use SL::Iconv;
+use SL::TODO;
 use CGI::Ajax;
 use CGI;
 
@@ -2491,6 +2492,7 @@ sub config {
   $myconfig{show_form_details}              = 1 unless (defined($myconfig{show_form_details}));
   $form->{"menustyle_$myconfig{menustyle}"} = 1;
   $form->{CAN_CHANGE_PASSWORD}              = $auth->can_change_password();
+  $form->{todo_cfg}                         = { TODO->get_user_config('login' => $form->{login}) };
 
   $form->{title}                            = $locale->text('Edit Preferences for #1', $form->{login});
 
@@ -2505,6 +2507,8 @@ sub save_preferences {
 
   $form->{stylesheet} = $form->{usestylesheet};
 
+  TODO->save_user_config('login' => $form->{login}, %{ $form->{todo_cfg} || { } });
+
   $form->redirect($locale->text('Preferences saved!')) if (AM->save_preferences(\%myconfig, \%$form, $webdav));
   $form->error($locale->text('Cannot save preferences!'));