X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=htdocs%2Fedit%2Fcust_main.cgi;fp=htdocs%2Fedit%2Fcust_main.cgi;h=d5ae3634829a185dc13d84a64ea9d57c1d6ec873;hp=612d137b289f4bc9cb30aa2fe414a93a76ca93dc;hb=a1e172b1700ef8ea6b9d84f600e26ff53b9e300e;hpb=6178bdb5a08527e9c64deb05fab6b836af869695

diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi
index 612d137b2..d5ae36348 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.17 1999-08-10 11:15:45 ivan Exp $
+# $Id: cust_main.cgi,v 1.18 1999-08-11 15:38:33 ivan Exp $
 #
 # Usage: cust_main.cgi custnum
 #        http://server.name/path/cust_main.cgi?custnum
@@ -38,7 +38,10 @@
 # fixed one missed day->daytime ivan@sisd.com 98-jul-13
 #
 # $Log: cust_main.cgi,v $
-# Revision 1.17  1999-08-10 11:15:45  ivan
+# Revision 1.18  1999-08-11 15:38:33  ivan
+# fix for perl 5.004_04
+#
+# Revision 1.17  1999/08/10 11:15:45  ivan
 # corrected a misleading comment
 #
 # Revision 1.15  1999/04/14 13:14:54  ivan
@@ -346,7 +349,8 @@ unless ( $custnum ) {
     my %typenum;
     foreach my $agent ( @agents ) {
       next if $typenum{$agent->typenum}++;
-      $pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
+      #5.004_04 barfs (5.004_05 okay?)# $pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
+      foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; }
     }
   }
   #eslaf