From 40e0a5460891d0b9e49233a1717b5914318a4289 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 10 Aug 1999 11:15:45 +0000
Subject: [PATCH] corrected a misleading comment

---
 htdocs/edit/cust_main.cgi | 9 ++++-----
 1 file 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 {
-- 
2.11.0