2 # @tag: auth_schema_normalization_1
3 # @description: Auth-Datenbankschema Normalisierungen Teil 1
9 my ($dbh, $query) = @_;
11 if ($dbh->do($query)) {
19 my $dbh = $::auth->dbconnect();
21 my @queries = ( qq|ALTER TABLE auth.group_rights ADD PRIMARY KEY (group_id, "right");|,
22 qq|ALTER TABLE auth.user_config ADD PRIMARY KEY (user_id, cfg_key);|,
23 qq|ALTER TABLE auth.user_group ADD PRIMARY KEY (user_id, group_id);|);
25 do_one($dbh, $_) for @queries;