diff options
| author | ivan <ivan> | 1999-07-20 10:37:05 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-07-20 10:37:05 +0000 |
| commit | 19c3d2717fb417187fb0f020a7ba2b065f3f8e30 (patch) | |
| tree | 888c6c1941833e15a0d5ebeb33addb4ca292c559 /site_perl/cust_pkg.pm | |
| parent | d605e2e68f3c388bd0479fb0aba1bb1bc8e61e73 (diff) | |
cleaned up the new one-screen signup bits in htdocs/edit/cust_main.cgi to
prepare for a signup server
Diffstat (limited to 'site_perl/cust_pkg.pm')
| -rw-r--r-- | site_perl/cust_pkg.pm | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/site_perl/cust_pkg.pm b/site_perl/cust_pkg.pm index aa68f608f..bbd242972 100644 --- a/site_perl/cust_pkg.pm +++ b/site_perl/cust_pkg.pm @@ -396,18 +396,12 @@ L<FS::pkg_svc>). sub order { my($custnum,$pkgparts,$remove_pkgnums)=@_; - my(%part_pkg); # generate %part_pkg # $part_pkg{$pkgpart} is true iff $custnum may purchase $pkgpart - my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum}); - my($agent)=qsearchs('agent',{'agentnum'=> $cust_main->agentnum }); - - my($type_pkgs); - foreach $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) { - my($pkgpart)=$type_pkgs->pkgpart; - $part_pkg{$pkgpart}++; - } # + my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum}); + my($agent)=qsearchs('agent',{'agentnum'=> $cust_main->agentnum }); + my %part_pkg = %{ $agent->pkgpart_hashref }; my(%svcnum); # generate %svcnum @@ -496,7 +490,7 @@ sub order { =head1 VERSION -$Id: cust_pkg.pm,v 1.9 1999-03-29 01:11:51 ivan Exp $ +$Id: cust_pkg.pm,v 1.10 1999-07-20 10:37:05 ivan Exp $ =head1 BUGS @@ -527,7 +521,11 @@ fixed for new agent->agent_type->type_pkgs in &order ivan@sisd.com 98-mar-7 pod ivan@sisd.com 98-sep-21 $Log: cust_pkg.pm,v $ -Revision 1.9 1999-03-29 01:11:51 ivan +Revision 1.10 1999-07-20 10:37:05 ivan +cleaned up the new one-screen signup bits in htdocs/edit/cust_main.cgi to +prepare for a signup server + +Revision 1.9 1999/03/29 01:11:51 ivan use FS::type_pkgs Revision 1.8 1999/03/25 13:48:14 ivan |