Case insensitive option for get module id

This commit is contained in:
Calvo 2023-10-10 17:58:29 +02:00
parent 1856d31b9c
commit 71c4016d63
3 changed files with 12 additions and 4 deletions

View File

@ -247,6 +247,7 @@ INSERT INTO `tmodule_group` VALUES
(7,'Database'),
(8,'Enviromental'),
(9,'Users');
(10,'Security');
UNLOCK TABLES;

View File

@ -814,14 +814,21 @@ sub get_plugin_id ($$) {
##########################################################################
## Return module group ID given the module group name.
##########################################################################
sub get_module_group_id ($$) {
my ($dbh, $module_group_name) = @_;
sub get_module_group_id ($$;$) {
my ($dbh, $module_group_name, $case_insensitve) = @_;
$case_insensitve = 0 unless defined($case_insensitve);
if (!defined($module_group_name) || $module_group_name eq '') {
return 0;
}
my $rc = get_db_value ($dbh, "SELECT id_mg FROM tmodule_group WHERE name = ?", safe_input($module_group_name));
my $rc;
if($case_insensitve == 0) {
$rc = get_db_value ($dbh, "SELECT id_mg FROM tmodule_group WHERE name = ?", safe_input($module_group_name));
} else {
$rc = get_db_value ($dbh, "SELECT id_mg FROM tmodule_group WHERE LOWER(name) = ?", lc(safe_input($module_group_name)));
}
return defined ($rc) ? $rc : -1;
}

View File

@ -812,7 +812,7 @@ sub process_module_data ($$$$$$$$$$) {
# The group name has to be translated to a group ID
if (defined $module_conf->{'module_group'}) {
my $id_group_module = get_module_group_id ($dbh, $module_conf->{'module_group'});
my $id_group_module = get_module_group_id ($dbh, $module_conf->{'module_group'}, 1);
if ( $id_group_module >= 0) {
$module_conf->{'id_module_group'} = $id_group_module;
}