assign.php

<?php
// assign.php -- HotCRP per-paper assignment/conflict management page
// Copyright (c) 2006-2020 Eddie Kohler; see LICENSE.

require_once("src/initweb.php");
require_once("src/papertable.php");
if (!$Me->email) {
    $Me->escape();
}
$Me->add_overrides(Contact::OVERRIDE_CONFLICT);
// ensure site contact exists before locking tables
$Conf->site_contact();

// header
function assign_show_header() {
    global $paperTable, $Qreq;
    PaperTable::do_header($paperTable, "assign", "assign", $Qreq);
}


// grab paper row
/** @return PaperInfo */
function assign_load() {
    global $Conf, $Me, $Qreq;
    $prow = PaperTable::fetch_paper_request($Qreq, $Me);
    if ($prow === null) {
        assign_show_header();
        $whynot = $Qreq->checked_annex("paper_whynot", "PermissionProblem");
        Conf::msg_error($whynot->set("listViewable", true)->unparse_html());
        $Conf->footer();
        exit;
    } else if (($whynot = $Me->perm_request_review($prow, null, false))) {
        Conf::msg_error($whynot->unparse_html());
        $Conf->redirect($prow->hoturl());
        exit;
    } else {
        return $prow;
    }
}
$prow = assign_load();


// change PC assignments
/** @param Qrequest $qreq */
function pcAssignments($qreq) {
    global $Conf, $Me, $prow;

    $reviewer = $qreq->reviewer;
    if (($rname = $Conf->sanitize_round_name($qreq->rev_round)) === "") {
        $rname = "unnamed";
    }
    $round = CsvGenerator::quote(":" . (string) $rname);

    $confset = $Conf->conflict_types();
    $acceptable_review_types = [];
    foreach ([0, REVIEW_PC, REVIEW_SECONDARY, REVIEW_PRIMARY, REVIEW_META] as $t) {
        $acceptable_review_types[] = (string) $t;
    }

    $t = ["paper,action,email,round,conflict\n"];
    foreach ($Conf->pc_members() as $cid => $p) {
        if ($reviewer
            && strcasecmp($p->email, $reviewer) != 0
            && (string) $p->contactId !== $reviewer) {
            continue;
        }

        if (isset($qreq["assrev{$prow->paperId}u{$cid}"])) {
            $assignment = $qreq["assrev{$prow->paperId}u{$cid}"];
        } else if (isset($qreq["pcs{$cid}"])) {
            $assignment = $qreq["pcs{$cid}"];
        } else {
            continue;
        }

        $revtype = $conftype = "";
        if (in_array($assignment, $acceptable_review_types, true)) {
            $revtype = ReviewInfo::unparse_assigner_action((int) $assignment);
            $conftype = "off";
        } else if ($assignment === "-1") {
            $revtype = "clearreview";
            $conftype = "on";
        } else if (($type = ReviewInfo::parse_type($assignment))) {
            $revtype = ReviewInfo::unparse_assigner_action($type);
            $conftype = "off";
        } else if (($ct = $confset->parse_assignment($assignment, 0)) !== false) {
            $revtype = "clearreview";
            $conftype = $assignment;
        } else {
            continue;
        }

        $myround = $round;
        if (isset($qreq["rev_round{$prow->paperId}u{$cid}"])) {
            $x = $Conf->sanitize_round_name($qreq["rev_round{$prow->paperId}u{$cid}"]);
            if ($x !== false) {
                $myround = $x === "" ? "unnamed" : CsvGenerator::quote($x);
            }
        }

        $user = CsvGenerator::quote($p->email);
        $t[] = "{$prow->paperId},conflict,$user,,$conftype\n";
        $t[] = "{$prow->paperId},{$revtype},$user,$myround\n";
    }

    $aset = new AssignmentSet($Me, true);
    $aset->enable_papers($prow);
    $aset->parse(join("", $t));
    if ($aset->execute()) {
        if ($qreq->ajax) {
            json_exit(["ok" => true]);
        } else {
            $Conf->confirmMsg("Assignments saved." . $aset->messages_div_html());
            $Conf->redirect_self($qreq);
            // NB normally does not return
            assign_load();
        }
    } else {
        if ($qreq->ajax) {
            json_exit(["ok" => false, "error" => join("<br />", $aset->messages_html())]);
        } else {
            $Conf->errorMsg(join("<br />", $aset->messages_html()));
        }
    }
}

