modules/rolecontact/rolecontact.module

<?php
// $Id: rolecontact.module,v 0.1 2007/05/13 22:59:00 dave Exp $

define(DEFAULT_WEIGHT,0);
define(DEFAULT_CONFIRMATION,"Thank you for your message.  If appropriate, I will respond as soon as possible.");

/**
 * Implementation of hook_menu().
 */
function rolecontact_menu($may_cache) {
  $items = array();

  if (!$may_cache) {
    $items[] = array(
      'path' => 'rolecontact_list',
      'title' => t(check_plain(variable_get('rolecontact_profile_list_title','Staff list'))),
      'callback' => 'profile_list',
      'access' => 1,
      'type' => MENU_SUGGESTED_ITEM
    );
    $items[] = array(
      'path' => 'admin/settings/rolecontact',
      'title' => t('Role Contact'),
      'description' => t('Allows admin to select a role for which users are given an automatic contact form category'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('rolecontact_settings')
    );
    $items[] = array(
      'path' => 'admin/settings/rolecontact/role',
      'title' => t('Role Contact'),
      'type' => MENU_DEFAULT_LOCAL_TASK,
    );
    $items[] = array(
      'path' => 'admin/settings/rolecontact/weights',
      'title' => t('User weights'),
      'description' => t('Allow admins to set users role contact list weights to determine display order'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('rolecontact_users'),
      'type' => MENU_LOCAL_TASK,
      'weight' => 1,
    );
    $items[] = array(
      'path' => 'admin/settings/rolecontact/fields',
      'title' => t('Display fields'),
      'description' => t('Fields to display on the staff page'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('rolecontact_fields'),
      'type' => MENU_LOCAL_TASK,
      'weight' => 1,
    );
    $items[] = array(
      'path' => 'admin/settings/rolecontact/data',
      'title' => t('Extra data'),
      'description' => t('Extra data to display'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('rolecontact_data'),
      'type' => MENU_LOCAL_TASK,
      'weight' => 1,
    );
  }
  return $items;
}

/**
 * Implementation of hook_perm().
 */
function rolecontact_perm() {
  return array('administer role contact module', 'access role contact forms', 'change own weight');
}


/**
 * Administrative settings for RoleContact Module
 */
function rolecontact_settings() {
  if (user_access('administer role contact module')) {
    $roles = user_roles(1);  // it only makes sense to offer this for roles with users, so skip anonymous...
    $form['rolecontact_role_id'] = array(
      '#type' => 'radios',
      '#title' => t('Roles'),
      '#default_value' => variable_get('rolecontact_role_id',NULL),
      '#options' => $roles,
      '#description' => t('Select a role - each user in that role will automatically have a contact form category created for him/her.')
    );
    $form['rolecontact_default_confirmation'] = array(
      '#type' => 'textarea',
      '#title' => t('Default confirmation text'),
      '#default_value' => variable_get('rolecontact_default_confirmation',DEFAULT_CONFIRMATION),
      '#rows' => 2,
      '#description' => t("This message is displayed to the user after successfully submitting a contact form for a user."),
    );
    $form['rolecontact_title'] = array(
      '#type' => 'textfield',
      '#title' => t('Page title'),
      '#required' => TRUE,
      '#default_value' => variable_get('rolecontact_profile_list_title', 'Staff List'),
    );
    $form['rolecontact_path'] = array(
      '#type' => 'textfield',
      '#title' => t('Path alias'),
      '#default_value' => db_result(db_query("SELECT dst FROM {url_alias} WHERE src='rolecontact_list'")),
      '#description' => t('The location the list will be avaliable from.'),
    );
    return system_settings_form($form);
  } else {
    drupal_access_denied();
  }
}

/**
 * This is called in conjunction with the system settings form...
 */
function rolecontact_settings_submit($form_id, $form_values) {
  debug(__FUNCTION__." form_id = $form_id, form_values = ".print_r($form_values,true));
  if ($form_id == 'rolecontact_settings') {
    $old_role = variable_get('rolecontact_role_id',NULL);
    $current_role = $form_values['rolecontact_role_id'];

    variable_set('rolecontact_role_id',$current_role);
    variable_set('rolecontact_default_confirmation',$form_values['rolecontact_default_confirmation']);

    // Set the page title
    variable_set('rolecontact_profile_list_title', $form_values['rolecontact_title']);

    // Set the path alias
    path_set_alias('rolecontact_list');
    if (isset($form_values['rolecontact_path']) && $form_values['rolecontact_path'] != '') {
      path_set_alias('rolecontact_list', $form_values['rolecontact_path']);
    }

    if ($current_role != $old_role) {
      debug(__FUNCTION__." role changed from $old_role to $current_role");
      drupal_set_message(t('All users in the selected role now have contact categories'));
      if ($old_role != NULL) {
        _delete_all_user_contact_categories($old_role);
        drupal_set_message(t('All users in the previous role have been removed'));
      }
      _add_all_user_contact_categories($current_role);
    }
  }
}

/**
 * Changes the weights of each user in role contact
 */
function rolecontact_users() {
  $role_id = variable_get('rolecontact_role_id',NULL); // staff role
  if ($role_id == NULL) {
    drupal_set_message(t('No role has been selected'), 'error');

    return;
  }

  /* Get a list of all users to display in the role contact list */
  $sql = "SELECT u.*, IF (rc.weight IS NULL, 0, rc.weight) weight FROM {users} u INNER JOIN {users_roles} ur ON ur.uid = u.uid LEFT JOIN {rolecontact} rc ON rc.uid = u.uid WHERE ur.rid = " . $role_id . " ORDER BY weight ASC, u.name ASC";
  $results = db_query($sql);
  for ($i = -10; $i <= 10; $i++) {
    $options[$i] = $i;
  }
  $form['#tree'] = TRUE;
  while($user = db_fetch_object($results)) {
    $profile = profile_view_profile($user);
    $name = _rolecontact_get_name($profile, $user);

    $form['user'][$user->uid] = array('#type' => 'markup', '#value' => theme('username', $user));
    $form['name'][$user->uid] = array('#value' => $name);
    $form['weight'][$user->uid] = array(
      '#type' => 'select',
      '#options' => $options,
      '#default_value' => $user->weight,
    );
  }

  $form['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Update'),
  );

  return $form;
}

function rolecontact_users_submit($form_id, $form) {
  $sql = "SELECT * FROM {users} WHERE uid=%d";
  foreach($form['weight'] as $key => $value) {
    $user = db_fetch_object(db_query($sql, $key));
    $cid = _get_user_contact_category($user->mail);
    if ($cid == FALSE) {
      _add_user_contact_category($user);
      $cid = _get_user_contact_category($user->mail);
    }
    _rolecontact_user_update($key, $cid, $value);
  }
  drupal_set_message(t('The users weights have been updated'));
}

function theme_rolecontact_users($form) {
  $header = array(
    array('data' => t('Username')),
    array('data' => t('Name')),
    array('data' => t('Weight')),
  );

  $rows = array();
  if (isset($form['user']) && is_array($form['user'])) {
    foreach (element_children($form['user']) as $key) {
      $row = array();
      $row['data'][] = drupal_render($form['user'][$key]);
      $row['data'][] = drupal_render($form['name'][$key]);
      $row['data'][] = drupal_render($form['weight'][$key]);
      $rows[] = $row;
    }
  }
  $output = theme('table', $header, $rows);
  $output .= drupal_render($form);

  return $output;
}

/**
 * Get a user's real name from the profile or use their username if that failed
 */
function rolecontact_fields() {
  $header = array(
    array('data' => t('Show field')),
    array('data' => t('Field title')),
  );
  $form['head'] = array('#type' => 'value', '#value' => $header);

  $role_id = variable_get('rolecontact_role_id',NULL); // staff role

  /* Get a list of all fields avaliable */
  $sql = "SELECT pf.fid, pf.title, pf.name FROM {profile_fields} pf ORDER BY pf.title";
  $results = db_query($sql);

  $form['#tree'] = TRUE;
  $form['global']['head'] = array('#value' => t('Fields to display when viewing all members profiles'));
  $form['user']['head'] = array('#value' => t('Fields to display when viewing one members profile'));

  while($field = db_fetch_object($results)) {
    $form['global']['shown'][$field->fid] = array('#type' => 'checkbox', '#default_value' => variable_get($field->name . '_show', 0));
    $form['global']['title'][$field->fid] = array('#value' => $field->title);
    $form['global']['name'][$field->fid] = array('#type' => 'value', '#value' => $field->name);

    $form['user']['shown'][$field->fid] = array('#type' => 'checkbox', '#default_value' => variable_get($field->name . '_user_show', 0));
    $form['user']['title'][$field->fid] = array('#value' => $field->title);
    $form['user']['name'][$field->fid] = array('#type' => 'value', '#value' => $field->name);
  }

  $form['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Update'),
  );

  return $form;
}

function rolecontact_fields_submit($form_id, $form_values) {
  foreach($form_values['global']['shown'] as $key => $value) {
    $name = $form_values['global']['name'][$key];
    variable_set($name . '_show', $value);
  }

  foreach($form_values['user']['shown'] as $key => $value) {
    $name = $form_values['user']['name'][$key];
    variable_set($name . '_user_show', $value);
  }

  drupal_set_message(t('The displayed fields have been updated'));
}

function theme_rolecontact_fields($form) {
  $header = $form['head']['#value'];
  $output = '';

  $output .= '<div class="rolecontact_field_select">' . theme('rolecontact_field_admin', $header, $form['global']) . '</div>';
  $output .= '<div class="rolecontact_field_select">' . theme('rolecontact_field_admin', $header, $form['user']) . '</div>';

  unset($form['global']);
  unset($form['user']);

  $output .= drupal_render($form);
  return $output;
}

/**
 * Theme the table where the profiles can be edited
 */
function theme_rolecontact_field_admin($header, $fields) {
  $output = drupal_render($fields['head']);
  if (isset($fields['title']) && is_array($fields['title'])) {
    $rows = array();
    foreach (element_children($fields['title']) as $key) {
      $row = array();
      $row['data'][] = drupal_render($fields['shown'][$key]);
      $row['data'][] = drupal_render($fields['title'][$key]);
      $rows[] = $row;
    }
    $output .= theme('table', $header, $rows);
  } else {
    $output .= t('No fields defined');
  }

  return $output;
}

/**
 * Allow the administrator to define a header and footer for the rolecontact_list page
 */
function rolecontact_data() {
  $form['#tree'] = TRUE;
  $form['header'] = array(
    '#type' => 'textarea',
    '#title' => t('Header'),
    '#default_value' => variable_get('rolecontact_header', ''),
  );

  $form['footer'] = array(
    '#type' => 'textarea',
    '#title' => t('Footer'),
    '#default_value' => variable_get('rolecontact_footer', ''),
  );
  $form['format'] = filter_form(variable_get('rolecontact_filter', FILTER_FORMAT_DEFAULT));

  $form['submit'] = array('#type' => 'submit', '#value' => t('Update'));

  return $form;
}

function rolecontact_data_submit($form_id, $form_values) {
  variable_set('rolecontact_filter', $form_values['format']);
  variable_set('rolecontact_header', check_markup($form_values['header'], $form_values['format']));
  variable_set('rolecontact_footer', check_markup($form_values['footer'], $form_values['format']));
}

/**
 * Implementation of hook_help
 */
function rolecontact_help($section = '') {
  switch ($section) {

    case 'admin/modules#description':
      return t('A module to add all users in a designated Role to the contact form list.  Requires Contact module.');
    case 'admin/settings/rolecontact/weights':
      return t('Lighter weights float to the top, heavier weights sink to the bottom. Users with the same weight are sorted alphabetically by username.');
    break;
  }
}

/**
* Implement hook_form_alter().
*/
function rolecontact_form_alter($form_id, &$form) {
  global $user;

  switch ($form_id) {
    case 'contact_mail_page':
      $form['contact_information']['#weight'] = -2;
      $form['cid']['#weight'] = -1;
      $form['cid']['#title'] = 'Send message to';

      $arg1 = arg(1);
      if (!empty($arg1)) {
        if (isset($form['cid']['#options'])) {
          foreach ($form['cid']['#options'] as $key => $option) {
            //debug(__FUNCTION__ .': key='. $key .', option='. $option);
            if ($arg1 == strtolower($key)) {
              $form['cid']['#default_value'] = $key;
            }
          }
        }
      }

      if (is_array($form['cid']['#options'])) {
        $rolecontact_options = array();
        $contact_options = array();
        foreach($form['cid']['#options'] as $key => $item) {
          $result = false;
	  $result = db_num_rows(db_query("SELECT uid from {rolecontact} WHERE cid=%d", $key));
          debug(__FUNCTION__." result = $result for key = $key");  
          if ($result) {
            $rolecontact_options[$key] = "Staff - ".$form['cid']['#options'][$key];
          } else {
            $contact_options[$key] = $form['cid']['#options'][$key];
          }
        }
        /*$options = $contact_options;
        $options['---'] = $rolecontact_options;*/
        //$options = array_merge($contact_options,$rolecontact_options);
        //$options = $contact_options + array('---') + $rolecontact_options;
        $options = $rolecontact_options + array('---') + $contact_options;
        $form['cid']['#options'] = $options;
      }
      break;

    case 'user_edit':
      /* We allow users with 'change own weight' to change their own weight or administrators to change anybody's weight */
      if ((user_access('change own weight') && $user->uid == arg(1))|| user_access('administer role contact module')) {
        /* Add a form to let the user change their weight */
        $rc_data = db_fetch_array(db_query("SELECT weight FROM {rolecontact} WHERE uid=%d", arg(1)));
        for ($i = -10; $i <= 10; $i++) {
          $options[$i] = $i;
        }
        $form['contact']['rolecontact_weight'] = array(
          '#type' => 'select',
          '#title' => t('Rolecontact list weight'),
          '#options' => $options,
          '#default_value' => (isset($rc_data['weight']) ? $rc_data['weight'] : 0),
        );
      }
    break;
  }
}

/**
 * Updates the user's weight and Contact ID in the rolecontact table
 */
function _rolecontact_user_update($uid, $cid, $weight) {
  if (db_fetch_array(db_query("SELECT * FROM {rolecontact} WHERE uid=%d", $uid))) {
    db_query("UPDATE {rolecontact} SET weight=%d, cid=%d WHERE uid=%d", $weight, $cid, $uid);
  } else {
    db_query("INSERT INTO {rolecontact} (uid, cid, weight) VALUES (%d, %d, %d)", $uid, $cid, $weight);
  }
}

/**
 * Updates the user's Contact ID in the rolecontact table if it previously had a different Contact ID
 */
function _rolecontact_user_cid_update($uid, $cid) {
  if (db_fetch_array(db_query("SELECT * FROM {rolecontact} WHERE uid=%d", $uid))) {
    debug(__FUNCTION__." updating cid for uid = $uid to $cid");
    db_query("UPDATE {rolecontact} SET cid=%d WHERE uid=%d", $cid, $uid);
  } 
}


/**
 * Implementation of hook_user().
 *
 * Updates the contact category when a user is changed or deleted.
 */
function rolecontact_user($type, &$edit, &$user, $category = NULL) {
  $rolecontact_rid = variable_get('rolecontact_role_id',NULL);
  switch ($type) {
  case 'view':
    debug(__FUNCTION__.' view - edit object: '.print_r($edit,true));
    if ($cid = _get_user_contact_category($user->mail)) {
      $items['contact_link'] = array('title' => t('Contact Link'),
        'value' => _create_user_rolecontact_link($cid),
        'class' => 'contact-link',
      );
      debug(__FUNCTION__.' items: '.print_r($items,true));
      return array(t('Contact Link') => $items);
    }
    break;
  case 'update':
    debug(__FUNCTION__.' update - edit object: '.print_r($edit,true));
    debug(__FUNCTION__.' update - user object: '.print_r($user,true));

    $roles = (isset($edit['roles']) ? $edit['roles'] : $user->roles);
    $cid = _get_user_contact_category($user->mail);
    if (isset($roles[$rolecontact_rid])) {
      debug(__FUNCTION__.' in role $rolecontact_rid');
      if ($cid == false) {
        _add_user_contact_category($user);
      }
    } else {
      if ($cid != false) {
        _delete_user_contact_category($cid);
      }
    }

    // Get the users cid
    $cid = _get_user_contact_category($user->mail);
    if ($cid) {
      if (db_fetch_array(db_query("SELECT * FROM {rolecontact} WHERE uid=%d", $user->uid))) {
        db_query("UPDATE {rolecontact} SET weight=%d, cid=%d WHERE uid=%d", $edit['rolecontact_weight'], $cid, $user->uid);
      } else {
        db_query("INSERT INTO {rolecontact} (uid, cid, weight) VALUES (%d, %d, %d)", $user->uid, $cid, $edit['rolecontact_weight']);
      }
    }

    break;
  case 'delete':
    if ($cid = _get_user_contact_category($user->mail)) {
        return _delete_user_contact_category($cid);
    }
    break;
  default:
    break;
  }
}

function _create_user_rolecontact_link($cid) {
  return '<a class="contact-link" href="/contact/'.$cid.'">contact form</a>';
}

/**
 * Internal method - determines whether the user is already in the contact category table
 * Params $mail - user email address string
 * Returns the user's contact category id, if present, or false if not.
 */
function _get_user_contact_category($mail) {
  $result = db_query("SELECT cid FROM {contact} WHERE recipients = '%s'", $mail);
  while ($category = db_fetch_object($result)) {
    return $category->cid;
  }
  return false;
}

/**
 * Internal method - adds a category for the user to the contact category table
 * Params $user - user object reference
 * Returns true on success, false on failure
 */
function _add_user_contact_category(&$user) {
  $category = _get_user_category_string($user);
  $recipients = $user->mail;
  $reply = variable_get('rolecontact_default_confirmation',DEFAULT_CONFIRMATION);
  $weight = DEFAULT_WEIGHT;
  $selected = "false";
  if (db_query("INSERT INTO {contact} (category, recipients, reply, weight, selected) VALUES ('%s','%s','%s',%d, %d)", $category, $recipients, $reply, $weight, $selected)) {
    debug(__FUNCTION__." added user $category");
    // make sure that the user has an updated cid in the rolecontact table if one previously existed...
    $cid = _get_user_contact_category($recipients);
    _rolecontact_user_cid_update($user->uid,$cid);
    watchdog('rolecontact', t('Role Contact: user %category added.', array('%category' => $category)), WATCHDOG_NOTICE);
  } else {
    watchdog('rolecontact', t('Role Contact: failed to add user %category.', array('%category' => $category)), WATCHDOG_WARNING);
  }
}

/**
 * Internal method - adds a contact category for all the users in the selected role
 * Params $rid - a role id
 * Returns true on success, false on failure
 */
function _add_all_user_contact_categories($rid) {
  $users = _get_users_in_role($rid);
  foreach ($users as $user) {
    _add_user_contact_category($user);
  }
}

/**
 * Internal method - removes a category for the user from the contact category table
 *
 * Returns nothin'
 */
function _delete_user_contact_category($cid) {
  $result = db_query("SELECT category FROM {contact} WHERE cid = %d", $cid);
  $category = false;
  if ($row = db_fetch_object($result)) {
    if (db_query("DELETE FROM {contact} WHERE cid = %d", $cid)) {
      debug(__FUNCTION__."deleting user $row->category");
      watchdog('rolecontact', t('Role Contact: user %category removed.', array('%category' => $row->category)), WATCHDOG_NOTICE);
    } else {
      watchdog('rolecontact', t('Role Contact: failed to remove user %category.', array('%category' => $row->category)), WATCHDOG_WARNING);
    }
  }
}

/**
 * Internal method - when disabling the module, removes all user role categories
 * Params $rid - a role id
 * Returns nothin'
 */
function _delete_all_user_contact_categories($rid) {
  $users = _get_users_in_role($rid);
  foreach ($users as $user) {
    $category = _get_user_category_string($user);
    $mail = $user->mail;
    debug(__FUNCTION__." deleting user $category, with email $mail");
    if (db_query("DELETE FROM {contact} WHERE category = '%s' AND recipients = '%s'", $category, $mail)) {
      debug(__FUNCTION__." deleted user $category, with email $mail");
      watchdog('rolecontact', t('Role Contact: removing all users - user %category removed.', array('%category' => $category)), WATCHDOG_NOTICE);
    } else {
      debug(__FUNCTION__." failed to delete user $category, with email $mail");
      watchdog('rolecontact', t('Role Contact: removing all users - failed to remove user %category.', array('%category' => $category)), WATCHDOG_WARNING);
    }
  }
}

/**
 * Internal method - returns the user's contact category string based on rules
 *
 * Returns a string on success, false on failure
 */
function _get_user_category_string(&$user) {
  //debug(__FUNCTION__.' user object: '.print_r($user,true));
  $name = false;
  if (isset($user->profile_firstname) && isset($user->profile_lastname)) {
    $name = $user->profile_firstname.' '.$user->profile_lastname;
  } elseif (isset($user->profile_fullname)) {
    $name = $user->profile_fullname;
  } else {
    $name = $user->name;
  }
  debug(__FUNCTION__.' name = '.$name);
  return $name;
}

/**
 * Internal method - returns an array of role user objects
 * Argument - a role ID
 * Returns an array of users, empty array otherwise
 */
function _get_users_in_role($role_id) {
  $users = array();
  $result = db_query('SELECT DISTINCT u.uid FROM {users} u INNER JOIN {users_roles} r ON u.uid = r.uid WHERE r.rid = %s', $role_id);
  while($account = db_fetch_object($result)) {
    $users[] = user_load(array('uid'=>$account->uid));
  }
  //debug(__FUNCTION__." all users in role $role_id: ".print_r($users,true));
  return $users;
}

/**
 * Menu callback; display a list of user information.
 */
function profile_list() {
  global $user;
  $name = arg(1);
  list(, , $value) = explode('/', $_GET['q'], 3);

  $field = db_fetch_object(db_query("SELECT DISTINCT(fid), type, title, page, visibility FROM {profile_fields} WHERE name = '%s' ORDER BY weight ASC ", $name));
  $role_id = variable_get('rolecontact_role_id',NULL); // staff role

  if ($name && $field->fid) {
    // Only allow browsing of fields that have a page title set.
    if (empty($field->page)) {
      drupal_not_found();
      return;
    }
    // Do not allow browsing of private fields by non-admins.
    if (!user_access('administer users') && $field->visibility == PROFILE_PRIVATE) {
      drupal_access_denied();
      return;
    }

    // Compile a list of fields to show.
    $fields = array();
    $result = db_query('SELECT name, title, type, weight, page FROM {profile_fields} WHERE fid != %d AND visibility = %d ORDER BY weight ASC', $field->fid, PROFILE_PUBLIC_LISTINGS);
    while ($record = db_fetch_object($result)) {
      $fields[] = $record;
    }

    // Determine what query to use:
    $arguments = array($field->fid);
    switch ($field->type) {
    case 'checkbox':
      $query = 'v.value = 1';
      break;
    case 'textfield':
    case 'selection':
      $query = "v.value = '%s'";
      $arguments[] = $value;
      break;
    case 'list':
      $query = "v.value LIKE '%%%s%%'";
      $arguments[] = $value;
      break;
    default:
      drupal_not_found();
      return;
    }

    // Extract the affected users:
    $result = pager_query("SELECT u.uid, u.access FROM {users} u INNER JOIN {profile_values} v ON u.uid = v.uid WHERE v.fid = %d AND $query AND u.access != 0 AND u.status != 0 ORDER BY u.access DESC", 20,0, NULL, $arguments);
    $output = '<div id="staff_profile">';
    while ($account = db_fetch_object($result)) {
      $account = user_load(array('uid' => $account->uid));
      if (isset($account->roles[$role_id])) {
        $profile = _profile_update_user_fields($fields, $account);
        $output .= theme('profile_listing', $account, $profile);
      }
      else {
        $output .= "not including ".$account->uid."...";
      }
    }
    $output .= theme('pager', NULL, 20);

    if ($field->type == 'selection' || $field->type == 'list' || $field->type == 'textfield') {
      $title = strtr(check_plain($field->page), array('%value' => theme('placeholder', $value)));
    } else {
      $title = check_plain($field->page);
    }
    $output .= '</div>';
    drupal_set_title($title);
    return $output;
  }
  // for a specific user
  else if ($name) {
    $result = db_query("SELECT u.uid, u.name, u.status, u.created, u.access FROM {users} u INNER JOIN {users_roles} ur ON u.uid=ur.uid WHERE ur.rid = $role_id AND u.name='%s'", $name);
    $account = db_fetch_object($result);
    if (!$account) {
      drupal_not_found();
    } else {
      $account = user_load(array('uid' => $account->uid));

      $profile = profile_view_profile($account);  // get the profile fields array

      if (is_array($profile)) {
        // Remove unwanted profile items
        foreach($profile as $details_key => $details) {
          foreach($details as $key => $item) {
            if (variable_get($key . '_user_show', 0) == 0) {
              unset($profile[$details_key][$key]);
            }
          }
        }
      }
      $account->profile_fullname = _rolecontact_get_name($profile,$account);
      drupal_set_title('Information about ' . $account->profile_fullname);
      //$output = '<div class="content">';
      //$output .= '<p>To obtain more details about a staff member, please click on their name below.</p>';
      $output .= '<table id="rolecontact_list">';
      $output .= theme('rolecontact_profile',$account,$profile,false);
      $output .= '</table>';
      return $output;
    }
  }
  // for a list of all users in the role
  else {
    $fields = array();
    // if ( user in private role
    $fields_selector = PROFILE_PUBLIC_LISTINGS;
    $result = db_query('SELECT name, title, type, weight FROM {profile_fields} WHERE visibility = %d ORDER BY category DESC, weight', $fields_selector);
    while ($record = db_fetch_object($result)) {
      $fields[] = $record;
    }
    debug(__FUNCTION__.': staff field array ='.print_r($fields,true));
    debug(__FUNCTION__.': user array ='.print_r($account,true));

    // Find the profile_rolecontact_weight profile field
    // TODO: Make profile_rolecontact_weight admin configurable
    $result = db_query("SELECT fid FROM {profile_fields} WHERE name = 'profile_rolecontact_weight'");
    $id = db_fetch_object($result);

    $result = pager_query("SELECT u.uid, u.name, u.status, u.created, u.access, IF (rc.weight IS NULL, 0, rc.weight) weight FROM {users} u INNER JOIN {users_roles} ur ON u.uid=ur.uid LEFT JOIN {rolecontact} rc ON rc.uid = u.uid WHERE ur.rid = $role_id ORDER BY weight ASC, u.name ASC",
                          20, 0, NULL);
    $status = array(t('blocked'), t('active'));
    $output = '<div class="content">';
    $output .= '<div class="rolecontact_header">' . variable_get('rolecontact_header', '') . '</div>';
    //$output .= '<p>To obtain more details about a staff member, please click on their name below.</p>';
    $output .= '<table id="rolecontact_list">';
    $info = array();
    $i = 0;
    while ($account = db_fetch_object($result)) {
      $account = user_load(array('uid' => $account->uid));
      debug(__FUNCTION__.': staff field array ='.print_r($fields,true));
      debug(__FUNCTION__.': user array ='.print_r($account,true));
      //$profile = _profile_update_user_fields($fields, $account);
      $profile = profile_view_profile($account);  // get the profile fields array

      if (is_array($profile)) {
        // Remove unwanted profile items
        foreach($profile as $details_key => $details) {
          foreach($details as $key => $item) {
            if (variable_get($key . '_show', 0) == 0) {
              unset($profile[$details_key][$key]);
            }
          }
        }
      }
      $account->profile_fullname = _rolecontact_get_name($profile,$account);
      $output .= theme('rolecontact_profile',$account,$profile);
    }

    $output .= '</table>';
    $output .= '<div class="rolecontact_footer">' . variable_get('rolecontact_footer', '') . '</div>';
    $output .= '</div>';
    $output .= theme('pager', NULL, 20);

    drupal_set_title(t(check_plain(variable_get('rolecontact_profile_list_title','Staff List'))));
    return $output;
  }
}

/**
 * Find the name of a user from their profile. If that fails use their username
 */
function _rolecontact_get_name($profile, &$user) {
  if (is_array($profile)) {
    foreach ($profile as $item) {
      if (isset($item['profile_fullname']['value'])) {
        if (!isset($fullname)) {
          $fullname = $item['profile_fullname']['value'];
        }
      }
      if (isset($item['profile_firstname']['value'])) {
        if (!isset($firstname)) {
          $firstname = $item['profile_firstname']['value'];
        }
      }
      if (isset($item['profile_lastname']['value'])) {
        if (!isset($lastname)) {
          $lastname = $item['profile_lastname']['value'];
        }
      }
    }

    if (isset($fullname)) {
      return $fullname;
    } elseif (isset($firstname)) {
      $name = $firstname;
      if (isset($lastname)) {
        $name .= ' ' . $lastname;
      }
      return $name;
    }
  }
  return $user->name;
}

function theme_rolecontact_profile($account,$profile,$show_link=true) {
  $output = '  <tr>';
  $output .= '    <td class="picture">';
  if ($account->picture) {
    $output .= theme('user_picture', $account);
  }
  $output .= '    </td>';
  $output .= '    <td class="profile">';

  if ($profile) {
    foreach ($profile as $profile_section => $fields) {
      debug(__FUNCTION__.' processing '.$profile_section.' now...');
      debug(__FUNCTION__.' profile object: '.print_r($fields,true));
      $name_added = false;
      $contact_added = false;
      foreach ($fields as $field) {
        if ($field['class'] == 'profile_lastname' or $field['class'] == 'profile_firstname' or $field['class'] == 'profile_fullname') {
          if (!$name_added) {
            $name = _rolecontact_get_name($profile, $user);
            $output .= '        <div class="fields fields-fullname">';
            $output .= '           '.$name.' ';
            if ($show_link) {
              $url = "/rolecontact_list/".$account->name;
              $output .= '            (<a href="'.$url.'">profile</a>)';
	    }
            $output .= '        </div>';
            $name_added = true;
          }
        } else {
          debug(__FUNCTION__.' field : '.print_r($field,true));
          $output .= '      <div class="fields fields-'.$field['class'].'"><span class="label">'.$field['title'].'</span>: '.$field['value'].'</div>';
          debug(__FUNCTION__.' profile field '.$field['title'].' is '.$field['value']);
        }

        // add the contact info after the user's name
        if ($name_added and !$contact_added and $account->contact == 1) {
          $output .= '        <div class="fields fields-contact"><span class="label">Email:</span>';
          debug(__FUNCTION__.' user object: '.print_r($account,true));
          debug(__FUNCTION__.' profile object: '.print_r($profile,true));
          $uid = $account->uid;
          $cid = _get_user_contact_category($account->mail);
          $url = _create_user_rolecontact_link($cid);
          $output .= '          '.$url;
          $output .= '        </div>';
          $contact_added = true;
        }
      }
    }
  }

  $output .= '    </td>';
  $output .= '  </tr>';
  return $output;
}