locale.admin.inc

Administration functions for locale.module.

File

modules/locale/locale.admin.inc

View source
<?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('Use language codes as <a href="@w3ctags">defined by the W3C</a> for interoperability. <em>Examples: "en", "en-gb" and "zh-hant".</em>', array(
                '@w3ctags' => 'http://www.w3.org/International/articles/language-tags/',
            )),
        );
    }
    $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,
        )));
    }
    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_query("SELECT language FROM {languages} WHERE prefix = :prefix AND language <> :language", array(
        ':prefix' => $form_state['values']['prefix'],
        ':language' => $form_state['values']['langcode'],
    ))->fetchField())) {
        form_set_error('prefix', t('The prefix (%prefix) is already tied to a language (%language).', array(
            '%prefix' => $form_state['values']['prefix'],
            '%language' => $duplicate,
        )));
    }
}

/**
 * Process the language editing form submission.
 */
function locale_languages_edit_form_submit($form, &$form_state) {
    db_update('languages')->fields(array(
        'name' => $form_state['values']['name'],
        'native' => $form_state['values']['native'],
        'domain' => $form_state['values']['domain'],
        'prefix' => $form_state['values']['prefix'],
        'direction' => $form_state['values']['direction'],
    ))
        ->condition('language', $form_state['values']['langcode'])
        ->execute();
    $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/config/regional/language';
    return;
}

/**
 * User interface for the language deletion confirmation screen.
 */
function locale_languages_delete_form($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/config/regional/language');
    }
    if (language_default('language') == $langcode) {
        drupal_set_message(t('The default language cannot be deleted.'));
        drupal_goto('admin/config/regional/language');
    }
    // For other languages, warn user that data loss is ahead.
    $languages = language_list();
    if (!isset($languages[$langcode])) {
        drupal_not_found();
        drupal_exit();
    }
    else {
        $form['langcode'] = array(
            '#type' => 'value',
            '#value' => $langcode,
        );
        return confirm_form($form, t('Are you sure you want to delete the language %name?', array(
            '%name' => t($languages[$langcode]->name),
        )), 'admin/config/regional/language', t('Deleting a language will remove all interface translations associated with it, and posts in this language will be set to be language neutral. This action cannot be undone.'), t('Delete'), t('Cancel'));
    }
}

/**
 * Process language deletion submissions.
 */
function locale_languages_delete_form_submit($form, &$form_state) {
    $languages = language_list();
    if (isset($languages[$form_state['values']['langcode']])) {
        // Remove translations first.
        db_delete('locales_target')->condition('language', $form_state['values']['langcode'])
            ->execute();
        cache_clear_all('locale:' . $form_state['values']['langcode'], 'cache');
        // With no translations, this removes existing JavaScript translations file.
        _locale_rebuild_js($form_state['values']['langcode']);
        // Remove the language.
        db_delete('languages')->condition('language', $form_state['values']['langcode'])
            ->execute();
        db_update('node')->fields(array(
            'language' => '',
        ))
            ->condition('language', $form_state['values']['langcode'])
            ->execute();
        if ($languages[$form_state['values']['langcode']]->enabled) {
            variable_set('language_count', variable_get('language_count', 1) - 1);
        }
        module_invoke_all('multilingual_settings_changed');
        $variables = array(
            '%locale' => $languages[$form_state['values']['langcode']]->name,
        );
        drupal_set_message(t('The language %locale has been removed.', $variables));
        watchdog('locale', 'The language %locale has been removed.', $variables);
    }
    // Changing the language settings impacts the interface:
    cache_clear_all('*', 'cache_page', TRUE);
    $form_state['redirect'] = 'admin/config/regional/language';
    return;
}

/**
 * Setting for language negotiation options
 */
function locale_languages_configure_form() {
    include_once DRUPAL_ROOT . '/includes/language.inc';
    $form = array(
        '#submit' => array(
            'locale_languages_configure_form_submit',
        ),
        '#theme' => 'locale_languages_configure_form',
        '#language_types' => language_types_configurable(FALSE),
        '#language_types_info' => language_types_info(),
        '#language_providers' => language_negotiation_info(),
    );
    foreach ($form['#language_types'] as $type) {
        _locale_languages_configure_form_language_table($form, $type);
    }
    $form['actions'] = array(
        '#type' => 'actions',
    );
    $form['actions']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Save settings'),
    );
    return $form;
}

/**
 * Helper function to build a language provider table.
 */
