From: ivan <ivan>
Date: Thu, 27 Jan 2000 00:53:14 +0000 (+0000)
Subject: 5.004_04 workaround
X-Git-Tag: freeside_1_2_3~16
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=382224a6275c2503e6455c6628e2dfb9b83963fa

5.004_04 workaround
---

diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi
index e1262c542..10f1dba1f 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.22 1999-12-17 02:33:23 ivan Exp $
+# $Id: cust_main.cgi,v 1.23 2000-01-27 00:53:14 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.22  1999-12-17 02:33:23  ivan
+# Revision 1.23  2000-01-27 00:53:14  ivan
+# 5.004_04 workaround
+#
+# Revision 1.22  1999/12/17 02:33:23  ivan
 # argh
 #
 # Revision 1.21  1999/08/23 07:40:38  ivan
@@ -363,8 +366,8 @@ unless ( $custnum ) {
     my %typenum;
     foreach my $agent ( @agents ) {
       next if $typenum{$agent->typenum}++;
-      #5.004_04 barfs (5.004_05 okay?)# $pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
-      foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; }
+      #fixed in 5.004_05 #$pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
+      foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; } #5.004_04 workaround
     }
   }
   #eslaf