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@11: '#maxlength' => 128, 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@15: $form_state['redirect'] = '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@15: * Check that a string is safe to be added or imported as a translation. webmaster@15: * webmaster@15: * This test can be used to detect possibly bad translation strings. It should webmaster@15: * not have any false positives. But it is only a test, not a transformation, webmaster@15: * as it destroys valid HTML. We cannot reliably filter translation strings webmaster@15: * on inport becuase some strings are irreversibly corrupted. For example, webmaster@15: * a & in the translation would get encoded to &amp; by filter_xss() webmaster@15: * before being put in the database, and thus would be displayed incorrectly. webmaster@15: * webmaster@15: * The allowed tag list is like filter_xss_admin(), but omitting div and img as webmaster@15: * not needed for translation and likely to cause layout issues (div) or a webmaster@15: * possible attack vector (img). webmaster@15: */ webmaster@15: function locale_string_is_safe($string) { webmaster@15: return decode_entities($string) == decode_entities(filter_xss($string, array('a', 'abbr', 'acronym', 'address', 'b', 'bdo', 'big', 'blockquote', 'br', 'caption', 'cite', 'code', 'col', 'colgroup', 'dd', 'del', 'dfn', 'dl', 'dt', 'em', 'h1', 'h2', 'h3', 'h4', 'h5', 'h6', 'hr', 'i', 'ins', 'kbd', 'li', 'ol', 'p', 'pre', 'q', 'samp', 'small', 'span', 'strong', 'sub', 'sup', 'table', 'tbody', 'td', 'tfoot', 'th', 'thead', 'tr', 'tt', 'ul', 'var'))); webmaster@15: } webmaster@15: webmaster@15: /** webmaster@15: * Validate string editing form submissions. webmaster@15: */ webmaster@15: function locale_translate_edit_form_validate($form, &$form_state) { webmaster@15: foreach ($form_state['values']['translations'] as $key => $value) { webmaster@15: if (!locale_string_is_safe($value)) { webmaster@15: form_set_error('translations', t('The submitted string contains disallowed HTML: %string', array('%string' => $value))); webmaster@15: watchdog('locale', 'Attempted submission of a translation string with disallowed HTML: %string', array('%string' => $value), WATCHDOG_WARNING); webmaster@15: } webmaster@15: } webmaster@15: } webmaster@15: webmaster@15: /** webmaster@1: * Process string editing form submissions. webmaster@15: * 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@11: _locale_invalidate_js(); 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@15: list($headerdone, $additions, $updates, $deletes, $skips) = _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@15: if ($skips) { webmaster@15: $skip_message = format_plural($skips, 'One translation string was skipped because it contains disallowed HTML.', '@count translation strings were skipped because they contain disallowed HTML.'); webmaster@15: drupal_set_message($skip_message); webmaster@15: watchdog('locale', $skip_message, NULL, WATCHDOG_WARNING); webmaster@15: } 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@15: static $report = array('additions' => 0, 'updates' => 0, 'deletes' => 0, 'skips' => 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@15: return array($headerdone, $report['additions'], $report['updates'], $report['deletes'], $report['skips']); 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@15: // Skip this string unless it passes a check for dangerous code. webmaster@15: if (!locale_string_is_safe($translation)) { webmaster@15: $report['skips']++; webmaster@15: $lid = 0; webmaster@15: } webmaster@15: elseif ($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@15: $report['additions']++; 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@15: $report['updates']++; 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@15: $report['additions']++; 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@15: $report['deletes']++; 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@11: "pt-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: */