X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e24a09c638a103745a9b7b7e557d3222de2d1275..9197e3b6b3d5421bd29f6a2efbf9caf3bbaccf26:/writer.plp

diff --git a/writer.plp b/writer.plp
index 84dc4a8..39a373b 100644
--- a/writer.plp
+++ b/writer.plp
@@ -99,6 +99,7 @@ my %wordcol = (
 	wptitle => {-label => 'Wikipedia'},
 	source  => {-label => 'Image'},
 	thumb   => {-label => 'Convert options', -multiple => 1},
+	story   => {-label => 'Story', type => 'textarea'},
 );
 
 if (my $search = $fields{q}) {
@@ -272,6 +273,16 @@ package Shiar_Sheet::FormRow {
 				'</select>',
 			);
 		}
+		elsif ($attr->{type} eq 'textarea') {
+			return (
+				(map {
+					sprintf('<label for="%s">%s</label>', $col, $_)
+				} $attr->{-label} // ()),
+				sprintf('<textarea id="%s" name="%1$s"%s>%s</textarea>',
+					$col, $html, EscapeHTML($val)
+				),
+			);
+		}
 		elsif ($attr->{type} eq 'checkbox') {
 			$html .= ' checked' if $val;
 			return sprintf(