if ( length($opt{'curr_value'}) ) {
$contactnum = $opt{'curr_value'};
} elsif ($prospect_main) {
- my @cust_contact = $prospect_main->cust_contact;
+ my @cust_contact = $prospect_main->contact;
$contactnum = $cust_contact[0]->contactnum if scalar(@cust_contact)==1;
} else { #$cust_main
$cgi->param('contactnum') =~ /^(\-?\d*)$/ or die "illegal contactnum";
if ( $contactnum == -1 ) {
$contact->$_( $cgi->param($_) ) foreach @contact_fields; #XXX
} elsif ( $cust_pkg && $cust_pkg->contactnum ) {
- my $pkg_contact = $cust_pkg->contact;
+ my $pkg_contact = $cust_pkg->contact_obj;
$contact->$_( $pkg_contact->$_ ) foreach @contact_fields; #XXX why are we making a new one gagain??
$opt{'empty_label'} ||= 'package contact: '.$pkg_contact->line;
} elsif ( $cust_main ) {