function admin_block_devel_form in Admin 7.2

Same name and namespace in other branches

1. 6.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, $form_state) {
  $panes = array();
  if (user_access('access devel information')) {
    $panes['performance'] = admin_devel_performance_form();
  }
  if (user_access('switch users')) {
    $panes['switch_user'] = array(
      '#title' => t('Switch user'),
      'list' => array(
        '#markup' => theme('links', array(
          'links' => devel_switch_user_list(),
          'attributes' => array(
            'class' => 'links clearfix',
          ),
        )),
      ),
      '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'] = menu_tree_output(menu_tree_all_data('devel'));
    $panes['menu']['#title'] = t('Other tools');
  }
  if (!empty($panes)) {
    $panes['#type'] = 'admin_panes';
    return array(
      'panes' => $panes,
    );
  }
  return array();
}