diff options
| author | ivan <ivan> | 1999-07-21 06:32:08 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-07-21 06:32:08 +0000 |
| commit | 413261640a2439987da8383c023c379accd355a1 (patch) | |
| tree | d4f18f9d458ad5985ca9bc207d21026546223e9e | |
| parent | 971e4ca0af5a6adbc8c724c9dff12cf8edf93dd9 (diff) | |
workaround for syntax not compatible w/5.004_04 (ok in 5.004_05)
| -rw-r--r-- | site_perl/agent_type.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/site_perl/agent_type.pm b/site_perl/agent_type.pm index 6ea3d2a70..5b82cc3d6 100644 --- a/site_perl/agent_type.pm +++ b/site_perl/agent_type.pm @@ -117,7 +117,9 @@ L<FS::part_pkg>. sub pkgpart_hashref { my $self = shift; my %pkgpart; - $pkgpart{$_}++ foreach $self->pkgpart; + #$pkgpart{$_}++ foreach $self->pkgpart; + # not compatible w/5.004_04 (fixed in 5.004_05) + foreach ( $self->pkgpart ) { $pkgpart{$_}++; } \%pkgpart; } @@ -148,7 +150,7 @@ sub pkgpart { =head1 VERSION -$Id: agent_type.pm,v 1.3 1999-07-20 10:37:05 ivan Exp $ +$Id: agent_type.pm,v 1.4 1999-07-21 06:32:08 ivan Exp $ =head1 BUGS @@ -173,7 +175,10 @@ Changed 'type' to 'atype' because Pg6.3 reserves the type word pod, added check in delete ivan@sisd.com 98-sep-21 $Log: agent_type.pm,v $ -Revision 1.3 1999-07-20 10:37:05 ivan +Revision 1.4 1999-07-21 06:32:08 ivan +workaround for syntax not compatible w/5.004_04 (ok in 5.004_05) + +Revision 1.3 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 |