X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/8ad63ee2484b0c1f344e6f8ff5fbd4ccbd963e1b..7c377a2688e5d2a33fffe0f0f8159b33c1b4c6da:/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;')),