function admin_block_theme_form in Admin 7.2

Same name and namespace in other branches

1. 6.2 includes/admin.theme.inc \admin_block_theme_form()

Devel admin block form.

1 string reference to 'admin_block_theme_form'

admin_block_theme in includes/admin.theme.inc

Theme switcher admin block.

File

includes/admin.theme.inc, line 19

Code

function admin_block_theme_form($form, $form_state, $themes) {
  $options = array();
  foreach ($themes as $theme) {
    if ($theme->status) {
      $options[$theme->name] = isset($theme->info['name']) ? check_plain($theme->info['name']) : $theme->name;
    }
  }
  $form = array();
  $form['theme_default'] = array(
    '#type' => 'radios',
    '#options' => $options,
    '#default_value' => variable_get('theme_default', 'garland'),
  );
  $form['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Save configuration'),
  );
  $form['#submit'] = array(
    'system_settings_form_submit',
  );
  return $form;
}