[Mageia-sysadm] [245] more compact code

[root at mageia.org]

Revision: 245
Author:   misc
Date:     2011-01-07 02:39:40 +0100 (Fri, 07 Jan 2011)
Log Message:
-----------
more compact code

Modified Paths:
--------------
    identity/CatDap/trunk/lib/CatDap/Controller/user.pm

Modified: identity/CatDap/trunk/lib/CatDap/Controller/user.pm
===================================================================
--- identity/CatDap/trunk/lib/CatDap/Controller/user.pm	2011-01-07 01:39:35 UTC (rev 244)
+++ identity/CatDap/trunk/lib/CatDap/Controller/user.pm	2011-01-07 01:39:40 UTC (rev 245)
@@ -237,14 +237,13 @@
 
 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;
-------------- next part --------------
An HTML attachment was scrubbed...
URL: </pipermail/mageia-sysadm/attachments/20110107/67bf9ae4/attachment-0001.html>