mailinglist.pagecallback.inc File Reference

Mailinglist front end pages. More...

Go to the source code of this file.

Functions
	_mailinglist_pagecallback ()
	Page call back function for mailinglist. More...
	_mailinglist_list_pagecallback ($list= '', $oper= '', $p1= '', $p2= '', $p3= '', $p4= '')
	_mailinglist_list_pagecallback() More...
	mailinglist_operation_form ($form, &$form_state)
	mailinglit_operation_form(). More...
	mailinglist_operation_form_validate ($form, &$form_state)
	mailinglit_operationr_form_validate(). More...
	mailinglist_operation_form_submit ($form, &$form_state)
	mailinglit_operationr_form_submit(). More...

Detailed Description

Mailinglist front end pages.

Definition in file mailinglist.pagecallback.inc.

Function Documentation

_mailinglist_list_pagecallback	(		$list = '',
			$oper = '',
			$p1 = '',
			$p2 = '',
			$p3 = '',
			$p4 = ''
	)

_mailinglist_list_pagecallback()

callback for $base/mailinglist_list

Definition at line 58 of file mailinglist.pagecallback.inc.

References mailinglist_operation_load().

                      {
  $base = variable_get('mailinglist_base', 'mailinglist');
  $breadcrumb = array(
    l(t('Home'), '<front>'),
    l(t('Mailing Lists'), $base),
  );
  drupal_set_breadcrumb($breadcrumb);

  $page = array();
  if (!($list instanceof MailinglistListInterface) || !user_access('mailinglist ' . $list->admin_name)) {
    drupal_set_title(t('Unknown Mailing List'));
    $page = array("#markup" => "Unknown Mailing List.");
  }
  else {
    $listname = $list->admin_name;
    drupal_set_title($list->admin_title);
    $page['oper'] = array(
      '#theme' => 'item_list',
      '#type' => 'ul',
      '#attributes' => array('class' => 'mailinglist_list'),
    );
    foreach ($list->operations as $index => $enabled) {
      if ($enabled) {
        $oper = mailinglist_operation_load($index);
        if ($oper->hasPermission($list)) {
          $page['oper']['#items'][$index] = array('data' => l($oper->plugin['name'], "$base/$listname/$index"));
        }
      }
    }
  }
  return $page;
}

Here is the call graph for this function:

_mailinglist_pagecallback

(

)

Page call back function for mailinglist.

address is of form /mailinglist/listname/operation/ (mailinglist can be replaced with a different path) if no listname, give general information with a list of mailing lists available if no operation, give list introduction with a list of operations operations looked up in via plugin.

Todo:

get node id of our introduction.

Definition at line 18 of file mailinglist.pagecallback.inc.

References mailinglist_list_load_all().

                                     {
  $base = variable_get('mailinglist_base', 'mailinglist');
  $breadcrumb = array(
    l(t('Home'), '<front>'),
  );
  drupal_set_breadcrumb($breadcrumb);

  $lists = mailinglist_list_load_all(false);
  $page = array();
//  $page['node'] = node_view(node_load(1));
//  dpm($page);
  if (empty($lists)) {
    $page['list'] = array('#markup' => 'No Mailinglist defined');
  }
  else {
    $page['head'] = array('#markup' => 'This is a listing of lists available');
    $page['list'] = array(
      '#theme' => 'item_list',
      '#type' => 'ul',
      '#attributes' => array('class' => 'mailinglist_list'),
    );
    foreach ($lists as $index => $list) {
      // only show pages the user has access to
      if (user_access('mailinglist ' . $index)) {
        $admin_name = check_plain($list->admin_name);
        $admin_title = check_plain($list->admin_title);
        $markup = "<a href=/$base/$admin_name>$admin_title</a>";
        $page['list']['#items'][$index] = array('data' => $markup);
      }
    }
  }
  return $page;
}

Here is the call graph for this function:

mailinglist_operation_form	(		$form,
		&	$form_state
	)

mailinglit_operation_form().

Implements hook_form();

Definition at line 97 of file mailinglist.pagecallback.inc.

                                                         {
  watchdog('Mailinglist', "<pre>Form: @f \nState: @s</pre>",
    array('@f' => print_r($form, TRUE), '@s' => print_r($form_state, TRUE)), WATCHDOG_INFO);
  $list = $form_state['build_info']['args'][0];
  $operation = $form_state['build_info']['args'][1];

  if (!($list instanceof MailinglistListInterface)) {
    drupal_set_title(t('Unknown Mailing List'));
    $form = array("#markup" => "Unknown Mailing List.");
    return $form;
  }

  if (!($operation instanceof MailinglistOperationInterface) || !$operation->hasPermission($list)) {
    drupal_set_title(t('Unknown Operation'));
    $form = array("#markup" => "Unknown Operation.");
    return $form;
  }
  $base = variable_get('mailinglist_base', 'mailinglist');
  $breadcrumb = array(
    l(t('Home'), '<front>'),
    l(t('Mailing Lists'), $base),
    l($list->admin_title , $base . '/' . $list->admin_name),
  );
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title($list->admin_title . ' - ' . $operation->plugin['name']);

  $operation->form($form, $form_state, $list);

  return $form;
}

mailinglist_operation_form_submit	(		$form,
		&	$form_state
	)

mailinglit_operationr_form_submit().

Implements hook_form_submit();

Definition at line 152 of file mailinglist.pagecallback.inc.

                                                                {
  watchdog('Mailinglist', "<pre>Submit: @f \nState: @s</pre>",
    array('@f' => print_r($form, TRUE), '@s' => print_r($form_state, TRUE)), WATCHDOG_INFO);
  $list = $form_state['build_info']['args'][0];
  $operation = $form_state['build_info']['args'][1];
  if ($operation instanceof MailinglistOperationInterface) {
    $operation->submit($form, $form_state, $list);
  }
  else {
    dpm(func_get_args(), 'submit?');
  }
}

mailinglist_operation_form_validate	(		$form,
		&	$form_state
	)

mailinglit_operationr_form_validate().

Implements hook_form_validate();

Definition at line 133 of file mailinglist.pagecallback.inc.

                                                                  {
  watchdog('Mailinglist', "<pre>Validate: @f \nState: @s</pre>",
    array('@f' => print_r($form, TRUE), '@s' => print_r($form_state, TRUE)), WATCHDOG_INFO);
//  dpm($form_state, 'Validate');
  $list = $form_state['build_info']['args'][0];
  $operation = $form_state['build_info']['args'][1];
  if ($operation instanceof MailinglistOperationInterface) {
    $operation->validate($form, $form_state, $list);
  }
  else {
    dpm(func_get_args(), 'validate?');
  }
}