if (isset($Qreq->update) && $Qreq->valid_post()) {
    if ($Me->allow_administer($prow)) {
        pcAssignments($Qreq);
    } else if ($Qreq->ajax) {
        json_exit(["ok" => false, "error" => "Only administrators can assign papers."]);
    }
}


// add review requests
if ((isset($Qreq->requestreview) || isset($Qreq->approvereview))
    && $Qreq->valid_post()) {
    $result = RequestReview_API::requestreview($Me, $Qreq, $prow);
    $result = JsonResult::make($result);
    if ($result->content["ok"]) {
        if ($result->content["action"] === "token") {
            $Conf->confirmMsg("Created a new anonymous review. The review token is " . $result->content["review_token"] . ".");
        } else if ($result->content["action"] === "propose") {
            $Conf->warnMsg($result->content["message"]);
        } else {
            $Conf->confirmMsg($result->content["message"]);
        }
        unset($Qreq->email, $Qreq->firstName, $Qreq->lastName, $Qreq->affiliation, $Qreq->round, $Qreq->reason, $Qreq->override);
        $Conf->redirect_self($Qreq);
    } else {
        if (isset($result->content["errf"])
            && isset($result->content["errf"]["override"])) {
            $result->content["error"] .= "<p>To request a review anyway, either retract the refusal or submit again with “Override” checked.</p>";
        }
        $result->export_errors();
        assign_load();
    }
}

// deny review request
if ((isset($Qreq->deny) || isset($Qreq->denyreview))
    && $Qreq->valid_post()) {
    $result = RequestReview_API::denyreview($Me, $Qreq, $prow);
    $result = JsonResult::make($result);
    if ($result->content["ok"]) {
        $Conf->confirmMsg("Proposed reviewer denied.");
        unset($Qreq->email, $Qreq->firstName, $Qreq->lastName, $Qreq->affiliation, $Qreq->round, $Qreq->reason, $Qreq->override, $Qreq->deny, $Qreq->denyreview);
        $Conf->redirect_self($Qreq);
    } else {
        $result->export_errors();
        assign_load();
    }
}

// retract review request
if (isset($Qreq->retractreview)
    && $Qreq->valid_post()) {
    $result = RequestReview_API::retractreview($Me, $Qreq, $prow);
    $result = JsonResult::make($result);
    if ($result->content["ok"]) {
        if ($result->content["notified"]) {
            $Conf->confirmMsg("Review retracted. The reviewer was notified that they do not need to complete their review.");
        } else {
            $Conf->confirmMsg("Review request retracted.");
        }
        unset($Qreq->email, $Qreq->firstName, $Qreq->lastName, $Qreq->affiliation, $Qreq->round, $Qreq->reason, $Qreq->override, $Qreq->retractreview);
        $Conf->redirect_self($Qreq);
    } else {
        $result->export_errors();
        assign_load();
    }
}

// remove declined review
if (isset($Qreq->undeclinereview)
    && $Qreq->valid_post()) {
    $result = RequestReview_API::undeclinereview($Me, $Qreq, $prow);
    $result = JsonResult::make($result);
    if ($result->content["ok"]) {
        $email = $Qreq->email ? : "You";
        $Conf->confirmMsg("Review refusal retracted. " . htmlspecialchars($email) . " may now be asked again to review this submission.");
        unset($Qreq->email, $Qreq->firstName, $Qreq->lastName, $Qreq->affiliation, $Qreq->round, $Qreq->reason, $Qreq->override, $Qreq->unrefusereview);
        $Conf->redirect_self($Qreq);
    } else {
        $result->export_errors();
        assign_load();
    }
}



// paper table
$paperTable = new PaperTable($prow, $Qreq, "assign");
$paperTable->initialize(false, false);
$paperTable->resolveReview(false);
$allow_view_authors = $Me->allow_view_authors($prow);

assign_show_header();


// begin form and table
$paperTable->paptabBegin();


// reviewer information
$t = $paperTable->review_table(null);
if ($t !== "") {
    echo '<div class="pcard revcard">',
        '<div class="revcard-head"><h2>Reviews</h2></div>',
        '<div class="revpcard-body">', $t, '</div></div>';
}


