diff options
author | ivan <ivan> | 2004-03-19 12:34:04 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-03-19 12:34:04 +0000 |
commit | b176140ad0f4dd63ac4a813f96eb5ab4fea3ea68 (patch) | |
tree | 090e9b977868b2aa99d89b1c980255df73680da2 | |
parent | 4aa0f59d8e7bef2039dfca459bac1dc96b7c513e (diff) |
use a domain in 1.4 also
-rw-r--r-- | FS/FS/ClientAPI/passwd.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/ClientAPI/passwd.pm b/FS/FS/ClientAPI/passwd.pm index 4940def59..f6af3434b 100644 --- a/FS/FS/ClientAPI/passwd.pm +++ b/FS/FS/ClientAPI/passwd.pm @@ -3,7 +3,7 @@ package FS::ClientAPI::passwd; use strict; use FS::Record qw(qsearchs); use FS::svc_acct; -#use FS::svc_domain; +use FS::svc_domain; use FS::ClientAPI; #hmm FS::ClientAPI->register_handlers( @@ -15,8 +15,8 @@ FS::ClientAPI->register_handlers( sub passwd { my $packet = shift; - #my $domain = qsearchs('svc_domain', { 'domain' => $packet->{'domain'} } ) - # or return { error => "Domain $domain not found" }; + my $domain = qsearchs('svc_domain', { 'domain' => $packet->{'domain'} } ) + or return { error => "Domain $domain not found" }; my $old_password = $packet->{'old_password'}; my $new_password = $packet->{'new_password'}; |