projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
new tax rate editor
[freeside.git]
/
httemplate
/
browse
/
part_virtual_field.cgi
diff --git
a/httemplate/browse/part_virtual_field.cgi
b/httemplate/browse/part_virtual_field.cgi
index
9bb5c13
..
5a1abe2
100644
(file)
--- 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')) { %>
- <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
- <BR><BR>
-<% } %>
+<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)) {
-<
A HREF="<%=$p2%>edit/part_virtual_field.cgi"><I>Add a new field</I></A><BR><BR
>
+<
H3><%$dbtable%></H3
>
-<% foreach $dbtable (sort { $a cmp $b } keys (%pvfs)) { %>
-<H3><%=$dbtable%></H3>
-
-<%=table()%>
+<%table()%>
<TH><TD>Field name</TD><TD>Description</TD></TH>
<TH><TD>Field name</TD><TD>Description</TD></TH>
-<% foreach $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) { %>
+% foreach my $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) {
+
<TR>
<TD></TD>
<TD>
<TR>
<TD></TD>
<TD>
- <A HREF="<%
=$p2%>edit/part_virtual_field.cgi?<%=
$pvf->vfieldpart%>">
- <%
=
$pvf->name%></A></TD>
- <TD><%
=
$pvf->label%></TD>
+ <A HREF="<%
$p2%>edit/part_virtual_field.cgi?<%
$pvf->vfieldpart%>">
+ <%$pvf->name%></A></TD>
+ <TD><%$pvf->label%></TD>
</TR>
</TR>
-<% } %>
+% }
+
</TABLE>
</TABLE>
-<% } %>
+% }
+
</BODY>
</HTML>
</BODY>
</HTML>
-
+<%init>
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+</%init>