<?php

/**

 * @file

 * Admin page callbacks for the block module.

 */

/**

 * Menu callback for admin/structure/block/demo.

 */

function block_admin_demo($theme = NULL) {

  drupal_add_css(drupal_get_path('module', 'block') . '/block.css');

  return '';

}

/**

 * Menu callback for admin/structure/block.

 *

 * @param $theme

 *   The theme to display the administration page for. If not provided, defaults

 *   to the currently used theme.

 */

function block_admin_display($theme = NULL) {

  global $theme_key;

  drupal_theme_initialize();

  if (!isset($theme)) {

    // If theme is not specifically set, rehash for the current theme.

    $theme = $theme_key;

  }

  // Fetch and sort blocks.

  $blocks = block_admin_display_prepare_blocks($theme);

  return drupal_get_form('block_admin_display_form', $blocks, $theme);

}

/**

 * Prepares a list of blocks for display on the blocks administration page.

 *

 * @param $theme

 *   The machine-readable name of the theme whose blocks should be returned.

 *

 * @return

 *   An array of blocks, as returned by _block_rehash(), sorted by region in

 *   preparation for display on the blocks administration page.

 *

 * @see block_admin_display_form()

 */

function block_admin_display_prepare_blocks($theme) {

  $blocks = _block_rehash($theme);

  $compare_theme = &drupal_static('_block_compare:theme');

  $compare_theme = $theme;

  usort($blocks, '_block_compare');

  return $blocks;

}

/**

 * Form constructor for the main block administration form.

 *

 * @param $blocks

 *   An array of blocks, as returned by block_admin_display_prepare_blocks().

 * @param $theme

 *   A string representing the name of the theme to edit blocks for.

 * @param $block_regions

 *   (optional) An array of regions in which the blocks will be allowed to be

 *   placed. Defaults to all visible regions for the theme whose blocks are

 *   being configured. In all cases, a dummy region for disabled blocks will

 *   also be displayed.

 *

 * @return

 *   An array representing the form definition.

 *

 * @ingroup forms

 * @see block_admin_display_form_submit()

 */

function block_admin_display_form($form, &$form_state, $blocks, $theme, $block_regions = NULL) {

  $form['#attached']['css'] = array(drupal_get_path('module', 'block') . '/block.css');

  // Get a list of block regions if one was not provided.

  if (!isset($block_regions)) {

    $block_regions = system_region_list($theme, REGIONS_VISIBLE);

  }

  // Weights range from -delta to +delta, so delta should be at least half

  // of the amount of blocks present. This makes sure all blocks in the same

  // region get an unique weight.

  $weight_delta = round(count($blocks) / 2);

  // Build the form tree.

  $form['edited_theme'] = array(

    '#type' => 'value',

    '#value' => $theme,

  );

  $form['block_regions'] = array(

    '#type' => 'value',

    // Add a last region for disabled blocks.

    '#value' => $block_regions + array(BLOCK_REGION_NONE => BLOCK_REGION_NONE),

  );

  $form['blocks'] = array();

  $form['#tree'] = TRUE;

  foreach ($blocks as $i => $block) {

    $key = $block['module'] . '_' . $block['delta'];

    $form['blocks'][$key]['module'] = array(

      '#type' => 'value',

      '#value' => $block['module'],

    );

    $form['blocks'][$key]['delta'] = array(

      '#type' => 'value',

      '#value' => $block['delta'],

    );

    $form['blocks'][$key]['info'] = array(

      '#markup' => check_plain($block['info']),

    );

    $form['blocks'][$key]['theme'] = array(

      '#type' => 'hidden',

      '#value' => $theme,

    );

    $form['blocks'][$key]['weight'] = array(

      '#type' => 'weight',

      '#default_value' => $block['weight'],

      '#delta' => $weight_delta,

      '#title_display' => 'invisible',

      '#title' => t('Weight for @block block', array('@block' => $block['info'])),

    );

    $form['blocks'][$key]['region'] = array(

      '#type' => 'select',

      '#default_value' => $block['region'] != BLOCK_REGION_NONE ? $block['region'] : NULL,

      '#empty_value' => BLOCK_REGION_NONE,

      '#title_display' => 'invisible',

      '#title' => t('Region for @block block', array('@block' => $block['info'])),

      '#options' => $block_regions,

    );

    $form['blocks'][$key]['configure'] = array(

      '#type' => 'link',

      '#title' => t('configure'),

      '#href' => 'admin/structure/block/manage/' . $block['module'] . '/' . $block['delta'] . '/configure',

    );

    if ($block['module'] == 'block') {

      $form['blocks'][$key]['delete'] = array(

        '#type' => 'link',

        '#title' => t('delete'),

        '#href' => 'admin/structure/block/manage/' . $block['module'] . '/' . $block['delta'] . '/delete',

     );

    }

  }

  // Do not allow disabling the main system content block when it is present.

  if (isset($form['blocks']['system_main']['region'])) {

    $form['blocks']['system_main']['region']['#required'] = TRUE;

  }

  $form['actions'] = array(

    '#tree' => FALSE,

    '#type' => 'actions',

  );

  $form['actions']['submit'] = array(

    '#type' => 'submit',

    '#value' => t('Save blocks'),

  );

  return $form;

}

