rt/etc/upgrade/3.3.0/acl.Pg

   1 sub acl {
   2     my $dbh = shift;
   3
   4     my @acls;
   5
   6     my @tables = qw (
   7     objectcustomfieldvalues
   8     objectcustomfields_id_s
   9     objectcustomfields
  10     );
  11
  12     foreach my $table (@tables) {
  13         push @acls,
  14           "GRANT SELECT, INSERT, UPDATE, DELETE ON $table to "
  15           . RT->Config->Get('DatabaseUser') . ";";
  16
  17     }
  18     return (@acls);
  19 }
  20 1;