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

lib: replace shift by @_

Browse Source
This commit is contained in:
Milan
2023-05-18 11:17:14 +02:00
parent 611fad43d4
commit 3a1a118eeb
26 changed files with 184 additions and 390 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/calcms/audio_recordings.pm
View File

@@ -17,8 +17,7 @@ our @EXPORT_OK = qw(get_columns get);
# audioDuration, eventDuration, rmsLeft, rmsRight
sub get_columns($) {
my $config = shift;
my ($config) = @_;
my $dbh = db::connect($config);
return db::get_columns_hash( $dbh, 'calcms_audio_recordings' );
}
@@ -97,9 +96,7 @@ sub get($$) {
# update playout entry if differs to old values
sub update($$$) {
my $config = shift;
my $dbh = shift;
my $entry = shift;
my ($config, $dbh, $entry) = @_;
my $day_start = $config->{date}->{day_starting_hour};
@@ -134,9 +131,7 @@ sub update($$$) {
# insert playout entry
sub insert ($$$) {
my $config = shift;
my $dbh = shift;
my $entry = shift;
my ($config, $dbh, $entry) = @_;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
@@ -165,9 +160,7 @@ sub insert ($$$) {
# delete playout entry
sub delete ($$$) {
my $config = shift;
my $dbh = shift;
my $entry = shift;
my ($config, $dbh, $entry) = @_;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
@@ -187,9 +180,7 @@ sub delete ($$$) {
}
sub update_active($$$) {
my $config = shift;
my $dbh = shift;
my $entry = shift;
my ($config, $dbh, $entry) = @_;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};