<% use FS::Record qw(qsearch dbdef); use DBIx::DBSchema; use DBIx::DBSchema::Table; my $error; my $p2 = popurl(2); my ($table) = $cgi->keywords; my $dbdef = dbdef or die "Cannot fetch dbdef!"; my $dbdef_table = $dbdef->table($table) or die "Cannot fetch schema for $table"; my $pkey = $dbdef_table->primary_key or die "Cannot fetch pkey for $table"; print header("Browse $table", menubar('Main Menu' => $p)); my @rec = qsearch($table, {}); my @col = $dbdef_table->columns; if ($cgi->param('error')) { %> Error: <%=$cgi->param('error')%>

<% } %> Add a new <%=$table%>

<%=table()%> <% foreach (grep { $_ ne $pkey } @col) { %><%=$_%> <% } %> <% foreach $rec (sort {$a->getfield($pkey) cmp $b->getfield($pkey) } @rec) { %> <%=$rec->getfield($pkey)%> <% foreach $col (grep { $_ ne $pkey } @col) { %> <%=$rec->getfield($col)%> <% } %> <% } %>