function _locale_languages_configure_form_language_table(&$form, $type) {
    $info = $form['#language_types_info'][$type];
    $table_form = array(
        '#title' => t('@type language detection', array(
            '@type' => $info['name'],
        )),
        '#tree' => TRUE,
        '#description' => $info['description'],
        '#language_providers' => array(),
        '#show_operations' => FALSE,
        'weight' => array(
            '#tree' => TRUE,
        ),
        'enabled' => array(
            '#tree' => TRUE,
        ),
    );
    $language_providers = $form['#language_providers'];
    $enabled_providers = variable_get("language_negotiation_{$type}", array());
    $providers_weight = variable_get("locale_language_providers_weight_{$type}", array());
    // Add missing data to the providers lists.
    foreach ($language_providers as $id => $provider) {
        if (!isset($providers_weight[$id])) {
            $providers_weight[$id] = language_provider_weight($provider);
        }
    }
    // Order providers list by weight.
    asort($providers_weight);
    foreach ($providers_weight as $id => $weight) {
        // A language provider might be no more available if the defining module has
        // been disabled after the last configuration saving.
        if (!isset($language_providers[$id])) {
            continue;
        }
        $enabled = isset($enabled_providers[$id]);
        $provider = $language_providers[$id];
        // List the provider only if the current type is defined in its 'types' key.
        // If it is not defined default to all the configurable language types.
        $types = array_flip(isset($provider['types']) ? $provider['types'] : $form['#language_types']);
        if (isset($types[$type])) {
            $table_form['#language_providers'][$id] = $provider;
            $table_form['weight'][$id] = array(
                '#type' => 'weight',
                '#title' => t('Weight for @title', array(
                    '@title' => $provider['name'],
                )),
                '#title_display' => 'invisible',
                '#default_value' => $weight,
                '#attributes' => array(
                    'class' => array(
                        "language-provider-weight-{$type}",
                    ),
                ),
            );
            $table_form['title'][$id] = array(
                '#markup' => check_plain($provider['name']),
            );
            $table_form['enabled'][$id] = array(
                '#type' => 'checkbox',
                '#title' => t('@title language provider', array(
                    '@title' => $provider['name'],
                )),
                '#title_display' => 'invisible',
                '#default_value' => $enabled,
            );
            if ($id === LANGUAGE_NEGOTIATION_DEFAULT) {
                $table_form['enabled'][$id]['#default_value'] = TRUE;
                $table_form['enabled'][$id]['#attributes'] = array(
                    'disabled' => 'disabled',
                );
            }
            $table_form['description'][$id] = array(
                '#markup' => filter_xss_admin($provider['description']),
            );
            $config_op = array();
            if (isset($provider['config'])) {
                $config_op = array(
                    '#type' => 'link',
                    '#title' => t('Configure'),
                    '#href' => $provider['config'],
                );
                // If there is at least one operation enabled show the operation column.
                $table_form['#show_operations'] = TRUE;
            }
            $table_form['operation'][$id] = $config_op;
        }
    }
    $form[$type] = $table_form;
}

/**
 * Returns HTML for a language configuration form.
 *
 * @param $variables
 *   An associative array containing:
 *   - form: A render element representing the form.
 *
 * @ingroup themeable
 */
function theme_locale_languages_configure_form($variables) {
    $form = $variables['form'];
    $output = '';
    foreach ($form['#language_types'] as $type) {
        $rows = array();
        $info = $form['#language_types_info'][$type];
        $title = '<label>' . $form[$type]['#title'] . '</label>';
        $description = '<div class="description">' . $form[$type]['#description'] . '</div>';
        foreach ($form[$type]['title'] as $id => $element) {
            // Do not take form control structures.
            if (is_array($element) && element_child($id)) {
                $row = array(
                    'data' => array(
                        '<strong>' . drupal_render($form[$type]['title'][$id]) . '</strong>',
                        drupal_render($form[$type]['description'][$id]),
                        drupal_render($form[$type]['enabled'][$id]),
                        drupal_render($form[$type]['weight'][$id]),
                    ),
                    'class' => array(
                        'draggable',
                    ),
                );
                if ($form[$type]['#show_operations']) {
                    $row['data'][] = drupal_render($form[$type]['operation'][$id]);
                }
                $rows[] = $row;
            }
        }
        $header = array(
            array(
                'data' => t('Detection method'),
            ),
            array(
                'data' => t('Description'),
            ),
            array(
                'data' => t('Enabled'),
            ),
            array(
                'data' => t('Weight'),
            ),
        );
        // If there is at least one operation enabled show the operation column.
        if ($form[$type]['#show_operations']) {
            $header[] = array(
                'data' => t('Operations'),
            );
        }
        $variables = array(
            'header' => $header,
            'rows' => $rows,
            'attributes' => array(
                'id' => "language-negotiation-providers-{$type}",
            ),
        );
        $table = theme('table', $variables);
        $table .= drupal_render_children($form[$type]);
        drupal_add_tabledrag("language-negotiation-providers-{$type}", 'order', 'sibling', "language-provider-weight-{$type}");
        $output .= '<div class="form-item">' . $title . $description . $table . '</div>';
    }
    $output .= drupal_render_children($form);
    return $output;
}

