pass parameters with @_ instead of shift

This commit is contained in:
Milan
2024-01-01 20:15:42 +01:00
parent b93c4ee866
commit 115f4dca60
23 changed files with 55 additions and 112 deletions

View File

@@ -85,8 +85,7 @@ return;
#insert or update a schedule and update all schedule dates
sub save_schedule {
my $config = shift;
my $request = shift;
my ($config, $request) = @_;
my $permissions = $request->{permissions};
unless ( $permissions->{update_studio_timeslot_schedule} == 1 ) {
@@ -133,8 +132,7 @@ sub save_schedule {
}
sub delete_schedule {
my $config = shift;
my $request = shift;
my ($config, $request) = @_;
my $permissions = $request->{permissions};
unless ( $permissions->{update_studio_timeslot_schedule} == 1 ) {
@@ -162,8 +160,7 @@ sub delete_schedule {
}
sub showTimeslotSchedule {
my $config = shift;
my $request = shift;
my ($config, $request) = @_;
$config->{access}->{write} = 0;
@@ -246,8 +243,7 @@ sub showTimeslotSchedule {
}
sub showDates {
my $config = shift;
my $request = shift;
my ($config, $request) = @_;
$config->{access}->{write} = 0;