use Tie::RefHash;
tie %hash, 'Tie::RefHash'; #this part is important
- %hash = {
+ %hash = (
$cust_pkg => [ $svc_acct ],
- };
+ ...
+ );
$cust_main->insert( \%hash );
=cut
sub insert {
my $self = shift;
+ my @param = @_;
local $SIG{HUP} = 'IGNORE';
local $SIG{INT} = 'IGNORE';
return $error;
}
- if ( @_ ) {
- my $cust_pkgs = shift;
+ if ( @param ) {
+ my $cust_pkgs = shift @param;
foreach my $cust_pkg ( keys %$cust_pkgs ) {
$cust_pkg->custnum( $self->custnum );
$error = $cust_pkg->insert;
=head1 VERSION
-$Id: cust_main.pm,v 1.12 2001-04-23 07:12:44 ivan Exp $
+$Id: cust_main.pm,v 1.13 2001-05-07 02:07:38 ivan Exp $
=head1 BUGS
use Tie::RefHash;
tie my %hash, 'Tie::RefHash';
- %hash = { $cust_pkg => [ $svc_acct ] };
+ %hash = ( $cust_pkg => [ $svc_acct ] );
$error ||= $cust_main->insert( \%hash );
#if ( $cust_pkg && ! $error ) { #in this case, $cust_pkg should always
# #be definied, but....