/**
 * Submit handler for language negotiation settings.
 */
function locale_languages_configure_form_submit($form, &$form_state) {
    $configurable_types = $form['#language_types'];
    foreach ($configurable_types as $type) {
        $negotiation = array();
        $enabled_providers = $form_state['values'][$type]['enabled'];
        $enabled_providers[LANGUAGE_NEGOTIATION_DEFAULT] = TRUE;
        $providers_weight = $form_state['values'][$type]['weight'];
        foreach ($providers_weight as $id => $weight) {
            if ($enabled_providers[$id]) {
                $provider = $form[$type]['#language_providers'][$id];
                $provider['weight'] = $weight;
                $negotiation[$id] = $provider;
            }
        }
        language_negotiation_set($type, $negotiation);
        variable_set("locale_language_providers_weight_{$type}", $providers_weight);
    }
    // Update non-configurable language types and the related language negotiation
    // configuration.
    language_types_set();
    $form_state['redirect'] = 'admin/config/regional/language/configure';
    drupal_set_message(t('Language negotiation configuration saved.'));
}

/**
 * The URL language provider configuration form.
 */
function locale_language_providers_url_form($form, &$form_state) {
    $form['locale_language_negotiation_url_part'] = array(
        '#title' => t('Part of the URL that determines language'),
        '#type' => 'radios',
        '#options' => array(
            LOCALE_LANGUAGE_NEGOTIATION_URL_PREFIX => t('Path prefix'),
            LOCALE_LANGUAGE_NEGOTIATION_URL_DOMAIN => t('Domain'),
        ),
        '#default_value' => variable_get('locale_language_negotiation_url_part', LOCALE_LANGUAGE_NEGOTIATION_URL_PREFIX),
        '#description' => t('<em>Path prefix</em>: URLs like http://example.com/de/contact set language to German (de). <em>Domain</em>: URLs like http://de.example.com/contact set the language to German. <strong>Warning: Changing this setting may break incoming URLs. Use with caution on a production site.</strong>'),
    );
    $form_state['redirect'] = 'admin/config/regional/language/configure';
    return system_settings_form($form);
}

/**
 * The URL language provider configuration form.
 */
function locale_language_providers_session_form($form, &$form_state) {
    $form['locale_language_negotiation_session_param'] = array(
        '#title' => t('Request/session parameter'),
        '#type' => 'textfield',
        '#default_value' => variable_get('locale_language_negotiation_session_param', 'language'),
        '#description' => t('Name of the request/session parameter used to determine the desired language.'),
    );
    $form_state['redirect'] = 'admin/config/regional/language/configure';
    return system_settings_form($form);
}

/**
 * @} End of "locale-language-administration"
 */

/**
 * @defgroup locale-translate-administration-screens Translation administration screens
 * @{
 * Screens for translation administration.
 *
 * These functions provide various screens as administration interface
 * to import, export and view translations.
 */

/**
 * Overview screen for translations.
 */
function locale_translate_overview_screen() {
    drupal_static_reset('language_list');
    $languages = language_list('language');
    $groups = module_invoke_all('locale', 'groups');
    // Build headers with all groups in order.
    $headers = array_merge(array(
        t('Language'),
    ), array_values($groups));
    // Collect summaries of all source strings in all groups.
    $sums = db_query("SELECT COUNT(*) AS strings, textgroup FROM {locales_source} GROUP BY textgroup");
    $groupsums = array();
    foreach ($sums as $group) {
        $groupsums[$group->textgroup] = $group->strings;
    }
    // Set up overview table with default values, ensuring common order for values.
    $rows = array();
    foreach ($languages as $langcode => $language) {
        $rows[$langcode] = array(
            'name' => $langcode == 'en' ? t('English (built-in)') : t($language->name),
        );
        foreach ($groups as $group => $name) {
            $rows[$langcode][$group] = $langcode == 'en' ? t('n/a') : '0/' . (isset($groupsums[$group]) ? $groupsums[$group] : 0) . ' (0%)';
        }
    }
    // Languages with at least one record in the locale table.
    $translations = db_query("SELECT COUNT(*) AS translation, t.language, s.textgroup FROM {locales_source} s INNER JOIN {locales_target} t ON s.lid = t.lid GROUP BY textgroup, language");
    foreach ($translations as $data) {
        $ratio = !empty($groupsums[$data->textgroup]) && $data->translation > 0 ? round($data->translation / $groupsums[$data->textgroup] * 100.0, 2) : 0;
        $rows[$data->language][$data->textgroup] = $data->translation . '/' . $groupsums[$data->textgroup] . " ({$ratio}%)";
    }
    return theme('table', array(
        'header' => $headers,
        'rows' => $rows,
    ));
}

