forked from science-ation/science-ation
773 lines
23 KiB
PHP
773 lines
23 KiB
PHP
<?
|
|
/*
|
|
This file is part of the 'Science Fair In A Box' project
|
|
SFIAB Website: http://www.sfiab.ca
|
|
|
|
Copyright (C) 2005 Sci-Tech Ontario Inc <info@scitechontario.org>
|
|
Copyright (C) 2005 James Grant <james@lightbox.org>
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public
|
|
License as published by the Free Software Foundation, version 2.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; see the file COPYING. If not, write to
|
|
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
Boston, MA 02111-1307, USA.
|
|
*/
|
|
?>
|
|
<?
|
|
require("../common.inc.php");
|
|
require("../questions.inc.php");
|
|
require("judges.inc.php");
|
|
require("anneal.inc.php");
|
|
auth_required('admin');
|
|
|
|
send_header("Judging teams automatic scheduler");
|
|
|
|
|
|
echo i18n("The scheduler is running. Depending on the effort it may take
|
|
several minutes to complete. It will generate a lot of output on this page,
|
|
most of it is just information about what the scheduler is doing. You can copy
|
|
this page and save it as a text file to have a record of what the scheduler
|
|
did. (And this output helps us to debug problems with it if you encounter
|
|
something that clearly isn't correct, just send us this output)");
|
|
echo "<br />";
|
|
echo "<br />";
|
|
echo i18n("When complete, a green bar will appear at the BOTTOM of this page
|
|
saying that everything has completed successfully. When complete, you can use
|
|
the following links to manage the Judging Teams and the Judges assigned to them
|
|
(clicking on these links now will stop the scheduler).");
|
|
echo "<br />";
|
|
echo "<br />";
|
|
echo "<a href=\"judges_teams.php\">".i18n("Manage Judge Teams")."</a>";
|
|
echo "<br />";
|
|
echo "<a href=\"judges_teams_members.php\">".i18n("Manage Judge Members")."</a>";
|
|
echo "<br />";
|
|
echo "<br />";
|
|
echo i18n("If you get an error like: \"Fatal error: Maximum execution time of
|
|
30 seconds exceeded...\" you will need to talk to your system admin and have
|
|
them adjust the \"max_execution_time\" variable in the \"php.ini\" file from
|
|
30(seconds) to something larger, like 900 (15 minutes). And then have them
|
|
restart the webserver for the change to take effect");
|
|
echo "<br />";
|
|
echo "<br />";
|
|
|
|
|
|
|
|
//function TRACE() { }
|
|
//function TRACE_R() { }
|
|
function TRACE($str) { print($str); }
|
|
function TRACE_R($array) { print_r($array); }
|
|
|
|
|
|
TRACE("<pre>");
|
|
|
|
|
|
function set_status($txt)
|
|
{
|
|
TRACE("Status: $txt\n");
|
|
mysql_query("UPDATE config SET val='$txt' WHERE
|
|
var='judge_scheduler_activity' AND year=0");
|
|
}
|
|
|
|
function set_percent($n)
|
|
{
|
|
$p = floor($n);
|
|
TRACE("Progress: $p\%\n");
|
|
mysql_query("UPDATE config SET val='$p' WHERE
|
|
var='judge_scheduler_precent' AND year=0");
|
|
|
|
}
|
|
|
|
set_status("Initializing...");
|
|
set_percent(0);
|
|
|
|
/* The cost function is:
|
|
+ 50 * each judge below the min for each team
|
|
+ 10 * each judge above the max for each team
|
|
+ 2 * each level of preference away from the
|
|
max level for each judge
|
|
+ 40 if the team doesn't have a chair.
|
|
+ 25 for each memember on the team that can't speak the language
|
|
of the judging team
|
|
|
|
( ex: if a judge has selected LS->2, PS->0, CS->-1
|
|
then matching that judge with a:
|
|
LS = -4,
|
|
PS = 0,
|
|
CS = -2,
|
|
else = 0
|
|
)
|
|
*/
|
|
|
|
/* Compute the cost of adding a judge to a team */
|
|
|
|
function judges_cost_function($annealer, $bucket_id, $ids)
|
|
{
|
|
global $jteam;
|
|
global $judges;
|
|
/* Bucket ID is the team number */
|
|
/* ids are the judge ids currently in the bucket */
|
|
|
|
// TRACE("Bucket id=$bucket_id, ids=");
|
|
// TRACE_R($ids);
|
|
|
|
$cost = 0;
|
|
$have_chair = 0;
|
|
|
|
if($bucket_id == 0) {
|
|
/* This is the placeholder */
|
|
$cost = count($ids) * 5;
|
|
// TRACE("Extra judge team cost=$cost\n");
|
|
return $cost;
|
|
}
|
|
|
|
|
|
$t =& $jteam[$bucket_id];
|
|
|
|
/* Compute the over max / under min costs */
|
|
$c = count($ids);
|
|
$min = ($c < $t['min_judges']) ? $t['min_judges'] - $c : 0;
|
|
$max = ($c > $t['max_judges']) ? $c - $t['max_judges'] : 0;
|
|
$cost += $min * 50;
|
|
$cost += $max * 10;
|
|
|
|
// TRACE("Under min=$min, over max=$max\n");
|
|
|
|
/* For each judge on the team, score their preferences */
|
|
for($x=0; $x<count($ids); $x++) {
|
|
$j =& $judges[$ids[$x]];
|
|
/* Get the division, and see where it fits with this
|
|
* judges preferences */
|
|
$cpref = 0;
|
|
for($y=0; $y < count($t['cats']); $y++) {
|
|
$l = $t['cats'][$y];
|
|
/* Lookup the judge cat pref for this category */
|
|
$pref = -$j['catprefs'][$l] + 2;
|
|
/* $pref = 0 (best match) --- 4 (worst match) */
|
|
$cpref += $pref;
|
|
}
|
|
$dpref = 0;
|
|
for($y=0; $y < count($t['divs']); $y++) {
|
|
$l = $t['divs'][$y];
|
|
/* Lookup the judge cat pref for this category */
|
|
$pref = -$j['divprefs'][$l] + 2;
|
|
/* $pref = 0 (best match) --- 4 (worst match) */
|
|
$dpref += $pref;
|
|
}
|
|
|
|
// TRACE("Judge {$ids[$x]}({$j['name']}) cp=$cpref, dp=$dpref\n");
|
|
|
|
$cost += 2 * $cpref;
|
|
$cost += 2 * $dpref;
|
|
|
|
/* See if the judge is willing to chair a team */
|
|
if($j['willing_chair'] == 'yes') $have_chair = 1;
|
|
|
|
/* For each lang the team needs that the judge doesn't have,
|
|
* increase the cost */
|
|
for($y=0; $y < count($t['langs']); $y++) {
|
|
$l = $t['langs'][$y];
|
|
if(!in_array($l, $j['languages'])) $cost += 25;
|
|
}
|
|
}
|
|
/* Huge penalty for a team without a willing chair */
|
|
if(!$have_chair) $cost += 40;
|
|
|
|
// TRACE("Team $bucket_id, cost is $cost\n");
|
|
|
|
return $cost;
|
|
}
|
|
|
|
|
|
$current_jdiv = array();
|
|
|
|
|
|
function jdiv_compute_cost($annealer, $bucket_id, $ids)
|
|
{
|
|
/* IDS is a list of project ids for a judging team */
|
|
global $current_jdiv;
|
|
|
|
$cost = 0;
|
|
$t_div = array();
|
|
$t_cat = array();
|
|
$t_lang = array();
|
|
|
|
/* Foreach project this jteam is judging, record the
|
|
* div/cat/lang */
|
|
for($x=0; $x<count($ids); $x++) {
|
|
$proj =& $current_jdiv['projects'][$ids[$x]];
|
|
if(!in_array($proj['div'],$t_div)) $t_div[] = $proj['div'];
|
|
if(!in_array($proj['cat'],$t_cat)) $t_cat[] = $proj['cat'];
|
|
if(!in_array($proj['lang'],$t_lang)) $t_lang[] = $proj['lang'];
|
|
}
|
|
/* Square the project count for highter penalties for more projects */
|
|
$cost += floor (abs(count($ids) - $annealer->items_per_bucket)) * 100;
|
|
/* Score 100 pts for multiple languages */
|
|
$cost += (count($t_lang) - 1) * 75;
|
|
/* Score 25pts for multiple divs/cats */
|
|
$cost += (count($t_div) - 1) * 25;
|
|
$cost += (count($t_cat) - 1) * 25;
|
|
|
|
/* Score +200 pts for each duplicate project this team is judging, we
|
|
* really don't want a jteam judging the same project twice */
|
|
for($x=0; $x<count($ids) - 1; $x++) {
|
|
for($y=$x+1; $y<count($ids); $y++) {
|
|
if($ids[$x] == $ids[$y]) $cost += 200;
|
|
}
|
|
}
|
|
return $cost;
|
|
}
|
|
|
|
|
|
set_status("Loading Data From Database...");
|
|
TRACE("\n\n");
|
|
$div = array();
|
|
TRACE("Loading Project Divisions...\n");
|
|
$q=mysql_query("SELECT * FROM projectdivisions WHERE year='".$config['FAIRYEAR']."' ORDER BY id");
|
|
while($r=mysql_fetch_object($q))
|
|
{
|
|
$divshort[$r->id]=$r->division_shortform;
|
|
$div[$r->id]=$r->division;
|
|
TRACE(" {$r->id} - {$div[$r->id]}\n");
|
|
}
|
|
|
|
TRACE("Loading Project Age Categories...\n");
|
|
$cat = array();
|
|
$q=mysql_query("SELECT * FROM projectcategories WHERE year='".$config['FAIRYEAR']."' ORDER BY id");
|
|
while($r=mysql_fetch_object($q)) {
|
|
$cat[$r->id]=$r->category;
|
|
TRACE(" {$r->id} - {$r->category}\n");
|
|
}
|
|
|
|
TRACE("Loading Languages...\n");
|
|
$langr = array();
|
|
$q=mysql_query("SELECT * FROM languages WHERE active='Y'");
|
|
while($r=mysql_fetch_object($q)) {
|
|
$langr[$r->lang] = $r->langname;
|
|
TRACE(" {$r->lang} - {$r->langname}\n");
|
|
}
|
|
|
|
$jdiv = array();
|
|
TRACE("Loading Judging Division Configuration and Projects...\n");
|
|
$q=mysql_query("SELECT * FROM judges_jdiv");
|
|
while($r=mysql_fetch_object($q)) {
|
|
$jdiv[$r->jdiv_id]['config'][] = array('div' => $r->projectdivisions_id,
|
|
'cat' => $r->projectcategories_id,
|
|
'lang' => $r->lang);
|
|
}
|
|
|
|
$keys = array_keys($jdiv);
|
|
for($k=0; $k<count($keys); $k++) {
|
|
$jdiv_id = $keys[$k];
|
|
TRACE(" $jdiv_id\t- ");
|
|
for($x=0;$x<count($jdiv[$jdiv_id]['config']); $x++) {
|
|
$d = $jdiv[$jdiv_id]['config'][$x];
|
|
if($x > 0) TRACE("\t- ");
|
|
TRACE($cat[$d['cat']]." ".$div[$d['div']]." - ".$langr[$d['lang']]);
|
|
$qp = mysql_query("SELECT projects.* FROM projects, registrations WHERE ".
|
|
" projects.year='".$config['FAIRYEAR']."' AND ".
|
|
" projectdivisions_id='{$d['div']}' AND ".
|
|
" projectcategories_id='{$d['cat']}' AND ".
|
|
" language='{$d['lang']}' AND " .
|
|
" registrations.id = projects.registrations_id " .
|
|
getJudgingEligibilityCode()
|
|
);
|
|
$count = 0;
|
|
while($rp = mysql_fetch_object($qp)) {
|
|
$jdiv[$jdiv_id]['projects'][$rp->id] = array(
|
|
'div' => $d['div'],
|
|
'cat' => $d['cat'],
|
|
'lang' => $d['lang']);
|
|
$count++;
|
|
}
|
|
TRACE(" ($count projects)\n");
|
|
}
|
|
}
|
|
|
|
set_status("Computing required judging teams");
|
|
TRACE(" Each judging team may judge {$config['max_projects_per_team']} projects\n");
|
|
TRACE(" Each project must be judged {$config['times_judged']} times\n");
|
|
|
|
$keys = array_keys($jdiv);
|
|
for($k=0; $k<count($keys); $k++) {
|
|
$jdiv_id = $keys[$k];
|
|
$c = count($jdiv[$jdiv_id]['projects']);
|
|
$t=ceil($c/$config['max_projects_per_team']*$config['times_judged']);
|
|
if($t < $config['times_judged']) $t = $config['times_judged'];
|
|
TRACE(" $jdiv_id has $c projects, requires $t judging teams\n");
|
|
$jdiv[$jdiv_id]['num_jteams'] = $t;
|
|
}
|
|
|
|
$jteam = array();
|
|
$jteam_id = 0;
|
|
/* Create one more jteam, for anyone the annealer doesn't want to place */
|
|
$jteam[$jteam_id]['id'] = $jteam_id;
|
|
$jteam[$jteam_id]['projects'] = array();
|
|
$jteam[$jteam_id]['divs'] = array();
|
|
$jteam[$jteam_id]['cats'] = array();
|
|
$jteam[$jteam_id]['langs'] = array();
|
|
$jteam[$jteam_id]['min_judges'] = 0;
|
|
$jteam[$jteam_id]['max_judges'] = 0;
|
|
$jteam_id++;
|
|
|
|
set_status("Assigning projects to judging teams");
|
|
$keys = array_keys($jdiv);
|
|
for($k=0; $k<count($keys); $k++) {
|
|
$jdiv_id = $keys[$k];
|
|
TRACE("Judging Division $jdiv_id ({$jdiv[$jdiv_id]['num_jteams']} teams): \n");
|
|
$project_ids = array();
|
|
for($x=0; $x<$config['times_judged']; $x++) {
|
|
$project_ids = array_merge($project_ids, array_keys($jdiv[$jdiv_id]['projects']) );
|
|
}
|
|
$current_jdiv = $jdiv[$jdiv_id];
|
|
|
|
$e = 100 + 10 * ($config['effort'] / 1000);
|
|
$a = new annealer($jdiv[$jdiv_id]['num_jteams'], 125, $e, 0.9,
|
|
jdiv_compute_cost, $project_ids);
|
|
$a->anneal();
|
|
|
|
$jdiv[$jdiv_id]['jteams'] = array();
|
|
for($x=0;$x<$a->num_buckets; $x++) {
|
|
$bkt = $a->bucket[$x];
|
|
TRACE(" SubTeam $x:\n");
|
|
$jdiv[$jdiv_id]['jteams'][] = $jteam_id;
|
|
|
|
$jteam[$jteam_id]['id'] = $jteam_id;
|
|
$jteam[$jteam_id]['projects'] = $a->bucket[$x];
|
|
$jteam[$jteam_id]['sub'] = $x;
|
|
$jteam[$jteam_id]['jdiv_id'] = $jdiv_id;
|
|
$jteam[$jteam_id]['divs'] = array();
|
|
$jteam[$jteam_id]['cats'] = array();
|
|
$jteam[$jteam_id]['langs'] = array();
|
|
$jteam[$jteam_id]['min_judges'] = $config['min_judges_per_team'];
|
|
$jteam[$jteam_id]['max_judges'] = $config['max_judges_per_team'];
|
|
|
|
for($y=0;$y<count($bkt); $y++) {
|
|
$projid = $bkt[$y];
|
|
$p = $jdiv[$jdiv_id]['projects'][$projid];
|
|
TRACE(" $projid - ".$cat[$p['cat']]." ".$div[$p['div']]." - ".$langr[$p['lang']]."\n");
|
|
if(!in_array($p['cat'], $jteam[$jteam_id]['cats'])) {
|
|
$jteam[$jteam_id]['cats'][] = $p['cat'];
|
|
}
|
|
if(!in_array($p['div'], $jteam[$jteam_id]['divs'])) {
|
|
$jteam[$jteam_id]['divs'][] = $p['div'];
|
|
}
|
|
if(!in_array($p['lang'], $jteam[$jteam_id]['langs'])) {
|
|
$jteam[$jteam_id]['langs'][] = $p['lang'];
|
|
}
|
|
}
|
|
$jteam_id++;
|
|
}
|
|
}
|
|
|
|
TRACE("There are ".(count($jteam) - 1)." judging teams\n");
|
|
|
|
|
|
$willing_chair_question_id = questions_find_question_id("judgereg", $config['FAIRYEAR'], "Willing Chair");
|
|
printf("Judge Willing Chair = Question ID $willing_chair_question_id\n");
|
|
|
|
/* Clean out the judging teams that were autocreated */
|
|
TRACE("Deleting existing divisional judging teams:");
|
|
$q = mysql_query("SELECT * FROM judges_teams WHERE autocreate_type_id=1 AND year={$config['FAIRYEAR']}");
|
|
while($r = mysql_fetch_object($q)) {
|
|
$jteam_id = $r->id;
|
|
print(" $jteam_id");
|
|
/* Clean out the judges_teams_link */
|
|
mysql_query("DELETE FROM judges_teams_link WHERE judges_teams_id='$jteam_id' AND year={$config['FAIRYEAR']}");
|
|
print mysql_error();
|
|
/* Awards */
|
|
mysql_query("DELETE FROM judges_teams_awards_link WHERE judges_teams_id='$jteam_id' AND year={$config['FAIRYEAR']}");
|
|
print mysql_error();
|
|
/* Timeslots */
|
|
mysql_query("DELETE FROM judges_teams_timeslots_link WHERE judges_teams_id='$jteam_id' AND year={$config['FAIRYEAR']}");
|
|
print mysql_error();
|
|
/* Timeslots projects */
|
|
mysql_query("DELETE FROM judges_teams_timeslots_projects_link WHERE judges_teams_id='$jteam_id' AND year={$config['FAIRYEAR']}");
|
|
print mysql_error();
|
|
}
|
|
/* Findally, delete all the autocreated judges teams */
|
|
mysql_query("DELETE FROM judges_teams WHERE autocreate_type_id=1 AND year={$config['FAIRYEAR']}");
|
|
print mysql_error();
|
|
TRACE(" Done.\n");
|
|
|
|
set_status("Loading Judges");
|
|
|
|
$q=mysql_query("SELECT judges.* FROM judges,judges_years WHERE ".
|
|
"complete='yes' ".
|
|
" AND judges_years.year='{$config['FAIRYEAR']}' ".
|
|
" AND judges_years.judges_id=judges.id"
|
|
);
|
|
|
|
$judges=array();
|
|
|
|
|
|
|
|
while($r=mysql_fetch_object($q))
|
|
{
|
|
unset($divprefs);
|
|
unset($catprefs);
|
|
unset($langprefs);
|
|
|
|
/* Try to fetch a team link ID for this judge, if we can, we don't want to use this judge
|
|
* in the divisional awards, they are already assigned to soemthing */
|
|
$q2 = mysql_query("SELECT judges_id FROM judges_teams_link WHERE ".
|
|
"judges_id='$r->id' ".
|
|
" AND year='".$config['FAIRYEAR']."'");
|
|
if(mysql_num_rows($q2) != 0) {
|
|
TRACE(" {$r->firstname} {$r->lastname} is already on a judging team, skipping.\n");
|
|
continue;
|
|
}
|
|
|
|
//get category preferences
|
|
$q2=mysql_query("SELECT * FROM judges_catpref WHERE judges_id='$r->id' AND year='".$config['FAIRYEAR']."' ORDER BY projectcategories_id");
|
|
$catprefs=array();
|
|
while($r2=mysql_fetch_object($q2))
|
|
$catprefs[$r2->projectcategories_id]=$r2->rank;
|
|
|
|
//get division preferences
|
|
$q2=mysql_query("SELECT * FROM judges_expertise WHERE judges_id='$r->id' AND year='".$config['FAIRYEAR']."' AND projectsubdivisions_id IS NULL ORDER BY projectdivisions_id");
|
|
//the areas of expertise are ranked from 1 to 5, and we need them as -2,-1,0,1,2 so we simply subtract 3
|
|
$divprefs=array();
|
|
while($r2=mysql_fetch_object($q2))
|
|
$divprefs[$r2->projectdivisions_id]=$r2->val-3;
|
|
|
|
$langperfs = array();
|
|
$q3=mysql_query("SELECT * from judges_languages WHERE judges_id='$r->id'");
|
|
while($r3=mysql_fetch_object($q3))
|
|
$langprefs[]=$r3->languages_lang;
|
|
|
|
$q2 = mysql_query("SELECT answer FROM question_answers WHERE ".
|
|
" registrations_id='{$r->id}' AND ".
|
|
" questions_id='$willing_chair_question_id' AND ".
|
|
" year='{$config['FAIRYEAR']}' ");
|
|
mysql_error();
|
|
$willing_chair = 'no';
|
|
if(mysql_num_rows($q2) == 1) {
|
|
$r2 = mysql_fetch_object($q2);
|
|
if($r2->answer == 'yes') $willing_chair = 'yes';
|
|
}
|
|
|
|
$judges[$r->id]=array(
|
|
"judges_id"=>"$r->id",
|
|
"name"=>"$r->firstname $r->lastname",
|
|
"years_school"=>$r->years_school,
|
|
"years_regional"=>$r->years_regional,
|
|
"years_national"=>$r->years_national,
|
|
"willing_chair"=>$willing_chair,
|
|
"divprefs"=>$divprefs,
|
|
"catprefs"=>$catprefs,
|
|
"languages"=>$langprefs
|
|
);
|
|
}
|
|
TRACE("Loaded ".count($judges)." judges.\n");
|
|
$jteam[0]['max_judges'] = count($judges);
|
|
|
|
|
|
function judges_to_teams_update($progress, $total)
|
|
{
|
|
set_percent(($progress * 50) / $total);
|
|
}
|
|
set_status("Assigning Judges to Teams");
|
|
|
|
$judge_ids = array_keys($judges);
|
|
$e = $config['effort'];
|
|
$a = new annealer(count($jteam), 25, $e, 0.98, judges_cost_function, $judge_ids);
|
|
$a->set_update_callback(judges_to_teams_update);
|
|
$a->anneal();
|
|
|
|
|
|
|
|
function pr_judge(&$jt, $jid)
|
|
{
|
|
global $judges;
|
|
$j =& $judges[$jid];
|
|
print(" - {$j['name']} (");
|
|
for($x=0; $x<count($j['languages']); $x++) {
|
|
print($j['languages'][$x]. " ");
|
|
}
|
|
print(")");
|
|
print("(");
|
|
for($x=0; $x<count($jt['cats']); $x++) {
|
|
$pref=$j['catprefs'][$jt['cats'][$x]];
|
|
print("c{$jt['cats'][$x]}=$pref ");
|
|
}
|
|
for($x=0; $x<count($jt['divs']); $x++) {
|
|
$pref=$j['divprefs'][$jt['divs'][$x]];
|
|
print("d{$jt['divs'][$x]}=$pref ");
|
|
}
|
|
print(")");
|
|
if($j['willing_chair'] == 'yes') {
|
|
print(" (chair) ");
|
|
}
|
|
|
|
print("\n");
|
|
}
|
|
|
|
|
|
/* Find the maximum judging team number */
|
|
$q = mysql_query("SELECT MAX(num) as max FROM judges_teams");
|
|
$r = mysql_fetch_object($q);
|
|
$max_jteam_num = $r->max;
|
|
|
|
TRACE("Max Judging Team Number is currently $max_jteam_num\n");
|
|
|
|
for($x=1;$x<count($jteam); $x++) {
|
|
$t =& $jteam[$x];
|
|
$num = $x + $max_jteam_num;
|
|
print("Judging Team $num: cost={$a->bucket_cost[$x]} ");
|
|
print("langs=(");
|
|
$langstr="";
|
|
for($y=0; $y<count($t['langs']); $y++) {
|
|
if($y != 0) $langstr .= " ";
|
|
$langstr .= $t['langs'][$y];
|
|
}
|
|
print("$langstr)");
|
|
print("cats=(");
|
|
$catstr="";
|
|
for($y=0; $y<count($t['cats']); $y++) {
|
|
print("c".$t['cats'][$y]. " ");
|
|
if($y!=0) $catstr .= "+";
|
|
$catstr .= $cat[$t['cats'][$y]];
|
|
}
|
|
print(")");
|
|
print("divs=(");
|
|
$divstr="";
|
|
for($y=0; $y<count($t['divs']); $y++) {
|
|
print("d".$t['divs'][$y]. " ");
|
|
if($y!=0) $divstr.="/";
|
|
$divstr .= $div[$t['divs'][$y]];
|
|
}
|
|
print(")\n");
|
|
|
|
/* Add this judging team to the database */
|
|
$tn = $catstr." ".$divstr." (".$langstr.") ".($t['sub']+1);
|
|
mysql_query("INSERT INTO judges_teams (num,name,autocreate_type_id,year) ".
|
|
" VALUES ('$num','$tn','1','{$config['FAIRYEAR']}')");
|
|
|
|
$team_id=mysql_insert_id();
|
|
$t['team_id'] = $team_id;
|
|
|
|
$ids = $a->bucket[$x];
|
|
for($y=0; $y<count($ids); $y++) {
|
|
pr_judge($t, $ids[$y]);
|
|
$j =& $judges[$ids[$y]];
|
|
|
|
/* Link Judges to the judging team we just inserted */
|
|
mysql_query("INSERT INTO judges_teams_link ".
|
|
" (judges_id,judges_teams_id,captain,year) ".
|
|
" VALUES ('{$ids[$y]}','$team_id','{$j['willing_chair']}',".
|
|
"'{$config['FAIRYEAR']}')");
|
|
}
|
|
|
|
/* Get the original jdiv that this team was created from. The exact
|
|
* breakdown of each and every div/cat/lang that this team is judging
|
|
* is in the jdiv['config'] array */
|
|
$jd = $jdiv[$t['jdiv_id']];
|
|
for($y=0; $y<count($jd['config']); $y++) {
|
|
$cfg = $jd['config'][$y];
|
|
$q=mysql_query("SELECT award_awards.id FROM
|
|
award_awards,
|
|
award_awards_projectcategories,
|
|
award_awards_projectdivisions
|
|
WHERE
|
|
award_awards.year='{$config['FAIRYEAR']}'
|
|
AND award_awards.id=award_awards_projectcategories.award_awards_id
|
|
AND award_awards.id=award_awards_projectdivisions.award_awards_id
|
|
AND award_awards_projectcategories.projectcategories_id='{$cfg['cat']}'
|
|
AND award_awards_projectdivisions.projectdivisions_id='{$cfg['div']}'
|
|
AND award_awards.award_types_id='1'
|
|
");
|
|
if(mysql_num_rows($q)!=1) {
|
|
echo error(i18n("Cannot find award for %1 - %2",array($cat[$cfg['cat']],$div[$cfg['div']])));
|
|
} else {
|
|
$r=mysql_fetch_object($q);
|
|
mysql_query("INSERT INTO judges_teams_awards_link (award_awards_id,judges_teams_id,year) VALUES ('$r->id','$team_id','{$config['FAIRYEAR']}')");
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
print("Unused Judges:\n");
|
|
$ids = $a->bucket[0];
|
|
for($y=0; $y<count($ids); $y++) pr_judge($jteam[0], $ids[$y]);
|
|
|
|
set_status("Assigning Judging Teams and Projects to Timeslots");
|
|
|
|
TRACE("Loading Timeslot Data\n");
|
|
$available_timeslots=array();
|
|
$q=mysql_query("SELECT * FROM judges_timeslots WHERE ".
|
|
" year='{$config['FAIRYEAR']}' AND ".
|
|
" allowdivisional='yes' ORDER BY date,starttime");
|
|
$x=0;
|
|
while($r=mysql_fetch_object($q)) {
|
|
$available_timeslots[]=array("id"=>$r->id,
|
|
"date"=>$r->date,
|
|
"starttime"=>substr($r->starttime,0,-3),
|
|
"endtime"=>substr($r->endtime,0,-3));
|
|
print(" -".$available_timeslots[$x]['starttime']." -> ".
|
|
$available_timeslots[$x]['endtime']."\n");
|
|
$x++;
|
|
}
|
|
|
|
$n_timeslots = count($available_timeslots);
|
|
|
|
|
|
/* First, check to see if the project is being judged 3 or
|
|
* more times in a row, OR, if it has large gaps that aren't
|
|
at the end of the judging */
|
|
/* I'm going to leave this here, for now, we shoudl do something like
|
|
* this at some point in evaluating projects, but right now
|
|
* the randomness is pretty good. */
|
|
/* for($x=0; $x<count($project_index); $x++) {
|
|
$i_start = $x * $n_timeslots;
|
|
$i_end = ($x+1) * $n_timeslots;
|
|
|
|
$z_count = 0;
|
|
$r_count = 0;
|
|
for($y=$i_start; $y<$i_end; $y++) {
|
|
$jteam_id = $ids[$y];
|
|
|
|
if($jteam_id == 0) {
|
|
$z_count++;
|
|
$r_count=0;
|
|
} else {*/
|
|
/* Do the z_count cost here so we don;t
|
|
* count any zcount cost for the end
|
|
* of the timetable */
|
|
/* if($z_count > 2) $cost += $z_count;
|
|
$r_count++;
|
|
$z_count=0;
|
|
if($r_count > 2) $cost += $r_count;
|
|
}
|
|
}
|
|
}
|
|
*/
|
|
|
|
function timeslot_pick_move($a)
|
|
{
|
|
/* Use the existing pick move, but we want the item numbers
|
|
* in each bucket to always be the same */
|
|
list($b1, $i1, $b2, $i2) = $a->pick_move();
|
|
$i2 = $i1;
|
|
return array($b1, $i1, $b2, $i2);
|
|
}
|
|
|
|
|
|
function timeslot_cost_function($annealer, $bucket_id, $ids)
|
|
{
|
|
$cost = 0;
|
|
|
|
/* Check to make sure a judge isn't judging two projects
|
|
* at the same time */
|
|
$n_pids = count($ids);
|
|
for($x=0; $x<$n_pids-1; $x++) {
|
|
$jteam_id1 = $ids[$x];
|
|
if($jteam_id1 == 0) continue;
|
|
for($y=$x+1; $y<$n_pids; $y++) {
|
|
$jteam_id2 = $ids[$y];
|
|
if($jteam_id1 == $jteam_id2)
|
|
$cost += 50;
|
|
}
|
|
}
|
|
return $cost;
|
|
}
|
|
|
|
|
|
|
|
|
|
$keys = array_keys($jdiv);
|
|
$keys_count = count($keys);
|
|
for($k=0; $k<$keys_count; $k++) {
|
|
$jdiv_id = $keys[$k];
|
|
$pids = array_keys($jdiv[$jdiv_id]['projects']);
|
|
$n_projects = count($pids);
|
|
|
|
if($n_projects == 0) continue;
|
|
|
|
unset($project_rlookup);
|
|
$project_rlookup = array();
|
|
|
|
for($x=0; $x<count($pids); $x++) {
|
|
$project_rlookup[$pids[$x]] = $x;
|
|
}
|
|
|
|
$current_jdiv = $jdiv_id;
|
|
|
|
printf($n_projects. " projects in this jdiv\n");
|
|
unset($jteams_ids);
|
|
$jteams_ids = array();
|
|
/* Pad to the correct length */
|
|
for($x=0; $x<($n_timeslots * count($pids)); $x++)
|
|
$jteams_ids[] = 0;
|
|
|
|
/* Fill out the jteam array with a jteam_id for each time the
|
|
* jteam_id is supposed to judge a project */
|
|
$jteams = $jdiv[$jdiv_id]['jteams'];
|
|
foreach($jteams as $jteam_id) {
|
|
for($y=0;$y<count($jteam[$jteam_id]['projects']); $y++) {
|
|
$pid = $jteam[$jteam_id]['projects'][$y];
|
|
$idx = $project_rlookup[$pid];
|
|
|
|
for($o = $idx; ; $o+= $n_projects) {
|
|
if($jteams_ids[$o] != 0) continue;
|
|
|
|
$jteams_ids[$o] = $jteam_id;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
print("Jteams ids len=".count($jteams_ids));
|
|
print("\n");
|
|
|
|
set_percent(50 + ($k / $keys_count) * 50);
|
|
|
|
$e = 500 + 50 * ($config['effort'] / 1000);
|
|
$a = new annealer($n_timeslots, 100, $e, 0.98, timeslot_cost_function, $jteams_ids);
|
|
$a->set_pick_move(timeslot_pick_move);
|
|
$a->anneal();
|
|
|
|
for($x=0; $x<count($pids); $x++) {
|
|
$pid = $pids[$x];
|
|
TRACE("Project $pid: ");
|
|
|
|
for($y=0;$y<$n_timeslots; $y++) {
|
|
$jteam_id = $a->bucket[$y][$x];
|
|
TRACE(($y+1).":$jteam_id ");
|
|
|
|
if($jteam_id == 0) continue;
|
|
|
|
/* if jteam_id isn't 0, instert it into the db */
|
|
mysql_query("INSERT INTO judges_teams_timeslots_link ".
|
|
" (judges_teams_id,judges_timeslots_id,year)".
|
|
" VALUES ('{$jteam[$jteam_id]['team_id']}', ".
|
|
" '{$available_timeslots[$y]['id']}', ".
|
|
" '{$config['FAIRYEAR']}')");
|
|
|
|
mysql_query("INSERT INTO judges_teams_timeslots_projects_link ".
|
|
" (judges_teams_id,judges_timeslots_id,projects_id,year) ".
|
|
" VALUES ('{$jteam[$jteam_id]['team_id']}', ".
|
|
" '{$available_timeslots[$y]['id']}', ".
|
|
" '$pid', '{$config['FAIRYEAR']}')");
|
|
|
|
}
|
|
TRACE("\n");
|
|
}
|
|
|
|
}
|
|
|
|
TRACE("All Done.\n");
|
|
echo "</pre>";
|
|
|
|
echo happy("Scheduler completed successfully");
|
|
|
|
send_footer();
|
|
?>
|