diff options
| -rw-r--r-- | SelfConfig.pm | 2 | ||||
| -rw-r--r-- | Users/Users.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/SelfConfig.pm b/SelfConfig.pm index 4ca751b..47d713c 100644 --- a/SelfConfig.pm +++ b/SelfConfig.pm @@ -30,7 +30,7 @@ my $OBJECT_NAME = "SelfConfig2"; my $OBJECT_PATH = "$Utils::Backend::DBUS_PATH/$OBJECT_NAME"; # user is only allowed to change his own GECOS fields, locale, location -my $format = [ [ "struct", "uint32", [ "array", "string" ], "string", "string" ] ]; +my $format = [ "uint32", [ "array", "string" ], "string", "string" ]; sub new { diff --git a/Users/Users.pm b/Users/Users.pm index ff5726c..5a00012 100644 --- a/Users/Users.pm +++ b/Users/Users.pm @@ -745,7 +745,7 @@ sub set_user sub set_self { - my ($uid, $old_passwd, $new_passwd, @comments) = @_; + my ($uid, @comments, $locale, $location) = @_; my ($users) = &get (); # Make backups manually, otherwise they don't get backed up. @@ -760,7 +760,7 @@ sub set_self return; } } - # TODO: change password + # TODO: change locale and location } |