Changeset 212 for veekun/trunk/lib/Vee/Dex.pm

Timestamp:

06/04/07 01:04:20 (3 years ago)

Author:

eevee

Message:

Berrydex is go. (part of #10)

Files:

• veekun/trunk/lib/Vee/Dex.pm (modified) (1 diff)

veekun/trunk/lib/Vee/Dex.pm

@@ -497 +497 @@
 =cut
 
-sub height_imperial { my $in = Vee::Utils::round($_[0] / 0.254); int($in / 12) . "'" . ($in % 12) . '"' }
+sub height_imperial { my $in = Vee::Utils::round($_[0] / 0.254, 1); ($in >= 12 && int($in / 12) . "'") . ($in - int($in / 12)) . '"' }
 sub weight_imperial { Vee::Utils::round($_[0] / 4.536, 1) . ' lb' }
 sub height_metric { $_[0] / 10 . ' m' }