<?php

/**

 * @file

 * Administration functions for locale.module.

 */

/**

 * @defgroup locale-language-administration Language administration interface

 * @{

 * Administration interface for languages.

 *

 * These functions provide the user interface to show, add, edit and

 * delete languages as well as providing options for language negotiation.

 */

/**

 * User interface for the language overview screen.

 */

function locale_languages_overview_form() {

  drupal_static_reset('language');

  $languages = language_list('language');

  $options = array();

  $form['weight'] = array('#tree' => TRUE);

  foreach ($languages as $langcode => $language) {

    $options[$langcode] = '';

    if ($language->enabled) {

      $enabled[] = $langcode;

    }

    $form['weight'][$langcode] = array(

      '#type' => 'weight',

      '#title' => t('Weight for @title', array('@title' => $language->name)),

      '#title_display' => 'invisible',

      '#default_value' => $language->weight,

      '#attributes' => array('class' => array('language-order-weight')),

    );

    $form['name'][$langcode] = array('#markup' => check_plain($language->name));

    $form['native'][$langcode] = array('#markup' => check_plain($language->native));

    $form['direction'][$langcode] = array('#markup' => ($language->direction == LANGUAGE_RTL ? t('Right to left') : t('Left to right')));

  }

  $form['enabled'] = array(

    '#type' => 'checkboxes',

    '#title' => t('Enabled languages'),

    '#title_display' => 'invisible',

    '#options' => $options,

    '#default_value' => $enabled,

  );

  $form['site_default'] = array(

    '#type' => 'radios',

    '#title' => t('Default language'),

    '#title_display' => 'invisible',

    '#options' => $options,

    '#default_value' => language_default('language'),

  );

  $form['actions'] = array('#type' => 'actions');

  $form['actions']['submit'] = array('#type' => 'submit', '#value' => t('Save configuration'));

  $form['#theme'] = 'locale_languages_overview_form';

  return $form;

}

/**

 * Returns HTML for the language overview form.

 *

 * @param $variables

 *   An associative array containing:

 *   - form: A render element representing the form.

 *

 * @ingroup themeable

 */

function theme_locale_languages_overview_form($variables) {

  $form = $variables['form'];

  $default = language_default();

  foreach ($form['name'] as $key => $element) {

    // Do not take form control structures.

    if (is_array($element) && element_child($key)) {

      // Disable checkbox for the default language, because it cannot be disabled.

      if ($key == $default->language) {

        $form['enabled'][$key]['#attributes']['disabled'] = 'disabled';

      }

      // Add invisible labels for the checkboxes and radio buttons in the table

      // for accessibility. These changes are only required and valid when the

      // form is themed as a table, so it would be wrong to perform them in the

      // form constructor.

      $title = drupal_render($form['name'][$key]);

      $form['enabled'][$key]['#title'] = t('Enable !title', array('!title' => $title));

      $form['enabled'][$key]['#title_display'] = 'invisible';

      $form['site_default'][$key]['#title'] = t('Set !title as default', array('!title' => $title));

      $form['site_default'][$key]['#title_display'] = 'invisible';

      $rows[] = array(

        'data' => array(

          '<strong>' . $title . '</strong>',

          drupal_render($form['native'][$key]),

          check_plain($key),

          drupal_render($form['direction'][$key]),

          array('data' => drupal_render($form['enabled'][$key]), 'align' => 'center'),

          drupal_render($form['site_default'][$key]),

          drupal_render($form['weight'][$key]),

          l(t('edit'), 'admin/config/regional/language/edit/' . $key) . (($key != 'en' && $key != $default->language) ? ' ' . l(t('delete'), 'admin/config/regional/language/delete/' . $key) : '')

        ),

        'class' => array('draggable'),

      );

    }

  }

  $header = array(array('data' => t('English name')), array('data' => t('Native name')), array('data' => t('Code')), array('data' => t('Direction')), array('data' => t('Enabled')), array('data' => t('Default')), array('data' => t('Weight')), array('data' => t('Operations')));

  $output = theme('table', array('header' => $header, 'rows' => $rows, 'attributes' => array('id' => 'language-order')));

  $output .= drupal_render_children($form);

  drupal_add_tabledrag('language-order', 'order', 'sibling', 'language-order-weight');

  return $output;

}

/**

 * Process language overview form submissions, updating existing languages.

 */

