1 # @tag: auth_schema_normalization_1
2 # @description: Auth-Datenbankschema Normalisierungen Teil 1
4 package SL::DBUpgrade2::Auth::auth_schema_normalization_1;
9 use parent qw(SL::DBUpgrade2::Base);
14 my @queries = ( qq|ALTER TABLE auth.group_rights ADD PRIMARY KEY (group_id, "right");|,
15 qq|ALTER TABLE auth.user_config ADD PRIMARY KEY (user_id, cfg_key);|,
16 qq|ALTER TABLE auth.user_group ADD PRIMARY KEY (user_id, group_id);|);
18 $self->db_query($_, may_fail => 1) for @queries;