show a better message when no results are found
[freeside.git] / httemplate / browse / part_virtual_field.cgi
1 <%= header('Virtual field definitions', menubar('Main Menu'   => $p)) %>
2 <%
3
4 my %pvfs;
5 my $block;
6 my $p2 = popurl(2);
7 my $dbtable;
8
9 foreach (qsearch('part_virtual_field', {})) {
10   push @{ $pvfs{$_->dbtable} }, $_;
11 }
12 %>
13
14 <% if ($cgi->param('error')) { %>
15    <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
16    <BR><BR>
17 <% } %>
18
19 <A HREF="<%=$p2%>edit/part_virtual_field.cgi"><I>Add a new field</I></A><BR><BR>
20
21 <% foreach $dbtable (sort { $a cmp $b } keys (%pvfs)) { %>
22 <H3><%=$dbtable%></H3>
23
24 <%=table()%>
25 <TH><TD>Field name</TD><TD>Description</TD></TH>
26 <% foreach my $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) { %>
27   <TR>
28     <TD></TD>
29     <TD>
30       <A HREF="<%=$p2%>edit/part_virtual_field.cgi?<%=$pvf->vfieldpart%>">
31         <%=$pvf->name%></A></TD>
32     <TD><%=$pvf->label%></TD>
33   </TR>
34 <%   } %>
35 </TABLE>
36 <% } %>
37 </BODY>
38 </HTML>
39