diff options
author | ivan <ivan> | 2002-04-19 13:17:56 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-04-19 13:17:56 +0000 |
commit | a28e2731a7febc2a96bb11ed4ce165808bd8b8d9 (patch) | |
tree | 178786667b4366c6f704a3635e99906ad8322083 /fs_signup/fs_signup_server | |
parent | 98a73bb080f55f4f5d850102bcec6da2807e3d4f (diff) |
signup server: FS::part_pkg->payby kludge & example template which uses
H:W:SelectLayers
Diffstat (limited to 'fs_signup/fs_signup_server')
-rwxr-xr-x | fs_signup/fs_signup_server | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server index 1618cf1fe..38ad5583f 100755 --- a/fs_signup/fs_signup_server +++ b/fs_signup/fs_signup_server @@ -73,6 +73,19 @@ while (1) { qsearch( 'part_pkg', { 'disabled' => '' } ) ], + 'agentnum2part_pkg' => + { + map { + my $href = $_->pkgpart_hashref; + $_->agentnum => + [ + map { { 'payby' => [ $_->payby ], %{$_->hashref} } } + grep { $_->svcpart('svc_acct') && $href->{ $_->pkgpart } } + qsearch( 'part_pkg', { 'disabled' => '' } ) + ]; + } qsearch('agent', {} ) + }, + 'svc_acct_pop' => [ map { $_->hashref } @pops ], 'security_phrase' => $conf->exists('security_phrase'), |