X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/cae266f89c2f8b9c192dfbe9b9126ef9ac144e6f..3a619ed93038baf5568d87d3d4a24056e813e8af:/writer.plp?ds=sidebyside
diff --git a/writer.plp b/writer.plp
index 206333f..bae010c 100644
--- a/writer.plp
+++ b/writer.plp
@@ -102,14 +102,14 @@ my $db = eval {
my @wordcols = (
lang => 'Language',
cat => 'Category',
+ ref => undef, # included with cat
+ prio => 'Level',
+ cover => undef, # included with prio
form => 'Translation',
alt => 'Synonyms',
wptitle => 'Wikipedia',
source => 'Image',
thumb => 'Convert options',
- prio => 'Level',
- cover => undef, # included with prio
- ref => 'Reference',
);
my @prioenum = qw( essential basic common distinctive rare invisible );
my ($find) = map {{id => $_}} $fields{id} || $Request || ();
@@ -230,6 +230,9 @@ for my $colinfo (pairs @wordcols) {
printf '', $col, Entity($val);
-e and printf '', $_, $row->{form}
for $col eq 'thumb' ? "data/word/eng/$row->{form}.jpg" : ();
+ printf('',
+ 'ref', 'Reference', Entity($row->{ref})
+ ) if $col eq 'cat';
}
print '';
-e and printf('',