<%perl> my $langs = $dbh->selectall_arrayref("SELECT tag,realname FROM languages WHERE langid>0 ORDER BY realname"); my @langs = map { $_->[0] } @{ $langs }; my %mapping = map { $_->[0] => $_->[1] } @{ $langs }; my @langshtml; my $format = '%s'; foreach my $curlang (@langs) { my $vislang = $mapping{$curlang}; $vislang =~ s/\s+/ /g; my $html = sprintf($format, &utils::armorurl($curlang), $vislang); push @langshtml, $html; }

Warning: If there are a lot of entries, these will take a long time to generate, as it's all being done on the fly. Please be patient.

Generate A Dictionary To/From Lojban And: <%shared> our $titlestr; <%method title> Word Listings: <% $titlestr %> <%init> our($dbh); use POSIX;