[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.74, 1.75

[Ivan,,,]

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

Modified Files:
	MyAccount.pm 
Log Message:
allow implied primary services to log into selfservice when selfservice_server-primary_only is on

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -d -r1.74 -r1.75
--- MyAccount.pm	9 Sep 2008 21:29:41 -0000	1.74
+++ MyAccount.pm	9 Sep 2008 22:35:12 -0000	1.75
@@ -94,9 +94,10 @@
     #  if $conf->exists('selfservice_server-primary_only')
     #    && ( ! $pkg_svc || $pkg_svc->primary_svc ne 'Y' );
     my $cust_svc = $svc_acct->cust_svc;
+    my $part_pkg = $cust_svc->cust_pkg->part_pkg;
     return { error => 'Only primary user may log in.' } 
       if $conf->exists('selfservice_server-primary_only')
-         && $cust_svc->svcpart != $cust_svc->cust_pkg->svcpart('svc_acct');
+         && $cust_svc->svcpart != $part_pkg->svcpart('svc_acct');
 
     return { error => 'Incorrect password.' }
       unless $svc_acct->check_password($p->{'password'});