httemplate/browse/generic.cgi

   1 <%
   2
   3 use FS::Record qw(qsearch dbdef);
   4 use DBIx::DBSchema;
   5 use DBIx::DBSchema::Table;
   6
   7 my $error;
   8 my $p2 = popurl(2);
   9 my ($table) = $cgi->keywords;
  10 my $dbdef = dbdef or die "Cannot fetch dbdef!";
  11 my $dbdef_table = $dbdef->table($table) or die "Cannot fetch schema for $table";
  12
  13 my $pkey = $dbdef_table->primary_key or die "Cannot fetch pkey for $table";
  14 print header("Browse $table", menubar('Main Menu'   => $p));
  15
  16 my @rec = qsearch($table, {});
  17 my @col = $dbdef_table->columns;
  18
  19 if ($cgi->param('error')) { %>
  20    <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
  21    <BR><BR>
  22 <% }
  23 %>
  24 <A HREF="<%=$p2%>edit/<%=$table%>.cgi"><I>Add a new <%=$table%></I></A><BR><BR>
  25
  26 <%=table()%>
  27 <TH>
  28 <% foreach (grep { $_ ne $pkey } @col) {
  29   %><TD><%=$_%></TD>
  30   <% } %>
  31 </TH>
  32 <% foreach $rec (sort {$a->getfield($pkey) cmp $b->getfield($pkey) } @rec) {
  33   %>
  34   <TR>
  35     <TD>
  36       <A HREF="<%=$p2%>edit/<%=$table%>.cgi?<%=$rec->getfield($pkey)%>">
  37       <%=$rec->getfield($pkey)%></A> </TD> <%
  38   foreach $col (grep { $_ ne $pkey } @col)  { %>
  39     <TD><%=$rec->getfield($col)%></TD> <% } %>
  40   </A>
  41   </TR>
  42 <% } %>
  43 </TABLE>
  44 </BODY>
  45 </HTML>
  46