/**
 * String search screen.
 */
function locale_translate_seek_screen() {
    // Add CSS.
    drupal_add_css(drupal_get_path('module', 'locale') . '/locale.css');
    $elements = drupal_get_form('locale_translation_filter_form');
    $output = drupal_render($elements);
    $output .= _locale_translate_seek();
    return $output;
}

/**
 * List locale translation filters that can be applied.
 */
function locale_translation_filters() {
    $filters = array();
    // Get all languages, except English
    drupal_static_reset('language_list');
    $languages = locale_language_list('name');
    unset($languages['en']);
    $filters['string'] = array(
        'title' => t('String contains'),
        'description' => t('Leave blank to show all strings. The search is case sensitive.'),
    );
    $filters['language'] = array(
        'title' => t('Language'),
        'options' => array_merge(array(
            'all' => t('All languages'),
            'en' => t('English (provided by Drupal)'),
        ), $languages),
    );
    $filters['translation'] = array(
        'title' => t('Search in'),
        'options' => array(
            'all' => t('Both translated and untranslated strings'),
            'translated' => t('Only translated strings'),
            'untranslated' => t('Only untranslated strings'),
        ),
    );
    $groups = module_invoke_all('locale', 'groups');
    $filters['group'] = array(
        'title' => t('Limit search to'),
        'options' => array_merge(array(
            'all' => t('All text groups'),
        ), $groups),
    );
    return $filters;
}

/**
 * Return form for locale translation filters.
 *
 * @ingroup forms
 */
function locale_translation_filter_form() {
    $filters = locale_translation_filters();
    $form['filters'] = array(
        '#type' => 'fieldset',
        '#title' => t('Filter translatable strings'),
        '#collapsible' => TRUE,
        '#collapsed' => FALSE,
    );
    foreach ($filters as $key => $filter) {
        // Special case for 'string' filter.
        if ($key == 'string') {
            $form['filters']['status']['string'] = array(
                '#type' => 'textfield',
                '#title' => $filter['title'],
                '#description' => $filter['description'],
            );
        }
        else {
            $form['filters']['status'][$key] = array(
                '#title' => $filter['title'],
                '#type' => 'select',
                '#empty_value' => 'all',
                '#empty_option' => $filter['options']['all'],
                '#size' => 0,
                '#options' => $filter['options'],
            );
        }
        if (!empty($_SESSION['locale_translation_filter'][$key])) {
            $form['filters']['status'][$key]['#default_value'] = $_SESSION['locale_translation_filter'][$key];
        }
    }
    $form['filters']['actions'] = array(
        '#type' => 'actions',
        '#attributes' => array(
            'class' => array(
                'container-inline',
            ),
        ),
    );
    $form['filters']['actions']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Filter'),
    );
    if (!empty($_SESSION['locale_translation_filter'])) {
        $form['filters']['actions']['reset'] = array(
            '#type' => 'submit',
            '#value' => t('Reset'),
        );
    }
    return $form;
}

/**
 * Validate result from locale translation filter form.
 */
function locale_translation_filter_form_validate($form, &$form_state) {
    if ($form_state['values']['op'] == t('Filter') && empty($form_state['values']['language']) && empty($form_state['values']['group'])) {
        form_set_error('type', t('You must select something to filter by.'));
    }
}

/**
 * Process result from locale translation filter form.
 */
function locale_translation_filter_form_submit($form, &$form_state) {
    $op = $form_state['values']['op'];
    $filters = locale_translation_filters();
    switch ($op) {
        case t('Filter'):
            foreach ($filters as $name => $filter) {
                if (isset($form_state['values'][$name])) {
                    $_SESSION['locale_translation_filter'][$name] = $form_state['values'][$name];
                }
            }
            break;
        case t('Reset'):
            $_SESSION['locale_translation_filter'] = array();
            break;
    }
    $form_state['redirect'] = 'admin/config/regional/translate/translate';
}

/**
 * User interface for the translation import screen.
 */
