RT# 82092 - Removed reload of DB Schema

[freeside.git] / httemplate / edit / process / part_virtual_field.html

diff --git a/httemplate/edit/process/part_virtual_field.html b/httemplate/edit/process/part_virtual_field.html
index e734d96..401e527 100644 (file)
--- a/httemplate/edit/process/part_virtual_field.html
+++ b/httemplate/edit/process/part_virtual_field.html
@@ -1,6 +1,7 @@
 <% include( 'elements/process.html',
     'table'          => 'part_virtual_field',
     'viewall_dir'    => 'browse',
+    'message'        => [ 'Your custom field has been created, but will not be available untill Apache has been restarted.=warning', ],
     'precheck_callback' => sub {
         my ($cgi) = @_;
         $act = 'edit' if $cgi->param('vfieldpart');
@@ -25,11 +26,13 @@
             $dbh->commit or die $dbh->errstr; 
 
             # reload schema
-            my $dbdef_file = "/usr/local/etc/freeside/dbdef.".datasrc # XXX: fix this
+            my $dbdef_file = "/usr/local/etc/freeside/dbdef.".datasrc;
             my $dbdef = new_native DBIx::DBSchema $dbh;
             $dbdef->save($dbdef_file);
-            delete $FS::Schema::dbdef_cache{$dbdef_file}; #force an actual reload
-            reload_dbdef($dbdef_file);
+            ## Stop reload of db schema as only reload current process and not others. Could be a pain to diagnose error.  
+            ## Restart Apache to reload DB Schema for all.
+            #delete $FS::Schema::dbdef_cache{$dbdef_file}; #force an actual reload
+            #reload_dbdef($dbdef_file);
             
             warn "cf add done schema modification, time=".time;
         }
@@ -42,6 +45,11 @@
 
 my $act = 'add';
 
+## make cgi->param("name") lowercase
+my $vcf_name = $cgi->param('name');
+$vcf_name =~ s/\s/_/g; $vcf_name =~ s/[^A-Za-z0-9\-_]//g;
+$cgi->param('name' => lc $vcf_name);
+
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');