sql/Pg-upgrade2-auth/auth_schema_normalization_1.pl

   1 # @tag: auth_schema_normalization_1
   2 # @description: Auth-Datenbankschema Normalisierungen Teil 1
   3 # @depends:
   4 package SL::DBUpgrade2::Auth::auth_schema_normalization_1;
   5
   6 use strict;
   7 use utf8;
   8
   9 use parent qw(SL::DBUpgrade2::Base);
  10
  11 sub run {
  12   my ($self) = @_;
  13
  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);|);
  17
  18   $self->db_query($_, may_fail => 1) for @queries;
  19
  20   return 1;
  21 }
  22
  23 1;