webmaster@1: TRUE);
webmaster@1: foreach ($languages as $langcode => $language) {
webmaster@1:
webmaster@1: $options[$langcode] = '';
webmaster@1: if ($language->enabled) {
webmaster@1: $enabled[] = $langcode;
webmaster@1: }
webmaster@1: $form['weight'][$langcode] = array(
webmaster@1: '#type' => 'weight',
webmaster@1: '#default_value' => $language->weight
webmaster@1: );
webmaster@1: $form['name'][$langcode] = array('#value' => check_plain($language->name));
webmaster@1: $form['native'][$langcode] = array('#value' => check_plain($language->native));
webmaster@1: $form['direction'][$langcode] = array('#value' => ($language->direction == LANGUAGE_RTL ? t('Right to left') : t('Left to right')));
webmaster@1: }
webmaster@1: $form['enabled'] = array('#type' => 'checkboxes',
webmaster@1: '#options' => $options,
webmaster@1: '#default_value' => $enabled,
webmaster@1: );
webmaster@1: $form['site_default'] = array('#type' => 'radios',
webmaster@1: '#options' => $options,
webmaster@1: '#default_value' => language_default('language'),
webmaster@1: );
webmaster@1: $form['submit'] = array('#type' => 'submit', '#value' => t('Save configuration'));
webmaster@1: $form['#theme'] = 'locale_languages_overview_form';
webmaster@1:
webmaster@1: return $form;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Theme the language overview form.
webmaster@1: *
webmaster@1: * @ingroup themeable
webmaster@1: */
webmaster@1: function theme_locale_languages_overview_form($form) {
webmaster@1: $default = language_default();
webmaster@1: foreach ($form['name'] as $key => $element) {
webmaster@1: // Do not take form control structures.
webmaster@1: if (is_array($element) && element_child($key)) {
webmaster@1: // Disable checkbox for the default language, because it cannot be disabled.
webmaster@1: if ($key == $default->language) {
webmaster@1: $form['enabled'][$key]['#attributes']['disabled'] = 'disabled';
webmaster@1: }
webmaster@1: $rows[] = array(
webmaster@1: array('data' => drupal_render($form['enabled'][$key]), 'align' => 'center'),
webmaster@1: check_plain($key),
webmaster@1: ''. drupal_render($form['name'][$key]) .'',
webmaster@1: drupal_render($form['native'][$key]),
webmaster@1: drupal_render($form['direction'][$key]),
webmaster@1: drupal_render($form['site_default'][$key]),
webmaster@1: drupal_render($form['weight'][$key]),
webmaster@1: l(t('edit'), 'admin/settings/language/edit/'. $key) . (($key != 'en' && $key != $default->language) ? ' '. l(t('delete'), 'admin/settings/language/delete/'. $key) : '')
webmaster@1: );
webmaster@1: }
webmaster@1: }
webmaster@1: $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')));
webmaster@1: $output = theme('table', $header, $rows);
webmaster@1: $output .= drupal_render($form);
webmaster@1:
webmaster@1: return $output;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Process language overview form submissions, updating existing languages.
webmaster@1: */
webmaster@1: function locale_languages_overview_form_submit($form, &$form_state) {
webmaster@1: $languages = language_list();
webmaster@1: $default = language_default();
webmaster@1: $enabled_count = 0;
webmaster@1: foreach ($languages as $langcode => $language) {
webmaster@1: if ($form_state['values']['site_default'] == $langcode || $default->language == $langcode) {
webmaster@1: // Automatically enable the default language and the language
webmaster@1: // which was default previously (because we will not get the
webmaster@1: // value from that disabled checkox).
webmaster@1: $form_state['values']['enabled'][$langcode] = 1;
webmaster@1: }
webmaster@1: if ($form_state['values']['enabled'][$langcode]) {
webmaster@1: $enabled_count++;
webmaster@1: $language->enabled = 1;
webmaster@1: }
webmaster@1: else {
webmaster@1: $language->enabled = 0;
webmaster@1: }
webmaster@1: $language->weight = $form_state['values']['weight'][$langcode];
webmaster@1: db_query("UPDATE {languages} SET enabled = %d, weight = %d WHERE language = '%s'", $language->enabled, $language->weight, $langcode);
webmaster@1: $languages[$langcode] = $language;
webmaster@1: }
webmaster@1: drupal_set_message(t('Configuration saved.'));
webmaster@1: variable_set('language_default', $languages[$form_state['values']['site_default']]);
webmaster@1: variable_set('language_count', $enabled_count);
webmaster@1:
webmaster@1: // Changing the language settings impacts the interface.
webmaster@1: cache_clear_all('*', 'cache_page', TRUE);
webmaster@1:
webmaster@1: $form_state['redirect'] = 'admin/settings/language';
webmaster@1: return;
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-language-overview"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-language-add-edit Language addition and editing functionality
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * User interface for the language addition screen.
webmaster@1: */
webmaster@1: function locale_languages_add_screen() {
webmaster@1: $output = drupal_get_form('locale_languages_predefined_form');
webmaster@1: $output .= drupal_get_form('locale_languages_custom_form');
webmaster@1: return $output;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Predefined language setup form.
webmaster@1: */
webmaster@1: function locale_languages_predefined_form() {
webmaster@1: $predefined = _locale_prepare_predefined_list();
webmaster@1: $form = array();
webmaster@1: $form['language list'] = array('#type' => 'fieldset',
webmaster@1: '#title' => t('Predefined language'),
webmaster@1: '#collapsible' => TRUE,
webmaster@1: );
webmaster@1: $form['language list']['langcode'] = array('#type' => 'select',
webmaster@1: '#title' => t('Language name'),
webmaster@1: '#default_value' => key($predefined),
webmaster@1: '#options' => $predefined,
webmaster@1: '#description' => t('Select the desired language and click the Add language button. (Use the Custom language options if your desired language does not appear in this list.)'),
webmaster@1: );
webmaster@1: $form['language list']['submit'] = array('#type' => 'submit', '#value' => t('Add language'));
webmaster@1: return $form;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Custom language addition form.
webmaster@1: */
webmaster@1: function locale_languages_custom_form() {
webmaster@1: $form = array();
webmaster@1: $form['custom language'] = array('#type' => 'fieldset',
webmaster@1: '#title' => t('Custom language'),
webmaster@1: '#collapsible' => TRUE,
webmaster@1: '#collapsed' => TRUE,
webmaster@1: );
webmaster@1: _locale_languages_common_controls($form['custom language']);
webmaster@1: $form['custom language']['submit'] = array(
webmaster@1: '#type' => 'submit',
webmaster@1: '#value' => t('Add custom language')
webmaster@1: );
webmaster@1: // Reuse the validation and submit functions of the predefined language setup form.
webmaster@1: $form['#submit'][] = 'locale_languages_predefined_form_submit';
webmaster@1: $form['#validate'][] = 'locale_languages_predefined_form_validate';
webmaster@1: return $form;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Editing screen for a particular language.
webmaster@1: *
webmaster@1: * @param $langcode
webmaster@1: * Language code of the language to edit.
webmaster@1: */
webmaster@1: function locale_languages_edit_form(&$form_state, $langcode) {
webmaster@1: if ($language = db_fetch_object(db_query("SELECT * FROM {languages} WHERE language = '%s'", $langcode))) {
webmaster@1: $form = array();
webmaster@1: _locale_languages_common_controls($form, $language);
webmaster@1: $form['submit'] = array(
webmaster@1: '#type' => 'submit',
webmaster@1: '#value' => t('Save language')
webmaster@1: );
webmaster@1: $form['#submit'][] = 'locale_languages_edit_form_submit';
webmaster@1: $form['#validate'][] = 'locale_languages_edit_form_validate';
webmaster@1: return $form;
webmaster@1: }
webmaster@1: else {
webmaster@1: drupal_not_found();
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Common elements of the language addition and editing form.
webmaster@1: *
webmaster@1: * @param $form
webmaster@1: * A parent form item (or empty array) to add items below.
webmaster@1: * @param $language
webmaster@1: * Language object to edit.
webmaster@1: */
webmaster@1: function _locale_languages_common_controls(&$form, $language = NULL) {
webmaster@1: if (!is_object($language)) {
webmaster@1: $language = new stdClass();
webmaster@1: }
webmaster@1: if (isset($language->language)) {
webmaster@1: $form['langcode_view'] = array(
webmaster@1: '#type' => 'item',
webmaster@1: '#title' => t('Language code'),
webmaster@1: '#value' => $language->language
webmaster@1: );
webmaster@1: $form['langcode'] = array(
webmaster@1: '#type' => 'value',
webmaster@1: '#value' => $language->language
webmaster@1: );
webmaster@1: }
webmaster@1: else {
webmaster@1: $form['langcode'] = array('#type' => 'textfield',
webmaster@1: '#title' => t('Language code'),
webmaster@1: '#size' => 12,
webmaster@1: '#maxlength' => 60,
webmaster@1: '#required' => TRUE,
webmaster@1: '#default_value' => @$language->language,
webmaster@1: '#disabled' => (isset($language->language)),
webmaster@1: '#description' => t('RFC 4646 compliant language identifier. Language codes typically use a country code, and optionally, a script or regional variant name. Examples: "en", "en-US" and "zh-Hant".', array('@rfc4646' => 'http://www.ietf.org/rfc/rfc4646.txt')),
webmaster@1: );
webmaster@1: }
webmaster@1: $form['name'] = array('#type' => 'textfield',
webmaster@1: '#title' => t('Language name in English'),
webmaster@1: '#maxlength' => 64,
webmaster@1: '#default_value' => @$language->name,
webmaster@1: '#required' => TRUE,
webmaster@1: '#description' => t('Name of the language in English. Will be available for translation in all languages.'),
webmaster@1: );
webmaster@1: $form['native'] = array('#type' => 'textfield',
webmaster@1: '#title' => t('Native language name'),
webmaster@1: '#maxlength' => 64,
webmaster@1: '#default_value' => @$language->native,
webmaster@1: '#required' => TRUE,
webmaster@1: '#description' => t('Name of the language in the language being added.'),
webmaster@1: );
webmaster@1: $form['prefix'] = array('#type' => 'textfield',
webmaster@1: '#title' => t('Path prefix'),
webmaster@1: '#maxlength' => 64,
webmaster@1: '#default_value' => @$language->prefix,
webmaster@1: '#description' => t('Language code or other custom string for pattern matching within the path. With language negotiation set to Path prefix only or Path prefix with language fallback, 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. Modifying this value will break existing URLs and should be used with caution in a production environment. Example: Specifying "deutsch" as the path prefix for German results in URLs in the form "www.example.com/deutsch/node".')
webmaster@1: );
webmaster@1: $form['domain'] = array('#type' => 'textfield',
webmaster@1: '#title' => t('Language domain'),
webmaster@1: '#maxlength' => 64,
webmaster@1: '#default_value' => @$language->domain,
webmaster@1: '#description' => t('Language-specific URL, with protocol. With language negotiation set to Domain name only, 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. This value must include a protocol as part of the string. 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.'),
webmaster@1: );
webmaster@1: $form['direction'] = array('#type' => 'radios',
webmaster@1: '#title' => t('Direction'),
webmaster@1: '#required' => TRUE,
webmaster@1: '#description' => t('Direction that text in this language is presented.'),
webmaster@1: '#default_value' => @$language->direction,
webmaster@1: '#options' => array(LANGUAGE_LTR => t('Left to right'), LANGUAGE_RTL => t('Right to left'))
webmaster@1: );
webmaster@1: return $form;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Validate the language addition form.
webmaster@1: */
webmaster@1: function locale_languages_predefined_form_validate($form, &$form_state) {
webmaster@1: $langcode = $form_state['values']['langcode'];
webmaster@1:
webmaster@1: if ($duplicate = db_result(db_query("SELECT COUNT(*) FROM {languages} WHERE language = '%s'", $langcode)) != 0) {
webmaster@1: form_set_error('langcode', t('The language %language (%code) already exists.', array('%language' => $form_state['values']['name'], '%code' => $langcode)));
webmaster@1: }
webmaster@1:
webmaster@1: if (!isset($form_state['values']['name'])) {
webmaster@1: // Predefined language selection.
webmaster@1: $predefined = _locale_get_predefined_list();
webmaster@1: if (!isset($predefined[$langcode])) {
webmaster@1: form_set_error('langcode', t('Invalid language code.'));
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: // Reuse the editing form validation routine if we add a custom language.
webmaster@1: locale_languages_edit_form_validate($form, $form_state);
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Process the language addition form submission.
webmaster@1: */
webmaster@1: function locale_languages_predefined_form_submit($form, &$form_state) {
webmaster@1: $langcode = $form_state['values']['langcode'];
webmaster@1: if (isset($form_state['values']['name'])) {
webmaster@1: // Custom language form.
webmaster@1: locale_add_language($langcode, $form_state['values']['name'], $form_state['values']['native'], $form_state['values']['direction'], $form_state['values']['domain'], $form_state['values']['prefix']);
webmaster@1: drupal_set_message(t('The language %language has been created and can now be used. More information is available on the help screen.', array('%language' => t($form_state['values']['name']), '@locale-help' => url('admin/help/locale'))));
webmaster@1: }
webmaster@1: else {
webmaster@1: // Predefined language selection.
webmaster@1: $predefined = _locale_get_predefined_list();
webmaster@1: locale_add_language($langcode);
webmaster@1: drupal_set_message(t('The language %language has been created and can now be used. More information is available on the help screen.', array('%language' => t($predefined[$langcode][0]), '@locale-help' => url('admin/help/locale'))));
webmaster@1: }
webmaster@1:
webmaster@1: // See if we have language files to import for the newly added
webmaster@1: // language, collect and import them.
webmaster@1: if ($batch = locale_batch_by_language($langcode, '_locale_batch_language_finished')) {
webmaster@1: batch_set($batch);
webmaster@1: }
webmaster@1:
webmaster@1: $form_state['redirect'] = 'admin/settings/language';
webmaster@1: return;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Validate the language editing form. Reused for custom language addition too.
webmaster@1: */
webmaster@1: function locale_languages_edit_form_validate($form, &$form_state) {
webmaster@1: if (!empty($form_state['values']['domain']) && !empty($form_state['values']['prefix'])) {
webmaster@1: form_set_error('prefix', t('Domain and path prefix values should not be set at the same time.'));
webmaster@1: }
webmaster@1: 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']))) {
webmaster@1: form_set_error('domain', t('The domain (%domain) is already tied to a language (%language).', array('%domain' => $form_state['values']['domain'], '%language' => $duplicate->language)));
webmaster@1: }
webmaster@1: if (empty($form_state['values']['prefix']) && language_default('language') != $form_state['values']['langcode'] && empty($form_state['values']['domain'])) {
webmaster@1: form_set_error('prefix', t('Only the default language can have both the domain and prefix empty.'));
webmaster@1: }
webmaster@1: 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']))) {
webmaster@1: form_set_error('prefix', t('The prefix (%prefix) is already tied to a language (%language).', array('%prefix' => $form_state['values']['prefix'], '%language' => $duplicate->language)));
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Process the language editing form submission.
webmaster@1: */
webmaster@1: function locale_languages_edit_form_submit($form, &$form_state) {
webmaster@1: 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']);
webmaster@1: $default = language_default();
webmaster@1: if ($default->language == $form_state['values']['langcode']) {
webmaster@1: $properties = array('name', 'native', 'direction', 'enabled', 'plurals', 'formula', 'domain', 'prefix', 'weight');
webmaster@1: foreach ($properties as $keyname) {
webmaster@1: if (isset($form_state['values'][$keyname])) {
webmaster@1: $default->$keyname = $form_state['values'][$keyname];
webmaster@1: }
webmaster@1: }
webmaster@1: variable_set('language_default', $default);
webmaster@1: }
webmaster@1: $form_state['redirect'] = 'admin/settings/language';
webmaster@1: return;
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-language-add-edit"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-language-delete Language deletion functionality
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * User interface for the language deletion confirmation screen.
webmaster@1: */
webmaster@1: function locale_languages_delete_form(&$form_state, $langcode) {
webmaster@1:
webmaster@1: // Do not allow deletion of English locale.
webmaster@1: if ($langcode == 'en') {
webmaster@1: drupal_set_message(t('The English language cannot be deleted.'));
webmaster@1: drupal_goto('admin/settings/language');
webmaster@1: }
webmaster@1:
webmaster@1: if (language_default('language') == $langcode) {
webmaster@1: drupal_set_message(t('The default language cannot be deleted.'));
webmaster@1: drupal_goto('admin/settings/language');
webmaster@1: }
webmaster@1:
webmaster@1: // For other languages, warn user that data loss is ahead.
webmaster@1: $languages = language_list();
webmaster@1:
webmaster@1: if (!isset($languages[$langcode])) {
webmaster@1: drupal_not_found();
webmaster@1: }
webmaster@1: else {
webmaster@1: $form['langcode'] = array('#type' => 'value', '#value' => $langcode);
webmaster@1: return confirm_form($form, t('Are you sure you want to delete the language %name?', array('%name' => t($languages[$langcode]->name))), 'admin/settings/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'));
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Process language deletion submissions.
webmaster@1: */
webmaster@1: function locale_languages_delete_form_submit($form, &$form_state) {
webmaster@1: $languages = language_list();
webmaster@1: if (isset($languages[$form_state['values']['langcode']])) {
webmaster@1: // Remove translations first.
webmaster@1: db_query("DELETE FROM {locales_target} WHERE language = '%s'", $form_state['values']['langcode']);
webmaster@1: cache_clear_all('locale:'. $form_state['values']['langcode'], 'cache');
webmaster@1: // With no translations, this removes existing JavaScript translations file.
webmaster@1: _locale_rebuild_js($form_state['values']['langcode']);
webmaster@1: // Remove the language.
webmaster@1: db_query("DELETE FROM {languages} WHERE language = '%s'", $form_state['values']['langcode']);
webmaster@1: db_query("UPDATE {node} SET language = '' WHERE language = '%s'", $form_state['values']['langcode']);
webmaster@1: $variables = array('%locale' => $languages[$form_state['values']['langcode']]->name);
webmaster@1: drupal_set_message(t('The language %locale has been removed.', $variables));
webmaster@1: watchdog('locale', 'The language %locale has been removed.', $variables);
webmaster@1: }
webmaster@1:
webmaster@1: // Changing the language settings impacts the interface:
webmaster@1: cache_clear_all('*', 'cache_page', TRUE);
webmaster@1:
webmaster@1: $form_state['redirect'] = 'admin/settings/language';
webmaster@1: return;
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-language-add-edit"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-languages-negotiation Language negotiation options screen
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * Setting for language negotiation options
webmaster@1: */
webmaster@1: function locale_languages_configure_form() {
webmaster@1: $form['language_negotiation'] = array(
webmaster@1: '#title' => t('Language negotiation'),
webmaster@1: '#type' => 'radios',
webmaster@1: '#options' => array(
webmaster@1: LANGUAGE_NEGOTIATION_NONE => t('None.'),
webmaster@1: LANGUAGE_NEGOTIATION_PATH_DEFAULT => t('Path prefix only.'),
webmaster@1: LANGUAGE_NEGOTIATION_PATH => t('Path prefix with language fallback.'),
webmaster@1: LANGUAGE_NEGOTIATION_DOMAIN => t('Domain name only.')),
webmaster@1: '#default_value' => variable_get('language_negotiation', LANGUAGE_NEGOTIATION_NONE),
webmaster@1: '#description' => t("Select the mechanism used to determine your site's presentation language. Modifying this setting may break all incoming URLs and should be used with caution in a production environment.")
webmaster@1: );
webmaster@1: $form['submit'] = array(
webmaster@1: '#type' => 'submit',
webmaster@1: '#value' => t('Save settings')
webmaster@1: );
webmaster@1: return $form;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Submit function for language negotiation settings.
webmaster@1: */
webmaster@1: function locale_languages_configure_form_submit($form, &$form_state) {
webmaster@1: variable_set('language_negotiation', $form_state['values']['language_negotiation']);
webmaster@1: drupal_set_message(t('Language negotiation configuration saved.'));
webmaster@1: $form_state['redirect'] = 'admin/settings/language';
webmaster@1: return;
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-languages-negotiation"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-translate-overview Translation overview screen.
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * Overview screen for translations.
webmaster@1: */
webmaster@1: function locale_translate_overview_screen() {
webmaster@1: $languages = language_list('language', TRUE);
webmaster@1: $groups = module_invoke_all('locale', 'groups');
webmaster@1:
webmaster@1: // Build headers with all groups in order.
webmaster@1: $headers = array_merge(array(t('Language')), array_values($groups));
webmaster@1:
webmaster@1: // Collect summaries of all source strings in all groups.
webmaster@1: $sums = db_query("SELECT COUNT(*) AS strings, textgroup FROM {locales_source} GROUP BY textgroup");
webmaster@1: $groupsums = array();
webmaster@1: while ($group = db_fetch_object($sums)) {
webmaster@1: $groupsums[$group->textgroup] = $group->strings;
webmaster@1: }
webmaster@1:
webmaster@1: // Set up overview table with default values, ensuring common order for values.
webmaster@1: $rows = array();
webmaster@1: foreach ($languages as $langcode => $language) {
webmaster@1: $rows[$langcode] = array('name' => ($langcode == 'en' ? t('English (built-in)') : t($language->name)));
webmaster@1: foreach ($groups as $group => $name) {
webmaster@1: $rows[$langcode][$group] = ($langcode == 'en' ? t('n/a') : '0/'. (isset($groupsums[$group]) ? $groupsums[$group] : 0) .' (0%)');
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: // Languages with at least one record in the locale table.
webmaster@1: $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");
webmaster@1: while ($data = db_fetch_object($translations)) {
webmaster@1: $ratio = (!empty($groupsums[$data->textgroup]) && $data->translation > 0) ? round(($data->translation/$groupsums[$data->textgroup])*100., 2) : 0;
webmaster@1: $rows[$data->language][$data->textgroup] = $data->translation .'/'. $groupsums[$data->textgroup] ." ($ratio%)";
webmaster@1: }
webmaster@1:
webmaster@1: return theme('table', $headers, $rows);
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-translate-overview"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-translate-seek Translation search screen.
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * String search screen.
webmaster@1: */
webmaster@1: function locale_translate_seek_screen() {
webmaster@1: $output = _locale_translate_seek();
webmaster@1: $output .= drupal_get_form('locale_translate_seek_form');
webmaster@1: return $output;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * User interface for the string search screen.
webmaster@1: */
webmaster@1: function locale_translate_seek_form() {
webmaster@1: // Get all languages, except English
webmaster@1: $languages = locale_language_list('name', TRUE);
webmaster@1: unset($languages['en']);
webmaster@1:
webmaster@1: // Present edit form preserving previous user settings
webmaster@1: $query = _locale_translate_seek_query();
webmaster@1: $form = array();
webmaster@1: $form['search'] = array('#type' => 'fieldset',
webmaster@1: '#title' => t('Search'),
webmaster@1: );
webmaster@1: $form['search']['string'] = array('#type' => 'textfield',
webmaster@1: '#title' => t('String contains'),
webmaster@1: '#default_value' => @$query['string'],
webmaster@1: '#description' => t('Leave blank to show all strings. The search is case sensitive.'),
webmaster@1: );
webmaster@1: $form['search']['language'] = array(
webmaster@1: // Change type of form widget if more the 5 options will
webmaster@1: // be present (2 of the options are added below).
webmaster@1: '#type' => (count($languages) <= 3 ? 'radios' : 'select'),
webmaster@1: '#title' => t('Language'),
webmaster@1: '#default_value' => (!empty($query['language']) ? $query['language'] : 'all'),
webmaster@1: '#options' => array_merge(array('all' => t('All languages'), 'en' => t('English (provided by Drupal)')), $languages),
webmaster@1: );
webmaster@1: $form['search']['translation'] = array('#type' => 'radios',
webmaster@1: '#title' => t('Search in'),
webmaster@1: '#default_value' => (!empty($query['translation']) ? $query['translation'] : 'all'),
webmaster@1: '#options' => array('all' => t('Both translated and untranslated strings'), 'translated' => t('Only translated strings'), 'untranslated' => t('Only untranslated strings')),
webmaster@1: );
webmaster@1: $groups = module_invoke_all('locale', 'groups');
webmaster@1: $form['search']['group'] = array('#type' => 'radios',
webmaster@1: '#title' => t('Limit search to'),
webmaster@1: '#default_value' => (!empty($query['group']) ? $query['group'] : 'all'),
webmaster@1: '#options' => array_merge(array('all' => t('All text groups')), $groups),
webmaster@1: );
webmaster@1:
webmaster@1: $form['search']['submit'] = array('#type' => 'submit', '#value' => t('Search'));
webmaster@1: $form['#redirect'] = FALSE;
webmaster@1:
webmaster@1: return $form;
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-translate-seek"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-translate-import Translation import screen.
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * User interface for the translation import screen.
webmaster@1: */
webmaster@1: function locale_translate_import_form() {
webmaster@1: // Get all languages, except English
webmaster@1: $names = locale_language_list('name', TRUE);
webmaster@1: unset($names['en']);
webmaster@1:
webmaster@1: if (!count($names)) {
webmaster@1: $languages = _locale_prepare_predefined_list();
webmaster@1: $default = array_shift(array_keys($languages));
webmaster@1: }
webmaster@1: else {
webmaster@1: $languages = array(
webmaster@1: t('Already added languages') => $names,
webmaster@1: t('Languages not yet added') => _locale_prepare_predefined_list()
webmaster@1: );
webmaster@1: $default = array_shift(array_keys($names));
webmaster@1: }
webmaster@1:
webmaster@1: $form = array();
webmaster@1: $form['import'] = array('#type' => 'fieldset',
webmaster@1: '#title' => t('Import translation'),
webmaster@1: );
webmaster@1: $form['import']['file'] = array('#type' => 'file',
webmaster@1: '#title' => t('Language file'),
webmaster@1: '#size' => 50,
webmaster@1: '#description' => t('A Gettext Portable Object (.po) file.'),
webmaster@1: );
webmaster@1: $form['import']['langcode'] = array('#type' => 'select',
webmaster@1: '#title' => t('Import into'),
webmaster@1: '#options' => $languages,
webmaster@1: '#default_value' => $default,
webmaster@1: '#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.'),
webmaster@1: );
webmaster@1: $form['import']['group'] = array('#type' => 'radios',
webmaster@1: '#title' => t('Text group'),
webmaster@1: '#default_value' => 'default',
webmaster@1: '#options' => module_invoke_all('locale', 'groups'),
webmaster@1: '#description' => t('Imported translations will be added to this text group.'),
webmaster@1: );
webmaster@1: $form['import']['mode'] = array('#type' => 'radios',
webmaster@1: '#title' => t('Mode'),
webmaster@1: '#default_value' => LOCALE_IMPORT_KEEP,
webmaster@1: '#options' => array(
webmaster@1: LOCALE_IMPORT_OVERWRITE => t('Strings in the uploaded file replace existing ones, new ones are added'),
webmaster@1: LOCALE_IMPORT_KEEP => t('Existing strings are kept, only new strings are added')
webmaster@1: ),
webmaster@1: );
webmaster@1: $form['import']['submit'] = array('#type' => 'submit', '#value' => t('Import'));
webmaster@1: $form['#attributes']['enctype'] = 'multipart/form-data';
webmaster@1:
webmaster@1: return $form;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Process the locale import form submission.
webmaster@1: */
webmaster@1: function locale_translate_import_form_submit($form, &$form_state) {
webmaster@1: // Ensure we have the file uploaded
webmaster@1: if ($file = file_save_upload('file')) {
webmaster@1:
webmaster@1: // Add language, if not yet supported
webmaster@1: $languages = language_list('language', TRUE);
webmaster@1: $langcode = $form_state['values']['langcode'];
webmaster@1: if (!isset($languages[$langcode])) {
webmaster@1: $predefined = _locale_get_predefined_list();
webmaster@1: locale_add_language($langcode);
webmaster@1: drupal_set_message(t('The language %language has been created.', array('%language' => t($predefined[$langcode][0]))));
webmaster@1: }
webmaster@1:
webmaster@1: // Now import strings into the language
webmaster@1: if ($ret = _locale_import_po($file, $langcode, $form_state['values']['mode'], $form_state['values']['group']) == FALSE) {
webmaster@1: $variables = array('%filename' => $file->filename);
webmaster@1: drupal_set_message(t('The translation import of %filename failed.', $variables), 'error');
webmaster@1: watchdog('locale', 'The translation import of %filename failed.', $variables, WATCHDOG_ERROR);
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: drupal_set_message(t('File to import not found.'), 'error');
webmaster@1: return 'admin/build/translate/import';
webmaster@1: }
webmaster@1:
webmaster@1: $form_state['redirect'] = 'admin/build/translate';
webmaster@1: return;
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-translate-import"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-translate-export Translation export screen.
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * User interface for the translation export screen.
webmaster@1: */
webmaster@1: function locale_translate_export_screen() {
webmaster@1: // Get all languages, except English
webmaster@1: $names = locale_language_list('name', TRUE);
webmaster@1: unset($names['en']);
webmaster@1: $output = '';
webmaster@1: // Offer translation export if any language is set up.
webmaster@1: if (count($names)) {
webmaster@1: $output = drupal_get_form('locale_translate_export_po_form', $names);
webmaster@1: }
webmaster@1: $output .= drupal_get_form('locale_translate_export_pot_form');
webmaster@1: return $output;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Form to export PO files for the languages provided.
webmaster@1: *
webmaster@1: * @param $names
webmaster@1: * An associate array with localized language names
webmaster@1: */
webmaster@1: function locale_translate_export_po_form(&$form_state, $names) {
webmaster@1: $form['export'] = array('#type' => 'fieldset',
webmaster@1: '#title' => t('Export translation'),
webmaster@1: '#collapsible' => TRUE,
webmaster@1: );
webmaster@1: $form['export']['langcode'] = array('#type' => 'select',
webmaster@1: '#title' => t('Language name'),
webmaster@1: '#options' => $names,
webmaster@1: '#description' => t('Select the language to export in Gettext Portable Object (.po) format.'),
webmaster@1: );
webmaster@1: $form['export']['group'] = array('#type' => 'radios',
webmaster@1: '#title' => t('Text group'),
webmaster@1: '#default_value' => 'default',
webmaster@1: '#options' => module_invoke_all('locale', 'groups'),
webmaster@1: );
webmaster@1: $form['export']['submit'] = array('#type' => 'submit', '#value' => t('Export'));
webmaster@1: return $form;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Translation template export form.
webmaster@1: */
webmaster@1: function locale_translate_export_pot_form() {
webmaster@1: // Complete template export of the strings
webmaster@1: $form['export'] = array('#type' => 'fieldset',
webmaster@1: '#title' => t('Export template'),
webmaster@1: '#collapsible' => TRUE,
webmaster@1: '#description' => t('Generate a Gettext Portable Object Template (.pot) file with all strings from the Drupal locale database.'),
webmaster@1: );
webmaster@1: $form['export']['group'] = array('#type' => 'radios',
webmaster@1: '#title' => t('Text group'),
webmaster@1: '#default_value' => 'default',
webmaster@1: '#options' => module_invoke_all('locale', 'groups'),
webmaster@1: );
webmaster@1: $form['export']['submit'] = array('#type' => 'submit', '#value' => t('Export'));
webmaster@1: // Reuse PO export submission callback.
webmaster@1: $form['#submit'][] = 'locale_translate_export_po_form_submit';
webmaster@1: $form['#validate'][] = 'locale_translate_export_po_form_validate';
webmaster@1: return $form;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Process a translation (or template) export form submission.
webmaster@1: */
webmaster@1: function locale_translate_export_po_form_submit($form, &$form_state) {
webmaster@1: // If template is required, language code is not given.
webmaster@1: $language = NULL;
webmaster@1: if (isset($form_state['values']['langcode'])) {
webmaster@1: $languages = language_list();
webmaster@1: $language = $languages[$form_state['values']['langcode']];
webmaster@1: }
webmaster@1: _locale_export_po($language, _locale_export_po_generate($language, _locale_export_get_strings($language, $form_state['values']['group'])));
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-translate-export"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-translate-edit Translation text editing
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * User interface for string editing.
webmaster@1: */
webmaster@1: function locale_translate_edit_form(&$form_state, $lid) {
webmaster@1: // Fetch source string, if possible.
webmaster@1: $source = db_fetch_object(db_query('SELECT source, textgroup, location FROM {locales_source} WHERE lid = %d', $lid));
webmaster@1: if (!$source) {
webmaster@1: drupal_set_message(t('String not found.'), 'error');
webmaster@1: drupal_goto('admin/build/translate/search');
webmaster@1: }
webmaster@1:
webmaster@1: // Add original text to the top and some values for form altering.
webmaster@1: $form = array(
webmaster@1: 'original' => array(
webmaster@1: '#type' => 'item',
webmaster@1: '#title' => t('Original text'),
webmaster@1: '#value' => check_plain(wordwrap($source->source, 0)),
webmaster@1: ),
webmaster@1: 'lid' => array(
webmaster@1: '#type' => 'value',
webmaster@1: '#value' => $lid
webmaster@1: ),
webmaster@1: 'textgroup' => array(
webmaster@1: '#type' => 'value',
webmaster@1: '#value' => $source->textgroup,
webmaster@1: ),
webmaster@1: 'location' => array(
webmaster@1: '#type' => 'value',
webmaster@1: '#value' => $source->location
webmaster@1: ),
webmaster@1: );
webmaster@1:
webmaster@1: // Include default form controls with empty values for all languages.
webmaster@1: // This ensures that the languages are always in the same order in forms.
webmaster@1: $languages = language_list();
webmaster@1: $default = language_default();
webmaster@1: // We don't need the default language value, that value is in $source.
webmaster@1: $omit = $source->textgroup == 'default' ? 'en' : $default->language;
webmaster@1: unset($languages[($omit)]);
webmaster@1: $form['translations'] = array('#tree' => TRUE);
webmaster@1: // Approximate the number of rows to use in the default textarea.
webmaster@1: $rows = min(ceil(str_word_count($source->source) / 12), 10);
webmaster@1: foreach ($languages as $langcode => $language) {
webmaster@1: $form['translations'][$langcode] = array(
webmaster@1: '#type' => 'textarea',
webmaster@1: '#title' => t($language->name),
webmaster@1: '#rows' => $rows,
webmaster@1: '#default_value' => '',
webmaster@1: );
webmaster@1: }
webmaster@1:
webmaster@1: // Fetch translations and fill in default values in the form.
webmaster@1: $result = db_query("SELECT DISTINCT translation, language FROM {locales_target} WHERE lid = %d AND language != '%s'", $lid, $omit);
webmaster@1: while ($translation = db_fetch_object($result)) {
webmaster@1: $form['translations'][$translation->language]['#default_value'] = $translation->translation;
webmaster@1: }
webmaster@1:
webmaster@1: $form['submit'] = array('#type' => 'submit', '#value' => t('Save translations'));
webmaster@1: return $form;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Process string editing form submissions.
webmaster@1: * Saves all translations of one string submitted from a form.
webmaster@1: */
webmaster@1: function locale_translate_edit_form_submit($form, &$form_state) {
webmaster@1: $lid = $form_state['values']['lid'];
webmaster@1: foreach ($form_state['values']['translations'] as $key => $value) {
webmaster@1: $translation = db_result(db_query("SELECT translation FROM {locales_target} WHERE lid = %d AND language = '%s'", $lid, $key));
webmaster@1: if (!empty($value)) {
webmaster@1: // Only update or insert if we have a value to use.
webmaster@1: if (!empty($translation)) {
webmaster@1: db_query("UPDATE {locales_target} SET translation = '%s' WHERE lid = %d AND language = '%s'", $value, $lid, $key);
webmaster@1: }
webmaster@1: else {
webmaster@1: db_query("INSERT INTO {locales_target} (lid, translation, language) VALUES (%d, '%s', '%s')", $lid, $value, $key);
webmaster@1: }
webmaster@1: }
webmaster@1: elseif (!empty($translation)) {
webmaster@1: // Empty translation entered: remove existing entry from database.
webmaster@1: db_query("DELETE FROM {locales_target} WHERE lid = %d AND language = '%s'", $lid, $key);
webmaster@1: }
webmaster@1:
webmaster@1: // Force JavaScript translation file recreation for this language.
webmaster@1: _locale_invalidate_js($key);
webmaster@1: }
webmaster@1:
webmaster@1: drupal_set_message(t('The string has been saved.'));
webmaster@1:
webmaster@1: // Clear locale cache.
webmaster@1: cache_clear_all('locale:', 'cache', TRUE);
webmaster@1:
webmaster@1: $form_state['redirect'] = 'admin/build/translate/search';
webmaster@1: return;
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-translate-edit"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-translate-delete Translation delete interface.
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@7: * String deletion confirmation page.
webmaster@1: */
webmaster@7: function locale_translate_delete_page($lid) {
webmaster@7: if ($source = db_fetch_object(db_query('SELECT * FROM {locales_source} WHERE lid = %d', $lid))) {
webmaster@7: return drupal_get_form('locale_translate_delete_form', $source);
webmaster@7: }
webmaster@7: else {
webmaster@7: return drupal_not_found();
webmaster@7: }
webmaster@7: }
webmaster@7:
webmaster@7: /**
webmaster@7: * User interface for the string deletion confirmation screen.
webmaster@7: */
webmaster@7: function locale_translate_delete_form(&$form_state, $source) {
webmaster@7: $form['lid'] = array('#type' => 'value', '#value' => $source->lid);
webmaster@7: return confirm_form($form, t('Are you sure you want to delete the string "%source"?', array('%source' => $source->source)), 'admin/build/translate/search', t('Deleting the string will remove all translations of this string in all languages. This action cannot be undone.'), t('Delete'), t('Cancel'));
webmaster@7: }
webmaster@7:
webmaster@7: /**
webmaster@7: * Process string deletion submissions.
webmaster@7: */
webmaster@7: function locale_translate_delete_form_submit($form, &$form_state) {
webmaster@7: db_query('DELETE FROM {locales_source} WHERE lid = %d', $form_state['values']['lid']);
webmaster@7: db_query('DELETE FROM {locales_target} WHERE lid = %d', $form_state['values']['lid']);
webmaster@1: // Force JavaScript translation file recreation for all languages.
webmaster@1: _locale_invalidate_js();
webmaster@1: cache_clear_all('locale:', 'cache', TRUE);
webmaster@1: drupal_set_message(t('The string has been removed.'));
webmaster@7: $form_state['redirect'] = 'admin/build/translate/search';
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-translate-delete"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-api-add Language addition API.
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * API function to add a language.
webmaster@1: *
webmaster@1: * @param $langcode
webmaster@1: * Language code.
webmaster@1: * @param $name
webmaster@1: * English name of the language
webmaster@1: * @param $native
webmaster@1: * Native name of the language
webmaster@1: * @param $direction
webmaster@1: * LANGUAGE_LTR or LANGUAGE_RTL
webmaster@1: * @param $domain
webmaster@1: * Optional custom domain name with protocol, without
webmaster@1: * trailing slash (eg. http://de.example.com).
webmaster@1: * @param $prefix
webmaster@1: * Optional path prefix for the language. Defaults to the
webmaster@1: * language code if omitted.
webmaster@1: * @param $enabled
webmaster@1: * Optionally TRUE to enable the language when created or FALSE to disable.
webmaster@1: * @param $default
webmaster@1: * Optionally set this language to be the default.
webmaster@1: */
webmaster@1: function locale_add_language($langcode, $name = NULL, $native = NULL, $direction = LANGUAGE_LTR, $domain = '', $prefix = '', $enabled = TRUE, $default = FALSE) {
webmaster@1: // Default prefix on language code.
webmaster@1: if (empty($prefix)) {
webmaster@1: $prefix = $langcode;
webmaster@1: }
webmaster@1:
webmaster@1: // If name was not set, we add a predefined language.
webmaster@1: if (!isset($name)) {
webmaster@1: $predefined = _locale_get_predefined_list();
webmaster@1: $name = $predefined[$langcode][0];
webmaster@1: $native = isset($predefined[$langcode][1]) ? $predefined[$langcode][1] : $predefined[$langcode][0];
webmaster@1: $direction = isset($predefined[$langcode][2]) ? $predefined[$langcode][2] : LANGUAGE_LTR;
webmaster@1: }
webmaster@1:
webmaster@1: db_query("INSERT INTO {languages} (language, name, native, direction, domain, prefix, enabled) VALUES ('%s', '%s', '%s', %d, '%s', '%s', %d)", $langcode, $name, $native, $direction, $domain, $prefix, $enabled);
webmaster@1:
webmaster@1: // Only set it as default if enabled.
webmaster@1: if ($enabled && $default) {
webmaster@1: variable_set('language_default', (object) array('language' => $langcode, 'name' => $name, 'native' => $native, 'direction' => $direction, 'enabled' => (int) $enabled, 'plurals' => 0, 'formula' => '', 'domain' => '', 'prefix' => $prefix, 'weight' => 0, 'javascript' => ''));
webmaster@1: }
webmaster@1:
webmaster@1: if ($enabled) {
webmaster@1: // Increment enabled language count if we are adding an enabled language.
webmaster@1: variable_set('language_count', variable_get('language_count', 1) + 1);
webmaster@1: }
webmaster@1:
webmaster@1: // Force JavaScript translation file creation for the newly added language.
webmaster@1: _locale_invalidate_js($langcode);
webmaster@1:
webmaster@1: watchdog('locale', 'The %language language (%code) has been created.', array('%language' => $name, '%code' => $langcode));
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-api-add"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-api-import Translation import API.
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * Parses Gettext Portable Object file information and inserts into database
webmaster@1: *
webmaster@1: * @param $file
webmaster@1: * Drupal file object corresponding to the PO file to import
webmaster@1: * @param $langcode
webmaster@1: * Language code
webmaster@1: * @param $mode
webmaster@1: * Should existing translations be replaced LOCALE_IMPORT_KEEP or LOCALE_IMPORT_OVERWRITE
webmaster@1: * @param $group
webmaster@1: * Text group to import PO file into (eg. 'default' for interface translations)
webmaster@1: */
webmaster@1: function _locale_import_po($file, $langcode, $mode, $group = NULL) {
webmaster@1: // If not in 'safe mode', increase the maximum execution time.
webmaster@1: if (!ini_get('safe_mode')) {
webmaster@1: set_time_limit(240);
webmaster@1: }
webmaster@1:
webmaster@1: // Check if we have the language already in the database.
webmaster@1: if (!db_fetch_object(db_query("SELECT language FROM {languages} WHERE language = '%s'", $langcode))) {
webmaster@1: drupal_set_message(t('The language selected for import is not supported.'), 'error');
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1:
webmaster@1: // Get strings from file (returns on failure after a partial import, or on success)
webmaster@1: $status = _locale_import_read_po('db-store', $file, $mode, $langcode, $group);
webmaster@1: if ($status === FALSE) {
webmaster@1: // Error messages are set in _locale_import_read_po().
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1:
webmaster@1: // Get status information on import process.
webmaster@1: list($headerdone, $additions, $updates, $deletes) = _locale_import_one_string('db-report');
webmaster@1:
webmaster@1: if (!$headerdone) {
webmaster@1: drupal_set_message(t('The translation file %filename appears to have a missing or malformed header.', array('%filename' => $file->filename)), 'error');
webmaster@1: }
webmaster@1:
webmaster@1: // Clear cache and force refresh of JavaScript translations.
webmaster@1: _locale_invalidate_js($langcode);
webmaster@1: cache_clear_all('locale:', 'cache', TRUE);
webmaster@1:
webmaster@1: // Rebuild the menu, strings may have changed.
webmaster@1: menu_rebuild();
webmaster@1:
webmaster@1: drupal_set_message(t('The translation was successfully imported. There are %number newly created translated strings, %update strings were updated and %delete strings were removed.', array('%number' => $additions, '%update' => $updates, '%delete' => $deletes)));
webmaster@1: watchdog('locale', 'Imported %file into %locale: %number new strings added, %update updated and %delete removed.', array('%file' => $file->filename, '%locale' => $langcode, '%number' => $additions, '%update' => $updates, '%delete' => $deletes));
webmaster@1: return TRUE;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Parses Gettext Portable Object file into an array
webmaster@1: *
webmaster@1: * @param $op
webmaster@1: * Storage operation type: db-store or mem-store
webmaster@1: * @param $file
webmaster@1: * Drupal file object corresponding to the PO file to import
webmaster@1: * @param $mode
webmaster@1: * Should existing translations be replaced LOCALE_IMPORT_KEEP or LOCALE_IMPORT_OVERWRITE
webmaster@1: * @param $lang
webmaster@1: * Language code
webmaster@1: * @param $group
webmaster@1: * Text group to import PO file into (eg. 'default' for interface translations)
webmaster@1: */
webmaster@1: function _locale_import_read_po($op, $file, $mode = NULL, $lang = NULL, $group = 'default') {
webmaster@1:
webmaster@1: $fd = fopen($file->filepath, "rb"); // File will get closed by PHP on return
webmaster@1: if (!$fd) {
webmaster@1: _locale_import_message('The translation import failed, because the file %filename could not be read.', $file);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1:
webmaster@1: $context = "COMMENT"; // Parser context: COMMENT, MSGID, MSGID_PLURAL, MSGSTR and MSGSTR_ARR
webmaster@1: $current = array(); // Current entry being read
webmaster@1: $plural = 0; // Current plural form
webmaster@1: $lineno = 0; // Current line
webmaster@1:
webmaster@1: while (!feof($fd)) {
webmaster@1: $line = fgets($fd, 10*1024); // A line should not be this long
webmaster@1: if ($lineno == 0) {
webmaster@1: // The first line might come with a UTF-8 BOM, which should be removed.
webmaster@1: $line = str_replace("\xEF\xBB\xBF", '', $line);
webmaster@1: }
webmaster@1: $lineno++;
webmaster@1: $line = trim(strtr($line, array("\\\n" => "")));
webmaster@1:
webmaster@1: if (!strncmp("#", $line, 1)) { // A comment
webmaster@1: if ($context == "COMMENT") { // Already in comment context: add
webmaster@1: $current["#"][] = substr($line, 1);
webmaster@1: }
webmaster@1: elseif (($context == "MSGSTR") || ($context == "MSGSTR_ARR")) { // End current entry, start a new one
webmaster@1: _locale_import_one_string($op, $current, $mode, $lang, $file, $group);
webmaster@1: $current = array();
webmaster@1: $current["#"][] = substr($line, 1);
webmaster@1: $context = "COMMENT";
webmaster@1: }
webmaster@1: else { // Parse error
webmaster@1: _locale_import_message('The translation file %filename contains an error: "msgstr" was expected but not found on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: }
webmaster@1: elseif (!strncmp("msgid_plural", $line, 12)) {
webmaster@1: if ($context != "MSGID") { // Must be plural form for current entry
webmaster@1: _locale_import_message('The translation file %filename contains an error: "msgid_plural" was expected but not found on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: $line = trim(substr($line, 12));
webmaster@1: $quoted = _locale_import_parse_quoted($line);
webmaster@1: if ($quoted === FALSE) {
webmaster@1: _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: $current["msgid"] = $current["msgid"] ."\0". $quoted;
webmaster@1: $context = "MSGID_PLURAL";
webmaster@1: }
webmaster@1: elseif (!strncmp("msgid", $line, 5)) {
webmaster@1: if ($context == "MSGSTR") { // End current entry, start a new one
webmaster@1: _locale_import_one_string($op, $current, $mode, $lang, $file, $group);
webmaster@1: $current = array();
webmaster@1: }
webmaster@1: elseif ($context == "MSGID") { // Already in this context? Parse error
webmaster@1: _locale_import_message('The translation file %filename contains an error: "msgid" is unexpected on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: $line = trim(substr($line, 5));
webmaster@1: $quoted = _locale_import_parse_quoted($line);
webmaster@1: if ($quoted === FALSE) {
webmaster@1: _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: $current["msgid"] = $quoted;
webmaster@1: $context = "MSGID";
webmaster@1: }
webmaster@1: elseif (!strncmp("msgstr[", $line, 7)) {
webmaster@1: if (($context != "MSGID") && ($context != "MSGID_PLURAL") && ($context != "MSGSTR_ARR")) { // Must come after msgid, msgid_plural, or msgstr[]
webmaster@1: _locale_import_message('The translation file %filename contains an error: "msgstr[]" is unexpected on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: if (strpos($line, "]") === FALSE) {
webmaster@1: _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: $frombracket = strstr($line, "[");
webmaster@1: $plural = substr($frombracket, 1, strpos($frombracket, "]") - 1);
webmaster@1: $line = trim(strstr($line, " "));
webmaster@1: $quoted = _locale_import_parse_quoted($line);
webmaster@1: if ($quoted === FALSE) {
webmaster@1: _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: $current["msgstr"][$plural] = $quoted;
webmaster@1: $context = "MSGSTR_ARR";
webmaster@1: }
webmaster@1: elseif (!strncmp("msgstr", $line, 6)) {
webmaster@1: if ($context != "MSGID") { // Should come just after a msgid block
webmaster@1: _locale_import_message('The translation file %filename contains an error: "msgstr" is unexpected on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: $line = trim(substr($line, 6));
webmaster@1: $quoted = _locale_import_parse_quoted($line);
webmaster@1: if ($quoted === FALSE) {
webmaster@1: _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: $current["msgstr"] = $quoted;
webmaster@1: $context = "MSGSTR";
webmaster@1: }
webmaster@1: elseif ($line != "") {
webmaster@1: $quoted = _locale_import_parse_quoted($line);
webmaster@1: if ($quoted === FALSE) {
webmaster@1: _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: if (($context == "MSGID") || ($context == "MSGID_PLURAL")) {
webmaster@1: $current["msgid"] .= $quoted;
webmaster@1: }
webmaster@1: elseif ($context == "MSGSTR") {
webmaster@1: $current["msgstr"] .= $quoted;
webmaster@1: }
webmaster@1: elseif ($context == "MSGSTR_ARR") {
webmaster@1: $current["msgstr"][$plural] .= $quoted;
webmaster@1: }
webmaster@1: else {
webmaster@1: _locale_import_message('The translation file %filename contains an error: there is an unexpected string on line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: // End of PO file, flush last entry
webmaster@1: if (($context == "MSGSTR") || ($context == "MSGSTR_ARR")) {
webmaster@1: _locale_import_one_string($op, $current, $mode, $lang, $file, $group);
webmaster@1: }
webmaster@1: elseif ($context != "COMMENT") {
webmaster@1: _locale_import_message('The translation file %filename ended unexpectedly at line %line.', $file, $lineno);
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1:
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Sets an error message occurred during locale file parsing.
webmaster@1: *
webmaster@1: * @param $message
webmaster@1: * The message to be translated
webmaster@1: * @param $file
webmaster@1: * Drupal file object corresponding to the PO file to import
webmaster@1: * @param $lineno
webmaster@1: * An optional line number argument
webmaster@1: */
webmaster@1: function _locale_import_message($message, $file, $lineno = NULL) {
webmaster@1: $vars = array('%filename' => $file->filename);
webmaster@1: if (isset($lineno)) {
webmaster@1: $vars['%line'] = $lineno;
webmaster@1: }
webmaster@1: $t = get_t();
webmaster@1: drupal_set_message($t($message, $vars), 'error');
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Imports a string into the database
webmaster@1: *
webmaster@1: * @param $op
webmaster@1: * Operation to perform: 'db-store', 'db-report', 'mem-store' or 'mem-report'
webmaster@1: * @param $value
webmaster@1: * Details of the string stored
webmaster@1: * @param $mode
webmaster@1: * Should existing translations be replaced LOCALE_IMPORT_KEEP or LOCALE_IMPORT_OVERWRITE
webmaster@1: * @param $lang
webmaster@1: * Language to store the string in
webmaster@1: * @param $file
webmaster@1: * Object representation of file being imported, only required when op is 'db-store'
webmaster@1: * @param $group
webmaster@1: * Text group to import PO file into (eg. 'default' for interface translations)
webmaster@1: */
webmaster@1: function _locale_import_one_string($op, $value = NULL, $mode = NULL, $lang = NULL, $file = NULL, $group = 'default') {
webmaster@1: static $report = array(0, 0, 0);
webmaster@1: static $headerdone = FALSE;
webmaster@1: static $strings = array();
webmaster@1:
webmaster@1: switch ($op) {
webmaster@1: // Return stored strings
webmaster@1: case 'mem-report':
webmaster@1: return $strings;
webmaster@1:
webmaster@1: // Store string in memory (only supports single strings)
webmaster@1: case 'mem-store':
webmaster@1: $strings[$value['msgid']] = $value['msgstr'];
webmaster@1: return;
webmaster@1:
webmaster@1: // Called at end of import to inform the user
webmaster@1: case 'db-report':
webmaster@1: return array($headerdone, $report[0], $report[1], $report[2]);
webmaster@1:
webmaster@1: // Store the string we got in the database.
webmaster@1: case 'db-store':
webmaster@1: // We got header information.
webmaster@1: if ($value['msgid'] == '') {
webmaster@1: $header = _locale_import_parse_header($value['msgstr']);
webmaster@1:
webmaster@1: // Get the plural formula and update in database.
webmaster@1: if (isset($header["Plural-Forms"]) && $p = _locale_import_parse_plural_forms($header["Plural-Forms"], $file->filename)) {
webmaster@1: list($nplurals, $plural) = $p;
webmaster@1: db_query("UPDATE {languages} SET plurals = %d, formula = '%s' WHERE language = '%s'", $nplurals, $plural, $lang);
webmaster@1: }
webmaster@1: else {
webmaster@1: db_query("UPDATE {languages} SET plurals = %d, formula = '%s' WHERE language = '%s'", 0, '', $lang);
webmaster@1: }
webmaster@1: $headerdone = TRUE;
webmaster@1: }
webmaster@1:
webmaster@1: else {
webmaster@1: // Some real string to import.
webmaster@1: $comments = _locale_import_shorten_comments(empty($value['#']) ? array() : $value['#']);
webmaster@1:
webmaster@1: if (strpos($value['msgid'], "\0")) {
webmaster@1: // This string has plural versions.
webmaster@1: $english = explode("\0", $value['msgid'], 2);
webmaster@1: $entries = array_keys($value['msgstr']);
webmaster@1: for ($i = 3; $i <= count($entries); $i++) {
webmaster@1: $english[] = $english[1];
webmaster@1: }
webmaster@1: $translation = array_map('_locale_import_append_plural', $value['msgstr'], $entries);
webmaster@1: $english = array_map('_locale_import_append_plural', $english, $entries);
webmaster@1: foreach ($translation as $key => $trans) {
webmaster@1: if ($key == 0) {
webmaster@1: $plid = 0;
webmaster@1: }
webmaster@1: $plid = _locale_import_one_string_db($report, $lang, $english[$key], $trans, $group, $comments, $mode, $plid, $key);
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: else {
webmaster@1: // A simple string to import.
webmaster@1: $english = $value['msgid'];
webmaster@1: $translation = $value['msgstr'];
webmaster@1: _locale_import_one_string_db($report, $lang, $english, $translation, $group, $comments, $mode);
webmaster@1: }
webmaster@1: }
webmaster@1: } // end of db-store operation
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Import one string into the database.
webmaster@1: *
webmaster@1: * @param $report
webmaster@1: * Report array summarizing the number of changes done in the form:
webmaster@1: * array(inserts, updates, deletes).
webmaster@1: * @param $langcode
webmaster@1: * Language code to import string into.
webmaster@1: * @param $source
webmaster@1: * Source string.
webmaster@1: * @param $translation
webmaster@1: * Translation to language specified in $langcode.
webmaster@1: * @param $textgroup
webmaster@1: * Name of textgroup to store translation in.
webmaster@1: * @param $location
webmaster@1: * Location value to save with source string.
webmaster@1: * @param $mode
webmaster@1: * Import mode to use, LOCALE_IMPORT_KEEP or LOCALE_IMPORT_OVERWRITE.
webmaster@1: * @param $plid
webmaster@1: * Optional plural ID to use.
webmaster@1: * @param $plural
webmaster@1: * Optional plural value to use.
webmaster@1: * @return
webmaster@1: * The string ID of the existing string modified or the new string added.
webmaster@1: */
webmaster@1: function _locale_import_one_string_db(&$report, $langcode, $source, $translation, $textgroup, $location, $mode, $plid = NULL, $plural = NULL) {
webmaster@1: $lid = db_result(db_query("SELECT lid FROM {locales_source} WHERE source = '%s' AND textgroup = '%s'", $source, $textgroup));
webmaster@1:
webmaster@1: if (!empty($translation)) {
webmaster@1: if ($lid) {
webmaster@1: // We have this source string saved already.
webmaster@1: db_query("UPDATE {locales_source} SET location = '%s' WHERE lid = %d", $location, $lid);
webmaster@1: $exists = (bool) db_result(db_query("SELECT lid FROM {locales_target} WHERE lid = %d AND language = '%s'", $lid, $langcode));
webmaster@1: if (!$exists) {
webmaster@1: // No translation in this language.
webmaster@1: db_query("INSERT INTO {locales_target} (lid, language, translation, plid, plural) VALUES (%d, '%s', '%s', %d, %d)", $lid, $langcode, $translation, $plid, $plural);
webmaster@1: $report[0]++;
webmaster@1: }
webmaster@1: else if ($mode == LOCALE_IMPORT_OVERWRITE) {
webmaster@1: // Translation exists, only overwrite if instructed.
webmaster@1: db_query("UPDATE {locales_target} SET translation = '%s', plid = %d, plural = %d WHERE language = '%s' AND lid = %d", $translation, $plid, $plural, $langcode, $lid);
webmaster@1: $report[1]++;
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: // No such source string in the database yet.
webmaster@1: db_query("INSERT INTO {locales_source} (location, source, textgroup) VALUES ('%s', '%s', '%s')", $location, $source, $textgroup);
webmaster@1: $lid = db_result(db_query("SELECT lid FROM {locales_source} WHERE source = '%s' AND textgroup = '%s'", $source, $textgroup));
webmaster@1: db_query("INSERT INTO {locales_target} (lid, language, translation, plid, plural) VALUES (%d, '%s', '%s', %d, %d)", $lid, $langcode, $translation, $plid, $plural);
webmaster@1: $report[0]++;
webmaster@1: }
webmaster@1: }
webmaster@1: elseif ($mode == LOCALE_IMPORT_OVERWRITE) {
webmaster@1: // Empty translation, remove existing if instructed.
webmaster@1: db_query("DELETE FROM {locales_target} WHERE language = '%s' AND lid = %d AND plid = %d AND plural = %d", $translation, $langcode, $lid, $plid, $plural);
webmaster@1: $report[2]++;
webmaster@1: }
webmaster@1:
webmaster@1: return $lid;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Parses a Gettext Portable Object file header
webmaster@1: *
webmaster@1: * @param $header
webmaster@1: * A string containing the complete header
webmaster@1: * @return
webmaster@1: * An associative array of key-value pairs
webmaster@1: */
webmaster@1: function _locale_import_parse_header($header) {
webmaster@1: $header_parsed = array();
webmaster@1: $lines = array_map('trim', explode("\n", $header));
webmaster@1: foreach ($lines as $line) {
webmaster@1: if ($line) {
webmaster@1: list($tag, $contents) = explode(":", $line, 2);
webmaster@1: $header_parsed[trim($tag)] = trim($contents);
webmaster@1: }
webmaster@1: }
webmaster@1: return $header_parsed;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Parses a Plural-Forms entry from a Gettext Portable Object file header
webmaster@1: *
webmaster@1: * @param $pluralforms
webmaster@1: * A string containing the Plural-Forms entry
webmaster@1: * @param $filename
webmaster@1: * A string containing the filename
webmaster@1: * @return
webmaster@1: * An array containing the number of plurals and a
webmaster@1: * formula in PHP for computing the plural form
webmaster@1: */
webmaster@1: function _locale_import_parse_plural_forms($pluralforms, $filename) {
webmaster@1: // First, delete all whitespace
webmaster@1: $pluralforms = strtr($pluralforms, array(" " => "", "\t" => ""));
webmaster@1:
webmaster@1: // Select the parts that define nplurals and plural
webmaster@1: $nplurals = strstr($pluralforms, "nplurals=");
webmaster@1: if (strpos($nplurals, ";")) {
webmaster@1: $nplurals = substr($nplurals, 9, strpos($nplurals, ";") - 9);
webmaster@1: }
webmaster@1: else {
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: $plural = strstr($pluralforms, "plural=");
webmaster@1: if (strpos($plural, ";")) {
webmaster@1: $plural = substr($plural, 7, strpos($plural, ";") - 7);
webmaster@1: }
webmaster@1: else {
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1:
webmaster@1: // Get PHP version of the plural formula
webmaster@1: $plural = _locale_import_parse_arithmetic($plural);
webmaster@1:
webmaster@1: if ($plural !== FALSE) {
webmaster@1: return array($nplurals, $plural);
webmaster@1: }
webmaster@1: else {
webmaster@1: drupal_set_message(t('The translation file %filename contains an error: the plural formula could not be parsed.', array('%filename' => $filename)), 'error');
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Parses and sanitizes an arithmetic formula into a PHP expression
webmaster@1: *
webmaster@1: * While parsing, we ensure, that the operators have the right
webmaster@1: * precedence and associativity.
webmaster@1: *
webmaster@1: * @param $string
webmaster@1: * A string containing the arithmetic formula
webmaster@1: * @return
webmaster@1: * The PHP version of the formula
webmaster@1: */
webmaster@1: function _locale_import_parse_arithmetic($string) {
webmaster@1: // Operator precedence table
webmaster@1: $prec = array("(" => -1, ")" => -1, "?" => 1, ":" => 1, "||" => 3, "&&" => 4, "==" => 5, "!=" => 5, "<" => 6, ">" => 6, "<=" => 6, ">=" => 6, "+" => 7, "-" => 7, "*" => 8, "/" => 8, "%" => 8);
webmaster@1: // Right associativity
webmaster@1: $rasc = array("?" => 1, ":" => 1);
webmaster@1:
webmaster@1: $tokens = _locale_import_tokenize_formula($string);
webmaster@1:
webmaster@1: // Parse by converting into infix notation then back into postfix
webmaster@1: $opstk = array();
webmaster@1: $elstk = array();
webmaster@1:
webmaster@1: foreach ($tokens as $token) {
webmaster@1: $ctok = $token;
webmaster@1:
webmaster@1: // Numbers and the $n variable are simply pushed into $elarr
webmaster@1: if (is_numeric($token)) {
webmaster@1: $elstk[] = $ctok;
webmaster@1: }
webmaster@1: elseif ($ctok == "n") {
webmaster@1: $elstk[] = '$n';
webmaster@1: }
webmaster@1: elseif ($ctok == "(") {
webmaster@1: $opstk[] = $ctok;
webmaster@1: }
webmaster@1: elseif ($ctok == ")") {
webmaster@1: $topop = array_pop($opstk);
webmaster@1: while (isset($topop) && ($topop != "(")) {
webmaster@1: $elstk[] = $topop;
webmaster@1: $topop = array_pop($opstk);
webmaster@1: }
webmaster@1: }
webmaster@1: elseif (!empty($prec[$ctok])) {
webmaster@1: // If it's an operator, then pop from $oparr into $elarr until the
webmaster@1: // precedence in $oparr is less than current, then push into $oparr
webmaster@1: $topop = array_pop($opstk);
webmaster@1: while (isset($topop) && ($prec[$topop] >= $prec[$ctok]) && !(($prec[$topop] == $prec[$ctok]) && !empty($rasc[$topop]) && !empty($rasc[$ctok]))) {
webmaster@1: $elstk[] = $topop;
webmaster@1: $topop = array_pop($opstk);
webmaster@1: }
webmaster@1: if ($topop) {
webmaster@1: $opstk[] = $topop; // Return element to top
webmaster@1: }
webmaster@1: $opstk[] = $ctok; // Parentheses are not needed
webmaster@1: }
webmaster@1: else {
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: // Flush operator stack
webmaster@1: $topop = array_pop($opstk);
webmaster@1: while ($topop != NULL) {
webmaster@1: $elstk[] = $topop;
webmaster@1: $topop = array_pop($opstk);
webmaster@1: }
webmaster@1:
webmaster@1: // Now extract formula from stack
webmaster@1: $prevsize = count($elstk) + 1;
webmaster@1: while (count($elstk) < $prevsize) {
webmaster@1: $prevsize = count($elstk);
webmaster@1: for ($i = 2; $i < count($elstk); $i++) {
webmaster@1: $op = $elstk[$i];
webmaster@1: if (!empty($prec[$op])) {
webmaster@1: $f = "";
webmaster@1: if ($op == ":") {
webmaster@1: $f = $elstk[$i - 2] ."):". $elstk[$i - 1] .")";
webmaster@1: }
webmaster@1: elseif ($op == "?") {
webmaster@1: $f = "(". $elstk[$i - 2] ."?(". $elstk[$i - 1];
webmaster@1: }
webmaster@1: else {
webmaster@1: $f = "(". $elstk[$i - 2] . $op . $elstk[$i - 1] .")";
webmaster@1: }
webmaster@1: array_splice($elstk, $i - 2, 3, $f);
webmaster@1: break;
webmaster@1: }
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: // If only one element is left, the number of operators is appropriate
webmaster@1: if (count($elstk) == 1) {
webmaster@1: return $elstk[0];
webmaster@1: }
webmaster@1: else {
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Backward compatible implementation of token_get_all() for formula parsing
webmaster@1: *
webmaster@1: * @param $string
webmaster@1: * A string containing the arithmetic formula
webmaster@1: * @return
webmaster@1: * The PHP version of the formula
webmaster@1: */
webmaster@1: function _locale_import_tokenize_formula($formula) {
webmaster@1: $formula = str_replace(" ", "", $formula);
webmaster@1: $tokens = array();
webmaster@1: for ($i = 0; $i < strlen($formula); $i++) {
webmaster@1: if (is_numeric($formula[$i])) {
webmaster@1: $num = $formula[$i];
webmaster@1: $j = $i + 1;
webmaster@1: while ($j < strlen($formula) && is_numeric($formula[$j])) {
webmaster@1: $num .= $formula[$j];
webmaster@1: $j++;
webmaster@1: }
webmaster@1: $i = $j - 1;
webmaster@1: $tokens[] = $num;
webmaster@1: }
webmaster@1: elseif ($pos = strpos(" =<>!&|", $formula[$i])) { // We won't have a space
webmaster@1: $next = $formula[$i + 1];
webmaster@1: switch ($pos) {
webmaster@1: case 1:
webmaster@1: case 2:
webmaster@1: case 3:
webmaster@1: case 4:
webmaster@1: if ($next == '=') {
webmaster@1: $tokens[] = $formula[$i] .'=';
webmaster@1: $i++;
webmaster@1: }
webmaster@1: else {
webmaster@1: $tokens[] = $formula[$i];
webmaster@1: }
webmaster@1: break;
webmaster@1: case 5:
webmaster@1: if ($next == '&') {
webmaster@1: $tokens[] = '&&';
webmaster@1: $i++;
webmaster@1: }
webmaster@1: else {
webmaster@1: $tokens[] = $formula[$i];
webmaster@1: }
webmaster@1: break;
webmaster@1: case 6:
webmaster@1: if ($next == '|') {
webmaster@1: $tokens[] = '||';
webmaster@1: $i++;
webmaster@1: }
webmaster@1: else {
webmaster@1: $tokens[] = $formula[$i];
webmaster@1: }
webmaster@1: break;
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: $tokens[] = $formula[$i];
webmaster@1: }
webmaster@1: }
webmaster@1: return $tokens;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Modify a string to contain proper count indices
webmaster@1: *
webmaster@1: * This is a callback function used via array_map()
webmaster@1: *
webmaster@1: * @param $entry
webmaster@1: * An array element
webmaster@1: * @param $key
webmaster@1: * Index of the array element
webmaster@1: */
webmaster@1: function _locale_import_append_plural($entry, $key) {
webmaster@1: // No modifications for 0, 1
webmaster@1: if ($key == 0 || $key == 1) {
webmaster@1: return $entry;
webmaster@1: }
webmaster@1:
webmaster@1: // First remove any possibly false indices, then add new ones
webmaster@1: $entry = preg_replace('/(@count)\[[0-9]\]/', '\\1', $entry);
webmaster@1: return preg_replace('/(@count)/', "\\1[$key]", $entry);
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Generate a short, one string version of the passed comment array
webmaster@1: *
webmaster@1: * @param $comment
webmaster@1: * An array of strings containing a comment
webmaster@1: * @return
webmaster@1: * Short one string version of the comment
webmaster@1: */
webmaster@1: function _locale_import_shorten_comments($comment) {
webmaster@1: $comm = '';
webmaster@1: while (count($comment)) {
webmaster@1: $test = $comm . substr(array_shift($comment), 1) .', ';
webmaster@1: if (strlen($comm) < 130) {
webmaster@1: $comm = $test;
webmaster@1: }
webmaster@1: else {
webmaster@1: break;
webmaster@1: }
webmaster@1: }
webmaster@1: return substr($comm, 0, -2);
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Parses a string in quotes
webmaster@1: *
webmaster@1: * @param $string
webmaster@1: * A string specified with enclosing quotes
webmaster@1: * @return
webmaster@1: * The string parsed from inside the quotes
webmaster@1: */
webmaster@1: function _locale_import_parse_quoted($string) {
webmaster@1: if (substr($string, 0, 1) != substr($string, -1, 1)) {
webmaster@1: return FALSE; // Start and end quotes must be the same
webmaster@1: }
webmaster@1: $quote = substr($string, 0, 1);
webmaster@1: $string = substr($string, 1, -1);
webmaster@1: if ($quote == '"') { // Double quotes: strip slashes
webmaster@1: return stripcslashes($string);
webmaster@1: }
webmaster@1: elseif ($quote == "'") { // Simple quote: return as-is
webmaster@1: return $string;
webmaster@1: }
webmaster@1: else {
webmaster@1: return FALSE; // Unrecognized quote
webmaster@1: }
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-api-import"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * Parses a JavaScript file, extracts strings wrapped in Drupal.t() and
webmaster@1: * Drupal.formatPlural() and inserts them into the database.
webmaster@1: */
webmaster@1: function _locale_parse_js_file($filepath) {
webmaster@1: global $language;
webmaster@1:
webmaster@1: // Load the JavaScript file.
webmaster@1: $file = file_get_contents($filepath);
webmaster@1:
webmaster@1: // Match all calls to Drupal.t() in an array.
webmaster@1: // Note: \s also matches newlines with the 's' modifier.
webmaster@1: preg_match_all('~[^\w]Drupal\s*\.\s*t\s*\(\s*('. LOCALE_JS_STRING .')\s*[,\)]~s', $file, $t_matches);
webmaster@1:
webmaster@1: // Match all Drupal.formatPlural() calls in another array.
webmaster@1: preg_match_all('~[^\w]Drupal\s*\.\s*formatPlural\s*\(\s*.+?\s*,\s*('. LOCALE_JS_STRING .')\s*,\s*((?:(?:\'(?:\\\\\'|[^\'])*@count(?:\\\\\'|[^\'])*\'|"(?:\\\\"|[^"])*@count(?:\\\\"|[^"])*")(?:\s*\+\s*)?)+)\s*[,\)]~s', $file, $plural_matches);
webmaster@1:
webmaster@1: // Loop through all matches and process them.
webmaster@1: $all_matches = array_merge($plural_matches[1], $t_matches[1]);
webmaster@1: foreach ($all_matches as $key => $string) {
webmaster@1: $strings = array($string);
webmaster@1:
webmaster@1: // If there is also a plural version of this string, add it to the strings array.
webmaster@1: if (isset($plural_matches[2][$key])) {
webmaster@1: $strings[] = $plural_matches[2][$key];
webmaster@1: }
webmaster@1:
webmaster@1: foreach ($strings as $key => $string) {
webmaster@1: // Remove the quotes and string concatenations from the string.
webmaster@1: $string = implode('', preg_split('~(?location);
webmaster@1:
webmaster@1: if (!in_array($filepath, $locations)) {
webmaster@1: $locations[] = $filepath;
webmaster@1: $locations = implode('; ', $locations);
webmaster@1:
webmaster@1: // Save the new locations string to the database.
webmaster@1: db_query("UPDATE {locales_source} SET location = '%s' WHERE lid = %d", $locations, $source->lid);
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: // We don't have the source string yet, thus we insert it into the database.
webmaster@1: db_query("INSERT INTO {locales_source} (location, source, textgroup) VALUES ('%s', '%s', 'default')", $filepath, $string);
webmaster@1: }
webmaster@1: }
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-api-export Translation (template) export API.
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * Generates a structured array of all strings with translations in
webmaster@1: * $language, if given. This array can be used to generate an export
webmaster@1: * of the string in the database.
webmaster@1: *
webmaster@1: * @param $language
webmaster@1: * Language object to generate the output for, or NULL if generating
webmaster@1: * translation template.
webmaster@1: * @param $group
webmaster@1: * Text group to export PO file from (eg. 'default' for interface translations)
webmaster@1: */
webmaster@1: function _locale_export_get_strings($language = NULL, $group = 'default') {
webmaster@1: if (isset($language)) {
webmaster@1: $result = db_query("SELECT s.lid, s.source, s.location, t.translation, t.plid, t.plural FROM {locales_source} s LEFT JOIN {locales_target} t ON s.lid = t.lid AND t.language = '%s' WHERE s.textgroup = '%s' ORDER BY t.plid, t.plural", $language->language, $group);
webmaster@1: }
webmaster@1: else {
webmaster@1: $result = db_query("SELECT s.lid, s.source, s.location, t.plid, t.plural FROM {locales_source} s LEFT JOIN {locales_target} t ON s.lid = t.lid WHERE s.textgroup = '%s' ORDER BY t.plid, t.plural", $group);
webmaster@1: }
webmaster@1: $strings = array();
webmaster@1: while ($child = db_fetch_object($result)) {
webmaster@1: $string = array(
webmaster@1: 'comment' => $child->location,
webmaster@1: 'source' => $child->source,
webmaster@1: 'translation' => isset($child->translation) ? $child->translation : ''
webmaster@1: );
webmaster@1: if ($child->plid) {
webmaster@1: // Has a parent lid. Since we process in the order of plids,
webmaster@1: // we already have the parent in the array, so we can add the
webmaster@1: // lid to the next plural version to it. This builds a linked
webmaster@1: // list of plurals.
webmaster@1: $string['child'] = TRUE;
webmaster@1: $strings[$child->plid]['plural'] = $child->lid;
webmaster@1: }
webmaster@1: $strings[$child->lid] = $string;
webmaster@1: }
webmaster@1: return $strings;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Generates the PO(T) file contents for given strings.
webmaster@1: *
webmaster@1: * @param $language
webmaster@1: * Language object to generate the output for, or NULL if generating
webmaster@1: * translation template.
webmaster@1: * @param $strings
webmaster@1: * Array of strings to export. See _locale_export_get_strings()
webmaster@1: * on how it should be formatted.
webmaster@1: * @param $header
webmaster@1: * The header portion to use for the output file. Defaults
webmaster@1: * are provided for PO and POT files.
webmaster@1: */
webmaster@1: function _locale_export_po_generate($language = NULL, $strings = array(), $header = NULL) {
webmaster@1: global $user;
webmaster@1:
webmaster@1: if (!isset($header)) {
webmaster@1: if (isset($language)) {
webmaster@1: $header = '# '. $language->name .' translation of '. variable_get('site_name', 'Drupal') ."\n";
webmaster@1: $header .= '# Generated by '. $user->name .' <'. $user->mail .">\n";
webmaster@1: $header .= "#\n";
webmaster@1: $header .= "msgid \"\"\n";
webmaster@1: $header .= "msgstr \"\"\n";
webmaster@1: $header .= "\"Project-Id-Version: PROJECT VERSION\\n\"\n";
webmaster@1: $header .= "\"POT-Creation-Date: ". date("Y-m-d H:iO") ."\\n\"\n";
webmaster@1: $header .= "\"PO-Revision-Date: ". date("Y-m-d H:iO") ."\\n\"\n";
webmaster@1: $header .= "\"Last-Translator: NAME \\n\"\n";
webmaster@1: $header .= "\"Language-Team: LANGUAGE \\n\"\n";
webmaster@1: $header .= "\"MIME-Version: 1.0\\n\"\n";
webmaster@1: $header .= "\"Content-Type: text/plain; charset=utf-8\\n\"\n";
webmaster@1: $header .= "\"Content-Transfer-Encoding: 8bit\\n\"\n";
webmaster@1: if ($language->formula && $language->plurals) {
webmaster@1: $header .= "\"Plural-Forms: nplurals=". $language->plurals ."; plural=". strtr($language->formula, array('$' => '')) .";\\n\"\n";
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: $header = "# LANGUAGE translation of PROJECT\n";
webmaster@1: $header .= "# Copyright (c) YEAR NAME \n";
webmaster@1: $header .= "#\n";
webmaster@1: $header .= "msgid \"\"\n";
webmaster@1: $header .= "msgstr \"\"\n";
webmaster@1: $header .= "\"Project-Id-Version: PROJECT VERSION\\n\"\n";
webmaster@1: $header .= "\"POT-Creation-Date: ". date("Y-m-d H:iO") ."\\n\"\n";
webmaster@1: $header .= "\"PO-Revision-Date: YYYY-mm-DD HH:MM+ZZZZ\\n\"\n";
webmaster@1: $header .= "\"Last-Translator: NAME \\n\"\n";
webmaster@1: $header .= "\"Language-Team: LANGUAGE \\n\"\n";
webmaster@1: $header .= "\"MIME-Version: 1.0\\n\"\n";
webmaster@1: $header .= "\"Content-Type: text/plain; charset=utf-8\\n\"\n";
webmaster@1: $header .= "\"Content-Transfer-Encoding: 8bit\\n\"\n";
webmaster@1: $header .= "\"Plural-Forms: nplurals=INTEGER; plural=EXPRESSION;\\n\"\n";
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: $output = $header ."\n";
webmaster@1:
webmaster@1: foreach ($strings as $lid => $string) {
webmaster@1: // Only process non-children, children are output below their parent.
webmaster@1: if (!isset($string['child'])) {
webmaster@1: if ($string['comment']) {
webmaster@1: $output .= '#: '. $string['comment'] ."\n";
webmaster@1: }
webmaster@1: $output .= 'msgid '. _locale_export_string($string['source']);
webmaster@1: if (!empty($string['plural'])) {
webmaster@1: $plural = $string['plural'];
webmaster@1: $output .= 'msgid_plural '. _locale_export_string($strings[$plural]['source']);
webmaster@1: if (isset($language)) {
webmaster@1: $translation = $string['translation'];
webmaster@1: for ($i = 0; $i < $language->plurals; $i++) {
webmaster@1: $output .= 'msgstr['. $i .'] '. _locale_export_string($translation);
webmaster@1: if ($plural) {
webmaster@1: $translation = _locale_export_remove_plural($strings[$plural]['translation']);
webmaster@1: $plural = isset($strings[$plural]['plural']) ? $strings[$plural]['plural'] : 0;
webmaster@1: }
webmaster@1: else {
webmaster@1: $translation = '';
webmaster@1: }
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: $output .= 'msgstr[0] ""'."\n";
webmaster@1: $output .= 'msgstr[1] ""'."\n";
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: $output .= 'msgstr '. _locale_export_string($string['translation']);
webmaster@1: }
webmaster@1: $output .= "\n";
webmaster@1: }
webmaster@1: }
webmaster@1: return $output;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Write a generated PO or POT file to the output.
webmaster@1: *
webmaster@1: * @param $language
webmaster@1: * Language object to generate the output for, or NULL if generating
webmaster@1: * translation template.
webmaster@1: * @param $output
webmaster@1: * The PO(T) file to output as a string. See _locale_export_generate_po()
webmaster@1: * on how it can be generated.
webmaster@1: */
webmaster@1: function _locale_export_po($language = NULL, $output = NULL) {
webmaster@1: // Log the export event.
webmaster@1: if (isset($language)) {
webmaster@1: $filename = $language->language .'.po';
webmaster@1: watchdog('locale', 'Exported %locale translation file: %filename.', array('%locale' => $language->name, '%filename' => $filename));
webmaster@1: }
webmaster@1: else {
webmaster@1: $filename = 'drupal.pot';
webmaster@1: watchdog('locale', 'Exported translation file: %filename.', array('%filename' => $filename));
webmaster@1: }
webmaster@1: // Download the file fo the client.
webmaster@1: header("Content-Disposition: attachment; filename=$filename");
webmaster@1: header("Content-Type: text/plain; charset=utf-8");
webmaster@1: print $output;
webmaster@1: die();
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Print out a string on multiple lines
webmaster@1: */
webmaster@1: function _locale_export_string($str) {
webmaster@1: $stri = addcslashes($str, "\0..\37\\\"");
webmaster@1: $parts = array();
webmaster@1:
webmaster@1: // Cut text into several lines
webmaster@1: while ($stri != "") {
webmaster@1: $i = strpos($stri, "\\n");
webmaster@1: if ($i === FALSE) {
webmaster@1: $curstr = $stri;
webmaster@1: $stri = "";
webmaster@1: }
webmaster@1: else {
webmaster@1: $curstr = substr($stri, 0, $i + 2);
webmaster@1: $stri = substr($stri, $i + 2);
webmaster@1: }
webmaster@1: $curparts = explode("\n", _locale_export_wrap($curstr, 70));
webmaster@1: $parts = array_merge($parts, $curparts);
webmaster@1: }
webmaster@1:
webmaster@1: // Multiline string
webmaster@1: if (count($parts) > 1) {
webmaster@1: return "\"\"\n\"". implode("\"\n\"", $parts) ."\"\n";
webmaster@1: }
webmaster@1: // Single line string
webmaster@1: elseif (count($parts) == 1) {
webmaster@1: return "\"$parts[0]\"\n";
webmaster@1: }
webmaster@1: // No translation
webmaster@1: else {
webmaster@1: return "\"\"\n";
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Custom word wrapping for Portable Object (Template) files.
webmaster@1: */
webmaster@1: function _locale_export_wrap($str, $len) {
webmaster@1: $words = explode(' ', $str);
webmaster@1: $ret = array();
webmaster@1:
webmaster@1: $cur = "";
webmaster@1: $nstr = 1;
webmaster@1: while (count($words)) {
webmaster@1: $word = array_shift($words);
webmaster@1: if ($nstr) {
webmaster@1: $cur = $word;
webmaster@1: $nstr = 0;
webmaster@1: }
webmaster@1: elseif (strlen("$cur $word") > $len) {
webmaster@1: $ret[] = $cur ." ";
webmaster@1: $cur = $word;
webmaster@1: }
webmaster@1: else {
webmaster@1: $cur = "$cur $word";
webmaster@1: }
webmaster@1: }
webmaster@1: $ret[] = $cur;
webmaster@1:
webmaster@1: return implode("\n", $ret);
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Removes plural index information from a string
webmaster@1: */
webmaster@1: function _locale_export_remove_plural($entry) {
webmaster@1: return preg_replace('/(@count)\[[0-9]\]/', '\\1', $entry);
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-api-export"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-api-seek String search functions.
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * Perform a string search and display results in a table
webmaster@1: */
webmaster@1: function _locale_translate_seek() {
webmaster@1: $output = '';
webmaster@1:
webmaster@1: // We have at least one criterion to match
webmaster@1: if ($query = _locale_translate_seek_query()) {
webmaster@1: $join = "SELECT s.source, s.location, s.lid, s.textgroup, t.translation, t.language FROM {locales_source} s LEFT JOIN {locales_target} t ON s.lid = t.lid ";
webmaster@1:
webmaster@1: $arguments = array();
webmaster@1: $limit_language = FALSE;
webmaster@1: // Compute LIKE section
webmaster@1: switch ($query['translation']) {
webmaster@1: case 'translated':
webmaster@1: $where = "WHERE (t.translation LIKE '%%%s%%')";
webmaster@1: $orderby = "ORDER BY t.translation";
webmaster@1: $arguments[] = $query['string'];
webmaster@1: break;
webmaster@1: case 'untranslated':
webmaster@1: $where = "WHERE (s.source LIKE '%%%s%%' AND t.translation IS NULL)";
webmaster@1: $orderby = "ORDER BY s.source";
webmaster@1: $arguments[] = $query['string'];
webmaster@1: break;
webmaster@1: case 'all' :
webmaster@1: default:
webmaster@1: $where = "WHERE (s.source LIKE '%%%s%%' OR t.translation LIKE '%%%s%%')";
webmaster@1: $orderby = '';
webmaster@1: $arguments[] = $query['string'];
webmaster@1: $arguments[] = $query['string'];
webmaster@1: break;
webmaster@1: }
webmaster@1: $grouplimit = '';
webmaster@1: if (!empty($query['group']) && $query['group'] != 'all') {
webmaster@1: $grouplimit = " AND s.textgroup = '%s'";
webmaster@1: $arguments[] = $query['group'];
webmaster@1: }
webmaster@1:
webmaster@1: switch ($query['language']) {
webmaster@1: // Force search in source strings
webmaster@1: case "en":
webmaster@1: $sql = $join ." WHERE s.source LIKE '%%%s%%' $grouplimit ORDER BY s.source";
webmaster@1: $arguments = array($query['string']); // $where is not used, discard its arguments
webmaster@1: if (!empty($grouplimit)) {
webmaster@1: $arguments[] = $query['group'];
webmaster@1: }
webmaster@1: break;
webmaster@1: // Search in all languages
webmaster@1: case "all":
webmaster@1: $sql = "$join $where $grouplimit $orderby";
webmaster@1: break;
webmaster@1: // Some different language
webmaster@1: default:
webmaster@1: $sql = "$join AND t.language = '%s' $where $grouplimit $orderby";
webmaster@1: array_unshift($arguments, $query['language']);
webmaster@1: // Don't show translation flags for other languages, we can't see them with this search.
webmaster@1: $limit_language = $query['language'];
webmaster@1: }
webmaster@1:
webmaster@1: $result = pager_query($sql, 50, 0, NULL, $arguments);
webmaster@1:
webmaster@1: $groups = module_invoke_all('locale', 'groups');
webmaster@1: $header = array(t('Text group'), t('String'), ($limit_language) ? t('Language') : t('Languages'), array('data' => t('Operations'), 'colspan' => '2'));
webmaster@1: $arr = array();
webmaster@1: while ($locale = db_fetch_object($result)) {
webmaster@1: $arr[$locale->lid]['group'] = $groups[$locale->textgroup];
webmaster@1: $arr[$locale->lid]['languages'][$locale->language] = $locale->translation;
webmaster@1: $arr[$locale->lid]['location'] = $locale->location;
webmaster@1: $arr[$locale->lid]['source'] = $locale->source;
webmaster@1: }
webmaster@1: $rows = array();
webmaster@1: foreach ($arr as $lid => $value) {
webmaster@1: $rows[] = array(
webmaster@1: $value['group'],
webmaster@1: array('data' => check_plain(truncate_utf8($value['source'], 150, FALSE, TRUE)) .'
'. $value['location'] .''),
webmaster@1: array('data' => _locale_translate_language_list($value['languages'], $limit_language), 'align' => 'center'),
webmaster@1: array('data' => l(t('edit'), "admin/build/translate/edit/$lid"), 'class' => 'nowrap'),
webmaster@1: array('data' => l(t('delete'), "admin/build/translate/delete/$lid"), 'class' => 'nowrap'),
webmaster@1: );
webmaster@1: }
webmaster@1:
webmaster@1: if (count($rows)) {
webmaster@1: $output .= theme('table', $header, $rows);
webmaster@1: if ($pager = theme('pager', NULL, 50)) {
webmaster@1: $output .= $pager;
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: $output .= t('No strings found for your search.');
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: return $output;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Build array out of search criteria specified in request variables
webmaster@1: */
webmaster@1: function _locale_translate_seek_query() {
webmaster@1: static $query = NULL;
webmaster@1: if (!isset($query)) {
webmaster@1: $query = array();
webmaster@1: $fields = array('string', 'language', 'translation', 'group');
webmaster@1: foreach ($fields as $field) {
webmaster@1: if (isset($_REQUEST[$field])) {
webmaster@1: $query[$field] = $_REQUEST[$field];
webmaster@1: }
webmaster@1: }
webmaster@1: }
webmaster@1: return $query;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Force the JavaScript translation file(s) to be refreshed.
webmaster@1: *
webmaster@1: * This function sets a refresh flag for a specified language, or all
webmaster@1: * languages except English, if none specified. JavaScript translation
webmaster@1: * files are rebuilt (with locale_update_js_files()) the next time a
webmaster@1: * request is served in that language.
webmaster@1: *
webmaster@1: * @param $langcode
webmaster@1: * The language code for which the file needs to be refreshed.
webmaster@1: * @return
webmaster@1: * New content of the 'javascript_parsed' variable.
webmaster@1: */
webmaster@1: function _locale_invalidate_js($langcode = NULL) {
webmaster@1: $parsed = variable_get('javascript_parsed', array());
webmaster@1:
webmaster@1: if (empty($langcode)) {
webmaster@1: // Invalidate all languages.
webmaster@1: $languages = language_list();
webmaster@1: unset($languages['en']);
webmaster@1: foreach ($languages as $lcode => $data) {
webmaster@1: $parsed['refresh:'. $lcode] = 'waiting';
webmaster@1: }
webmaster@1: }
webmaster@1: else {
webmaster@1: // Invalidate single language.
webmaster@1: $parsed['refresh:'. $langcode] = 'waiting';
webmaster@1: }
webmaster@1:
webmaster@1: variable_set('javascript_parsed', $parsed);
webmaster@1: return $parsed;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * (Re-)Creates the JavaScript translation file for a language.
webmaster@1: *
webmaster@1: * @param $language
webmaster@1: * The language, the translation file should be (re)created for.
webmaster@1: */
webmaster@1: function _locale_rebuild_js($langcode = NULL) {
webmaster@1: if (!isset($langcode)) {
webmaster@1: global $language;
webmaster@1: }
webmaster@1: else {
webmaster@1: // Get information about the locale.
webmaster@1: $languages = language_list();
webmaster@1: $language = $languages[$langcode];
webmaster@1: }
webmaster@1:
webmaster@1: // Construct the array for JavaScript translations.
webmaster@1: // We sort on plural so that we have all plural forms before singular forms.
webmaster@1: $result = db_query("SELECT s.lid, s.source, t.plid, t.plural, t.translation FROM {locales_source} s LEFT JOIN {locales_target} t ON s.lid = t.lid AND t.language = '%s' WHERE s.location LIKE '%%.js%%' AND s.textgroup = 'default' ORDER BY t.plural DESC", $language->language);
webmaster@1:
webmaster@1: $translations = $plurals = array();
webmaster@1: while ($data = db_fetch_object($result)) {
webmaster@1: // Only add this to the translations array when there is actually a translation.
webmaster@1: if (!empty($data->translation)) {
webmaster@1: if ($data->plural) {
webmaster@1: // When the translation is a plural form, first add it to another array and
webmaster@1: // wait for the singular (parent) translation.
webmaster@1: if (!isset($plurals[$data->plid])) {
webmaster@1: $plurals[$data->plid] = array($data->plural => $data->translation);
webmaster@1: }
webmaster@1: else {
webmaster@1: $plurals[$data->plid] += array($data->plural => $data->translation);
webmaster@1: }
webmaster@1: }
webmaster@1: elseif (isset($plurals[$data->lid])) {
webmaster@1: // There are plural translations for this translation, so get them from
webmaster@1: // the plurals array and add them to the final translations array.
webmaster@1: $translations[$data->source] = array($data->plural => $data->translation) + $plurals[$data->lid];
webmaster@1: unset($plurals[$data->lid]);
webmaster@1: }
webmaster@1: else {
webmaster@1: // There are no plural forms for this translation, so just add it to
webmaster@1: // the translations array.
webmaster@1: $translations[$data->source] = $data->translation;
webmaster@1: }
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: // Construct the JavaScript file, if there are translations.
webmaster@1: $data = $status = '';
webmaster@1: if (!empty($translations)) {
webmaster@1:
webmaster@1: $data = "Drupal.locale = { ";
webmaster@1:
webmaster@1: if (!empty($language->formula)) {
webmaster@1: $data .= "'pluralFormula': function(\$n) { return Number({$language->formula}); }, ";
webmaster@1: }
webmaster@1:
webmaster@1: $data .= "'strings': ". drupal_to_js($translations) ." };";
webmaster@1: $data_hash = md5($data);
webmaster@1: }
webmaster@1:
webmaster@1: // Construct the filepath where JS translation files are stored.
webmaster@1: // There is (on purpose) no front end to edit that variable.
webmaster@1: $dir = file_create_path(variable_get('locale_js_directory', 'languages'));
webmaster@1:
webmaster@1: // Delete old file, if we have no translations anymore, or a different file to be saved.
webmaster@1: if (!empty($language->javascript) && (!$data || $language->javascript != $data_hash)) {
webmaster@1: file_delete(file_create_path($dir .'/'. $language->language .'_'. $language->javascript .'.js'));
webmaster@1: $language->javascript = '';
webmaster@1: $status = 'deleted';
webmaster@1: }
webmaster@1:
webmaster@1: // Only create a new file if the content has changed.
webmaster@1: if ($data && $language->javascript != $data_hash) {
webmaster@1: // Ensure that the directory exists and is writable, if possible.
webmaster@1: file_check_directory($dir, TRUE);
webmaster@1:
webmaster@1: // Save the file.
webmaster@1: $dest = $dir .'/'. $language->language .'_'. $data_hash .'.js';
webmaster@1: if (file_save_data($data, $dest)) {
webmaster@1: $language->javascript = $data_hash;
webmaster@1: $status = ($status == 'deleted') ? 'updated' : 'created';
webmaster@1: }
webmaster@1: else {
webmaster@1: $language->javascript = '';
webmaster@1: $status = 'error';
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: // Save the new JavaScript hash (or an empty value if the file
webmaster@1: // just got deleted). Act only if some operation was executed.
webmaster@1: if ($status) {
webmaster@1: db_query("UPDATE {languages} SET javascript = '%s' WHERE language = '%s'", $language->javascript, $language->language);
webmaster@1:
webmaster@1: // Update the default language variable if the default language has been altered.
webmaster@1: // This is necessary to keep the variable consistent with the database
webmaster@1: // version of the language and to prevent checking against an outdated hash.
webmaster@1: $default_langcode = language_default('language');
webmaster@1: if ($default_langcode == $language->language) {
webmaster@1: $default = db_fetch_object(db_query("SELECT * FROM {languages} WHERE language = '%s'", $default_langcode));
webmaster@1: variable_set('language_default', $default);
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: // Log the operation and return success flag.
webmaster@1: switch ($status) {
webmaster@1: case 'updated':
webmaster@1: watchdog('locale', 'Updated JavaScript translation file for the language %language.', array('%language' => t($language->name)));
webmaster@1: return TRUE;
webmaster@1: case 'created':
webmaster@1: watchdog('locale', 'Created JavaScript translation file for the language %language.', array('%language' => t($language->name)));
webmaster@1: return TRUE;
webmaster@1: case 'deleted':
webmaster@1: watchdog('locale', 'Removed JavaScript translation file for the language %language, because no translations currently exist for that language.', array('%language' => t($language->name)));
webmaster@1: return TRUE;
webmaster@1: case 'error':
webmaster@1: watchdog('locale', 'An error occurred during creation of the JavaScript translation file for the language %language.', array('%language' => t($language->name)), WATCHDOG_ERROR);
webmaster@1: return FALSE;
webmaster@1: default:
webmaster@1: // No operation needed.
webmaster@1: return TRUE;
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * List languages in search result table
webmaster@1: */
webmaster@1: function _locale_translate_language_list($translation, $limit_language) {
webmaster@1: // Add CSS
webmaster@1: drupal_add_css(drupal_get_path('module', 'locale') .'/locale.css', 'module', 'all', FALSE);
webmaster@1:
webmaster@1: $languages = language_list();
webmaster@1: unset($languages['en']);
webmaster@1: $output = '';
webmaster@1: foreach ($languages as $langcode => $language) {
webmaster@1: if (!$limit_language || $limit_language == $langcode) {
webmaster@1: $output .= (!empty($translation[$langcode])) ? $langcode .' ' : "$langcode ";
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: return $output;
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-api-seek"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-api-predefined List of predefined languages
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * Prepares the language code list for a select form item with only the unsupported ones
webmaster@1: */
webmaster@1: function _locale_prepare_predefined_list() {
webmaster@1: $languages = language_list();
webmaster@1: $predefined = _locale_get_predefined_list();
webmaster@1: foreach ($predefined as $key => $value) {
webmaster@1: if (isset($languages[$key])) {
webmaster@1: unset($predefined[$key]);
webmaster@1: continue;
webmaster@1: }
webmaster@1: // Include native name in output, if possible
webmaster@1: if (count($value) > 1) {
webmaster@1: $tname = t($value[0]);
webmaster@1: $predefined[$key] = ($tname == $value[1]) ? $tname : "$tname ($value[1])";
webmaster@1: }
webmaster@1: else {
webmaster@1: $predefined[$key] = t($value[0]);
webmaster@1: }
webmaster@1: }
webmaster@1: asort($predefined);
webmaster@1: return $predefined;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Some of the common languages with their English and native names
webmaster@1: *
webmaster@1: * Based on ISO 639 and http://people.w3.org/rishida/names/languages.html
webmaster@1: */
webmaster@1: function _locale_get_predefined_list() {
webmaster@1: return array(
webmaster@1: "aa" => array("Afar"),
webmaster@1: "ab" => array("Abkhazian", "аҧсуа бызшәа"),
webmaster@1: "ae" => array("Avestan"),
webmaster@1: "af" => array("Afrikaans"),
webmaster@1: "ak" => array("Akan"),
webmaster@1: "am" => array("Amharic", "አማርኛ"),
webmaster@1: "ar" => array("Arabic", /* Left-to-right marker "" */ "العربية", LANGUAGE_RTL),
webmaster@1: "as" => array("Assamese"),
webmaster@1: "av" => array("Avar"),
webmaster@1: "ay" => array("Aymara"),
webmaster@1: "az" => array("Azerbaijani", "azərbaycan"),
webmaster@1: "ba" => array("Bashkir"),
webmaster@1: "be" => array("Belarusian", "Беларуская"),
webmaster@1: "bg" => array("Bulgarian", "Български"),
webmaster@1: "bh" => array("Bihari"),
webmaster@1: "bi" => array("Bislama"),
webmaster@1: "bm" => array("Bambara", "Bamanankan"),
webmaster@1: "bn" => array("Bengali"),
webmaster@1: "bo" => array("Tibetan"),
webmaster@1: "br" => array("Breton"),
webmaster@1: "bs" => array("Bosnian", "Bosanski"),
webmaster@1: "ca" => array("Catalan", "Català"),
webmaster@1: "ce" => array("Chechen"),
webmaster@1: "ch" => array("Chamorro"),
webmaster@1: "co" => array("Corsican"),
webmaster@1: "cr" => array("Cree"),
webmaster@1: "cs" => array("Czech", "Čeština"),
webmaster@1: "cu" => array("Old Slavonic"),
webmaster@1: "cv" => array("Chuvash"),
webmaster@1: "cy" => array("Welsh", "Cymraeg"),
webmaster@1: "da" => array("Danish", "Dansk"),
webmaster@1: "de" => array("German", "Deutsch"),
webmaster@1: "dv" => array("Maldivian"),
webmaster@1: "dz" => array("Bhutani"),
webmaster@1: "ee" => array("Ewe", "Ɛʋɛ"),
webmaster@1: "el" => array("Greek", "Ελληνικά"),
webmaster@1: "en" => array("English"),
webmaster@1: "eo" => array("Esperanto"),
webmaster@1: "es" => array("Spanish", "Español"),
webmaster@1: "et" => array("Estonian", "Eesti"),
webmaster@1: "eu" => array("Basque", "Euskera"),
webmaster@1: "fa" => array("Persian", /* Left-to-right marker "" */ "فارسی", LANGUAGE_RTL),
webmaster@1: "ff" => array("Fulah", "Fulfulde"),
webmaster@1: "fi" => array("Finnish", "Suomi"),
webmaster@1: "fj" => array("Fiji"),
webmaster@1: "fo" => array("Faeroese"),
webmaster@1: "fr" => array("French", "Français"),
webmaster@1: "fy" => array("Frisian", "Frysk"),
webmaster@1: "ga" => array("Irish", "Gaeilge"),
webmaster@1: "gd" => array("Scots Gaelic"),
webmaster@1: "gl" => array("Galician", "Galego"),
webmaster@1: "gn" => array("Guarani"),
webmaster@1: "gu" => array("Gujarati"),
webmaster@1: "gv" => array("Manx"),
webmaster@1: "ha" => array("Hausa"),
webmaster@1: "he" => array("Hebrew", /* Left-to-right marker "" */ "עברית", LANGUAGE_RTL),
webmaster@1: "hi" => array("Hindi", "हिन्दी"),
webmaster@1: "ho" => array("Hiri Motu"),
webmaster@1: "hr" => array("Croatian", "Hrvatski"),
webmaster@1: "hu" => array("Hungarian", "Magyar"),
webmaster@1: "hy" => array("Armenian", "Հայերեն"),
webmaster@1: "hz" => array("Herero"),
webmaster@1: "ia" => array("Interlingua"),
webmaster@1: "id" => array("Indonesian", "Bahasa Indonesia"),
webmaster@1: "ie" => array("Interlingue"),
webmaster@1: "ig" => array("Igbo"),
webmaster@1: "ik" => array("Inupiak"),
webmaster@1: "is" => array("Icelandic", "Íslenska"),
webmaster@1: "it" => array("Italian", "Italiano"),
webmaster@1: "iu" => array("Inuktitut"),
webmaster@1: "ja" => array("Japanese", "日本語"),
webmaster@1: "jv" => array("Javanese"),
webmaster@1: "ka" => array("Georgian"),
webmaster@1: "kg" => array("Kongo"),
webmaster@1: "ki" => array("Kikuyu"),
webmaster@1: "kj" => array("Kwanyama"),
webmaster@1: "kk" => array("Kazakh", "Қазақ"),
webmaster@1: "kl" => array("Greenlandic"),
webmaster@1: "km" => array("Cambodian"),
webmaster@1: "kn" => array("Kannada", "ಕನ್ನಡ"),
webmaster@1: "ko" => array("Korean", "한국어"),
webmaster@1: "kr" => array("Kanuri"),
webmaster@1: "ks" => array("Kashmiri"),
webmaster@1: "ku" => array("Kurdish", "Kurdî"),
webmaster@1: "kv" => array("Komi"),
webmaster@1: "kw" => array("Cornish"),
webmaster@1: "ky" => array("Kirghiz", "Кыргыз"),
webmaster@1: "la" => array("Latin", "Latina"),
webmaster@1: "lb" => array("Luxembourgish"),
webmaster@1: "lg" => array("Luganda"),
webmaster@1: "ln" => array("Lingala"),
webmaster@1: "lo" => array("Laothian"),
webmaster@1: "lt" => array("Lithuanian", "Lietuvių"),
webmaster@1: "lv" => array("Latvian", "Latviešu"),
webmaster@1: "mg" => array("Malagasy"),
webmaster@1: "mh" => array("Marshallese"),
webmaster@1: "mi" => array("Maori"),
webmaster@1: "mk" => array("Macedonian", "Македонски"),
webmaster@1: "ml" => array("Malayalam", "മലയാളം"),
webmaster@1: "mn" => array("Mongolian"),
webmaster@1: "mo" => array("Moldavian"),
webmaster@1: "mr" => array("Marathi"),
webmaster@1: "ms" => array("Malay", "Bahasa Melayu"),
webmaster@1: "mt" => array("Maltese", "Malti"),
webmaster@1: "my" => array("Burmese"),
webmaster@1: "na" => array("Nauru"),
webmaster@1: "nd" => array("North Ndebele"),
webmaster@1: "ne" => array("Nepali"),
webmaster@1: "ng" => array("Ndonga"),
webmaster@1: "nl" => array("Dutch", "Nederlands"),
webmaster@1: "nb" => array("Norwegian Bokmål", "Bokmål"),
webmaster@1: "nn" => array("Norwegian Nynorsk", "Nynorsk"),
webmaster@1: "nr" => array("South Ndebele"),
webmaster@1: "nv" => array("Navajo"),
webmaster@1: "ny" => array("Chichewa"),
webmaster@1: "oc" => array("Occitan"),
webmaster@1: "om" => array("Oromo"),
webmaster@1: "or" => array("Oriya"),
webmaster@1: "os" => array("Ossetian"),
webmaster@1: "pa" => array("Punjabi"),
webmaster@1: "pi" => array("Pali"),
webmaster@1: "pl" => array("Polish", "Polski"),
webmaster@1: "ps" => array("Pashto", /* Left-to-right marker "" */ "پښتو", LANGUAGE_RTL),
webmaster@1: "pt" => array("Portuguese, Portugal", "Português"),
webmaster@1: "pt-br" => array("Portuguese, Brazil", "Português"),
webmaster@1: "qu" => array("Quechua"),
webmaster@1: "rm" => array("Rhaeto-Romance"),
webmaster@1: "rn" => array("Kirundi"),
webmaster@1: "ro" => array("Romanian", "Română"),
webmaster@1: "ru" => array("Russian", "Русский"),
webmaster@1: "rw" => array("Kinyarwanda"),
webmaster@1: "sa" => array("Sanskrit"),
webmaster@1: "sc" => array("Sardinian"),
webmaster@1: "sd" => array("Sindhi"),
webmaster@1: "se" => array("Northern Sami"),
webmaster@1: "sg" => array("Sango"),
webmaster@1: "sh" => array("Serbo-Croatian"),
webmaster@1: "si" => array("Singhalese"),
webmaster@1: "sk" => array("Slovak", "Slovenčina"),
webmaster@1: "sl" => array("Slovenian", "Slovenščina"),
webmaster@1: "sm" => array("Samoan"),
webmaster@1: "sn" => array("Shona"),
webmaster@1: "so" => array("Somali"),
webmaster@1: "sq" => array("Albanian", "Shqip"),
webmaster@1: "sr" => array("Serbian", "Српски"),
webmaster@1: "ss" => array("Siswati"),
webmaster@1: "st" => array("Sesotho"),
webmaster@1: "su" => array("Sudanese"),
webmaster@1: "sv" => array("Swedish", "Svenska"),
webmaster@1: "sw" => array("Swahili", "Kiswahili"),
webmaster@1: "ta" => array("Tamil", "தமிழ்"),
webmaster@1: "te" => array("Telugu", "తెలుగు"),
webmaster@1: "tg" => array("Tajik"),
webmaster@1: "th" => array("Thai", "ภาษาไทย"),
webmaster@1: "ti" => array("Tigrinya"),
webmaster@1: "tk" => array("Turkmen"),
webmaster@1: "tl" => array("Tagalog"),
webmaster@1: "tn" => array("Setswana"),
webmaster@1: "to" => array("Tonga"),
webmaster@1: "tr" => array("Turkish", "Türkçe"),
webmaster@1: "ts" => array("Tsonga"),
webmaster@1: "tt" => array("Tatar", "Tatarça"),
webmaster@1: "tw" => array("Twi"),
webmaster@1: "ty" => array("Tahitian"),
webmaster@1: "ug" => array("Uighur"),
webmaster@1: "uk" => array("Ukrainian", "Українська"),
webmaster@1: "ur" => array("Urdu", /* Left-to-right marker "" */ "اردو", LANGUAGE_RTL),
webmaster@1: "uz" => array("Uzbek", "o'zbek"),
webmaster@1: "ve" => array("Venda"),
webmaster@1: "vi" => array("Vietnamese", "Tiếng Việt"),
webmaster@1: "wo" => array("Wolof"),
webmaster@1: "xh" => array("Xhosa", "isiXhosa"),
webmaster@1: "yi" => array("Yiddish"),
webmaster@1: "yo" => array("Yoruba", "Yorùbá"),
webmaster@1: "za" => array("Zhuang"),
webmaster@1: "zh-hans" => array("Chinese, Simplified", "简体中文"),
webmaster@1: "zh-hant" => array("Chinese, Traditional", "繁體中文"),
webmaster@1: "zu" => array("Zulu", "isiZulu"),
webmaster@1: );
webmaster@1: }
webmaster@1: /**
webmaster@1: * @} End of "locale-api-languages-predefined"
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * @defgroup locale-autoimport Automatic interface translation import
webmaster@1: * @{
webmaster@1: */
webmaster@1:
webmaster@1: /**
webmaster@1: * Prepare a batch to import translations for all enabled
webmaster@1: * modules in a given language.
webmaster@1: *
webmaster@1: * @param $langcode
webmaster@1: * Language code to import translations for.
webmaster@1: * @param $finished
webmaster@1: * Optional finished callback for the batch.
webmaster@1: * @param $skip
webmaster@1: * Array of component names to skip. Used in the installer for the
webmaster@1: * second pass import, when most components are already imported.
webmaster@1: * @return
webmaster@1: * A batch structure or FALSE if no files found.
webmaster@1: */
webmaster@1: function locale_batch_by_language($langcode, $finished = NULL, $skip = array()) {
webmaster@1: // Collect all files to import for all enabled modules and themes.
webmaster@1: $files = array();
webmaster@1: $components = array();
webmaster@1: $query = "SELECT name, filename FROM {system} WHERE status = 1";
webmaster@1: if (count($skip)) {
webmaster@1: $query .= " AND name NOT IN (". db_placeholders($skip, 'varchar') .")";
webmaster@1: }
webmaster@1: $result = db_query($query, $skip);
webmaster@1: while ($component = db_fetch_object($result)) {
webmaster@1: // Collect all files for all components, names as $langcode.po or
webmaster@1: // with names ending with $langcode.po. This allows for filenames
webmaster@1: // like node-module.de.po to let translators use small files and
webmaster@1: // be able to import in smaller chunks.
webmaster@1: $files = array_merge($files, file_scan_directory(dirname($component->filename) .'/translations', '(^|\.)'. $langcode .'\.po$', array('.', '..', 'CVS'), 0, FALSE));
webmaster@1: $components[] = $component->name;
webmaster@1: }
webmaster@1:
webmaster@1: return _locale_batch_build($files, $finished, $components);
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Prepare a batch to run when installing modules or enabling themes.
webmaster@1: * This batch will import translations for the newly added components
webmaster@1: * in all the languages already set up on the site.
webmaster@1: *
webmaster@1: * @param $components
webmaster@1: * An array of component (theme and/or module) names to import
webmaster@1: * translations for.
webmaster@1: * @param $finished
webmaster@1: * Optional finished callback for the batch.
webmaster@1: */
webmaster@1: function locale_batch_by_component($components, $finished = '_locale_batch_system_finished') {
webmaster@1: $files = array();
webmaster@1: $languages = language_list('enabled');
webmaster@1: unset($languages[1]['en']);
webmaster@1: if (count($languages[1])) {
webmaster@1: $language_list = join('|', array_keys($languages[1]));
webmaster@1: // Collect all files to import for all $components.
webmaster@1: $result = db_query("SELECT name, filename FROM {system} WHERE status = 1");
webmaster@1: while ($component = db_fetch_object($result)) {
webmaster@1: if (in_array($component->name, $components)) {
webmaster@1: // Collect all files for this component in all enabled languages, named
webmaster@1: // as $langcode.po or with names ending with $langcode.po. This allows
webmaster@1: // for filenames like node-module.de.po to let translators use small
webmaster@1: // files and be able to import in smaller chunks.
webmaster@1: $files = array_merge($files, file_scan_directory(dirname($component->filename) .'/translations', '(^|\.)('. $language_list .')\.po$', array('.', '..', 'CVS'), 0, FALSE));
webmaster@1: }
webmaster@1: }
webmaster@1: return _locale_batch_build($files, $finished);
webmaster@1: }
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Build a locale batch from an array of files.
webmaster@1: *
webmaster@1: * @param $files
webmaster@1: * Array of files to import
webmaster@1: * @param $finished
webmaster@1: * Optional finished callback for the batch.
webmaster@1: * @param $components
webmaster@1: * Optional list of component names the batch covers. Used in the installer.
webmaster@1: * @return
webmaster@1: * A batch structure
webmaster@1: */
webmaster@1: function _locale_batch_build($files, $finished = NULL, $components = array()) {
webmaster@1: $t = get_t();
webmaster@1: if (count($files)) {
webmaster@1: $operations = array();
webmaster@1: foreach ($files as $file) {
webmaster@1: // We call _locale_batch_import for every batch operation.
webmaster@1: $operations[] = array('_locale_batch_import', array($file->filename)); }
webmaster@1: $batch = array(
webmaster@1: 'operations' => $operations,
webmaster@1: 'title' => $t('Importing interface translations'),
webmaster@1: 'init_message' => $t('Starting import'),
webmaster@1: 'error_message' => $t('Error importing interface translations'),
webmaster@1: 'file' => './includes/locale.inc',
webmaster@1: // This is not a batch API construct, but data passed along to the
webmaster@1: // installer, so we know what did we import already.
webmaster@1: '#components' => $components,
webmaster@1: );
webmaster@1: if (isset($finished)) {
webmaster@1: $batch['finished'] = $finished;
webmaster@1: }
webmaster@1: return $batch;
webmaster@1: }
webmaster@1: return FALSE;
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Perform interface translation import as a batch step.
webmaster@1: *
webmaster@1: * @param $filepath
webmaster@1: * Path to a file to import.
webmaster@1: * @param $results
webmaster@1: * Contains a list of files imported.
webmaster@1: */
webmaster@1: function _locale_batch_import($filepath, &$context) {
webmaster@1: // The filename is either {langcode}.po or {prefix}.{langcode}.po, so
webmaster@1: // we can extract the language code to use for the import from the end.
webmaster@1: if (preg_match('!(/|\.)([^\./]+)\.po$!', $filepath, $langcode)) {
webmaster@1: $file = (object) array('filename' => basename($filepath), 'filepath' => $filepath);
webmaster@1: _locale_import_read_po('db-store', $file, LOCALE_IMPORT_KEEP, $langcode[2]);
webmaster@1: $context['results'][] = $filepath;
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Finished callback of system page locale import batch.
webmaster@1: * Inform the user of translation files imported.
webmaster@1: */
webmaster@1: function _locale_batch_system_finished($success, $results) {
webmaster@1: if ($success) {
webmaster@1: drupal_set_message(format_plural(count($results), 'One translation file imported for the newly installed modules.', '@count translation files imported for the newly installed modules.'));
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * Finished callback of language addition locale import batch.
webmaster@1: * Inform the user of translation files imported.
webmaster@1: */
webmaster@1: function _locale_batch_language_finished($success, $results) {
webmaster@1: if ($success) {
webmaster@1: drupal_set_message(format_plural(count($results), 'One translation file imported for the enabled modules.', '@count translation files imported for the enabled modules.'));
webmaster@1: }
webmaster@1: }
webmaster@1:
webmaster@1: /**
webmaster@1: * @} End of "locale-autoimport"
webmaster@1: */