// requested reviews
$requests = [];
foreach ($paperTable->all_reviews() as $rrow) {
    if ($rrow->reviewType < REVIEW_SECONDARY
        && $rrow->reviewStatus < ReviewInfo::RS_DRAFTED
        && $Me->can_view_review_identity($prow, $rrow)
        && ($Me->can_administer($prow) || $rrow->requestedBy == $Me->contactId)) {
        $requests[] = [0, max((int) $rrow->timeRequestNotified, (int) $rrow->timeRequested), count($requests), $rrow];
    }
}
foreach ($prow->review_requests() as $rrow) {
    if ($Me->can_view_review_identity($prow, $rrow)) {
        $requests[] = [1, (int) $rrow->timeRequested, count($requests), $rrow];
    }
}
foreach ($prow->review_refusals() as $rrow) {
    if ($Me->can_view_review_identity($prow, $rrow)) {
        $requests[] = [2, (int) $rrow->timeRefused, count($requests), $rrow];
    }
}
usort($requests, function ($a, $b) {
    if ($a[0] !== $b[0]) {
        return $a[0] - $b[0];
    } else if ($a[1] !== $b[1]) {
        return $a[1] < $b[1] ? -1 : 1;
    } else {
        return $a[2] - $b[2];
    }
});

if (!empty($requests)) {
    echo '<div class="pcard revcard">',
        '<div class="revcard-head"><h2>Review requests</h2></div>',
        '<div class="revcard-body"><div class="ctable-wide">';
}
foreach ($requests as $req) {
    echo '<div class="ctelt"><div class="ctelti has-fold';
    $rrow = $req[3];
    if ($req[0] === 1
        && ($Me->can_administer($prow) || $rrow->requestedBy == $Me->contactId)) {
        echo ' foldo';
    } else {
        echo ' foldc';
    }
    echo '">';

    $rrowid = null;
    if (isset($rrow->contactId) && $rrow->contactId > 0) {
        $rrowid = $Conf->cached_user_by_id($rrow->contactId);
    } else if ($req[0] === 1) {
        $rrowid = $Conf->cached_user_by_email($rrow->email);
    }
    if ($rrowid === null) {
        if ($req[0] === 1) {
            $rrowid = new Contact(get_object_vars($rrow), $Conf);
        } else {
            $rrowid = $rrow;
        }
    }

    $actas = "";
    if (isset($rrow->contactId) && $rrow->contactId > 0) {
        $name = $Me->reviewer_html_for($rrowid);
        if ($rrow->contactId != $Me->contactId
            && $Me->privChair
            && $Me->allow_administer($prow)) {
            $actas = ' ' . Ht::link(Ht::img("viewas.png", "[Act as]", ["title" => "Become user"]),
                $prow->reviewurl(["actas" => $rrow->email]));
        }
    } else {
        $name = Text::nameo_h($rrowid, NAME_P);
    }
    $fullname = $name;
    if ((string) $rrowid->affiliation !== "") {
        $fullname .= ' <span class="auaff">(' . htmlspecialchars($rrowid->affiliation) . ')</span>';
    }
    if ((string) $rrowid->firstName !== "" || (string) $rrowid->lastName !== "") {
        $fullname .= ' &lt;' . Ht::link(htmlspecialchars($rrowid->email), "mailto:" . $rrowid->email, ["class" => "mailto"]) . '&gt;';
    }

    $namex = '<span class="fn">' . $name . '</span>'
        . '<span class="fx">' . $fullname . '</span>'
        . $actas;
    if ($req[0] <= 1) {
        $namex .= ' ' . review_type_icon($rrowid->isPC ? REVIEW_PC : REVIEW_EXTERNAL, true);
    }
    if ($rrow->reviewRound > 0 && $Me->can_view_review_round($prow, $rrow)) {
        $namex .= '&nbsp;<span class="revround" title="Review round">'
            . htmlspecialchars($Conf->round_name($rrow->reviewRound))
            . "</span>";
    }

    echo '<div class="ui js-foldup"><a href="" class="ui js-foldup">', expander(null, 0), '</a>';
    $reason = null;

    if ($req[0] === 0) {
        $rname = "Review " . ($rrow->reviewStatus > 0 ? " (accepted)" : " (not started)");
        if ($Me->can_view_review($prow, $rrow)) {
            $rname = Ht::link($rname, $prow->reviewurl(["r" => $rrow->reviewId]));
        }
        echo $rname, ': ', $namex,
            '</div><div class="f-h"><ul class="x mb-0">';
        echo '<li>requested';
        if ($rrow->timeRequested) {
            echo ' ', $Conf->unparse_time_relative((int) $rrow->timeRequested);
        }
        if ($rrow->requestedBy == $Me->contactId) {
            echo " by you";
        } else if ($Me->can_view_review_requester($prow, $rrow)) {
            echo " by ", $Me->reviewer_html_for($rrow->requestedBy);
        }
        echo '</li>';
        if ($rrow->reviewStatus === ReviewInfo::RS_ACCEPTED) {
            echo '<li>accepted';
            if ($req[1]) {
                echo ' ', $Conf->unparse_time_relative($req[1]);
            }
            echo '</li>';
        }
        echo '</ul></div>';
    } else if ($req[0] === 1) {
        echo "Review proposal: ", $namex, '</div><div class="f-h"><ul class="x mb-0">';
        if ($rrow->timeRequested || $Me->can_view_review_requester($prow, $rrow)) {
            echo '<li>proposed';
            if ($rrow->timeRequested) {
                echo ' ', $Conf->unparse_time_relative((int) $rrow->timeRequested);
            }
            if ($rrow->requestedBy == $Me->contactId) {
                echo " by you";
            } else if ($Me->can_view_review_requester($prow, $rrow)) {
                echo " by ", $Me->reviewer_html_for($rrow->requestedBy);
            }
            echo '</li>';
        }
        if ($allow_view_authors
            && ($pt = $prow->potential_conflict_html($rrowid, true))) {
            foreach ($pt[1] as $i => $pcx) {
                echo '<li class="fx">possible conflict: ', $pcx, '</li>';
            }
            $reason = "This reviewer appears to have a conflict with the submission authors.";
        }
        echo '</ul></div>';
        $reason = $rrow->reason;
    } else {
        echo "Declined request: ", $namex,
            '</div><div class="f-h fx"><ul class="x mb-0">';
        if ($rrow->timeRequested || $Me->can_view_review_requester($prow, $rrow)) {
            echo '<li>requested';
            if ($rrow->timeRequested) {
                echo ' ', $Conf->unparse_time_relative((int) $rrow->timeRequested);
            }
            if ($rrow->requestedBy == $Me->contactId) {
                echo " by you";
            } else if ($Me->can_view_review_requester($prow, $rrow)) {
                echo " by ", $Me->reviewer_html_for($rrow->requestedBy);
            }
            echo '</li>';
        }
        echo '<li>declined';
        if ($rrow->timeRefused) {
            echo ' ', $Conf->unparse_time_relative((int) $rrow->timeRefused);
        }
        if ($rrow->refusedBy && (!$rrow->contactId || $rrow->contactId != $rrow->refusedBy)) {
            if ($rrow->refusedBy == $Me->contactId) {
                echo " by you";
            } else {
                echo " by ", $Me->reviewer_html_for($rrow->refusedBy);
            }
        }
        echo '</li>';
        if ((string) $rrow->reason !== ""
            && $rrow->reason !== "request denied by chair") {
            echo '<li class="mb-0-last-child">', Ht::format0("reason: " . $rrow->reason), '</li>';
        }
        echo '</ul></div>';
    }

    if ($Me->can_administer($prow)
        || ($req[0] !== 2 && $Me->contactId > 0 && $rrow->requestedBy == $Me->contactId)) {
        echo Ht::form($Conf->hoturl_post("assign", ["p" => $prow->paperId, "action" => "managerequest", "email" => $rrow->email, "round" => $rrow->reviewRound]), ["class" => "fx"]);
        if (!isset($rrow->contactId) || !$rrow->contactId) {
            foreach (["firstName", "lastName", "affiliation"] as $k) {
                echo Ht::hidden($k, $rrow->$k);
            }
        }
        $buttons = [];
        if ($reason) {
            echo Ht::hidden("reason", $reason);
        }
        if ($req[0] === 1 && $Me->can_administer($prow)) {
            echo Ht::hidden("override", 1);
            $buttons[] = Ht::submit("approvereview", "Approve proposal", ["class" => "btn-sm btn-success"]);
            $buttons[] = Ht::submit("denyreview", "Deny proposal", ["class" => "btn-sm ui js-deny-review-request"]); // XXX reason
        }
        if ($req[0] === 0) {
            $buttons[] = Ht::submit("retractreview", "Retract review", ["class" => "btn-sm"]);
        } else if ($req[0] === 1 && $Me->contactId > 0 && $rrow->requestedBy == $Me->contactId) {
            $buttons[] = Ht::submit("retractreview", "Retract proposal", ["class" => "btn-sm"]);
        }
        if ($req[0] === 2) {
            $buttons[] = Ht::submit("undeclinereview", "Remove declined request", ["class" => "btn-sm"]);
            $buttons[] = '<span class="hint">(allowing review to be reassigned)</span>';
        }
        if ($buttons) {
            echo '<div class="btnp">', join("", $buttons), '</div>';
        }
        echo '</form>';
    }

    echo '</div></div>';
}
if ($requests) {
    echo '</div></div></div>';
}



