X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/a58594c9f79e5562f99f7c69c2c0e717d5b66491..e41485bf89a7d29b3732f49596ec8b460f51c2ef:/writer.plp

diff --git a/writer.plp b/writer.plp
index a5aa431..c6d5898 100644
--- a/writer.plp
+++ b/writer.plp
@@ -105,7 +105,7 @@ my %wordcol = (
 	thumb   => {-label => 'Convert options', -multiple => 1, -src => sub {
 		return "data/word/en/$_[0]->{id}.jpg";
 	}},
-	story   => {-label => 'Story', type => 'textarea'},
+	story   => {-label => 'Story', type => 'textarea', hidden => 'hidden'},
 );
 
 if (my $search = $fields{q}) {
@@ -228,6 +228,7 @@ bless $row, 'Shiar_Sheet::FormRow';
 for my $col (@wordcols) {
 	my $info = $wordcol{$col} or next;
 	my ($attr, @span) = ref $info eq 'ARRAY' ? @{$info} : $info;
+	next if delete $attr->{hidden} and not $row->{$col};
 	my $title = ref $attr ? delete $attr->{-label} : $attr;
 	printf '<li><label for="%s">%s</label><p>', $col, $title;
 		printf '<span class=inline>';