/**

 * Form submission handler for block_admin_display_form().

 *

 * @see block_admin_display_form()

 */

function block_admin_display_form_submit($form, &$form_state) {

  $transaction = db_transaction();

  try {

    foreach ($form_state['values']['blocks'] as $block) {

      $block['status'] = (int) ($block['region'] != BLOCK_REGION_NONE);

      $block['region'] = $block['status'] ? $block['region'] : '';

      db_update('block')

        ->fields(array(

          'status' => $block['status'],

          'weight' => $block['weight'],

          'region' => $block['region'],

        ))

        ->condition('module', $block['module'])

        ->condition('delta', $block['delta'])

        ->condition('theme', $block['theme'])

        ->execute();

    }

  }

  catch (Exception $e) {

    $transaction->rollback();

    watchdog_exception('block', $e);

    throw $e;

  }

  drupal_set_message(t('The block settings have been updated.'));

  cache_clear_all();

}

/**

 * Sorts active blocks by region, then by weight; sorts inactive blocks by name.

 *

 * Callback for usort() in block_admin_display_prepare_blocks().

 */

function _block_compare($a, $b) {

  global $theme_key;

  // Theme should be set before calling this function, or the current theme

  // is being used.

  $theme = &drupal_static(__FUNCTION__ . ':theme');

  if (!isset($theme)) {

    $theme = $theme_key;

  }

  $regions = &drupal_static(__FUNCTION__ . ':regions');

  // We need the region list to correctly order by region.

  if (!isset($regions)) {

    $regions = array_flip(array_keys(system_region_list($theme)));

    $regions[BLOCK_REGION_NONE] = count($regions);

  }

  // Separate enabled from disabled.

  $status = $b['status'] - $a['status'];

  if ($status) {

    return $status;

  }

  // Sort by region (in the order defined by theme .info file).

  if ((!empty($a['region']) && !empty($b['region'])) && ($place = ($regions[$a['region']] - $regions[$b['region']]))) {

    return $place;

  }

  // Sort by weight, unless disabled.

  if ($a['region'] != BLOCK_REGION_NONE) {

    $weight = $a['weight'] - $b['weight'];

    if ($weight) {

      return $weight;

    }

  }

  // Sort by title.

  return strcmp($a['info'], $b['info']);

}

/**

 * Form constructor for the block configuration form.

 *

 * Also used by block_add_block_form() for adding a new custom block.

 *

 * @param $module

 *   Name of the module that implements the block to be configured.

 * @param $delta

 *   Unique ID of the block within the context of $module.

 *

 * @see block_admin_configure_validate()

 * @see block_admin_configure_submit()

 * @ingroup forms

 */

