X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/347e058a4a7de63c7f0b92091daa51387689771d..94259759473e60e9fb3823864031e827f09cc607:/word/edit.plp

diff --git a/word/edit.plp b/word/edit.plp
index 4a6daaa..2968642 100644
--- a/word/edit.plp
+++ b/word/edit.plp
@@ -261,20 +261,20 @@ for my $col (@wordcols) {
 	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 '<li><label for="%s">%s</label><div>', $col, $title;
 		printf '<span class=inline>';
 		print $row->input($col => $attr);
 		if (my $imgsrc = $attr->{-src}) {
 			my $hide = $col eq 'source';
-			printf '<span id="%spreview">', $col unless $hide;
+			printf '<figure 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;
+			printf '</figure>' unless $hide;
 		}
 		print $row->input($_ => delete $wordcol{$_}) for @span;
 		print '</span>';
-	say '</p></li>';
+	say '</div></li>';
 }
 
 if (not $row->{ref}) {