[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.147, 1.148

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail.420.am:/tmp/cvs-serv24497

Modified Files:
	MyAccount.pm 
Log Message:
check old password if supplied, RT#13656

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -w -d -r1.147 -r1.148
--- MyAccount.pm	30 Sep 2011 04:54:45 -0000	1.147
+++ MyAccount.pm	30 Sep 2011 05:15:29 -0000	1.148
@@ -2148,6 +2148,11 @@
   } )
     or return { 'error' => "Service not found" };
 
+  if ( exists($p->{'old_password'}) ) {
+    return "Incorrect password."
+      unless $svc_acct->check_password($p->{'old_password'});
+  }
+
   $svc_acct->_password($p->{'new_password'});
   my $error = $svc_acct->replace();