Upgrade 4.0.17 clean.
[usit-rt.git] / 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;