X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/67ec2894e74854c57a71690314d268a9c1c179f0..38fa2438908dcc08d887972a84225e80fd8bc97c:/sc.plp

diff --git a/sc.plp b/sc.plp
index 76974c9..25c9863 100644
--- a/sc.plp
+++ b/sc.plp
@@ -262,6 +262,7 @@ sub showrange {
 	sub showunitcols {
 		my ($row) = @_;
 		local $_ = $row;
+		$_->{hp} += $_->{shield} if $_->{shield};
 		my $suitchar = '';
 		if ($_->{suit}) {
 			$suitchar = [qw/? s m l/]->[$_->{suit}];
@@ -325,7 +326,6 @@ sub showrange {
 		printf '<tbody id="%s"><tr class="race"><th colspan="18"><h2>%s</h2>'."\n", $race, ucfirst $race
 			if $grouped and $race ne $_->{race};
 		$_->{cat} = $_->{race} if not $grouped;
-		$_->{hp} += $_->{shield};
 		print(
 			'<tr>',
 			sprintf('<t%s class="cat">%s', $cat ne $_->{cat} ? ('h', $cat = $_->{cat}) : ('d', '&nbsp;')),