-<% include("/elements/header.html",'Virtual field definitions', menubar('Main Menu' => $p)) %>
-%
-%
-%my %pvfs;
-%my $block;
-%my $p2 = popurl(2);
-%my $dbtable;
-%
-%foreach (qsearch('part_virtual_field', {})) {
-% push @{ $pvfs{$_->dbtable} }, $_;
-%}
-%
-% if ($cgi->param('error')) {
-
- <FONT SIZE="+1" COLOR="#ff0000">Error: <%$cgi->param('error')%></FONT>
- <BR><BR>
-% }
+<% include('/elements/header.html', 'Virtual field definitions') %>
+<% include('/elements/error.html') %>
<A HREF="<%$p2%>edit/part_virtual_field.cgi"><I>Add a new field</I></A><BR><BR>
% foreach $dbtable (sort { $a cmp $b } keys (%pvfs)) {
</TABLE>
% }
-</BODY>
-</HTML>
+<% include('/elements/footer.html') %>
+
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+my %pvfs;
+my $block;
+my $p2 = popurl(2);
+my $dbtable;
+
+foreach (qsearch('part_virtual_field', {})) {
+ push @{ $pvfs{$_->dbtable} }, $_;
+}
+</%init>