From: ivan <ivan>
Date: Tue, 9 Sep 2008 22:35:12 +0000 (+0000)
Subject: allow implied primary services to log into selfservice when selfservice_server-primar... 
X-Git-Tag: root_of_webpay_support~377
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=c27ae57ba525791343cf0e4d46565b69ec1e3276;p=freeside.git

allow implied primary services to log into selfservice when selfservice_server-primary_only is on
---

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 587c8276b..114a359b7 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -94,9 +94,10 @@ sub login {
     #  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'});