diff options
author | Michael Scherer <misc@mageia.org> | 2011-01-07 01:39:40 +0000 |
---|---|---|
committer | Michael Scherer <misc@mageia.org> | 2011-01-07 01:39:40 +0000 |
commit | 1808659fc6d7d51ab2069a9b7868e2b8dfdf1f5d (patch) | |
tree | 3c5ddd729c8c430a8da36b19975e1c8cc40d6479 /lib/CatDap/Controller | |
parent | 27c80f9ee652b3c086ee876e72ea9bd8ff7c7edc (diff) | |
download | identity-1808659fc6d7d51ab2069a9b7868e2b8dfdf1f5d.tar identity-1808659fc6d7d51ab2069a9b7868e2b8dfdf1f5d.tar.gz identity-1808659fc6d7d51ab2069a9b7868e2b8dfdf1f5d.tar.bz2 identity-1808659fc6d7d51ab2069a9b7868e2b8dfdf1f5d.tar.xz identity-1808659fc6d7d51ab2069a9b7868e2b8dfdf1f5d.zip |
more compact code
Diffstat (limited to 'lib/CatDap/Controller')
-rw-r--r-- | lib/CatDap/Controller/user.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/CatDap/Controller/user.pm b/lib/CatDap/Controller/user.pm index 0322b87..b3edb32 100644 --- a/lib/CatDap/Controller/user.pm +++ b/lib/CatDap/Controller/user.pm @@ -237,14 +237,13 @@ sub index :Path :Args(0) { sub add : Local { my ( $self, $c) = @_; - my ($mesg,$entry,$user,$attr,$value,$userfilter); - $attr = $c->req->param('attribute'); - $value = $c->req->param('value'); - $user = $c->user->username; - $userfilter = sprintf($c->user->store->user_filter ,$c->user->username); + my $attr = $c->req->param('attribute'); + my $value = $c->req->param('value'); + my $user = $c->user->username; + my $userfilter = sprintf($c->user->store->user_filter ,$c->user->username); $c->log->debug("Searching for user $user with $userfilter"); - $mesg = $c->model('User')->search($userfilter); - $entry = $mesg->entry; + my $mesg = $c->model('User')->search($userfilter); + my $entry = $mesg->entry; $entry->add( $attr => $value); $c->log->info("Adding $attr = $value to user $user"); $entry->update; |