// Copyright (C) 2007 The Trustees of Princeton University
//
// $Id$ $
//
// Get session and API handles
require_once 'plc_session.php';
global $plc, $api, $adm;
// Get sorting functions
require_once 'plc_sorts.php';
// Print header
require_once 'plc_drupal.php';
drupal_set_title('Account Registration');
include 'plc_header.php';
// Drupalish, but does not use Drupal itself to generate the form
$form = array();
$form['first_name'] = array('title' => 'First name', 'required' => TRUE,
'maxlength' => 60, 'size' => 15);
$form['last_name'] = array('title' => 'Last name', 'required' => TRUE,
'maxlength' => 60, 'size' => 15);
$form['title'] = array('title' => 'Title', 'required' => FALSE,
'maxlength' => 60, 'size' => 5);
$form['phone'] = array('title' => 'Telephone', 'required' => FALSE,
'maxlength' => 60, 'size' => 20);
$form['email'] = array('title' => 'E-mail', 'required' => TRUE,
'maxlength' => 60, 'size' => 30);
$form['password'] = array('title' => 'Password', 'required' => TRUE,
'maxlength' => 60, 'size' => 20);
$form['site_ids'] = array('title' => 'Site', 'required' => TRUE);
$form['roles'] = array('title' => 'Additional Roles', 'required' => FALSE);
//////////////////// additional messages
$form['email']['comment'] = <<< EOF
Your E-mail address must be able to receive e-mail and will be
used as your $PLC_NAME username
EOF;
$form['site_ids']['comment'] = <<< EOF
Select the site where you belong
EOF;
$form['roles']['comment'] = <<< EOF
Do not select the Principal Investigator or Technical
Contact roles unless you have spoken with the current PI of your
site, and you intend to assume either or both of these roles.
Use Command-Clic to unselect or for multiple selection
EOF;
////////////////////
global $person;
$person = array();
foreach ($form as $name => $item) {
if (!empty($_REQUEST[$name])) {
$person[$name] = $_REQUEST[$name];
}
}
// Filter out "Select a site"
if (!empty($person['site_ids'])) {
$person['site_ids'] = array_filter($person['site_ids'],
create_function('$site_id', 'return intval($site_id) > 0;'));
}
if (!empty($person)) {
// Look for missing/blank entries
$missing = array();
foreach ($form as $name => $item) {
if ($item['required'] && empty($person[$name])) {
$missing[] = $item['title'];
}
}
if (!empty($missing)) {
$error = "
";
foreach ($missing as $field) {
$error .= "
$field field is required.
";
}
$error .= "
";
}
if (empty($error)) {
// N.B.: site_ids and roles are ignored by AddPerson()
$person_id = $adm->AddPerson($person);
$error = $adm->error();
}
if (empty($error)) {
$adm->begin();
// Add person to requested sites
foreach ($person['site_ids'] as $site_id) {
$adm->AddPersonToSite($person_id, intval($site_id));
$adm->SetPersonPrimarySite($person_id, intval($site_id));
}
// Add requested roles. Always add the user role.
$adm->AddRoleToPerson('user', $person_id);
if (!empty($person['roles'])) {
foreach ($person['roles'] as $role) {
$adm->AddRoleToPerson($role, $person_id);
}
}
// Send an e-mail containing a link back to this page, which will
// verify the given e-mail address as valid. PIs can still create
// and enable accounts on behalf of their users, they just have to
// find and enable the accounts manually after registering them.
$adm->VerifyPerson($person_id);
// Disable submit button
$person['person_id'] = $person_id;
$adm->commit();
$error = $adm->error();
}
if (!empty($error)) {
print '
' . $error . '
';
} else {
print '
Your registration request has been received. An e-mail has been sent to ';
print $person['email'];
print ' with further instructions.
';
}
}
$PLC_NAME = htmlspecialchars(PLC_NAME);
// E-mail address verified, go ahead and notify the PI (and possibly
// support if a PI role was requested) that a registration request was
// received.
if (!empty($_REQUEST['id']) && !empty($_REQUEST['key'])) {
$person_id = intval($_REQUEST['id']);
if ($adm->VerifyPerson($person_id, $_REQUEST['key']) != 1) {
print '
' . $adm->error() . '.
';
} else {
$persons = $adm->GetPersons(array($person_id));
$person = $persons[0];
// Remove the password field from the form so that it is not
// highlighted as missing.
unset($form['password']);
print '
';
print 'Your e-mail address has been verified. ';
print 'The PI(s) at your site have been notified of your account registration ';
if (in_array('pi', $person['roles'])) {
$support = PLC_MAIL_SUPPORT_ADDRESS;
print " and should contact $PLC_NAME Support <$support>. ";
print " $PLC_NAME Support will enable your account if authorized by your PI(s).";
} else {
print ' and are responsible for enabling your account.';
}
print '
';
}
}
$self = $_SERVER['PHP_SELF'];
if (!empty($_SERVER['QUERY_STRING'])) {
$self .= "?" . $_SERVER['QUERY_STRING'];
}
$adm->begin();
// All defined sites
// cannot register with foreign site
$adm->GetSites(array('is_public' => TRUE, 'peer_id' => NULL), array('site_id', 'name','enabled','peer_id'));
// All defined roles
$adm->GetRoles();
list($sites, $roles) = $adm->commit();
// Alphabetize sites by name
sort_sites($sites);
// Prepend invalid site to beginning of list to force user to select a site
$sites = array_merge(array(array('site_id' => -1, 'name' => 'Select a site', 'enabled' => TRUE)), $sites);
// Drop down selection box for each site
function site_option($site) {
global $person;
$site_id = $site['site_id'];
if (!empty($person['site_ids']) && in_array($site_id, $person['site_ids'])) {
$selected = 'selected="selected"';
} else {
$selected = "";
}
$option = "";
return $option;
}
$role_options = implode("\n", array_map('role_option', $roles));
$self = $_SERVER['PHP_SELF'];
if (!empty($_SERVER['QUERY_STRING'])) {
$self .= "?" . $_SERVER['QUERY_STRING'];
}
print <<