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

lib/calcms: remove comments and shorten expressions

Browse Source
This commit is contained in:
Milan
2024-04-24 23:20:20 +02:00
parent 6436822ec5
commit df0982c0a6
39 changed files with 252 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/calcms/playout.pm
View File

@@ -6,11 +6,11 @@ no warnings 'redefine';
use Data::Dumper;
use Date::Calc();
use db();
use time();
use series_events();
#use base 'Exporter';
our @EXPORT_OK = qw(get_columns get sync);
sub get_columns ($) {
@@ -19,8 +19,6 @@ sub get_columns ($) {
return db::get_columns_hash( $dbh, 'calcms_playout' );
}
# get playout entries
sub get_scheduled($$) {
my ($config, $condition) = @_;
@@ -127,8 +125,9 @@ sub get_scheduled($$) {
# get playout entries
sub get($$) {
my ($config, $condition) = @_;
return undef unless defined $condition->{studio_id};
for ('studio_id') {
return undef unless defined $condition->{$_}
};
my $date_range_include = 0;
$date_range_include = 1
@@ -227,11 +226,9 @@ sub get($$) {
sub sync ($$) {
my ($config, $options) = @_;
return undef unless defined $options->{project_id};
return undef unless defined $options->{studio_id};
return undef unless defined $options->{from};
return undef unless defined $options->{till};
return undef unless defined $options->{events};
for ('project_id', 'studio_id', 'from', 'till', 'events') {
return undef unless defined $options->{$_}
};
my $project_id = $options->{project_id};
my $studio_id = $options->{studio_id};