rt/etc/upgrade/3.3.0/acl.Pg


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

sub acl {
    my $dbh = shift;

    my @acls;

    my @tables = qw (
    objectcustomfieldvalues
    objectcustomfields_id_s
    objectcustomfields
    );

    foreach my $table (@tables) {
        push @acls,
          "GRANT SELECT, INSERT, UPDATE, DELETE ON $table to "
          . $RT::DatabaseUser . ";";

    }
    return (@acls);
}
1;