From 1808659fc6d7d51ab2069a9b7868e2b8dfdf1f5d Mon Sep 17 00:00:00 2001 From: Michael Scherer Date: Fri, 7 Jan 2011 01:39:40 +0000 Subject: more compact code --- lib/CatDap/Controller/user.pm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'lib/CatDap/Controller') 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; -- cgit v1.2.1