Upgrade 4.0.17 clean.
[usit-rt.git] / 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->Config->Get('DatabaseUser') . ";";
15
16     }
17     return (@acls);
18 }
19 1;