// PC assignments
if ($Me->can_administer($prow)) {
    $acs = AssignmentCountSet::load($Me, AssignmentCountSet::HAS_REVIEW);

    // PC conflicts row
    echo '<div class="pcard revcard">',
        '<div class="revcard-head"><h2>PC assignments</h2></div>',
        '<div class="revcard-body">',
        Ht::form($Conf->hoturl_post("assign", "p=$prow->paperId"), array("id" => "ass", "class" => "need-unload-protection"));
    Ht::stash_script('hotcrp.highlight_form_children("#ass")');

    if ($Conf->has_topics()) {
        echo "<p>Review preferences display as “P#”, topic scores as “T#”.</p>";
    } else {
        echo "<p>Review preferences display as “P#”.</p>";
    }

    echo '<div class="pc-ctable has-assignment-set need-assignment-change"';
    $rev_rounds = array_keys($Conf->round_selector_options(false));
    echo ' data-review-rounds="', htmlspecialchars(json_encode($rev_rounds)), '"',
        ' data-default-review-round="', htmlspecialchars($Conf->assignment_round_option(false)), '">';
    $tagger = new Tagger($Me);

    foreach ($Conf->full_pc_members() as $pc) {
        if (!$pc->can_accept_review_assignment_ignore_conflict($prow)) {
            continue;
        }

        // first, name and assignment
        $ct = $prow->conflict_type($pc);
        $rrow = $prow->review_of_user($pc);
        if (Conflict::is_author($ct)) {
            $revtype = -2;
        } else {
            $revtype = $rrow ? $rrow->reviewType : 0;
        }
        $crevtype = $revtype;
        if ($crevtype == 0 && Conflict::is_conflicted($ct)) {
            $crevtype = -1;
        }
        $pcconfmatch = null;
        if ($allow_view_authors && $revtype != -2) {
            $pcconfmatch = $prow->potential_conflict_html($pc, !Conflict::is_conflicted($ct));
        }

        echo '<div class="ctelt">',
            '<div class="ctelti has-assignment has-fold foldc" data-pid="', $prow->paperId,
            '" data-uid="', $pc->contactId,
            '" data-review-type="', $revtype;
        if (Conflict::is_conflicted($ct)) {
            echo '" data-conflict-type="1';
        }
        if (!$revtype && $prow->review_refusals_of_user($pc)) {
            echo '" data-assignment-refused="1';
        }
        if ($rrow && $rrow->reviewRound && ($rn = $rrow->round_name())) {
            echo '" data-review-round="', htmlspecialchars($rn);
        }
        if ($rrow && $rrow->reviewStatus >= ReviewInfo::RS_DRAFTED) {
            echo '" data-review-in-progress="';
        }
        echo '"><div class="pctbname pctbname', $crevtype, ' ui js-assignment-fold">',
            '<a class="qq ui js-assignment-fold" href="">', expander(null, 0),
            $Me->reviewer_html_for($pc), '</a>';
        if ($crevtype != 0) {
            echo review_type_icon($crevtype, $rrow && $rrow->reviewStatus < ReviewInfo::RS_ADOPTED, "ml-2");
            if ($rrow && $rrow->reviewRound > 0) {
                echo ' <span class="revround" title="Review round">',
                    htmlspecialchars($Conf->round_name($rrow->reviewRound)),
                    '</span>';
            }
        }
        if ($revtype >= 0) {
            echo unparse_preference_span($prow->preference($pc, true));
        }
        echo '</div>'; // .pctbname
        if ($pcconfmatch) {
            echo '<div class="need-tooltip" data-tooltip-class="gray" data-tooltip="', str_replace('"', '&quot;', PaperInfo::potential_conflict_tooltip_html($pcconfmatch)), '">', $pcconfmatch[0], '</div>';
        }

        // then, number of reviews
        echo '<div class="pctbnrev">';
        $ac = $acs->get($pc->contactId);
        if ($ac->rev === 0) {
            echo "0 reviews";
        } else {
            echo '<a class="q" href="',
                $Conf->hoturl("search", "q=re:" . urlencode($pc->email)), '">',
                plural($ac->rev, "review"), "</a>";
            if ($ac->pri && $ac->pri < $ac->rev) {
                echo '&nbsp; (<a class="q" href="',
                    $Conf->hoturl("search", "q=pri:" . urlencode($pc->email)),
                    "\">{$ac->pri} primary</a>)";
            }
        }
        echo "</div></div></div>\n"; // .pctbnrev .ctelti .ctelt
    }

    echo "</div>\n",
        '<div class="aab aabr aabig">',
        '<div class="aabut">', Ht::submit("update", "Save assignments", ["class" => "btn-primary"]), '</div>',
        '<div class="aabut">', Ht::submit("cancel", "Cancel"), '</div>',
        '<div id="assresult" class="aabut"></div>',
        '</div></form></div></div>';
}