function locale_languages_overview_form_submit($form, &$form_state) {

  $languages = language_list();

  $default = language_default();

  $url_prefixes = variable_get('locale_language_negotiation_url_part', LOCALE_LANGUAGE_NEGOTIATION_URL_PREFIX) == LOCALE_LANGUAGE_NEGOTIATION_URL_PREFIX;

  $enabled_count = 0;

  foreach ($languages as $langcode => $language) {

    if ($form_state['values']['site_default'] == $langcode || $default->language == $langcode) {

      // Automatically enable the default language and the language

      // which was default previously (because we will not get the

      // value from that disabled checkbox).

      $form_state['values']['enabled'][$langcode] = 1;

    }

    // If language URL prefixes are enabled we must clear language domains and

    // assign a valid prefix to each non-default language.

    if ($url_prefixes) {

      $language->domain = '';

      if (empty($language->prefix) && $form_state['values']['site_default'] != $langcode) {

        $language->prefix = $langcode;

      }

    }

    if ($form_state['values']['enabled'][$langcode]) {

      $enabled_count++;

      $language->enabled = 1;

    }

    else {

      $language->enabled = 0;

    }

    $language->weight = $form_state['values']['weight'][$langcode];

    db_update('languages')

      ->fields(array(

        'enabled' => $language->enabled,

        'weight' => $language->weight,

        'prefix' => $language->prefix,

        'domain' => $language->domain,

      ))

      ->condition('language', $langcode)

      ->execute();

    $languages[$langcode] = $language;

  }

  variable_set('language_default', $languages[$form_state['values']['site_default']]);

  variable_set('language_count', $enabled_count);

  drupal_set_message(t('Configuration saved.'));

  // Changing the language settings impacts the interface.

  cache_clear_all('*', 'cache_page', TRUE);

  module_invoke_all('multilingual_settings_changed');

  $form_state['redirect'] = 'admin/config/regional/language';

  return;

}

/**

 * User interface for the language addition screen.

 */

function locale_languages_add_screen() {

  $build['predefined'] = drupal_get_form('locale_languages_predefined_form');

  $build['custom'] = drupal_get_form('locale_languages_custom_form');

  return $build;

}

/**

 * Predefined language setup form.

 */

function locale_languages_predefined_form($form) {

  $predefined = _locale_prepare_predefined_list();

  $form['language list'] = array('#type' => 'fieldset',

    '#title' => t('Predefined language'),

    '#collapsible' => TRUE,

  );

  $form['language list']['langcode'] = array('#type' => 'select',

    '#title' => t('Language name'),

    '#default_value' => key($predefined),

    '#options' => $predefined,

    '#description' => t('Use the <em>Custom language</em> section below if your desired language does not appear in this list.'),

  );

  $form['language list']['actions'] = array('#type' => 'actions');

  $form['language list']['actions']['submit'] = array('#type' => 'submit', '#value' => t('Add language'));

  return $form;

}

/**

 * Custom language addition form.

 */

function locale_languages_custom_form($form) {

  $form['custom language'] = array('#type' => 'fieldset',

    '#title' => t('Custom language'),

    '#collapsible' => TRUE,

    '#collapsed' => TRUE,

  );

  _locale_languages_common_controls($form['custom language']);

  $form['custom language']['actions'] = array('#type' => 'actions');

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

    '#type' => 'submit',

    '#value' => t('Add custom language')

  );

  // Reuse the validation and submit functions of the predefined language setup form.

  $form['#submit'][] = 'locale_languages_predefined_form_submit';

  $form['#validate'][] = 'locale_languages_predefined_form_validate';

  return $form;

}

/**

 * Editing screen for a particular language.

 *

 * @param $langcode

 *   Language code of the language to edit.

 */

function locale_languages_edit_form($form, &$form_state, $langcode) {

  if ($language = db_query("SELECT * FROM {languages} WHERE language = :language", array(':language' => $langcode))->fetchObject()) {

    _locale_languages_common_controls($form, $language);

    $form['actions'] = array('#type' => 'actions');

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

      '#type' => 'submit',

      '#value' => t('Save language')

    );

    $form['#submit'][] = 'locale_languages_edit_form_submit';

    $form['#validate'][] = 'locale_languages_edit_form_validate';

    return $form;

  }

  else {

    drupal_not_found();

    drupal_exit();

  }

}

/**

 * Common elements of the language addition and editing form.

 *

 * @param $form

 *   A parent form item (or empty array) to add items below.

 * @param $language

 *   Language object to edit.

 */

function _locale_languages_common_controls(&$form, $language = NULL) {

  if (!is_object($language)) {

    $language = new stdClass();

  }

  if (isset($language->language)) {

    $form['langcode_view'] = array(

      '#type' => 'item',

      '#title' => t('Language code'),

      '#markup' => $language->language

    );

    $form['langcode'] = array(

      '#type' => 'value',

      '#value' => $language->language

    );

  }

  else {

    $form['langcode'] = array('#type' => 'textfield',

      '#title' => t('Language code'),

      '#maxlength' => 12,

      '#required' => TRUE,

      '#default_value' => @$language->language,

      '#disabled' => (isset($language->language)),

      '#description' => t('<a href="@rfc4646">RFC 4646</a> compliant language identifier. Language codes typically use a country code, and optionally, a script or regional variant name. <em>Examples: "en", "en-US" and "zh-Hant".</em>', array('@rfc4646' => 'http://www.ietf.org/rfc/rfc4646.txt')),

    );

  }

  $form['name'] = array('#type' => 'textfield',

    '#title' => t('Language name in English'),

    '#maxlength' => 64,

    '#default_value' => @$language->name,

    '#required' => TRUE,

    '#description' => t('Name of the language in English. Will be available for translation in all languages.'),

  );

  $form['native'] = array('#type' => 'textfield',

    '#title' => t('Native language name'),

    '#maxlength' => 64,

    '#default_value' => @$language->native,

    '#required' => TRUE,

    '#description' => t('Name of the language in the language being added.'),

  );

  $form['prefix'] = array('#type' => 'textfield',

    '#title' => t('Path prefix language code'),

    '#maxlength' => 64,

    '#default_value' => @$language->prefix,

    '#description' => t('Language code or other custom text to use as a path prefix for URL language detection, if your <em>Detection and selection</em> settings use URL path prefixes. For the default language, this value may be left blank. <strong>Modifying this value may break existing URLs. Use with caution in a production environment.</strong> Example: Specifying "deutsch" as the path prefix code for German results in URLs like "example.com/deutsch/contact".')

  );

  $form['domain'] = array('#type' => 'textfield',

    '#title' => t('Language domain'),

    '#maxlength' => 128,

    '#default_value' => @$language->domain,

    '#description' => t('The domain name to use for this language if URL domains are used for <em>Detection and selection</em>. Leave blank for the default language. <strong>Changing this value may break existing URLs.</strong> Example: Specifying "de.example.com" as language domain for German will result in an URL like "http://de.example.com/contact".'),

  );

  $form['direction'] = array('#type' => 'radios',

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

    '#required' => TRUE,

    '#description' => t('Direction that text in this language is presented.'),

    '#default_value' => @$language->direction,

    '#options' => array(LANGUAGE_LTR => t('Left to right'), LANGUAGE_RTL => t('Right to left'))

  );

  return $form;

}

