word/edit: image container only needed for source

[sheet.git] / word / edit.plp

diff --git a/word/edit.plp b/word/edit.plp
index 40bf8afbb97547b3b3639261d4db4d3ded4fd2af..f41b0ab787a387c1f5fd33d904edc4bc08fa5c2a 100644 (file)
--- a/word/edit.plp
+++ b/word/edit.plp
@@ -260,9 +260,12 @@ for my $col (@wordcols) {
                printf '<span class=inline>';
                print $row->input($col => $attr);
                if (my $imgsrc = $attr->{-src}) {
-                       printf('<span id="%spreview"><img src="/%s" alt="%s"%s /></span>',
-                               $col, $_, $row->{form}, $col eq 'source' && ' hidden'
+                       my $hide = $col eq 'source';
+                       printf '<span id="%spreview">', $col unless $hide;
+                       printf('<img src="/%s" alt="%s"%s />',
+                               $_, $row->{form}, $hide && qq( id="${col}preview" hidden)
                        ) for grep { -e } $imgsrc->($row);
+                       printf '</span>' unless $hide;
                }
                print $row->input($_ => delete $wordcol{$_}) for @span;
                print '</span>';