X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fcust_main.cgi;h=baacd5e7e9b275028943e1445443281c85ecd1eb;hp=ed285ca15e909abc68fde47a3f8d9a00134209f0;hb=3f2a7b01b59902faed5767d81e2959e131bdbdfd;hpb=8c36d1e4f1255abb483bc7372fa1908cc192b528 diff --git a/httemplate/edit/process/cust_main.cgi b/httemplate/edit/process/cust_main.cgi index ed285ca15..baacd5e7e 100755 --- a/httemplate/edit/process/cust_main.cgi +++ b/httemplate/edit/process/cust_main.cgi @@ -97,6 +97,11 @@ my $new = new FS::cust_main ( { (map { ( "ship_$_", '' ) } (FS::cust_main->location_fields)) } ); +# add any virtual fields to the new cust_main record +foreach ($new->virtual_fields) { + $new->setfield($_, scalar($cgi->param($_))); +} + warn Dumper( $new ) if $DEBUG > 1; if ( $duplicate_of ) { @@ -187,10 +192,7 @@ if ( $cgi->param('residential_commercial') eq 'Residential' ) { $error = 'Email address required'; } - #$email =~ s/\s+/\, /g; - #$options{'invoicing_list'} = [ split(/\s*,\s*/, $email) ]; $options{'invoicing_list'} = [ split(/[,\s]+/, $email) ]; - #[:,\s\/]+ # XXX really should include the phone numbers in here also } else {