function createAnonymousReview()
{
global $Conf, $Me, $Now, $prow, $rrows;
Dbl::qe_raw("lock tables PaperReview write, PaperReviewRefused write, ContactInfo write, PaperConflict read, ActionLog write");
// find an unassigned anonymous review contact
$contactemail = unassignedAnonymousContact();
$result = Dbl::qe_raw("select contactId from ContactInfo where email='" . sqlq($contactemail) . "'");
if (edb_nrows($result) == 1) {
$row = edb_row($result);
$reqId = $row[0];
} else {
$result = Dbl::qe("insert into ContactInfo set firstName='Jane Q.', lastName='Public', unaccentedName='Jane Q. Public', email=?, affiliation='Unaffiliated', password='', disabled=1, creationTime={$Now}", $contactemail);
if (!$result) {
return $result;
}
$reqId = $result->insert_id;
}
// store the review request
$reviewId = $Me->assign_review($prow->paperId, $reqId, REVIEW_EXTERNAL, array("mark_notify" => true, "token" => true));
if ($reviewId) {
$result = Dbl::ql("select reviewToken from PaperReview where reviewId={$reviewId}");
$row = edb_row($result);
$Conf->confirmMsg("Created a new anonymous review for paper #{$prow->paperId}. The review token is " . encode_token((int) $row[0]) . ".");
}
Dbl::qx_raw("unlock tables");
$Conf->update_rev_tokens_setting(true);
return true;
}
function reviewTable($prow, $rrows, $crows, $rrow, $mode, $proposals = null)
{
global $Conf, $Me;
$subrev = array();
$nonsubrev = array();
$foundRrow = $foundMyReview = $notShown = 0;
$conflictType = $Me->view_conflict_type($prow);
$allow_admin = $Me->allow_administer($prow);
$admin = $Me->can_administer($prow);
$hideUnviewable = $conflictType > 0 && !$admin || !$Me->act_pc($prow) && !$Conf->setting("extrev_view");
$show_colors = $Me->can_view_reviewer_tags($prow);
$tagger = $show_colors ? new Tagger($Me) : null;
$xsep = ' <span class="barsep">·</span> ';
$want_scores = $mode !== "assign" && $mode !== "edit" && $mode !== "re";
$want_requested_by = false;
$want_retract = false;
$pcm = pcMembers();
$score_header = array();
// actual rows
foreach ($rrows as $rr) {
$highlight = $rrow && $rr->reviewId == $rrow->reviewId;
$foundRrow += $highlight;
if ($Me->is_my_review($rr)) {
$foundMyReview++;
}
$canView = $Me->can_view_review($prow, $rr, null);
// skip unsubmitted reviews
if (!$canView && $hideUnviewable) {
if ($rr->reviewNeedsSubmit == 1 && $rr->reviewModified) {
$notShown++;
}
continue;
}
$t = "";
$tclass = $rrow && $highlight ? "hilite" : "";
// review ID
$id = "Review";
if ($rr->reviewSubmitted) {
$id .= " #" . $prow->paperId . unparseReviewOrdinal($rr->reviewOrdinal);
} else {
if ($rr->reviewType == REVIEW_SECONDARY && $rr->reviewNeedsSubmit <= 0) {
$id .= " (delegated)";
} else {
if ($rr->reviewModified > 0) {
$id .= " (in progress)";
} else {
$id .= " (not started)";
}
}
}
$rlink = unparseReviewOrdinal($rr);
if ($rrow && $rrow->reviewId == $rr->reviewId) {
if ($Me->contactId == $rr->contactId && !$rr->reviewSubmitted) {
$id = "Your {$id}";
}
$t .= '<td><a href="' . hoturl("review", "p={$prow->paperId}&r={$rlink}") . '" class="q"><b>' . $id . '</b></a></td>';
} else {
if (!$canView) {
$t .= "<td>{$id}</td>";
} else {
if ($rrow || $rr->reviewModified <= 0 || ($mode === "re" || $mode === "assign") && $Me->can_review($prow, $rr)) {
$t .= '<td><a href="' . hoturl("review", "p={$prow->paperId}&r={$rlink}") . '">' . $id . '</a></td>';
} else {
if (Navigation::page() !== "paper") {
$t .= '<td><a href="' . hoturl("paper", "p={$prow->paperId}#r{$rlink}") . '">' . $id . '</a></td>';
} else {
$t .= '<td><a href="#r' . $rlink . '">' . $id . '</a></td>';
}
}
}
}
// primary/secondary glyph
if ($conflictType > 0 && !$admin) {
$rtype = "";
} else {
if ($rr->reviewType > 0) {
$rtype = review_type_icon($rr->reviewType);
if ($admin && $mode === "assign") {
$rtype .= _review_table_round_selector($prow, $rr);
} else {
if ($rr->reviewRound > 0 && $Me->can_view_review_round($prow, $rr)) {
$rtype .= ' <span class="revround" title="Review round">' . htmlspecialchars($Conf->round_name($rr->reviewRound, true)) . "</span>";
}
}
} else {
$rtype = "";
}
}
// reviewer identity
$showtoken = $rr->reviewToken && $Me->can_review($prow, $rr);
if (!$Me->can_view_review_identity($prow, $rr, null)) {
$t .= $rtype ? "<td>{$rtype}</td>" : '<td class="empty"></td>';
} else {
if (!$showtoken || !Contact::is_anonymous_email($rr->email)) {
$n = $Me->name_html_for($rr);
} else {
$n = "[Token " . encode_token((int) $rr->reviewToken) . "]";
}
if ($allow_admin) {
$n .= _review_table_actas($rr);
}
$t .= '<td class="rl"><span class="taghl">' . $n . '</span>' . ($rtype ? " {$rtype}" : "") . "</td>";
if ($show_colors && (get($rr, "contactRoles") || get($rr, "contactTags"))) {
$tags = Contact::roles_all_contact_tags(get($rr, "contactRoles"), get($rr, "contactTags"));
$tags = Tagger::strip_nonviewable($tags, $Me);
if ($tags && ($color = TagInfo::color_classes($tags))) {
$tclass = $color;
}
}
}
// requester
if ($mode === "assign") {
if (($conflictType <= 0 || $admin) && $rr->reviewType == REVIEW_EXTERNAL && !$showtoken) {
$t .= '<td style="font-size:smaller">';
if ($rr->requestedBy == $Me->contactId) {
$t .= "you";
} else {
if ($u = get($pcm, $rr->requestedBy)) {
$t .= $Me->reviewer_html_for($rr->requestedBy);
} else {
$t .= Text::user_html([$rr->reqFirstName, $rr->reqLastName, $rr->reqEmail]);
}
}
$t .= '</td>';
$want_requested_by = true;
} else {
$t .= '<td class="empty"></td>';
}
}
// actions
if ($mode === "assign" && ($conflictType <= 0 || $admin) && $rr->reviewType == REVIEW_EXTERNAL && $rr->reviewModified <= 0 && ($rr->requestedBy == $Me->contactId || $admin)) {
$t .= '<td>' . _retract_review_request_form($prow, $rr) . '</td>';
}
// scores
$scores = array();
if ($want_scores && $canView) {
$view_score = $Me->view_score_bound($prow, $rr);
$rf = ReviewForm::get();
foreach ($rf->forder as $fid => $f) {
if (!$f->has_options || $f->view_score <= $view_score || $f->round_mask && !$f->is_round_visible($rr)) {
/* do nothing */
} else {
if ($rr->{$fid}) {
if (!get($score_header, $fid)) {
$score_header[$fid] = "<th>" . $f->web_abbreviation() . "</th>";
}
$scores[$fid] = '<td class="revscore" data-rf="' . $f->uid . '">' . $f->unparse_value($rr->{$fid}, ReviewField::VALUE_SC) . '</td>';
} else {
if (get($score_header, $fid) === null) {
$score_header[$fid] = "";
}
}
}
}
}
// affix
if (!$rr->reviewSubmitted) {
$nonsubrev[] = array($tclass, $t, $scores);
} else {
$subrev[] = array($tclass, $t, $scores);
}
}
// proposed review rows
if ($proposals) {
foreach ($proposals as $rr) {
$t = "";
// review ID
$t = "<td>Proposed review</td>";
// reviewer identity
$t .= "<td>" . Text::user_html($rr);
if ($allow_admin) {
$t .= _review_table_actas($rr);
}
$t .= "</td>";
// requester
if ($conflictType <= 0 || $admin) {
$t .= '<td style="font-size:smaller">';
if ($rr->requestedBy == $Me->contactId) {
$t .= "you";
} else {
if ($u = get($pcm, $rr->requestedBy)) {
$t .= $Me->reviewer_html_for($rr->requestedBy);
} else {
$t .= Text::user_html([$rr->reqFirstName, $rr->reqLastName, $rr->reqEmail]);
}
}
$t .= '</td>';
$want_requested_by = true;
}
$t .= '<td>';
if ($admin) {
$t .= '<small>' . Ht::form(hoturl_post("assign", "p={$prow->paperId}")) . '<div class="inline">' . Ht::hidden("name", $rr->name) . Ht::hidden("email", $rr->email) . Ht::hidden("reason", $rr->reason);
if ($rr->reviewRound !== null) {
if ($rr->reviewRound == 0) {
$rname = "unnamed";
} else {
$rname = $Conf->round_name($rr->reviewRound);
}
if ($rname) {
$t .= Ht::hidden("round", $rname);
}
}
$t .= Ht::submit("add", "Approve review", array("style" => "font-size:smaller")) . ' ' . Ht::submit("deny", "Deny request", array("style" => "font-size:smaller")) . '</div></form>';
} else {
if ($rr->reqEmail === $Me->email) {
$t .= _retract_review_request_form($prow, $rr);
}
}
$t .= '</td>';
// affix
$nonsubrev[] = array("", $t);
}
}
// unfinished review notification
$notetxt = "";
if ($conflictType >= CONFLICT_AUTHOR && !$admin && $notShown && $Me->can_view_review($prow, null, null)) {
if ($notShown == 1) {
$t = "1 review remains outstanding.";
} else {
$t = "{$notShown} reviews remain outstanding.";
}
$t .= '<br /><span class="hint">You will be emailed if new reviews are submitted or existing reviews are changed.</span>';
$notetxt = '<div class="revnotes">' . $t . "</div>";
}
// completion
if (count($nonsubrev) + count($subrev)) {
if ($want_requested_by) {
array_unshift($score_header, '<th class="revsl">Requester</th>');
}
$score_header_text = join("", $score_header);
$t = "<table class=\"reviewers";
if ($score_header_text) {
$t .= " reviewers_scores";
}
if ($list = SessionList::active()) {
$t .= " has_hotcrp_list\" data-hotcrp-list=\"" . $list->listno;
}
$t .= "\">\n";
if ($score_header_text) {
$t .= '<tr><td class="empty" colspan="2"></td>' . $score_header_text . "</tr>\n";
}
foreach (array_merge($subrev, $nonsubrev) as $r) {
$t .= '<tr class="rl' . ($r[0] ? " {$r['0']}" : "") . '">' . $r[1];
if (get($r, 2)) {
foreach ($score_header as $fid => $header_needed) {
if ($header_needed) {
$x = get($r[2], $fid);
$t .= $x ?: "<td class=\"revscore rs_{$fid}\"></td>";
}
}
} else {
if (count($score_header)) {
$t .= '<td colspan="' . count($score_header) . '"></td>';
}
}
$t .= "</tr>\n";
}
if ($score_header_text) {
$Conf->footerScript("review_form.score_tooltips(\$(\"table.reviewers_scores\"))", "score_tooltips");
}
return $t . "</table>\n" . $notetxt;
} else {
return $notetxt;
}
}
function reviewTokenGroup($non_reviews)
{
global $Conf, $reviewTokenGroupPrinted;
if ($reviewTokenGroupPrinted) {
return;
}
$tokens = array();
foreach ($Conf->session("rev_tokens", array()) as $tt) {
$tokens[] = encode_token((int) $tt);
}
if ($non_reviews) {
echo '<div class="homegrp" id="homerev">', "<h4>Review tokens: </h4>";
} else {
echo '<table id="foldrevtokens" class="', count($tokens) ? "fold2o" : "fold2c", '" style="display:inline-table">', '<tr><td class="fn2"><a class="fn2" href="#" onclick="return foldup(this,event)">Add review tokens</a></td>', '<td class="fx2">Review tokens: ';
}
echo Ht::form_div(hoturl_post("index")), Ht::entry("token", join(" ", $tokens), array("size" => max(15, count($tokens) * 8))), " ", Ht::submit("Save");
if (!count($tokens)) {
echo '<div class="hint">Enter tokens to gain access to the corresponding reviews.</div>';
}
echo '</div></form>';
if ($non_reviews) {
echo '<hr class="home" /></div>', "\n";
} else {
echo '</td></tr></table>', "\n";
}
$reviewTokenGroupPrinted = true;
}
function unparse_review_json($prow, $rrow, $contact, $include_displayed_at = false)
{
global $Conf;
self::check_review_author_seen($prow, $rrow, $contact);
$rj = array("pid" => $prow->paperId, "rid" => $rrow->reviewId);
if ($rrow->reviewOrdinal) {
$rj["ordinal"] = unparseReviewOrdinal($rrow->reviewOrdinal);
}
if ($contact->can_view_review_round($prow, $rrow, null)) {
$rj["rtype"] = (int) $rrow->reviewType;
if ($round = $Conf->round_name($rrow->reviewRound)) {
$rj["round"] = $round;
}
}
if ($rrow->reviewBlind) {
$rj["blind"] = true;
}
if ($rrow->reviewSubmitted) {
$rj["submitted"] = true;
} else {
if (!$rrow->reviewOrdinal) {
$rj["draft"] = true;
}
}
if ($contact->can_review($prow, $rrow)) {
$rj["editable"] = true;
}
// identity and time
$showtoken = $contact->review_token_cid($prow, $rrow);
if ($contact->can_view_review_identity($prow, $rrow, null) && (!$showtoken || !Contact::is_anonymous_email($rrow->email))) {
$rj["author"] = Text::user_html($rrow);
$rj["author_email"] = $rrow->email;
}
if ($showtoken) {
$rj["author_token"] = encode_token((int) $rrow->reviewToken);
}
if ($rrow->reviewModified > 0 && $contact->can_view_review_time($prow, $rrow)) {
$rj["modified_at"] = (int) $rrow->reviewModified;
$rj["modified_at_text"] = $Conf->printableTime($rrow->reviewModified);
}
if ($include_displayed_at) {
// XXX exposes information, should hide before export
$rj["displayed_at"] = (int) $rrow->timeDisplayed;
}
// ratings
if ($contact->can_view_review_ratings($prow, $rrow)) {
if ($rrow->canViewRatings) {
$rj["ratings"] = json_decode("[" . $rrow->allRatings . "]");
}
if ($contact->can_rate_review($prow, $rrow)) {
$rj["user_rating"] = $rrow->myRating === null ? null : (int) $rrow->myRating;
}
}
// review text
// (field UIDs always are uppercase so can't conflict)
$revViewScore = $contact->view_score_bound($prow, $rrow);
foreach ($this->forder as $fid => $f) {
if ($f->view_score > $revViewScore && (!$f->round_mask || $f->is_round_visible($rrow))) {
if ($f->has_options) {
$rj[$f->uid] = $f->unparse_value($rrow->{$fid});
} else {
$rj[$f->uid] = $rrow->{$fid};
}
}
}
if (($fmt = $rrow->reviewFormat) === null) {
$fmt = Conf::$gDefaultFormat;
}
if ($fmt) {
$rj["format"] = $fmt;
}
return (object) $rj;
}