function locale_translate_import_form($form) {
    // Get all languages, except English
    drupal_static_reset('language_list');
    $names = locale_language_list('name');
    unset($names['en']);
    if (!count($names)) {
        $languages = _locale_prepare_predefined_list();
        $default = key($languages);
    }
    else {
        $languages = array(
            t('Already added languages') => $names,
            t('Languages not yet added') => _locale_prepare_predefined_list(),
        );
        $default = key($names);
    }
    $form['import'] = array(
        '#type' => 'fieldset',
        '#title' => t('Import translation'),
    );
    $form['import']['file'] = array(
        '#type' => 'file',
        '#title' => t('Language file'),
        '#size' => 50,
        '#description' => t('A Gettext Portable Object (<em>.po</em>) file.'),
    );
    $form['import']['langcode'] = array(
        '#type' => 'select',
        '#title' => t('Import into'),
        '#options' => $languages,
        '#default_value' => $default,
        '#description' => t('Choose the language you want to add strings into. If you choose a language which is not yet set up, it will be added.'),
    );
    $form['import']['group'] = array(
        '#type' => 'radios',
        '#title' => t('Text group'),
        '#default_value' => 'default',
        '#options' => module_invoke_all('locale', 'groups'),
        '#description' => t('Imported translations will be added to this text group.'),
    );
    $form['import']['mode'] = array(
        '#type' => 'radios',
        '#title' => t('Mode'),
        '#default_value' => LOCALE_IMPORT_KEEP,
        '#options' => array(
            LOCALE_IMPORT_OVERWRITE => t('Strings in the uploaded file replace existing ones, new ones are added. The plural format is updated.'),
            LOCALE_IMPORT_KEEP => t('Existing strings and the plural format are kept, only new strings are added.'),
        ),
    );
    $form['import']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Import'),
    );
    return $form;
}

/**
 * Process the locale import form submission.
 */
function locale_translate_import_form_submit($form, &$form_state) {
    $validators = array(
        'file_validate_extensions' => array(
            'po',
        ),
    );
    // Ensure we have the file uploaded
    if ($file = file_save_upload('file', $validators)) {
        // Add language, if not yet supported
        drupal_static_reset('language_list');
        $languages = language_list('language');
        $langcode = $form_state['values']['langcode'];
        if (!isset($languages[$langcode])) {
            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.', array(
                '%language' => t($predefined[$langcode][0]),
            )));
        }
        // Now import strings into the language
        if ($return = _locale_import_po($file, $langcode, $form_state['values']['mode'], $form_state['values']['group']) == FALSE) {
            $variables = array(
                '%filename' => $file->filename,
            );
            drupal_set_message(t('The translation import of %filename failed.', $variables), 'error');
            watchdog('locale', 'The translation import of %filename failed.', $variables, WATCHDOG_ERROR);
        }
    }
    else {
        drupal_set_message(t('File to import not found.'), 'error');
        $form_state['redirect'] = 'admin/config/regional/translate/import';
        return;
    }
    $form_state['redirect'] = 'admin/config/regional/translate';
    return;
}

/**
 * User interface for the translation export screen.
 */
function locale_translate_export_screen() {
    // Get all languages, except English
    drupal_static_reset('language_list');
    $names = locale_language_list('name');
    unset($names['en']);
    $output = '';
    // Offer translation export if any language is set up.
    if (count($names)) {
        $elements = drupal_get_form('locale_translate_export_po_form', $names);
        $output = drupal_render($elements);
    }
    $elements = drupal_get_form('locale_translate_export_pot_form');
    $output .= drupal_render($elements);
    return $output;
}

/**
 * Form to export PO files for the languages provided.
 *
 * @param $names
 *   An associate array with localized language names
 */
function locale_translate_export_po_form($form, &$form_state, $names) {
    $form['export_title'] = array(
        '#type' => 'item',
        '#title' => t('Export translation'),
    );
    $form['langcode'] = array(
        '#type' => 'select',
        '#title' => t('Language name'),
        '#options' => $names,
        '#description' => t('Select the language to export in Gettext Portable Object (<em>.po</em>) format.'),
    );
    $form['group'] = array(
        '#type' => 'radios',
        '#title' => t('Text group'),
        '#default_value' => 'default',
        '#options' => module_invoke_all('locale', 'groups'),
    );
    $form['actions'] = array(
        '#type' => 'actions',
    );
    $form['actions']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Export'),
    );
    return $form;
}

/**
 * Translation template export form.
 */
function locale_translate_export_pot_form() {
    // Complete template export of the strings
    $form['export_title'] = array(
        '#type' => 'item',
        '#title' => t('Export template'),
        '#description' => t('Generate a Gettext Portable Object Template (<em>.pot</em>) file with all strings from the Drupal locale database.'),
    );
    $form['group'] = array(
        '#type' => 'radios',
        '#title' => t('Text group'),
        '#default_value' => 'default',
        '#options' => module_invoke_all('locale', 'groups'),
    );
    $form['actions'] = array(
        '#type' => 'actions',
    );
    $form['actions']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Export'),
    );
    // Reuse PO export submission callback.
    $form['#submit'][] = 'locale_translate_export_po_form_submit';
    return $form;
}

/**
 * Process a translation (or template) export form submission.
 */
function locale_translate_export_po_form_submit($form, &$form_state) {
    // If template is required, language code is not given.
    $language = NULL;
    if (isset($form_state['values']['langcode'])) {
        $languages = language_list();
        $language = $languages[$form_state['values']['langcode']];
    }
    _locale_export_po($language, _locale_export_po_generate($language, _locale_export_get_strings($language, $form_state['values']['group'])));
}

