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

[svn at pti.co.il]

Author: gabor
Date: 2007-07-21 18:21:21 +0300 (Sat, 21 Jul 2007)
New Revision: 289

Modified:
   trunk/
   trunk/lib/CPAN/Forum/DB/Users.pm
   trunk/lib/CPAN/Forum/RM/UserAccounts.pm
Log:
use plain SQL to update password



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

Modified: trunk/lib/CPAN/Forum/DB/Users.pm
===================================================================
--- trunk/lib/CPAN/Forum/DB/Users.pm	2007-07-21 15:20:56 UTC (rev 288)
+++ trunk/lib/CPAN/Forum/DB/Users.pm	2007-07-21 15:21:21 UTC (rev 289)
@@ -49,7 +49,7 @@
 
 sub update {
     my ($self, $id, %args) = @_;
-    my @valid_fields = qw(fname lname);
+    my @valid_fields = qw(fname lname password);
     my @fields;
     my @values;
 

Modified: trunk/lib/CPAN/Forum/RM/UserAccounts.pm
===================================================================
--- trunk/lib/CPAN/Forum/RM/UserAccounts.pm	2007-07-21 15:20:56 UTC (rev 288)
+++ trunk/lib/CPAN/Forum/RM/UserAccounts.pm	2007-07-21 15:21:21 UTC (rev 289)
@@ -24,7 +24,7 @@
         return $self->selfconfig({"bad_lname" => 1});
     }
 
-    my $user = CPAN::Forum::DB::Users->update($self->session->param('uid'), # SQL
+    CPAN::Forum::DB::Users->update($self->session->param('uid'), # SQL
                     fname => $q->param('fname'),
                     lname => $q->param('lname'),
                 );
@@ -41,9 +41,9 @@
         return $self->selfconfig({bad_pw_pair => 1});
     }
     
-    my ($user) = CPAN::Forum::DB::Users->retrieve($self->session->param('uid'));
-    $user->password($q->param('password'));
-    $user->update;
+    CPAN::Forum::DB::Users->update($self->session->param('uid'), # SQL
+                    password => $q->param('password'),
+                );
 
     return $self->selfconfig({done => 1});