private function result_html() { global $Conf, $Me, $Qreq, $SSel, $pcsel; $assignments = $this->autoassigner->assignments(); ReviewAssigner::$prefinfo = $this->autoassigner->prefinfo; ob_start(); if (!$assignments) { $Conf->warnMsg("Nothing to assign."); return ob_get_clean(); } $assignset = new AssignmentSet($Me, true); $assignset->parse(join("\n", $assignments)); list($atypes, $apids) = $assignset->types_and_papers(true); $badpairs_inputs = $badpairs_arg = array(); for ($i = 1; $i <= 20; ++$i) { if ($Qreq["bpa{$i}"] && $Qreq["bpb{$i}"]) { array_push($badpairs_inputs, Ht::hidden("bpa{$i}", $Qreq["bpa{$i}"]), Ht::hidden("bpb{$i}", $Qreq["bpb{$i}"])); $badpairs_arg[] = $Qreq["bpa{$i}"] . "-" . $Qreq["bpb{$i}"]; } } echo Ht::form_div(hoturl_post("autoassign", ["saveassignment" => 1, "assigntypes" => join(" ", $atypes), "assignpids" => join(" ", $apids), "xbadpairs" => count($badpairs_arg) ? join(" ", $badpairs_arg) : null, "profile" => $Qreq->profile, "XDEBUG_PROFILE" => $Qreq->XDEBUG_PROFILE, "seed" => $Qreq->seed])); $atype = $assignset->type_description(); echo "<h3>Proposed " . ($atype ? $atype . " " : "") . "assignment</h3>"; Conf::msg_info("Select “Apply changes” if this looks OK. (You can always alter the assignment afterwards.) Reviewer preferences, if any, are shown as “P#”."); $assignset->report_errors(); $assignset->echo_unparse_display(); // print preference unhappiness if ($Qreq->profile && $this->atype_review) { $umap = $this->autoassigner->pc_unhappiness(); sort($umap); echo '<p style="font-size:65%">Preference unhappiness: '; $usum = 0; foreach ($umap as $u) { $usum += $u; } if (count($umap) % 2 == 0) { $umedian = ($umap[count($umap) / 2 - 1] + $umap[count($umap) / 2]) / 2; } else { $umedian = $umap[(count($umap) - 1) / 2]; } echo 'mean ', sprintf("%.2f", $usum / count($umap)), ', min ', $umap[0], ', 10% ', $umap[(int) (count($umap) * 0.1)], ', 25% ', $umap[(int) (count($umap) * 0.25)], ', median ', $umedian, ', 75% ', $umap[(int) (count($umap) * 0.75)], ', 90% ', $umap[(int) (count($umap) * 0.9)], ', max ', $umap[count($umap) - 1], '<br/>Time: ', sprintf("%.6f", microtime(true) - $this->start_at); foreach ($this->autoassigner->profile as $name => $time) { echo ', ', sprintf("%s %.6f", htmlspecialchars($name), $time); } echo '</p>'; } echo "<div class='g'></div>", "<div class='aahc'><div class='aa'>\n", Ht::submit("submit", "Apply changes"), "\n ", Ht::submit("download", "Download assignment file"), "\n ", Ht::submit("cancel", "Cancel"), "\n"; foreach (array("t", "q", "a", "revtype", "revaddtype", "revpctype", "cleartype", "revct", "revaddct", "revpcct", "pctyp", "balance", "badpairs", "rev_roundtag", "method", "haspap") as $t) { if (isset($Qreq[$t])) { echo Ht::hidden($t, $Qreq[$t]); } } echo Ht::hidden("pcs", join(" ", array_keys($pcsel))), join("", $badpairs_inputs), Ht::hidden("p", join(" ", $SSel->selection())), "\n"; // save the assignment echo Ht::hidden("assignment", join("\n", $assignments)), "\n"; echo "</div></div></div></form>"; return ob_get_clean(); }
function requestReviewChecks($themHtml, $reqId) { global $Me, $prow; // check for outstanding review request $result = Dbl::qe_raw("select reviewId, firstName, lastName, email, password from PaperReview join ContactInfo on (ContactInfo.contactId=PaperReview.requestedBy) where paperId={$prow->paperId} and PaperReview.contactId={$reqId}"); if (!$result) { return false; } else { if ($row = edb_orow($result)) { return Conf::msg_error(Text::user_html($row) . " has already requested a review from {$themHtml}."); } } // check for outstanding refusal to review $result = Dbl::qe_raw("select paperId, '<conflict>' from PaperConflict where paperId={$prow->paperId} and contactId={$reqId} union select paperId, reason from PaperReviewRefused where paperId={$prow->paperId} and contactId={$reqId}"); if (edb_nrows($result) > 0) { $row = edb_row($result); if ($row[1] === "<conflict>") { return Conf::msg_error("{$themHtml} has a conflict registered with paper #{$prow->paperId} and cannot be asked to review it."); } else { if ($Me->override_deadlines($prow)) { Conf::msg_info("Overriding previous refusal to review paper #{$prow->paperId}." . ($row[1] ? " (Their reason was “" . htmlspecialchars($row[1]) . "”.)" : "")); Dbl::qe_raw("delete from PaperReviewRefused where paperId={$prow->paperId} and contactId={$reqId}"); } else { return Conf::msg_error("{$themHtml} refused a previous request to review paper #{$prow->paperId}." . ($row[1] ? " (Their reason was “" . htmlspecialchars($row[1]) . "”.)" : "") . ($Me->allow_administer($prow) ? " As an administrator, you can override this refusal with the “Override...” checkbox." : "")); } } } return true; }
public function compile_combine_functions(Contact $contact) { $this->check(); $state = new FormulaCompiler($contact); $this->_parse && $this->_parse->compile_fragments($state); $t = self::compile_body($contact, $state, null); if (count($state->fragments) == 1) { $t .= " return " . $state->fragments[0] . ";\n"; } else { $t .= " return [" . join(", ", $state->fragments) . "];\n"; } $args = '$prow, $rrow_cid, $contact, $format = 0, $forceShow = false'; self::DEBUG && Conf::msg_info(Ht::pre_text("function ({$args}) {\n // fragments " . simplify_whitespace($this->expression) . "\n {$t}}\n")); $outf = create_function($args, $t); // regroup function $state->clear(); $state->combining = 0; $expr = $this->_parse ? $this->_parse->compile($state) : "0"; $t = self::compile_body(null, $state, $expr); $args = '$groups, $format = null, $forceShow = false'; self::DEBUG && Conf::msg_info(Ht::pre_text("function ({$args}) {\n // combine " . simplify_whitespace($this->expression) . "\n {$t}}\n")); $inf = create_function($args, $t); return [$outf, $inf]; }