grant all needed rights to fs_selfservice, #13199

[freeside.git] / FS / FS / TicketSystem.pm

diff --git a/FS/FS/TicketSystem.pm b/FS/FS/TicketSystem.pm
index a6daf7e..63ab865 100644 (file)
--- a/FS/FS/TicketSystem.pm
+++ b/FS/FS/TicketSystem.pm
@@ -51,7 +51,8 @@ sub _upgrade_data {
     die $msg if !$val;
   }
   my $Principal = $User->PrincipalObj; # can this ever fail?
-  my @rights = ( qw(ShowTicket SeeQueue ModifyTicket ReplyToTicket) );
+  my @rights = ( qw(ShowTicket SeeQueue ModifyTicket ReplyToTicket 
+                    CreateTicket SeeCustomField) );
   foreach (@rights) {
     next if $Principal->HasRight( 'Right' => $_, Object => $RT::System );
     my ($val, $msg) = $Principal->GrantRight(