Accidentally scaled to full width since commit
v1.12-0-g70012d8c59
(2020-05-06) [dieren: image figures captioned by names] not accounting
for these preexisting icons.
margin: 0;
position: relative;
}
margin: 0;
position: relative;
}
vertical-align: bottom;
width: 100%;
}
vertical-align: bottom;
width: 100%;
}
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;
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 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('<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>';
}
print $row->input($_ => delete $wordcol{$_}) for @span;
print '</span>';