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

pass parameters with @_ instead of shift

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

13
website/agenda/planung/comment.cgi
View File

@@ -90,8 +90,7 @@ $config->{access}->{write} = 0;
showComments( $config, $request );
sub showComments {
my $config = shift;
my $request = shift;
my ($config, $request) = @_;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
@@ -161,9 +160,7 @@ sub showComments {
}
sub modify_comments {
my $config = shift;
my $request = shift;
my $results = shift;
my ($config, $request, $results) = @_;
my $language = $config->{date}->{language} || 'en';
for my $result (@$results) {
@@ -176,8 +173,7 @@ sub modify_comments {
}
sub setLock {
my $config = shift;
my $request = shift;
my ($config, $request) = @_;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
@@ -205,8 +201,7 @@ sub setLock {
}
sub setRead {
my $config = shift;
my $request = shift;
my ($config, $request) = @_;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};