- %hash = { $cust_pkg => [ $svc_acct ] };
- $error ||= $cust_main->insert( \%hash );
- #if ( $cust_pkg && ! $error ) { #in this case, $cust_pkg should always
- # #be definied, but....
- # $cust_pkg->custnum( $cust_main->custnum );
- # $error ||= $cust_pkg->insert;
- # warn "WARNING: $error on pre-checked cust_pkg record!" if $error;
- # $svc_acct->pkgnum( $cust_pkg->pkgnum );
- # $error ||= $svc_acct->insert;
- # warn "WARNING: $error on pre-checked svc_acct record!" if $error;
- #}
+ %hash = ( $cust_pkg => [ $svc_acct ] );
+ $error ||= $cust_main->insert( \%hash, \@invoicing_list );