my $cust_location = new FS::cust_location {
map { $_ => scalar($cgi->param($_)) }
qw( address1 address2 city county state zip country
+ latitude longitude
location_kind location_type location_number
)
};
};
-my @contact_fields = qw( first last title comment emailaddress );
+my @contact_fields = qw( classnum first last title comment emailaddress );
foreach my $phone_type ( qsearch({table=>'phone_type', order_by=>'weight'}) ) {
push @contact_fields, 'phonetypenum'.$phone_type->phonetypenum;
}