// add external reviewers
$req = "Request an external review";
if (!$Me->allow_administer($prow) && $Conf->setting("extrev_chairreq")) {
    $req = "Propose an external review";
}
echo '<div class="pcard revcard">',
    Ht::form($Conf->hoturl_post("assign", "p=$prow->paperId"), ["novalidate" => true]),
    '<div class="revcard-head">',
    "<h2>", $req, "</h2></div><div class=\"revcard-body\">";

echo '<p class="w-text">', $Conf->_i("external-review-request-description");
if ($Me->allow_administer($prow)) {
    echo "\nTo create an anonymous review with a review token, leave Name and Email blank.";
}
echo '</p>';

if (($rrow = $prow->review_of_user($Me))
    && $rrow->reviewType == REVIEW_SECONDARY
    && ($round_name = $Conf->round_name($rrow->reviewRound))) {
    echo Ht::hidden("round", $round_name);
}
$email_class = "fullw";
if ($Me->can_lookup_user()) {
    $email_class .= " uii js-email-populate";
    if ($allow_view_authors) {
        $email_class .= " want-potential-conflict";
    }
}
echo '<div class="w-text g">',
    '<div class="', Ht::control_class("email", "f-i"), '">',
    Ht::label("Email", "revreq_email"),
    Ht::entry("email", (string) $Qreq->email, ["id" => "revreq_email", "size" => 52, "class" => $email_class, "autocomplete" => "off", "type" => "email"]),
    '</div>',
    '<div class="f-2col">',
    '<div class="', Ht::control_class("firstName", "f-i"), '">',
    Ht::label("First name (given name)", "revreq_firstName"),
    Ht::entry("firstName", (string) $Qreq->firstName, ["id" => "revreq_firstName", "size" => 24, "class" => "fullw", "autocomplete" => "off"]),
    '</div><div class="', Ht::control_class("lastName", "f-i"), '">',
    Ht::label("Last name (family name)", "revreq_lastName"),
    Ht::entry("lastName", (string) $Qreq->lastName, ["id" => "revreq_lastName", "size" => 24, "class" => "fullw", "autocomplete" => "off"]),
    '</div></div>',
    '<div class="', Ht::control_class("affiliation", "f-i"), '">',
    Ht::label("Affiliation", "revreq_affiliation"),
    Ht::entry("affiliation", (string) $Qreq->affiliation, ["id" => "revreq_affiliation", "size" => 52, "class" => "fullw", "autocomplete" => "off"]),
    '</div>';
