1 <% include('elements/svc_Common.html',
3 'edit_url' => $edit_url, #$p."edit/svc_Common.html?svcdb=$table;svcnum=",
9 # false laziness w/edit/svc_Common.html
11 $cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unparsable svcdb";
13 require "FS/$table.pm";
15 my $edit_url = svc_url( 'm' => $m, 'action' => 'edit', 'svcdb' => $table, query => '' );
18 if ( UNIVERSAL::can("FS::$table", 'table_info') ) {
19 $opt{'name'} = "FS::$table"->table_info->{'name'};
21 my $fields = "FS::$table"->table_info->{'fields'};
22 my %labels = map { $_ => ( ref($fields->{$_})
23 ? $fields->{$_}{'label'}
28 $opt{'labels'} = \%labels;