my $patch = shift @{$units}
or die "Cannot open unit data: metadata not found\n";
-print "<p>Unit properties as seen or measured in $scver{name}\n$patch.\n</p>\n\n";
+print "<p>Unit properties as seen or measured in $scver{name}\n$patch.\n";
+print "Also see the $_ table.\n" for join(', ',
+ ('<a href="/sc/2">StarCraft 2: HotS</a>') x ($scver{major} < 2),
+ ('<a href="/sc">original SC: Brood War</a>') x ($scver{major} > 1),
+);
+print "</p>\n\n";
sub addupgrade {
my ($ref, $increase) = @_;
$_ eq 'armored' ? 'unit-l' :
$_ eq 'organic' ? 'unit-o' :
$_ =~ /^massive/ ? 'unit-h' :
+ $_ eq 'shields' ? 'unit-shield' :
'',
} join '_', keys %{ $attack->{bonus} }),
join(', ', map {(