X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fpart_virtual_field.html;h=401e527018d6368efbe8081091b975b34504aa54;hb=6e2291b7667bb71bd3e4f260af217b020f796f2c;hp=e734d96169ea7fcefcb592660cd2af4a2e0e328c;hpb=fb4ab1073f0d15d660c6cdc4e07afebf68ef3924;p=freeside.git diff --git a/httemplate/edit/process/part_virtual_field.html b/httemplate/edit/process/part_virtual_field.html index e734d9616..401e52701 100644 --- 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');