modules/registration_role/registration_role.module

<?php
/* $Id: registration_role.module,v 1.2.2.2 2007/08/03 11:22:10 agaric Exp $ */

// untested Drupal 5 version
// auto-assign role at registration
// Registration Role

/* based on
   http://drupal.org/node/28379#comment-132430
   code snippet by Pauly Jura
   This module actually does less than the snippet
*/

/**
 * Implementation of hook_help().
 *
 */
function registration_role_help($section='') {
  $output = '';
  switch ($section) {
    case "admin/modules#description":
      $output = t("Auto-assign role at registration.");
      break;
  }
  return $output;
}

/**
 * Implementation of hook_menu().
 *
 * This is the Drupal 5 way but it should work for 4.7 settings
 */
function registration_role_menu() {
  $items = array();

  $items['admin/user/registration_role'] = array(
    'title' => t('Registration role'),
    'description' => t('Assign users an extra role at signup.'),
    'page callback' => 'drupal_get_form',
    'page arguments' => array('registration_role_admin_settings'),
    'access arguments' => array('administer users'),
  );

  return $items;
}

/**
 * Define the settings form.
 */
function registration_role_admin_settings() {
  $roles = user_roles(TRUE);
  unset($roles['2']);
  $form['registration_role_roles'] = array(
    '#type' => 'radios',
    '#title' => t('Select role to automatically assign to new users'),
    '#options' => $roles,
    '#default_value' => variable_get('registration_role_roles', ''),
    '#description' => t('The selected role will be assigned to new registrants from now on.  Be sure this role does not have any privileges you fear giving out without reviewing who receives it.'),
  );
  // $form['array_filter'] = array('#type' => 'hidden');  
  // Drupal 5, mysterious, needed for multiple check box values using settings hook  
  return system_settings_form($form);
}

/**
 * Implementation of hook_user().
 *
 * Catch every registration and insert role
 */
function registration_role_user($op, &$edit, &$user, $category=null) {
  if ($op == "insert" && $rid = variable_get('registration_role_roles', '')){
    // get the role in question
	$roles = user_roles(TRUE);
	
	// add it to the user
    $edit['roles'][$rid] = $roles[$rid];
  }
}
1	<?php
2	/* $Id: registration_role.module,v 1.2.2.2 2007/08/03 11:22:10 agaric Exp $ */
3
4	// untested Drupal 5 version
5	// auto-assign role at registration
6	// Registration Role
7
8	/* based on
9	http://drupal.org/node/28379#comment-132430
10	code snippet by Pauly Jura
11	This module actually does less than the snippet
12	*/
13
14	/**
15	* Implementation of hook_help().
16	*
17	*/
18	function registration_role_help($section='') {
19	$output = '';
20	switch ($section) {
21	case "admin/modules#description":
22	$output = t("Auto-assign role at registration.");
23	break;
24	}
25	return $output;
26	}
27
28	/**
29	* Implementation of hook_menu().
30	*
31	* This is the Drupal 5 way but it should work for 4.7 settings
32	*/
33	function registration_role_menu() {
34	$items = array();
35
36	$items['admin/user/registration_role'] = array(
37	'title' => t('Registration role'),
38	'description' => t('Assign users an extra role at signup.'),
39	'page callback' => 'drupal_get_form',
40	'page arguments' => array('registration_role_admin_settings'),
41	'access arguments' => array('administer users'),
42	);
43
44	return $items;
45	}
46
47	/**
48	* Define the settings form.
49	*/
50	function registration_role_admin_settings() {
51	$roles = user_roles(TRUE);
52	unset($roles['2']);
53	$form['registration_role_roles'] = array(
54	'#type' => 'radios',
55	'#title' => t('Select role to automatically assign to new users'),
56	'#options' => $roles,
57	'#default_value' => variable_get('registration_role_roles', ''),
58	'#description' => t('The selected role will be assigned to new registrants from now on. Be sure this role does not have any privileges you fear giving out without reviewing who receives it.'),
59	);
60	// $form['array_filter'] = array('#type' => 'hidden');
61	// Drupal 5, mysterious, needed for multiple check box values using settings hook
62	return system_settings_form($form);
63	}
64
65	/**
66	* Implementation of hook_user().
67	*
68	* Catch every registration and insert role
69	*/
70	function registration_role_user($op, &$edit, &$user, $category=null) {
71	if ($op == "insert" && $rid = variable_get('registration_role_roles', '')){
72	// get the role in question
73	$roles = user_roles(TRUE);
74
75	// add it to the user
76	$edit['roles'][$rid] = $roles[$rid];
77	}
78	}