<%perl> our($dbh); my $languagequery = $dbh->prepare("SELECT tag, englishname, lojbanname, realname, forlojban, url FROM languages WHERE langId >= 1 ORDER BY tag"); $languagequery->execute; % my $row;while(defined($row=$languagequery->fetchrow_arrayref)) { % my @row = @$row; % foreach my $item (@row) { % } % }
Language Tag English Name Lojban Name "Real" Name Name for Lojban URL
<% $item %>
<%method title> Supported language listings