<?php

// $Id: locale.inc,v 1.174.2.9 2009/06/18 12:50:33 goba Exp $

/**

 * @file

 *   Administration functions for locale.module.

 */

define('LOCALE_JS_STRING', '(?:(?:\'(?:\\\\\'|[^\'])*\'|"(?:\\\\"|[^"])*")(?:\s*\+\s*)?)+');

/**

 * Translation import mode overwriting all existing translations

 * if new translated version available.

 */

define('LOCALE_IMPORT_OVERWRITE', 0);

/**

 * Translation import mode keeping existing translations and only

 * inserting new strings.

 */

define('LOCALE_IMPORT_KEEP', 1);

/**

 * @defgroup locale-language-overview Language overview functionality

 * @{

 */

/**

 * User interface for the language overview screen.

 */

function locale_languages_overview_form() {

  $languages = language_list('language', TRUE);

  $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',

      '#default_value' => $language->weight

    );

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

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

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

  }

  $form['enabled'] = array('#type' => 'checkboxes',

    '#options' => $options,

    '#default_value' => $enabled,

  );

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

    '#options' => $options,

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

  );

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

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

  return $form;

}

/**

 * Theme the language overview form.

 *

 * @ingroup themeable

 */

function theme_locale_languages_overview_form($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';

      }

      $rows[] = array(

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

        check_plain($key),

        '<strong>'. drupal_render($form['name'][$key]) .'</strong>',

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

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

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

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

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

      );

    }

  }

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

  $output = theme('table', $header, $rows);

  $output .= drupal_render($form);

  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();

  $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 checkox).

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

    }

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

      $enabled_count++;

      $language->enabled = 1;

    }

    else {

      $language->enabled = 0;

    }

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

    db_query("UPDATE {languages} SET enabled = %d, weight = %d WHERE language = '%s'", $language->enabled, $language->weight, $langcode);

    $languages[$langcode] = $language;

  }

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

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

  variable_set('language_count', $enabled_count);

  // Changing the language settings impacts the interface.

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

  $form_state['redirect'] = 'admin/settings/language';

  return;

}

/**

 * @} End of "locale-language-overview"

 */

/**

 * @defgroup locale-language-add-edit Language addition and editing functionality

 * @{

 */

/**

 * User interface for the language addition screen.

 */

function locale_languages_add_screen() {

  $output = drupal_get_form('locale_languages_predefined_form');

  $output .= drupal_get_form('locale_languages_custom_form');

  return $output;

}

/**

 * Predefined language setup form.

 */

function locale_languages_predefined_form() {

  $predefined = _locale_prepare_predefined_list();

  $form = array();

  $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('Select the desired language and click the <em>Add language</em> button. (Use the <em>Custom language</em> options if your desired language does not appear in this list.)'),

  );

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

  return $form;

}

/**

 * Custom language addition form.

 */

function locale_languages_custom_form() {

  $form = array();

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

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

    '#collapsible' => TRUE,

    '#collapsed' => TRUE,

  );

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

  $form['custom language']['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_state, $langcode) {

  if ($language = db_fetch_object(db_query("SELECT * FROM {languages} WHERE language = '%s'", $langcode))) {

    $form = array();

    _locale_languages_common_controls($form, $language);

    $form['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();

  }

}

/**

 * 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'),

      '#value' => $language->language

    );

    $form['langcode'] = array(

      '#type' => 'value',

      '#value' => $language->language

    );

  }

  else {

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

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

      '#size' => 12,

      '#maxlength' => 60,

      '#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'),

    '#maxlength' => 64,

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

    '#description' => t('Language code or other custom string for pattern matching within the path. With language negotiation set to <em>Path prefix only</em> or <em>Path prefix with language fallback</em>, this site is presented in this language when the Path prefix value matches an element in the path. For the default language, this value may be left blank. <strong>Modifying this value will break existing URLs and should be used with caution in a production environment.</strong> <em>Example: Specifying "deutsch" as the path prefix for German results in URLs in the form "www.example.com/deutsch/node".</em>')

  );

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

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

    '#maxlength' => 128,

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

    '#description' => t('Language-specific URL, with protocol. With language negotiation set to <em>Domain name only</em>, the site is presented in this language when the URL accessing the site references this domain. For the default language, this value may be left blank. <strong>This value must include a protocol as part of the string.</strong> <em>Example: Specifying "http://example.de" or "http://de.example.com" as language domains for German results in URLs in the forms "http://example.de/node" and "http://de.example.com/node", respectively.</em>'),

  );

  $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_result(db_query("SELECT COUNT(*) FROM {languages} WHERE language = '%s'", $langcode)) != 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.

    $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.

    $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/settings/language';

  return;

}

/**

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

 */

function locale_languages_edit_form_validate($form, &$form_state) {

  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_fetch_object(db_query("SELECT language FROM {languages} WHERE domain = '%s' AND language != '%s'", $form_state['values']['domain'], $form_state['values']['langcode']))) {

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

  }

  if (empty($form_state['values']['prefix']) && language_default('language') != $form_state['values']['langcode'] && empty($form_state['values']['domain'])) {

    form_set_error('prefix', t('Only the default language can have both the domain and prefix empty.'));

  }

  if (!empty($form_state['values']['prefix']) && $duplicate = db_fetch_object(db_query("SELECT language FROM {languages} WHERE prefix = '%s' AND language != '%s'", $form_state['values']['prefix'], $form_state['values']['langcode']))) {

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

  }

}

/**

 * Process the language editing form submission.

 */

function locale_languages_edit_form_submit($form, &$form_state) {

  db_query("UPDATE {languages} SET name = '%s', native = '%s', domain = '%s', prefix = '%s', direction = %d WHERE language = '%s'", $form_state['values']['name'], $form_state['values']['native'], $form_state['values']['domain'], $form_state['values']['prefix'], $form_state['values']['direction'], $form_state['values']['langcode']);

  $default = language_default();

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

    $properties = array('name', 'native', 'direction', 'enabled', 'plurals', 'formula', 'domain', 'prefix', 'weight');

    foreach ($properties as $keyname) {

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

        $default->$keyname = $form_state['values'][$keyname];

      }

    }

    variable_set('language_default', $default);

  }

  $form_state['redirect'] = 'admin/settings/language';

  return;

}

/**

 * @} End of "locale-language-add-edit"

 */

/**

 * @defgroup locale-language-delete Language deletion functionality

 * @{

 */

/**

 * User interface for the language deletion confirmation screen.

 */

function locale_languages_delete_form(&$form_state, $langcode) {

  // Do not allow deletion of English locale.

  if ($langcode == 'en') {

    drupal_set_message(t('The English language cannot be deleted.'));

    drupal_goto('admin/settings/language');

  }

  if (language_default('language') == $langcode) {

    drupal_set_message(t('The default language cannot be deleted.'));

    drupal_goto('admin/settings/language');

  }

  // For other languages, warn user that data loss is ahead.

  $languages = language_list();