diff options
Diffstat (limited to 'htdocs/edit/cust_main.cgi')
| -rwxr-xr-x | htdocs/edit/cust_main.cgi | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi index e2e2d334d..612d137b2 100755 --- a/htdocs/edit/cust_main.cgi +++ b/htdocs/edit/cust_main.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.16 1999-07-20 10:37:05 ivan Exp $ +# $Id: cust_main.cgi,v 1.17 1999-08-10 11:15:45 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum @@ -38,9 +38,8 @@ # fixed one missed day->daytime ivan@sisd.com 98-jul-13 # # $Log: cust_main.cgi,v $ -# Revision 1.16 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.17 1999-08-10 11:15:45 ivan +# corrected a misleading comment # # Revision 1.15 1999/04/14 13:14:54 ivan # configuration option to edit referrals of existing customers @@ -339,7 +338,7 @@ unless ( $custnum ) { #false laziness, copied from FS::cust_pkg::order my $pkgpart; if ( scalar(@agents) == 1 ) { - # $pkgpart->{$pkgpart} is true iff $custnum may purchase $pkgpart + # $pkgpart->{PKGPART} is true iff $custnum may purchase $pkgpart my($agent)=qsearchs('agent',{'agentnum'=> $agentnum }); $pkgpart = $agent->pkgpart_hashref; } else { |