10 itkaclcommon::check_csrf_token();
12 my $entry = $itkaclcommon::cgi->param('entry');
13 my $entity = $itkaclcommon::cgi->param('entity');
14 my $entity_type = $itkaclcommon::cgi->param('entity_type');
15 my $comment = $itkaclcommon::cgi->param('comment');
17 $itkaclcommon::dbh->do('UPDATE aclentries SET comment=? WHERE object=? AND entity_type=? AND entity=?', undef,
18 $comment, $entry, $entity_type, $entity)
19 or die "Couldn't change comment";
21 print $itkaclcommon::cgi->header(-type=>'text/plain');