function block_admin_configure($form, &$form_state, $module, $delta) {

  $block = block_load($module, $delta);

  $form['module'] = array(

    '#type' => 'value',

    '#value' => $block->module,

  );

  $form['delta'] = array(

    '#type' => 'value',

    '#value' => $block->delta,

  );

  // Get the block subject for the page title.

  $info = module_invoke($block->module, 'block_info');

  if (isset($info[$block->delta])) {

    drupal_set_title(t("'%name' block", array('%name' => $info[$block->delta]['info'])), PASS_THROUGH);

  }

  $form['settings']['title'] = array(

    '#type' => 'textfield',

    '#title' => t('Block title'),

    '#maxlength' => 255,

    '#description' => $block->module == 'block' ? t('The title of the block as shown to the user.') : t('Override the default title for the block. Use <em>!placeholder</em> to display no title, or leave blank to use the default block title.', array('!placeholder' => '&lt;none&gt;')),

    '#default_value' => isset($block->title) ? $block->title : '',

    '#weight' => -19,

  );

  // Module-specific block configuration.

  if ($settings = module_invoke($block->module, 'block_configure', $block->delta)) {

    foreach ($settings as $k => $v) {

      $form['settings'][$k] = $v;

    }

  }

  // Region settings.

  $form['regions'] = array(

    '#type' => 'fieldset',

    '#title' => t('Region settings'),

    '#collapsible' => FALSE,

    '#description' => t('Specify in which themes and regions this block is displayed.'),

    '#tree' => TRUE,

  );

  $theme_default = variable_get('theme_default', 'bartik');

  $admin_theme = variable_get('admin_theme');

  foreach (list_themes() as $key => $theme) {

    // Only display enabled themes

    if ($theme->status) {

      $region = db_query("SELECT region FROM {block} WHERE module = :module AND delta = :delta AND theme = :theme", array(

        ':module' => $block->module,

        ':delta' => $block->delta,

        ':theme' => $key,

      ))->fetchField();

      // Use a meaningful title for the main site theme and administrative

      // theme.

      $theme_title = $theme->info['name'];

      if ($key == $theme_default) {

        $theme_title = t('!theme (default theme)', array('!theme' => $theme_title));

      }

      elseif ($admin_theme && $key == $admin_theme) {

        $theme_title = t('!theme (administration theme)', array('!theme' => $theme_title));

      }

      $form['regions'][$key] = array(

        '#type' => 'select',

        '#title' => $theme_title,

        '#default_value' => !empty($region) && $region != -1 ? $region : NULL,

        '#empty_value' => BLOCK_REGION_NONE,

        '#options' => system_region_list($key, REGIONS_VISIBLE),

        '#weight' => ($key == $theme_default ? 9 : 10),

      );

    }

  }

  // Visibility settings.

  $form['visibility_title'] = array(

    '#type' => 'item',

    '#title' => t('Visibility settings'),

  );

  $form['visibility'] = array(

    '#type' => 'vertical_tabs',

    '#attached' => array(

      'js' => array(drupal_get_path('module', 'block') . '/block.js'),

    ),

  );

  // Per-path visibility.

  $form['visibility']['path'] = array(

    '#type' => 'fieldset',

    '#title' => t('Pages'),

    '#collapsible' => TRUE,

    '#collapsed' => TRUE,

    '#group' => 'visibility',

    '#weight' => 0,

  );

  $access = user_access('use PHP for settings');

  if (isset($block->visibility) && $block->visibility == BLOCK_VISIBILITY_PHP && !$access) {

    $form['visibility']['path']['visibility'] = array(

      '#type' => 'value',

      '#value' => BLOCK_VISIBILITY_PHP,

    );

    $form['visibility']['path']['pages'] = array(

      '#type' => 'value',

      '#value' => isset($block->pages) ? $block->pages : '',

    );

  }

  else {

    $options = array(

      BLOCK_VISIBILITY_NOTLISTED => t('All pages except those listed'),

      BLOCK_VISIBILITY_LISTED => t('Only the listed pages'),

    );

    $description = t("Specify pages by using their paths. Enter one path per line. The '*' character is a wildcard. Example paths are %blog for the blog page and %blog-wildcard for every personal blog. %front is the front page.", array('%blog' => 'blog', '%blog-wildcard' => 'blog/*', '%front' => '<front>'));

    if (module_exists('php') && $access) {

      $options += array(BLOCK_VISIBILITY_PHP => t('Pages on which this PHP code returns <code>TRUE</code> (experts only)'));

      $title = t('Pages or PHP code');

      $description .= ' ' . t('If the PHP option is chosen, enter PHP code between %php. Note that executing incorrect PHP code can break your Drupal site.', array('%php' => '<?php ?>'));

    }

    else {

      $title = t('Pages');

    }

    $form['visibility']['path']['visibility'] = array(

      '#type' => 'radios',

      '#title' => t('Show block on specific pages'),

      '#options' => $options,

      '#default_value' => isset($block->visibility) ? $block->visibility : BLOCK_VISIBILITY_NOTLISTED,

    );

    $form['visibility']['path']['pages'] = array(

      '#type' => 'textarea',

      '#title' => '<span class="element-invisible">' . $title . '</span>',

      '#default_value' => isset($block->pages) ? $block->pages : '',

      '#description' => $description,

    );

  }

  // Per-role visibility.

  $default_role_options = db_query("SELECT rid FROM {block_role} WHERE module = :module AND delta = :delta", array(

    ':module' => $block->module,

    ':delta' => $block->delta,

  ))->fetchCol();

  $role_options = array_map('check_plain', user_roles());

  $form['visibility']['role'] = array(

    '#type' => 'fieldset',

    '#title' => t('Roles'),

    '#collapsible' => TRUE,

    '#collapsed' => TRUE,

    '#group' => 'visibility',

    '#weight' => 10,

  );

  $form['visibility']['role']['roles'] = array(

    '#type' => 'checkboxes',

    '#title' => t('Show block for specific roles'),

    '#default_value' => $default_role_options,