- -e and printf '<img src="/%s" alt="%s" />', $_, $row->{form} for
- $col eq 'source' ? "data/word/org/$row->{id}.jpg" :
- $col eq 'thumb' ? "data/word/eng/$row->{form}.jpg" :
- ();
+ -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';