kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

audio.pm: fix loudness error

Browse Source
This commit is contained in:
Milan
2020-07-07 22:55:10 +02:00
parent 41bd4be39a
commit c27bbdc27e
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/calcms/audio.pm
View File

@@ -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
);
}

4
website/agenda/planung/calendar.cgi
View File

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