[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.133.2.14, 1.133.2.15

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	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.133.2.14
retrieving revision 1.133.2.15
diff -u -w -d -r1.133.2.14 -r1.133.2.15
--- MyAccount.pm	30 Sep 2011 04:54:48 -0000	1.133.2.14
+++ MyAccount.pm	30 Sep 2011 05:15:32 -0000	1.133.2.15
@@ -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();