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

lib: replace shift my @_ (pt2)

Browse Source
This commit is contained in:
Milan
2023-05-19 18:00:29 +02:00
parent 3a1a118eeb
commit fe857c6f65
32 changed files with 203 additions and 332 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/calcms/user_stats.pm
View File

@@ -15,8 +15,7 @@ sub get_columns($) {
}
sub get ($$) {
my $config = shift;
my $condition = shift;
my ($config, $condition) = @_;
my $dbh = db::connect($config);
@@ -64,8 +63,7 @@ sub get ($$) {
}
sub get_stats($$) {
my $config = shift;
my $condition = shift;
my ($config, $condition) = @_;
my $dbh = db::connect($config);
@@ -184,9 +182,7 @@ sub update ($$) {
}
sub increase ($$$) {
my $config = shift;
my $usecase = shift;
my $options = shift;
my ($config, $usecase, $options) = @_;
return undef unless defined $usecase;
return undef unless defined $options->{project_id};
@@ -219,7 +215,7 @@ sub increase ($$$) {
}
sub get_active_users{
my $config = shift;
my ($config) = @_;
my $dbh = db::connect($config);