- push @acls,
- "GRANT SELECT, INSERT, UPDATE, DELETE ON $table to "
- . $RT::DatabaseUser . ";";
-
+ if ( $table =~ /^[a-z]/ && $table ne 'sessions' ) {
+ # Sequences; not all end with _seq because
+ # objectcustomfieldvalues_id_s is too long
+ push @acls, "GRANT USAGE, SELECT, UPDATE ON $table TO \"$db_user\";"
+ }
+ else {
+ push @acls, "GRANT SELECT, INSERT, UPDATE, DELETE ON $table TO \"$db_user\";"
+ }