git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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},
wptitle => {-label => 'Wikipedia'},
source => {-label => 'Image'},
thumb => {-label => 'Convert options', -multiple => 1},
+ story => {-label => 'Story', type => 'textarea'},
);
if (my $search = $fields{q}) {
);
if (my $search = $fields{q}) {
@@
-272,6
+273,16
@@
package Shiar_Sheet::FormRow {
'</select>',
);
}
'</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(
elsif ($attr->{type} eq 'checkbox') {
$html .= ' checked' if $val;
return sprintf(