From c27bbdc27e6a9d3262d38d69ae15b89ed4d64ba5 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Tue, 7 Jul 2020 22:55:10 +0200
Subject: [PATCH] audio.pm: fix loudness error

---
 lib/calcms/audio.pm                 | 10 +++++-----
 website/agenda/planung/calendar.cgi |  4 +++-
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/lib/calcms/audio.pm b/lib/calcms/audio.pm
index 5a84c88..22dfb84 100644
--- a/lib/calcms/audio.pm
+++ b/lib/calcms/audio.pm
@@ -33,17 +33,17 @@ sub formatDuration($$$;$) {
         $class = "warn";
         $title = sprintf(
             qq{file is too long! It should be %d minutes, but is %d},
-            ($eventDuration+0.5) / 60,
-            ($audioDuration+0.5) / 60
+            ($eventDuration+30) / 60,
+            ($audioDuration+30) / 60
         );
     }
 
-    if ( $delta < 99.98 ) {
+    if ( $delta < 99.97 ) {
         $class = "error";
         $title = sprintf(
             qq{file is too short! should be %d minutes, but is %d},
-            ($eventDuration+0.5) / 60,
-            ($audioDuration+0.5) / 60
+            ($eventDuration+30) / 60,
+            ($audioDuration+30) / 60
         );
 
     }
diff --git a/website/agenda/planung/calendar.cgi b/website/agenda/planung/calendar.cgi
index 81c1203..0cf6ac3 100755
--- a/website/agenda/planung/calendar.cgi
+++ b/website/agenda/planung/calendar.cgi
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 no warnings 'redefine';
 
+use utf8;
+
 use Data::Dumper;
 use URI::Escape();
 use DateTime();
@@ -1168,7 +1170,7 @@ sub printTableBody {
                 $event->{content} .= audio::formatDuration(
                     $event->{duration},
                     $event->{event_duration},
-                    sprintf( "%d min", ( $event->{duration} + 0.5 ) / 60 ),
+                    sprintf( "%d min", ( $event->{duration} + 30 ) / 60 ),
                     sprintf( "%d s", $event->{duration} )
                   )
                   . ' '