word/edit: story column to store text descriptions

[sheet.git] / writer.plp

diff --git a/writer.plp b/writer.plp
index 84dc4a8a2b66795ca574173d6e9d96fd6dd6b7d3..39a373bdc1f9dd7207d02370980753662522f012 100644 (file)
--- 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(