function run(Contact $user, $qreq, $ssel) { global $Conf; $result = Dbl::qe_raw($Conf->paperQuery($user, array("paperId" => $ssel->selection(), "topics" => 1))); $texts = array(); while ($prow = PaperInfo::fetch($result, $user)) { if ($whyNot = $user->perm_view_paper($prow)) { Conf::msg_error(whyNotText($whyNot, "view")); } else { $text = "===========================================================================\n"; $n = "Paper #" . $prow->paperId . ": "; $l = max(14, (int) ((75.5 - strlen($prow->title) - strlen($n)) / 2) + strlen($n)); $text .= prefix_word_wrap($n, $prow->title, $l); $text .= "---------------------------------------------------------------------------\n"; $l = strlen($text); if ($user->can_view_authors($prow, $qreq->t == "a")) { $text .= prefix_word_wrap("Authors: ", $prow->pretty_text_author_list(), 14); } if ($prow->topicIds != "" && ($tt = $prow->unparse_topics_text())) { $text .= prefix_word_wrap("Topics: ", $tt, 14); } if ($l != strlen($text)) { $text .= "---------------------------------------------------------------------------\n"; } $text .= rtrim($prow->abstract) . "\n\n"; defappend($texts[$prow->paperId], $text); $rfSuffix = count($texts) == 1 ? $prow->paperId : "s"; } } if (count($texts)) { downloadText(join("", $ssel->reorder($texts)), "abstract{$rfSuffix}"); } }
function downloadForm($editable) { global $rf, $Conf, $Me, $prow, $paperTable, $Opt; $explicit = true; if ($paperTable->rrow) { $rrows = array($paperTable->rrow); } else { if ($editable) { $rrows = array(); } else { $rrows = $paperTable->viewable_rrows; $explicit = false; } } $text = ""; foreach ($rrows as $rr) { if ($rr->reviewSubmitted) { $text .= downloadView($prow, $rr, $editable); } } foreach ($rrows as $rr) { if (!$rr->reviewSubmitted && ($explicit || $rr->reviewModified)) { $text .= downloadView($prow, $rr, $editable); } } if (count($rrows) == 0 && $editable) { $text .= downloadView($prow, null, $editable); } if (!$explicit) { $paperTable->resolveComments(); foreach ($paperTable->crows as $cr) { if ($Me->can_view_comment($prow, $cr, false)) { $text .= $cr->unparse_text($Me, true) . "\n"; } } } if (!$text) { $whyNot = $Me->perm_view_review($prow, null, null); return Conf::msg_error(whyNotText($whyNot ?: array("fail" => 1), "review")); } if ($editable) { $text = ReviewForm::textFormHeader(count($rrows) > 1) . $text; } $filename = (count($rrows) > 1 ? "reviews" : "review") . "-" . $prow->paperId; if (count($rrows) == 1 && $rrows[0]->reviewSubmitted) { $filename .= unparseReviewOrdinal($rrows[0]->reviewOrdinal); } downloadText($text, $filename, !$editable); }
function run(Contact $user, $qreq, $ssel) { global $Conf; $settingrank = $Conf->setting("tag_rank") && $qreq->tag == "~" . $Conf->setting_data("tag_rank"); if (!$user->isPC && !($user->is_reviewer() && $settingrank)) { return self::EPERM; } $tagger = new Tagger($user); if ($tag = $tagger->check($qreq->tag, Tagger::NOVALUE | Tagger::NOCHAIR)) { $result = Dbl::qe_raw($Conf->paperQuery($user, array("paperId" => $ssel->selection(), "tagIndex" => $tag, "order" => "order by tagIndex, PaperReview.overAllMerit desc, Paper.paperId"))); $real = ""; $null = "\n"; while ($prow = PaperInfo::fetch($result, $user)) { if ($user->can_change_tag($prow, $tag, null, 1)) { if ($prow->tagIndex === null) { $null .= "X\t{$prow->paperId}\t{$prow->title}\n"; } else { if ($real === "" || $lastIndex == $row->tagIndex - 1) { $real .= "\t{$prow->paperId}\t{$prow->title}\n"; } else { if ($lastIndex == $row->tagIndex) { $real .= "=\t{$prow->paperId}\t{$prow->title}\n"; } else { $real .= str_pad("", min($prow->tagIndex - $lastIndex, 5), ">") . "\t{$prow->paperId}\t{$prow->title}\n"; } } } $lastIndex = $prow->tagIndex; } } $text = "# Edit the rank order by rearranging this file's lines.\n\n# The first line has the highest rank. Lines starting with \"#\" are\n# ignored. Unranked papers appear at the end in lines starting with\n# \"X\", sorted by overall merit. Create a rank by removing the \"X\"s and\n# rearranging the lines. Lines starting with \"=\" mark papers with the\n# same rank as the preceding papers. Lines starting with \">>\", \">>>\",\n# and so forth indicate rank gaps between papers. When you are done,\n# upload the file at\n" . "# " . hoturl_absolute("offline") . "\n\n" . "Tag: " . trim($qreq->tag) . "\n" . "\n" . $real . $null; downloadText($text, "rank"); } else { Conf::msg_error($tagger->error_html); } }
// offline.php -- HotCRP offline review management page // HotCRP is Copyright (c) 2006-2016 Eddie Kohler and Regents of the UC // Distributed under an MIT-like license; see LICENSE require_once "src/initweb.php"; if ($Me->is_empty()) { $Me->escape(); } $rf = ReviewForm::get(); // general error messages if (defval($_REQUEST, "post") && !count($_POST)) { $Conf->post_missing_msg(); } // download blank review form action if (isset($_REQUEST["downloadForm"])) { $text = ReviewForm::textFormHeader("blank") . $rf->textForm(null, null, $Me, null) . "\n"; downloadText($text, "review"); } // upload review form action if (isset($_REQUEST["uploadForm"]) && fileUploaded($_FILES["uploadedFile"]) && check_post()) { $tf = $rf->beginTextForm($_FILES["uploadedFile"]["tmp_name"], $_FILES["uploadedFile"]["name"]); while ($req = $rf->parseTextForm($tf)) { $rf->check_save_review($req, $tf, $Me); } $rf->textFormMessages($tf); // Uploading forms may have completed the reviewer's task; recheck roles. Contact::update_rights(); } else { if (isset($_REQUEST["uploadForm"])) { Conf::msg_error("Choose a file first."); } }