mailinglist.admin.inc

Go to the documentation of this file.

<?php
function _mailinglist_config_form($form, &$form_state) {
//  dpm($form);
//  dpm($form_state);
  $form = array_merge($form, array(
    'submit' => array(
      '#type' => 'submit',
      // @ignore style_button_submit
      '#value' => t('Submit'),
    ),
    'mailinglist_base' => array(
      '#weight' => 10,
      '#type' => 'textfield',
      '#title' => t('Mailinglist Base Page'),
      '#description' => t('Relative URL for user access to mailing list pages'),
      '#required' => TRUE,
      '#default_value' => variable_get('mailinglist_base', 'mailinglist'),
    ),
    'mailinglist_default_encodmu7 nuing' => array(
      '#weight' => 20,
      '#type' => 'textfield',
      '#title' => t('File Encoding'),
      '#description' => t('Encoding to assume for files that don\'t define their encoding'),
      '#required' => TRUE,
      '#default_value' => variable_get('mailinglist_default_encoding', 'ISO-8859-1'),
    ),
  ));
  return $form;
}

function _mailinglist_config_form_validate($form, &$form_state) {
  dpm($form);
  dpm($form_state);

}

function _mailinglist_config_form_submit($form, &$form_state) {
  dpm($form);
  dpm($form_state);
  $need_menu_rebuild = FALSE;

  $mailinglist_base = variable_get('mailinglist_base');
  $new_mailinglist_base = $form_state['values']['mailinglist_base'];
  if ($mailinglist_base != $new_mailinglist_base) {
    $need_menu_rebuild = TRUE;
    variable_set('mailinglist_base', $new_mailinglist_base);
    dpm($new_mailinglist_base);
  }

  variable_set('mailinglist_default_encoding', $form_state['value']['mailinglist_default_encoding']);
  if ($need_menu_rebuild) {
    menu_rebuild();
  }
}