3 use FS::Record qw(qsearch dbdef);
5 use DBIx::DBSchema::Table;
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";
13 my $pkey = $dbdef_table->primary_key or die "Cannot fetch pkey for $table";
14 print header("Browse $table", menubar('Main Menu' => $p));
16 my @rec = qsearch($table, {});
17 my @col = $dbdef_table->columns;
19 if ($cgi->param('error')) { %>
20 <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
24 <A HREF="<%=$p2%>edit/<%=$table%>.cgi"><I>Add a new <%=$table%></I></A><BR><BR>
28 <% foreach (grep { $_ ne $pkey } @col) {
32 <% foreach $rec (sort {$a->getfield($pkey) cmp $b->getfield($pkey) } @rec) {
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> <% } %>