if ($allow_view_authors) {
    echo '<div class="potential-conflict-container hidden f-i"><label>Potential conflict</label><div class="potential-conflict"></div></div>';
}

// reason area
$null_mailer = new HotCRPMailer($Conf);
$reqbody = $null_mailer->expand_template("requestreview");
if ($reqbody && strpos($reqbody["body"], "%REASON%") !== false) {
    echo '<div class="f-i">',
        Ht::label('Note to reviewer <span class="n">(optional)</span>', "revreq_reason"),
        Ht::textarea("reason", $Qreq->reason,
                ["class" => "need-autogrow fullw", "rows" => 2, "cols" => 60, "spellcheck" => "true", "id" => "revreq_reason"]),
        "</div>\n\n";
}

if ($Me->can_administer($prow)) {
    echo '<label class="', Ht::control_class("override", "checki"), '"><span class="checkc">',
        Ht::checkbox("override"),
        ' </span>Override deadlines and declined requests</label>';
}

echo '<div class="aab aabr">',
    '<div class="aabut aabutsp">', Ht::submit("requestreview", "Request review", ["class" => "btn-primary"]), '</div>',
    '<div class="aabut"><a class="ui x js-request-review-preview-email" href="">Preview request email</a></div>',
    "</div>\n\n";

echo "</div></div></form></div></article>\n";

$Conf->footer();