diff options
Diffstat (limited to 'httemplate/view/svc_Common.html')
| -rw-r--r-- | httemplate/view/svc_Common.html | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/httemplate/view/svc_Common.html b/httemplate/view/svc_Common.html new file mode 100644 index 000000000..7b46dc9c9 --- /dev/null +++ b/httemplate/view/svc_Common.html @@ -0,0 +1,30 @@ +<& 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; +} + +</%init> |
