From: Nigel McNie <nigel@catalyst.net.nz>
Date: Mon, 16 Jun 2008 09:19:21 +0000 (+1200)
Subject: Round entry times to 2dp, to prevent stupid entries in WRMS.
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=0bd866f966195d243b7bf567ad84bd6ff5ee0b8a;p=tks.git

Round entry times to 2dp, to prevent stupid entries in WRMS.
---

diff --git a/tks.pl b/tks.pl
index c1a7eb3..bd09bc4 100755
--- a/tks.pl
+++ b/tks.pl
@@ -81,6 +81,8 @@ foreach my $date ( sort keys %{$tkdata} ) {
 
         next unless $args->{'-c'};
 
+        $entry->{time} = int($entry->{time} * 100 + .5) / 100;
+
         # add the time to wrms
         $wrms->add_time(
             $entry->{wr},