user-services

This commit is contained in:
Doug Bell 2009-05-15 18:03:03 +00:00
parent 18e095faee
commit 1f96d708bf
5 changed files with 18 additions and 180 deletions

View file

@ -1251,12 +1251,10 @@ sub update {
# Make a safe copy of properties, we'll be deleting from it
$properties = { %$properties };
$self->uncache;
$properties->{lastUpdated} ||= time;
# No userId, bad!
delete $properties->{userId};
# $self->{_user} contains all fields in `users` table
my @userFields = ();
my @userValues = ();