diff options
| author | ivan <ivan> | 2008-09-09 22:35:12 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-09-09 22:35:12 +0000 |
| commit | c27ae57ba525791343cf0e4d46565b69ec1e3276 (patch) | |
| tree | 20df8dc64c1d1acb35135d35b2292732320522fb /FS | |
| parent | 82c1277c1ad43936672c6919c3a186e821b22b70 (diff) | |
allow implied primary services to log into selfservice when selfservice_server-primary_only is on
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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'}); |