From d8c81a25cb29cf0ca5d7cdeb8160f79d4fbb0bc6 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 13 Jan 2008 20:38:30 +0000
Subject: ACLs

---
 httemplate/browse/part_virtual_field.cgi | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

(limited to 'httemplate/browse/part_virtual_field.cgi')

diff --git a/httemplate/browse/part_virtual_field.cgi b/httemplate/browse/part_virtual_field.cgi
index 5a1abe213..b18440036 100644
--- a/httemplate/browse/part_virtual_field.cgi
+++ b/httemplate/browse/part_virtual_field.cgi
@@ -1,13 +1,4 @@
-<% 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} }, $_;
-%}
+<% include('/elements/header.html', 'Virtual field definitions') %>
 
 <% include('/elements/error.html') %>
 
@@ -32,9 +23,20 @@
 </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>
-- 
cgit v1.2.1