rt/etc/upgrade/3.1.0/acl.Pg

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