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

diff --git a/writer.plp b/writer.plp
index fe538dd..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}) {
@@ -202,7 +202,10 @@ elsif (defined $post{form}) {{
 	if ($reimage) {
 		eval {
 			$image->convert($wordcol{thumb}->{-src}->($row), $row->{thumb});
-		} or Alert([ "Thumbnail image not generated", $@->[0] ], $@->[1]);
+		} or do {
+			my ($warn, @details) = ref $@ ? @{$@} : $@;
+			Alert([ "Thumbnail image not generated", $warn ], @details);
+		};
 	}
 }}
 else {
@@ -225,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>';