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 || ();
printf '<input id="%s" name="%1$s" value="%s" />', $col, Entity($val);
-e and printf '<img src="/%s" alt="%s" />', $_, $row->{form}
for $col eq 'thumb' ? "data/word/eng/$row->{form}.jpg" : ();
+ printf('<label for="%s">%s</label><input id="%1$s" name="%1$s" value="%s" />',
+ 'ref', 'Reference', Entity($row->{ref})
+ ) if $col eq 'cat';
}
print '</span>';
-e and printf('<img id="%spreview" src="/%s" alt="%s" hidden />',