public function auto_assign($test = 0)
{
PHPWS_Core::initModClass('hms', 'HMS_Room.php');
PHPWS_Core::initModClass('hms', 'HousingApplication.php');
// TODO update this to use HousignAssignment
PHPWS_Core::initModClass('hms', 'HMS_Roommate.php');
PHPWS_Core::initModClass('hms', 'HMS_Assignment.php');
PHPWS_Core::initModClass('hms', 'HMS_Activity_Log.php');
PHPWS_Core::initModClass('hms', 'HMS_RLC_Assignment.php');
PHPWS_Core::initModClass('hms', 'BannerQueue.php');
$term = Term::get_selected_term();
// In both cases: Random, and include Banner info
$f_rooms = HMS_Room::get_all_free_rooms($term, FEMALE, TRUE);
$m_rooms = HMS_Room::get_all_free_rooms($term, MALE, TRUE);
$roommates = HMS_Roommate::get_all_confirmed_roommates($term, TRUE);
$applicants = HousingApplication::getAllFreshmenApplications($term, 'gender', 'hms_fall_application.lifestyle_option', 'hms_fall_application.preferred_bedtime', 'hms_fall_application.room_condition', 'random');
$problems = array();
$rlcs = array();
$assigns = array();
$notices = array();
$successes = array();
$assigned = array();
reset($f_rooms);
reset($m_rooms);
$i_f_count = count($f_rooms);
$i_m_count = count($m_rooms);
// Assign Roommates
reset($roommates);
foreach ($roommates as $pair) {
$a = HousingApplication::getApplicationByUser($pair['requestor'], $term);
if (in_array($a->username, $assigned)) {
$notices[] = "<strong>{$a->username}</strong> already scheduled for assignment.";
continue;
}
$rlc = HMS_RLC_Assignment::checkForAssignment($a->username, $term);
if ($rlc !== FALSE) {
$rlcs[] = "Skipping <strong>{$a->username}</strong>; assigned to an RLC.";
continue;
}
$b = HousingApplication::getApplicationByUser($pair['requestee'], $term);
if (in_array($b->username, $assigned)) {
$notices[] = "<strong>{$b->username}</strong> already scheduled for assignment.";
continue;
}
$rlc = HMS_RLC_Assignment::checkForAssignment($b->username, $term);
if ($rlc !== FALSE) {
$rlcs[] = "Skipping <strong>{$b->username}</strong>; assigned to an RLC.";
continue;
}
if (is_null($a->id)) {
$problems[] = "Could not assign <strong>{$a->username}</strong> with roommate <strong>{$b->username}</strong>; {$a->username} does not have an application.";
continue;
}
if (is_null($b->id)) {
$problems[] = "Could not assign <strong>{$a->username}</strong> with roommate <strong>{$b->username}</strong>; {$b->username} does not have an application.";
continue;
}
if ($a->gender != $b->gender) {
$problems[] = "Epic FAIL... <strong>{$a->username}</strong> and <strong>{$b->username}</strong> are not the same gender.";
continue;
}
$ass = HMS_Assignment::get_assignment($a->username, $term);
if (is_a($ass, 'HMS_Assignment')) {
$bbc = $ass->get_banner_building_code();
$bed = $ass->get_banner_bed_id();
$assigns[] = "Could not assign <strong>{$a->username}</strong>; already assigned to <strong>{$bbc} {$bed}</strong>";
continue;
}
$ass = HMS_Assignment::get_assignment($b->username, $term);
if (is_a($ass, 'HMS_Assignment')) {
$bbc = $ass->get_banner_building_code();
$bed = $ass->get_banner_bed_id();
$assigns[] = "Could not assign <strong>{$b->username}</strong>; already assigned to <strong>{$bbc} {$bed}</strong>";
continue;
}
$room = $a->gender == FEMALE ? array_shift($f_rooms) : ($a->gender == MALE ? array_shift($m_rooms) : 'badgender');
if (is_null($room)) {
$problems[] = "Could not assign <strong>{$a->username}</strong>; out of empty " . ($a->gender ? 'male' : 'female') . ' rooms.';
$problems[] = "Could not assign <strong>{$b->username}</strong>; out of empty " . ($b->gender ? 'male' : 'female') . ' rooms.';
continue;
} else {
if ($room === 'badgender') {
$problems[] = "Could not assign <strong>{$a->username}</strong>; {$a->gender} is not a valid gender.";
continue;
}
}
// Prepare for assignment
$room =& new HMS_Room($room);
$room->loadBeds();
$bed_a_text = $room->_beds[0]->get_banner_building_code() . ' ' . $room->_beds[0]->banner_id;
$bed_b_text = $room->_beds[1]->get_banner_building_code() . ' ' . $room->_beds[1]->banner_id;
if ($test) {
$successes[] = HMS_Autoassigner::record_success('TEST Requested', $a, $b, $bed_a_text);
$successes[] = HMS_Autoassigner::record_success('TEST Requested', $b, $a, $bed_b_text);
} else {
$result = HMS_Autoassigner::assign($a, $room->_beds[0], $term);
if ($result === TRUE) {
$successes[] = HMS_Autoassigner::record_success('Requested', $a, $b, $bed_a_text);
$assigned[] = $a->username;
} else {
$problems[] = $result;
}
if (!is_null($b->id)) {
$result = HMS_Autoassigner::assign($b, $room->_beds[1], $term);
if ($result === TRUE) {
$successes[] = HMS_Autoassigner::record_success('Requested', $b, $a, $bed_b_text);
$assigned[] = $b->username;
} else {
$problems[] = $result;
}
}
}
}
reset($applicants);
while (count($applicants) > 0) {
$a = array_shift($applicants);
if ($a === FALSE) {
continue;
}
if (!isset($a)) {
continue;
}
if (in_array($a->username, $assigned)) {
$notices[] = "<strong>{$a->username}</strong> already scheduled for assignment.";
continue;
}
$rlc = HMS_RLC_Assignment::checkForAssignment($a->username, $term);
if ($rlc !== FALSE) {
$rlcs[] = "Skipping <strong>{$a->username}</strong>; assigned to an RLC.";
continue;
}
$b = array_shift($applicants);
if (in_array($b->username, $assigned)) {
$notices[] = "<strong>{$b->username}</strong> already scheduled for assignment.";
array_unshift($applicants, $a);
continue;
}
$rlc = HMS_RLC_Assignment::checkForAssignment($b->username, $term);
if ($rlc !== FALSE) {
$rlcs[] = "Skipping <strong>{$b->username}</strong>; assigned to an RLC.";
array_unshift($applicants, $a);
continue;
}
if ($a->gender != $b->gender) {
array_unshift($applicants, $b);
$b = NULL;
continue;
}
$ass = HMS_Assignment::get_assignment($a->username, $term);
if (is_a($ass, 'HMS_Assignment')) {
$bbc = $ass->get_banner_building_code();
$bed = $ass->get_banner_bed_id();
$assigns[] = "Could not assign <strong>{$a->username}</strong>; already assigned to <strong>{$bbc} {$bed}</strong>";
array_unshift($applicants, $b);
continue;
}
$ass = HMS_Assignment::get_assignment($b->username, $term);
if (is_a($ass, 'HMS_Assignment')) {
$bbc = $ass->get_banner_building_code();
$bed = $ass->get_banner_bed_id();
$assigns[] = "Could not assign <strong>{$b->username}</strong>; already assigned to <strong>{$bbc} {$bed}</strong>";
array_unshift($applicants, $a);
continue;
}
// Determine Room Gender
$room = $a->gender == FEMALE ? array_shift($f_rooms) : ($a->gender == MALE ? array_shift($m_rooms) : 'badgender');
// We could be out of rooms or have database corruption
if (is_null($room)) {
$problems[] = "Could not assign <strong>{$a->username}</strong>; out of " . ($a->gender ? 'male' : 'female') . ' rooms.';
$problems[] = "Could not assign <strong>{$b->username}</strong>; out of " . ($b->gender ? 'male' : 'female') . ' rooms.';
continue;
} else {
if ($room === 'badgender') {
$problems[] = "Could not assign <strong>{$a->username}</strong>; {$a->gender} is not a valid gender.";
continue;
}
}
// Prepare for assignment
$room =& new HMS_Room($room);
$room->loadBeds();
$bed_a_text = $room->_beds[0]->get_banner_building_code() . ' ' . $room->_beds[0]->banner_id;
$bed_b_text = $room->_beds[1]->get_banner_building_code() . ' ' . $room->_beds[1]->banner_id;
if ($test) {
$successes[] = HMS_Autoassigner::record_success('TEST Auto', $a, $b, $bed_a_text);
$successes[] = HMS_Autoassigner::record_success('TEST Auto', $b, $a, $bed_b_text);
} else {
$result = HMS_Autoassigner::assign($a, $room->_beds[0], $term);
if ($result === TRUE) {
$successes[] = HMS_Autoassigner::record_success('Auto', $a, $b, $bed_a_text);
$assigned[] = $a->username;
} else {
$problems[] = $result;
}
if (!is_null($b->id)) {
$result = HMS_Autoassigner::assign($b, $room->_beds[1], $term);
if ($result === TRUE) {
$successes[] = HMS_Autoassigner::record_success('Auto', $b, $a, $bed_b_text);
$assigned[] = $b->username;
} else {
$problems[] = $result;
}
}
}
}
$f_f_count = count($f_rooms);
$f_m_count = count($m_rooms);
usort($successes, array('HMS_Autoassigner', 'sort_successes'));
$content = '<h1>Autoassigner Results - ' . date('Y-m-d') . '</h1>';
$content .= '<h2>Total Assignments: ' . count($assigned) . '</h2>';
$content .= "<p>Began with {$i_f_count} female rooms and {$i_m_count} male rooms</p>";
$content .= "<p>Ended with {$f_f_count} female rooms and {$f_m_count} male rooms</p>";
$content .= '<h2>Assignment Report (' . count($successes) . ')</h2>';
$content .= '<table><tr>';
$content .= '<th>Type</th><th>Bed A</th><th>Code A</th><th>Bed B</th><th>Code B</th><th>Room</th>';
$content .= '</tr>';
foreach ($successes as $success) {
$content .= '<tr>';
$content .= '<td>' . $success['type'] . '</td>';
$content .= '<td>' . $success['a'] . '</td>';
$content .= '<td>' . $success['a_code'] . '</td>';
$content .= '<td>' . $success['room'] . '</td>';
$content .= '<td>' . $success['b'] . '</td>';
$content .= '<td>' . $success['b_code'] . '</td>';
$content .= "</tr>\n";
}
$content .= '</tr></table>';
sort($problems);
$content .= '<h2>Problems (' . count($problems) . ')</h2>';
$content .= implode("<br />\n", $problems);
sort($rlcs);
$content .= '<h2>Skipped for RLC (' . count($rlcs) . ')</h2>';
$content .= implode("<br />\n", $rlcs);
sort($assigns);
$content .= '<h2>Skipped, already assigned (' . count($assigns) . ')</h2>';
$content .= implode("<br />\n", $assigns);
sort($notices);
$content .= '<h2>Notices (' . count($notices) . ')</h2>';
$content .= implode("<br />\n", $notices);
Layout::nakedDisplay($content, NULL, TRUE);
}
