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