> Not yet but I have an upcoming change that will introduce this. It
> will be
> part of a larger UI restructuring, but maybe I can pull this out and
> make it
> available sooner.
When this goes in, I'll see if I can cook up a post-commit-hook that
should be able to automatically mark reviews as submitted upon commit.
sub SetSubmitted($) {
my $ReviewId = shift;
# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=".$DBNAME.";host=".$DBHOST, $DBUSER, $DBPASS, { RaiseError => 1} );
# Set status to Submitted
my $sth = $dbh->prepare( "UPDATE reviews_reviewrequest SET status='S' WHERE id=?" ) or do
{
print STDERR "Couldn't prepare statement: " . $dbh->errstr, "\n";
return 0;
};
$sth->execute( $ReviewId ) or do
{
print STDERR "Couldn't execute statement: " . $sth->errstr, "\n";
return 0;
};
return 1;
}