[Cpan-forum-commit] rev 297 - in trunk: . lib/CPAN/Forum/RM

[svn at pti.co.il]

Author: gabor
Date: 2007-07-22 07:03:27 +0300 (Sun, 22 Jul 2007)
New Revision: 297

Modified:
   trunk/
   trunk/lib/CPAN/Forum/RM/Admin.pm
Log:
rest of the admin RMs are using plain SQL



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4304
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752
   + 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4305
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752

Modified: trunk/lib/CPAN/Forum/RM/Admin.pm
===================================================================
--- trunk/lib/CPAN/Forum/RM/Admin.pm	2007-07-22 04:03:13 UTC (rev 296)
+++ trunk/lib/CPAN/Forum/RM/Admin.pm	2007-07-22 04:03:27 UTC (rev 297)
@@ -37,15 +37,15 @@
     }
     $self->log->debug("admin_edit_user username: '$username'");
 
-    my ($person) = CPAN::Forum::DB::Users->search(username => $username);
+    my $person = CPAN::Forum::DB::Users->info_by(username => $username); # SQL
     if (not $person) {
         return $self->internal_error("", "no_such_user");
     }
 
     my $t = $self->load_tmpl("admin_edit_user.tmpl");
     $t->param(this_username => $username);
-    $t->param(email => $person->email);
-    $t->param(uid   => $person->id);
+    $t->param(email => $person->{email});
+    $t->param(uid   => $person->{id});
 
     if ($errors and ref($errors) eq "ARRAY") {
         $t->param($_ => 1) foreach @$errors;
@@ -65,7 +65,7 @@
     # fields that can have only one value
     foreach my $field (qw(rss_size per_page from flood_control_time_limit 
                 disable_email_notification)) {
-        CPAN::Forum::DB::Configure->set_field_value($field, $q->param($field));
+        CPAN::Forum::DB::Configure->set_field_value($field, $q->param($field)); # SQL
     }
 
     $self->status($q->param('status'));