function admin_block_devel_form in Admin 6.2

Same name and namespace in other branches

1. 7.2 includes/admin.devel.inc \admin_block_devel_form()

Devel admin block form.

1 string reference to 'admin_block_devel_form'

admin_block_devel in includes/admin.devel.inc

Devel admin block.

File

includes/admin.devel.inc, line 17

Code

function admin_block_devel_form($form_state) {
  $panes = array();
  if (user_access('access devel information')) {
    $panes[] = admin_devel_performance_form();
  }
  if (user_access('switch users')) {
    $panes['switch_user'] = array(
      '#title' => t('Switch user'),
      'list' => array(
        '#type' => 'markup',
        '#value' => theme('links', devel_switch_user_list()),
      ),
      'user' => devel_switch_user_form(),
    );
    $panes['switch_user']['user']['#submit'] = array(
      'devel_switch_user_form_submit',
    );
  }
  if (user_access('execute php code')) {
    $panes['execute'] = devel_execute_form() + array(
      '#title' => t('Execute PHP'),
    );
    $panes['execute']['op']['#submit'] = array(
      'devel_execute_form_submit',
    );
  }
  if (user_access('access devel information')) {
    $panes['menu'] = array(
      '#title' => t('Other tools'),
      '#type' => 'markup',
      '#value' => menu_tree_output(menu_tree_all_data('devel')),
    );
  }
  if (!empty($panes)) {
    $panes['#type'] = 'admin_panes';
    return array(
      'panes' => $panes,
    );
  }
  return array();
}