diff options
| author | ivan <ivan> | 2000-01-27 00:53:14 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-01-27 00:53:14 +0000 |
| commit | 382224a6275c2503e6455c6628e2dfb9b83963fa (patch) | |
| tree | bc8761b1445c9b8ec5ed461d03b40b5f49c065a7 /htdocs/edit/cust_main.cgi | |
| parent | d3fe11011e0a9bfa3a7a953b5e409683a6eab42f (diff) | |
5.004_04 workaround
Diffstat (limited to 'htdocs/edit/cust_main.cgi')
| -rwxr-xr-x | htdocs/edit/cust_main.cgi | 11 |
1 files changed, 7 insertions, 4 deletions
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 |