/**

 * Validate the language addition form.

 */

function locale_languages_predefined_form_validate($form, &$form_state) {

  $langcode = $form_state['values']['langcode'];

  if (($duplicate = db_query("SELECT COUNT(*) FROM {languages} WHERE language = :language", array(':language' => $langcode))->fetchField()) != 0) {

    form_set_error('langcode', t('The language %language (%code) already exists.', array('%language' => $form_state['values']['name'], '%code' => $langcode)));

  }

  if (!isset($form_state['values']['name'])) {

    // Predefined language selection.

    include_once DRUPAL_ROOT . '/includes/iso.inc';

    $predefined = _locale_get_predefined_list();

    if (!isset($predefined[$langcode])) {

      form_set_error('langcode', t('Invalid language code.'));

    }

  }

  else {

    // Reuse the editing form validation routine if we add a custom language.

    locale_languages_edit_form_validate($form, $form_state);

  }

}

/**

 * Process the language addition form submission.

 */

function locale_languages_predefined_form_submit($form, &$form_state) {

  $langcode = $form_state['values']['langcode'];

  if (isset($form_state['values']['name'])) {

    // Custom language form.

    locale_add_language($langcode, $form_state['values']['name'], $form_state['values']['native'], $form_state['values']['direction'], $form_state['values']['domain'], $form_state['values']['prefix']);

    drupal_set_message(t('The language %language has been created and can now be used. More information is available on the <a href="@locale-help">help screen</a>.', array('%language' => t($form_state['values']['name']), '@locale-help' => url('admin/help/locale'))));

  }

  else {

    // Predefined language selection.

    include_once DRUPAL_ROOT . '/includes/iso.inc';

    $predefined = _locale_get_predefined_list();

    locale_add_language($langcode);

    drupal_set_message(t('The language %language has been created and can now be used. More information is available on the <a href="@locale-help">help screen</a>.', array('%language' => t($predefined[$langcode][0]), '@locale-help' => url('admin/help/locale'))));

  }

  // See if we have language files to import for the newly added

  // language, collect and import them.

  if ($batch = locale_batch_by_language($langcode, '_locale_batch_language_finished')) {

    batch_set($batch);

  }

  $form_state['redirect'] = 'admin/config/regional/language';

}

/**

 * Validate the language editing form. Reused for custom language addition too.

 */

function locale_languages_edit_form_validate($form, &$form_state) {

  // Ensure sane field values for langcode, name, and native.

  if (!isset($form['langcode_view']) && preg_match('@[^a-zA-Z_-]@', $form_state['values']['langcode'])) {

    form_set_error('langcode', t('%field may only contain characters a-z, underscores, or hyphens.', array('%field' => $form['langcode']['#title'])));

  }

  if ($form_state['values']['name'] != check_plain($form_state['values']['name'])) {

    form_set_error('name', t('%field cannot contain any markup.', array('%field' => $form['name']['#title'])));

  }

  if ($form_state['values']['native'] != check_plain($form_state['values']['native'])) {

    form_set_error('native', t('%field cannot contain any markup.', array('%field' => $form['native']['#title'])));

  }

  if (!empty($form_state['values']['domain']) && !empty($form_state['values']['prefix'])) {

    form_set_error('prefix', t('Domain and path prefix values should not be set at the same time.'));

  }

  if (!empty($form_state['values']['domain']) && $duplicate = db_query("SELECT language FROM {languages} WHERE domain = :domain AND language <> :language", array(':domain' => $form_state['values']['domain'], ':language' => $form_state['values']['langcode']))->fetchField()) {

    form_set_error('domain', t('The domain (%domain) is already tied to a language (%language).', array('%domain' => $form_state['values']['domain'], '%language' => $duplicate)));