X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_virtual_field.cgi;h=5a1abe21309d670599e05b99da0c8f6b775fdc98;hb=2a6aa24137ddd389c1e644f5ece325c5b5dbaf3a;hp=a0009dabd12bf74f94e1ce07f2c87c2f36ccde18;hpb=eb9668a6f3181ee02cb335272c5ee4616e61fd09;p=freeside.git
diff --git a/httemplate/browse/part_virtual_field.cgi b/httemplate/browse/part_virtual_field.cgi
index a0009dabd..5a1abe213 100644
--- a/httemplate/browse/part_virtual_field.cgi
+++ b/httemplate/browse/part_virtual_field.cgi
@@ -1,39 +1,40 @@
-<%= header('Virtual field definitions', menubar('Main Menu' => $p)) %>
-<%
+<% include("/elements/header.html",'Virtual field definitions', menubar('Main Menu' => $p)) %>
-my %pvfs;
-my $block;
-my $p2 = popurl(2);
-my $dbtable;
+%my %pvfs;
+%my $block;
+%my $p2 = popurl(2);
+%my $dbtable;
+%
+%foreach (qsearch('part_virtual_field', {})) {
+% push @{ $pvfs{$_->dbtable} }, $_;
+%}
-foreach (qsearch('part_virtual_field', {})) {
- push @{ $pvfs{$_->dbtable} }, $_;
-}
-%>
+<% include('/elements/error.html') %>
-<% if ($cgi->param('error')) { %>
- Error: <%=$cgi->param('error')%>
-
-<% } %>
+Add a new field
+% foreach $dbtable (sort { $a cmp $b } keys (%pvfs)) {
-Add a new field
+