print "<p>Unit properties as seen or measured in $scver{name}\n$patch.\n</p>\n\n";
for my $unit (@{$units}) {
print "<p>Unit properties as seen or measured in $scver{name}\n$patch.\n</p>\n\n";
for my $unit (@{$units}) {
while (my ($col, $increase) = each %{$upgrade}) {
defined $unit->{$col} or next;
while (my ($col, $increase) = each %{$upgrade}) {
defined $unit->{$col} or next;