/**
 * @} End of "locale-translate-administration-screens"
 */

/**
 * @defgroup locale-translate-edit-delete Translation editing/deletion interface
 * @{
 * Edit and delete translation strings.
 *
 * These functions provide the user interface to edit and delete
 * translation strings.
 */

/**
 * User interface for string editing.
 */
function locale_translate_edit_form($form, &$form_state, $lid) {
    // Fetch source string, if possible.
    $source = db_query('SELECT source, context, textgroup, location FROM {locales_source} WHERE lid = :lid', array(
        ':lid' => $lid,
    ))->fetchObject();
    if (!$source) {
        drupal_set_message(t('String not found.'), 'error');
        drupal_goto('admin/config/regional/translate/translate');
    }
    // Add original text to the top and some values for form altering.
    $form['original'] = array(
        '#type' => 'item',
        '#title' => t('Original text'),
        '#markup' => check_plain(wordwrap($source->source, 0)),
    );
    if (!empty($source->context)) {
        $form['context'] = array(
            '#type' => 'item',
            '#title' => t('Context'),
            '#markup' => check_plain($source->context),
        );
    }
    $form['lid'] = array(
        '#type' => 'value',
        '#value' => $lid,
    );
    $form['textgroup'] = array(
        '#type' => 'value',
        '#value' => $source->textgroup,
    );
    $form['location'] = array(
        '#type' => 'value',
        '#value' => $source->location,
    );
    // Include both translated and not yet translated target languages in the
    // list. The source language is English for built-in strings and the default
    // language for other strings.
    $languages = language_list();
    $default = language_default();
    $omit = $source->textgroup == 'default' ? 'en' : $default->language;
    unset($languages[$omit]);
    $form['translations'] = array(
        '#tree' => TRUE,
    );
    // Approximate the number of rows to use in the default textarea.
    $rows = min(ceil(str_word_count($source->source) / 12), 10);
    foreach ($languages as $langcode => $language) {
        $form['translations'][$langcode] = array(
            '#type' => 'textarea',
            '#title' => t($language->name),
            '#rows' => $rows,
            '#default_value' => '',
        );
    }
    // Fetch translations and fill in default values in the form.
    $result = db_query("SELECT DISTINCT translation, language FROM {locales_target} WHERE lid = :lid AND language <> :omit", array(
        ':lid' => $lid,
        ':omit' => $omit,
    ));
    foreach ($result as $translation) {
        $form['translations'][$translation->language]['#default_value'] = $translation->translation;
    }
    $form['actions'] = array(
        '#type' => 'actions',
    );
    $form['actions']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Save translations'),
    );
    return $form;
}

/**
 * Validate string editing form submissions.
 */
function locale_translate_edit_form_validate($form, &$form_state) {
    // Locale string check is needed for default textgroup only.
    $safe_check_needed = $form_state['values']['textgroup'] == 'default';
    foreach ($form_state['values']['translations'] as $key => $value) {
        if ($safe_check_needed && !locale_string_is_safe($value)) {
            form_set_error('translations', t('The submitted string contains disallowed HTML: %string', array(
                '%string' => $value,
            )));
            watchdog('locale', 'Attempted submission of a translation string with disallowed HTML: %string', array(
                '%string' => $value,
            ), WATCHDOG_WARNING);
        }
    }
}

/**
 * Process string editing form submissions.
 *
 * Saves all translations of one string submitted from a form.
 */
function locale_translate_edit_form_submit($form, &$form_state) {
    $lid = $form_state['values']['lid'];
    foreach ($form_state['values']['translations'] as $key => $value) {
        $translation = db_query("SELECT translation FROM {locales_target} WHERE lid = :lid AND language = :language", array(
            ':lid' => $lid,
            ':language' => $key,
        ))->fetchField();
        if (!empty($value)) {
            // Only update or insert if we have a value to use.
            if (is_string($translation)) {
                db_update('locales_target')->fields(array(
                    'translation' => $value,
                ))
                    ->condition('lid', $lid)
                    ->condition('language', $key)
                    ->execute();
            }
            else {
                db_insert('locales_target')->fields(array(
                    'lid' => $lid,
                    'translation' => $value,
                    'language' => $key,
                ))
                    ->execute();
            }
        }
        elseif (!empty($translation)) {
            // Empty translation entered: remove existing entry from database.
            db_delete('locales_target')->condition('lid', $lid)
                ->condition('language', $key)
                ->execute();
        }
        // Force JavaScript translation file recreation for this language.
        _locale_invalidate_js($key);
    }
    drupal_set_message(t('The string has been saved.'));
    // Clear locale cache.
    _locale_invalidate_js();
    cache_clear_all('locale:', 'cache', TRUE);
    $form_state['redirect'] = 'admin/config/regional/translate/translate';
    return;
}

