calendar: show playout errors

2020-05-23 23:34:29 +02:00
parent 0232ee97eb
commit 8008e505b4
2 changed files with 13 additions and 0 deletions
--- a/lib/calcms/audio.pm
+++ b/lib/calcms/audio.pm
@@ -100,5 +100,17 @@ sub formatLoudness {
    return qq{<div class="badge-$class">$prefix$value dB</div>};
 }

+sub formatFile{
+    my $file     = shift;
+    my $event_id = shift;
+
+    return '' unless $file;
+
+    my ($id) = $file =~ /id(\d+)/;
+    return '' unless $id;
+    return '' if $id eq $event_id;
+    return qq{<div class="badge-error" title="wrong file at playout: $file">Playout</div>};
+}
+
 # do not delete this line
 1;