diff options
Diffstat (limited to 'httemplate/edit/svc_Common.html')
-rw-r--r-- | httemplate/edit/svc_Common.html | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/httemplate/edit/svc_Common.html b/httemplate/edit/svc_Common.html deleted file mode 100644 index 6666d9720..000000000 --- a/httemplate/edit/svc_Common.html +++ /dev/null @@ -1,33 +0,0 @@ -<% include('elements/svc_Common.html', - 'table' => $table, - 'post_url' => popurl(1). "process/svc_Common.html", - %opt, - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific? - -# false laziness w/view/svc_Common.html - -$cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unparsable svcdb"; -my $table = $1; -require "FS/$table.pm"; - -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> |