From 0df2eac272aa26a62431f5cd830c1cb7b1018e32 Mon Sep 17 00:00:00 2001
From: Christopher Burger <burgerc@freeside.biz>
Date: Tue, 19 Feb 2019 14:42:25 -0500
Subject: RT# 82092 - custom fields now save and fixed so name label is
 displayed insted of actual field name

Conflicts:
	FS/FS/Record.pm
	httemplate/edit/process/cust_main.cgi
---
 httemplate/edit/process/cust_main.cgi           | 5 +++++
 httemplate/edit/process/part_virtual_field.html | 3 +++
 2 files changed, 8 insertions(+)

(limited to 'httemplate/edit/process')

diff --git a/httemplate/edit/process/cust_main.cgi b/httemplate/edit/process/cust_main.cgi
index e3fa4e6f8..d277e17b1 100755
--- a/httemplate/edit/process/cust_main.cgi
+++ b/httemplate/edit/process/cust_main.cgi
@@ -113,6 +113,11 @@ my $new = new FS::cust_main ( {
 
 $new->invoice_noemail( ($cgi->param('invoice_email') eq 'Y') ? '' : 'Y' );
 
+# add any virtual fields to the new cust_main record
+foreach ($new->virtual_fields) {
+  $new->setfield($_, scalar($cgi->param($_)));
+}
+
 if ( $duplicate_of ) {
   # then negate all changes to the customer; the only change we should
   # make is to order a package, if requested
diff --git a/httemplate/edit/process/part_virtual_field.html b/httemplate/edit/process/part_virtual_field.html
index e734d9616..6a8008db7 100644
--- a/httemplate/edit/process/part_virtual_field.html
+++ b/httemplate/edit/process/part_virtual_field.html
@@ -42,6 +42,9 @@
 
 my $act = 'add';
 
+## make cgi->param("name") lowercase
+$cgi->param('name' => lc $cgi->param('name'));
+
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 
-- 
cgit v1.2.1