/**
 * String deletion confirmation page.
 */
function locale_translate_delete_page($lid) {
    if ($source = db_query('SELECT lid, source FROM {locales_source} WHERE lid = :lid', array(
        ':lid' => $lid,
    ))->fetchObject()) {
        return drupal_get_form('locale_translate_delete_form', $source);
    }
    return MENU_NOT_FOUND;
}

/**
 * User interface for the string deletion confirmation screen.
 */
function locale_translate_delete_form($form, &$form_state, $source) {
    $form['lid'] = array(
        '#type' => 'value',
        '#value' => $source->lid,
    );
    return confirm_form($form, t('Are you sure you want to delete the string "%source"?', array(
        '%source' => $source->source,
    )), 'admin/config/regional/translate/translate', t('Deleting the string will remove all translations of this string in all languages. This action cannot be undone.'), t('Delete'), t('Cancel'));
}

/**
 * Process string deletion submissions.
 */
function locale_translate_delete_form_submit($form, &$form_state) {
    db_delete('locales_source')->condition('lid', $form_state['values']['lid'])
        ->execute();
    db_delete('locales_target')->condition('lid', $form_state['values']['lid'])
        ->execute();
    // Force JavaScript translation file recreation for all languages.
    _locale_invalidate_js();
    cache_clear_all('locale:', 'cache', TRUE);
    drupal_set_message(t('The string has been removed.'));
    $form_state['redirect'] = 'admin/config/regional/translate/translate';
}

/**
 * @} End of "locale-translate-edit-delete"
 */

/**
 * Returns HTML for a locale date format form.
 *
 * @param $variables
 *   An associative array containing:
 *   - form: A render element representing the form.
 *
 * @ingroup themeable
 */
function theme_locale_date_format_form($variables) {
    $form = $variables['form'];
    $header = array(
        t('Date type'),
        t('Format'),
    );
    foreach (element_children($form['date_formats']) as $key) {
        $row = array();
        $row[] = $form['date_formats'][$key]['#title'];
        unset($form['date_formats'][$key]['#title']);
        $row[] = array(
            'data' => drupal_render($form['date_formats'][$key]),
        );
        $rows[] = $row;
    }
    $output = drupal_render($form['language']);
    $output .= theme('table', array(
        'header' => $header,
        'rows' => $rows,
    ));
    $output .= drupal_render_children($form);
    return $output;
}

/**
 * Display edit date format links for each language.
 */
function locale_date_format_language_overview_page() {
    $header = array(
        t('Language'),
        array(
            'data' => t('Operations'),
            'colspan' => '2',
        ),
    );
    // Get list of languages.
    $languages = locale_language_list('native');
    foreach ($languages as $langcode => $info) {
        $row = array();
        $row[] = $languages[$langcode];
        $row[] = l(t('edit'), 'admin/config/regional/date-time/locale/' . $langcode . '/edit');
        $row[] = l(t('reset'), 'admin/config/regional/date-time/locale/' . $langcode . '/reset');
        $rows[] = $row;
    }
    return theme('table', array(
        'header' => $header,
        'rows' => $rows,
    ));
}

/**
 * Provide date localization configuration options to users.
 */
function locale_date_format_form($form, &$form_state, $langcode) {
    $languages = locale_language_list('native');
    $language_name = $languages[$langcode];
    // Display the current language name.
    $form['language'] = array(
        '#type' => 'item',
        '#title' => t('Language'),
        '#markup' => check_plain($language_name),
        '#weight' => -10,
    );
    $form['langcode'] = array(
        '#type' => 'value',
        '#value' => $langcode,
    );
    // Get list of date format types.
    $types = system_get_date_types();
    // Get list of available formats.
    $formats = system_get_date_formats();
    $choices = array();
    foreach ($formats as $type => $list) {
        foreach ($list as $f => $format) {
            $choices[$f] = format_date(REQUEST_TIME, 'custom', $f);
        }
    }
    reset($formats);
    // Get configured formats for each language.
    $locale_formats = system_date_format_locale($langcode);
    // Display a form field for each format type.
    foreach ($types as $type => $type_info) {
        if (!empty($locale_formats) && in_array($type, array_keys($locale_formats))) {
            $default = $locale_formats[$type];
        }
        else {
            $default = variable_get('date_format_' . $type, key($formats));
        }
        // Show date format select list.
        $form['date_formats']['date_format_' . $type] = array(
            '#type' => 'select',
            '#title' => check_plain($type_info['title']),
            '#attributes' => array(
                'class' => array(
                    'date-format',
                ),
            ),
            '#default_value' => isset($choices[$default]) ? $default : 'custom',
            '#options' => $choices,
        );
    }
    $form['actions'] = array(
        '#type' => 'actions',
    );
    $form['actions']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Save configuration'),
    );
    return $form;
}

