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} ) ) . ' '