X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/34af475f9ba442662231760475fe156ddc70a107..97d8f1525dae4ddf31ded048fa287d139facf7b6:/SL/Controller/Admin.pm

diff --git a/SL/Controller/Admin.pm b/SL/Controller/Admin.pm
index 698fdb126..179142c73 100644
--- a/SL/Controller/Admin.pm
+++ b/SL/Controller/Admin.pm
@@ -129,6 +129,12 @@ sub action_edit_user {
   $self->edit_user_form(title => t8('Edit User'));
 }
 
+sub action_save_newuser {
+  my ($self) = @_;
+  $::form->{user}{clients} = 0;
+  $self->action_save_user();
+}
+
 sub action_save_user {
   my ($self) = @_;
   my $params = delete($::form->{user})          || { };
@@ -408,7 +414,7 @@ sub action_do_create_dataset {
   User->new->dbcreate($::form);
 
   flash_later('info', t8("The dataset #1 has been created.", $::form->{db}));
-  $self->redirect_to(action => 'database_administration');
+  $self->redirect_to(action => 'show');
 }
 
 sub action_delete_dataset_login {
@@ -439,7 +445,7 @@ sub action_do_delete_dataset {
   User->new->dbdelete($::form);
 
   flash_later('info', t8("The dataset #1 has been deleted.", $::form->{db}));
-  $self->redirect_to(action => 'database_administration');
+  $self->redirect_to(action => 'show');
 }
 
 #