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->Config->Get('DatabaseUser') . ";";

    }
    return (@acls);
}
1;
