3 # false laziness w/view/svc_Common.html
5 $cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unparsable svcdb";
7 require "FS/$table.pm";
10 if ( UNIVERSAL::can("FS::$table", 'table_info') ) {
11 $opt{'name'} = "FS::$table"->table_info->{'name'};
13 my $fields = "FS::$table"->table_info->{'fields'};
14 my %labels = map { $_ => ( ref($fields->{$_})
15 ? $fields->{$_}{'label'}
20 $opt{'labels'} = \%labels;
25 <% include('elements/svc_Common.html',
27 'post_url' => popurl(1). "process/svc_Common.html",