blob: cf5f01f71540a8704f98e29e7745f8a748924ce8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
<% include( 'elements/svc_Common.html',
'table' => $table,
'redirect' => popurl(3)."view/svc_Common.html?svcdb=$table;svcnum=",
'error_redirect' => popurl(3)."edit/svc_Common.html?svcdb=$table;",
)
%>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
$cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unparsable svcdb";
my $table = $1;
require "FS/$table.pm";
</%init>
|