/**
 * Submit handler for configuring localized date formats on the locale_date_format_form.
 */
function locale_date_format_form_submit($form, &$form_state) {
    include_once DRUPAL_ROOT . '/includes/locale.inc';
    $langcode = $form_state['values']['langcode'];
    // Get list of date format types.
    $types = system_get_date_types();
    foreach ($types as $type => $type_info) {
        $format = $form_state['values']['date_format_' . $type];
        if ($format == 'custom') {
            $format = $form_state['values']['date_format_' . $type . '_custom'];
        }
        locale_date_format_save($langcode, $type, $format);
    }
    drupal_set_message(t('Configuration saved.'));
    $form_state['redirect'] = 'admin/config/regional/date-time/locale';
}

/**
 * Reset locale specific date formats to the global defaults.
 *
 * @param $langcode
 *   Language code, e.g. 'en'.
 */
function locale_date_format_reset_form($form, &$form_state, $langcode) {
    $form['langcode'] = array(
        '#type' => 'value',
        '#value' => $langcode,
    );
    $languages = language_list();
    return confirm_form($form, t('Are you sure you want to reset the date formats for %language to the global defaults?', array(
        '%language' => $languages[$langcode]->name,
    )), 'admin/config/regional/date-time/locale', t('Resetting will remove all localized date formats for this language. This action cannot be undone.'), t('Reset'), t('Cancel'));
}

/**
 * Reset date formats for a specific language to global defaults.
 */
function locale_date_format_reset_form_submit($form, &$form_state) {
    db_delete('date_format_locale')->condition('language', $form_state['values']['langcode'])
        ->execute();
    $form_state['redirect'] = 'admin/config/regional/date-time/locale';
}

Functions

Title Deprecated Summary
locale_date_format_form Provide date localization configuration options to users.
locale_date_format_form_submit Submit handler for configuring localized date formats on the locale_date_format_form.
locale_date_format_language_overview_page Display edit date format links for each language.
locale_date_format_reset_form Reset locale specific date formats to the global defaults.
locale_date_format_reset_form_submit Reset date formats for a specific language to global defaults.
locale_languages_add_screen User interface for the language addition screen.
locale_languages_configure_form Setting for language negotiation options
locale_languages_configure_form_submit Submit handler for language negotiation settings.
locale_languages_custom_form Custom language addition form.
locale_languages_delete_form User interface for the language deletion confirmation screen.
locale_languages_delete_form_submit Process language deletion submissions.
locale_languages_edit_form Editing screen for a particular language.
locale_languages_edit_form_submit Process the language editing form submission.
locale_languages_edit_form_validate Validate the language editing form. Reused for custom language addition too.
locale_languages_overview_form User interface for the language overview screen.
locale_languages_overview_form_submit Process language overview form submissions, updating existing languages.
locale_languages_predefined_form Predefined language setup form.
locale_languages_predefined_form_submit Process the language addition form submission.
locale_languages_predefined_form_validate Validate the language addition form.
locale_language_providers_session_form The URL language provider configuration form.
locale_language_providers_url_form The URL language provider configuration form.
locale_translate_delete_form User interface for the string deletion confirmation screen.
locale_translate_delete_form_submit Process string deletion submissions.
locale_translate_delete_page String deletion confirmation page.
locale_translate_edit_form User interface for string editing.
locale_translate_edit_form_submit Process string editing form submissions.
locale_translate_edit_form_validate Validate string editing form submissions.
locale_translate_export_pot_form Translation template export form.
locale_translate_export_po_form Form to export PO files for the languages provided.
locale_translate_export_po_form_submit Process a translation (or template) export form submission.
locale_translate_export_screen User interface for the translation export screen.
locale_translate_import_form User interface for the translation import screen.
locale_translate_import_form_submit Process the locale import form submission.
locale_translate_overview_screen Overview screen for translations.
locale_translate_seek_screen String search screen.
locale_translation_filters List locale translation filters that can be applied.
locale_translation_filter_form Return form for locale translation filters.
locale_translation_filter_form_submit Process result from locale translation filter form.
locale_translation_filter_form_validate Validate result from locale translation filter form.
theme_locale_date_format_form Returns HTML for a locale date format form.
theme_locale_languages_configure_form Returns HTML for a language configuration form.
theme_locale_languages_overview_form Returns HTML for the language overview form.
_locale_languages_common_controls Common elements of the language addition and editing form.
_locale_languages_configure_form_language_table Helper function to build a language provider table.

Buggy or inaccurate documentation? Please file an issue. Need support? Need help programming? Connect with the Drupal community.