Mailinglist
 All Data Structures Files Functions Variables Pages
Functions
mailinglist.admin.inc File Reference

Mailinglist admin menus. More...

Go to the source code of this file.

Functions

 _mailinglist_config_form ($form, &$form_state)
 _mailinglist_config_form() More...
 
 _mailinglist_config_form_validate ($form, &$form_state)
 _mailinglist_config_form_validate() More...
 
 _mailinglist_config_form_submit ($form, &$form_state)
 _mailinglist_config_form_submit() More...
 

Detailed Description

Mailinglist admin menus.

Definition in file mailinglist.admin.inc.

Function Documentation

_mailinglist_config_form (   $form,
$form_state 
)

_mailinglist_config_form()

Implements hook_form(). Menu for admin/config/system/mailinglist

See also
_mailinglist_config_form_validate()
_mailinglist_config_form_submit()

Definition at line 16 of file mailinglist.admin.inc.

16  {
17 // dpm($form);
18 // dpm($form_state);
19  $form = array_merge($form, array(
20  'submit' => array(
21  '#type' => 'submit',
22  // @ignore style_button_submit
23  '#value' => t('Submit'),
24  ),
25  'mailinglist_base' => array(
26  '#weight' => 10,
27  '#type' => 'textfield',
28  '#title' => t('Mailinglist Base Page'),
29  '#description' => t('Relative URL for user access to mailing list pages'),
30  '#required' => TRUE,
31  '#default_value' => variable_get('mailinglist_base', 'mailinglist'),
32  ),
33  'mailinglist_default_encodmu7 nuing' => array(
34  '#weight' => 20,
35  '#type' => 'textfield',
36  '#title' => t('File Encoding'),
37  '#description' => t('Encoding to assume for files that don\'t define their encoding'),
38  '#required' => TRUE,
39  '#default_value' => variable_get('mailinglist_default_encoding', 'ISO-8859-1'),
40  ),
41  ));
42  return $form;
43 }
_mailinglist_config_form_submit (   $form,
$form_state 
)

_mailinglist_config_form_submit()

Implements hook_form_submit().

Definition at line 62 of file mailinglist.admin.inc.

62  {
63  dpm($form);
64  dpm($form_state);
65  $need_menu_rebuild = FALSE;
66 
67  $mailinglist_base = variable_get('mailinglist_base');
68  $new_mailinglist_base = $form_state['values']['mailinglist_base'];
69  if ($mailinglist_base != $new_mailinglist_base) {
70  $need_menu_rebuild = TRUE;
71  variable_set('mailinglist_base', $new_mailinglist_base);
72  dpm($new_mailinglist_base);
73  }
74 
75  variable_set('mailinglist_default_encoding', $form_state['value']['mailinglist_default_encoding']);
76  if ($need_menu_rebuild) {
77  menu_rebuild();
78  }
79 }
_mailinglist_config_form_validate (   $form,
$form_state 
)

_mailinglist_config_form_validate()

Implements hook_form_validate().

Todo:
validate mailinglist_base

Definition at line 50 of file mailinglist.admin.inc.

50  {
51  dpm($form);
52  dpm($form_state);
53 
55 }