defr/drupal/core: includes/locale.inc annotate

annotate includes/locale.inc @ 19:3edae6ecd6c6 6.9

Drupal 6.9

author	Franck Deroche <franck@defr.org>
date	Thu, 15 Jan 2009 10:15:56 +0100
parents	4347c45bb494
children

rev	line source
webmaster@1	1 <?php
franck@19	2 // $Id: locale.inc,v 1.174.2.7 2009/01/06 15:36:51 goba Exp $
webmaster@1	3
webmaster@1	4 /**
webmaster@1	5 * @file
webmaster@1	6 * Administration functions for locale.module.
webmaster@1	7 */
webmaster@1	8
webmaster@1	9 define('LOCALE_JS_STRING', '(?:(?:\'(?:\\\\\'\|[^\'])\'\|"(?:\\\\"\|[^"])")(?:\s\+\s)?)+');
webmaster@1	10
webmaster@1	11 /**
webmaster@1	12 * Translation import mode overwriting all existing translations
webmaster@1	13 * if new translated version available.
webmaster@1	14 */
webmaster@1	15 define('LOCALE_IMPORT_OVERWRITE', 0);
webmaster@1	16
webmaster@1	17 /**
webmaster@1	18 * Translation import mode keeping existing translations and only
webmaster@1	19 * inserting new strings.
webmaster@1	20 */
webmaster@1	21 define('LOCALE_IMPORT_KEEP', 1);
webmaster@1	22
webmaster@1	23 /**
webmaster@1	24 * @defgroup locale-language-overview Language overview functionality
webmaster@1	25 * @{
webmaster@1	26 */
webmaster@1	27
webmaster@1	28 /**
webmaster@1	29 * User interface for the language overview screen.
webmaster@1	30 */
webmaster@1	31 function locale_languages_overview_form() {
webmaster@1	32 $languages = language_list('language', TRUE);
webmaster@1	33
webmaster@1	34 $options = array();
webmaster@1	35 $form['weight'] = array('#tree' => TRUE);
webmaster@1	36 foreach ($languages as $langcode => $language) {
webmaster@1	37
webmaster@1	38 $options[$langcode] = '';
webmaster@1	39 if ($language->enabled) {
webmaster@1	40 $enabled[] = $langcode;
webmaster@1	41 }
webmaster@1	42 $form['weight'][$langcode] = array(
webmaster@1	43 '#type' => 'weight',
webmaster@1	44 '#default_value' => $language->weight
webmaster@1	45 );
webmaster@1	46 $form['name'][$langcode] = array('#value' => check_plain($language->name));
webmaster@1	47 $form['native'][$langcode] = array('#value' => check_plain($language->native));
webmaster@1	48 $form['direction'][$langcode] = array('#value' => ($language->direction == LANGUAGE_RTL ? t('Right to left') : t('Left to right')));
webmaster@1	49 }
webmaster@1	50 $form['enabled'] = array('#type' => 'checkboxes',
webmaster@1	51 '#options' => $options,
webmaster@1	52 '#default_value' => $enabled,
webmaster@1	53 );
webmaster@1	54 $form['site_default'] = array('#type' => 'radios',
webmaster@1	55 '#options' => $options,
webmaster@1	56 '#default_value' => language_default('language'),
webmaster@1	57 );
webmaster@1	58 $form['submit'] = array('#type' => 'submit', '#value' => t('Save configuration'));
webmaster@1	59 $form['#theme'] = 'locale_languages_overview_form';
webmaster@1	60
webmaster@1	61 return $form;
webmaster@1	62 }
webmaster@1	63
webmaster@1	64 /**
webmaster@1	65 * Theme the language overview form.
webmaster@1	66 *
webmaster@1	67 * @ingroup themeable
webmaster@1	68 */
webmaster@1	69 function theme_locale_languages_overview_form($form) {
webmaster@1	70 $default = language_default();
webmaster@1	71 foreach ($form['name'] as $key => $element) {
webmaster@1	72 // Do not take form control structures.
webmaster@1	73 if (is_array($element) && element_child($key)) {
webmaster@1	74 // Disable checkbox for the default language, because it cannot be disabled.
webmaster@1	75 if ($key == $default->language) {
webmaster@1	76 $form['enabled'][$key]['#attributes']['disabled'] = 'disabled';
webmaster@1	77 }
webmaster@1	78 $rows[] = array(
webmaster@1	79 array('data' => drupal_render($form['enabled'][$key]), 'align' => 'center'),
webmaster@1	80 check_plain($key),
webmaster@1	81 '<strong>'. drupal_render($form['name'][$key]) .'</strong>',
webmaster@1	82 drupal_render($form['native'][$key]),
webmaster@1	83 drupal_render($form['direction'][$key]),
webmaster@1	84 drupal_render($form['site_default'][$key]),
webmaster@1	85 drupal_render($form['weight'][$key]),
webmaster@1	86 l(t('edit'), 'admin/settings/language/edit/'. $key) . (($key != 'en' && $key != $default->language) ? ' '. l(t('delete'), 'admin/settings/language/delete/'. $key) : '')
webmaster@1	87 );
webmaster@1	88 }
webmaster@1	89 }
webmaster@1	90 $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	91 $output = theme('table', $header, $rows);
webmaster@1	92 $output .= drupal_render($form);
webmaster@1	93
webmaster@1	94 return $output;
webmaster@1	95 }
webmaster@1	96
webmaster@1	97 /**
webmaster@1	98 * Process language overview form submissions, updating existing languages.
webmaster@1	99 */
webmaster@1	100 function locale_languages_overview_form_submit($form, &$form_state) {
webmaster@1	101 $languages = language_list();
webmaster@1	102 $default = language_default();
webmaster@1	103 $enabled_count = 0;
webmaster@1	104 foreach ($languages as $langcode => $language) {
webmaster@1	105 if ($form_state['values']['site_default'] == $langcode \|\| $default->language == $langcode) {
webmaster@1	106 // Automatically enable the default language and the language
webmaster@1	107 // which was default previously (because we will not get the
webmaster@1	108 // value from that disabled checkox).
webmaster@1	109 $form_state['values']['enabled'][$langcode] = 1;
webmaster@1	110 }
webmaster@1	111 if ($form_state['values']['enabled'][$langcode]) {
webmaster@1	112 $enabled_count++;
webmaster@1	113 $language->enabled = 1;
webmaster@1	114 }
webmaster@1	115 else {
webmaster@1	116 $language->enabled = 0;
webmaster@1	117 }
webmaster@1	118 $language->weight = $form_state['values']['weight'][$langcode];
webmaster@1	119 db_query("UPDATE {languages} SET enabled = %d, weight = %d WHERE language = '%s'", $language->enabled, $language->weight, $langcode);
webmaster@1	120 $languages[$langcode] = $language;
webmaster@1	121 }
webmaster@1	122 drupal_set_message(t('Configuration saved.'));
webmaster@1	123 variable_set('language_default', $languages[$form_state['values']['site_default']]);
webmaster@1	124 variable_set('language_count', $enabled_count);
webmaster@1	125
webmaster@1	126 // Changing the language settings impacts the interface.
webmaster@1	127 cache_clear_all('*', 'cache_page', TRUE);
webmaster@1	128
webmaster@1	129 $form_state['redirect'] = 'admin/settings/language';
webmaster@1	130 return;
webmaster@1	131 }
webmaster@1	132 /**
webmaster@1	133 * @} End of "locale-language-overview"
webmaster@1	134 */
webmaster@1	135
webmaster@1	136 /**
webmaster@1	137 * @defgroup locale-language-add-edit Language addition and editing functionality
webmaster@1	138 * @{
webmaster@1	139 */
webmaster@1	140
webmaster@1	141 /**
webmaster@1	142 * User interface for the language addition screen.
webmaster@1	143 */
webmaster@1	144 function locale_languages_add_screen() {
webmaster@1	145 $output = drupal_get_form('locale_languages_predefined_form');
webmaster@1	146 $output .= drupal_get_form('locale_languages_custom_form');
webmaster@1	147 return $output;
webmaster@1	148 }
webmaster@1	149
webmaster@1	150 /**
webmaster@1	151 * Predefined language setup form.
webmaster@1	152 */
webmaster@1	153 function locale_languages_predefined_form() {
webmaster@1	154 $predefined = _locale_prepare_predefined_list();
webmaster@1	155 $form = array();
webmaster@1	156 $form['language list'] = array('#type' => 'fieldset',
webmaster@1	157 '#title' => t('Predefined language'),
webmaster@1	158 '#collapsible' => TRUE,
webmaster@1	159 );
webmaster@1	160 $form['language list']['langcode'] = array('#type' => 'select',
webmaster@1	161 '#title' => t('Language name'),
webmaster@1	162 '#default_value' => key($predefined),
webmaster@1	163 '#options' => $predefined,
webmaster@1	164 '#description' => t('Select the desired language and click the <em>Add language</em> button. (Use the <em>Custom language</em> options if your desired language does not appear in this list.)'),
webmaster@1	165 );
webmaster@1	166 $form['language list']['submit'] = array('#type' => 'submit', '#value' => t('Add language'));
webmaster@1	167 return $form;
webmaster@1	168 }
webmaster@1	169
webmaster@1	170 /**
webmaster@1	171 * Custom language addition form.
webmaster@1	172 */
webmaster@1	173 function locale_languages_custom_form() {
webmaster@1	174 $form = array();
webmaster@1	175 $form['custom language'] = array('#type' => 'fieldset',
webmaster@1	176 '#title' => t('Custom language'),
webmaster@1	177 '#collapsible' => TRUE,
webmaster@1	178 '#collapsed' => TRUE,
webmaster@1	179 );
webmaster@1	180 _locale_languages_common_controls($form['custom language']);
webmaster@1	181 $form['custom language']['submit'] = array(
webmaster@1	182 '#type' => 'submit',
webmaster@1	183 '#value' => t('Add custom language')
webmaster@1	184 );
webmaster@1	185 // Reuse the validation and submit functions of the predefined language setup form.
webmaster@1	186 $form['#submit'][] = 'locale_languages_predefined_form_submit';
webmaster@1	187 $form['#validate'][] = 'locale_languages_predefined_form_validate';
webmaster@1	188 return $form;
webmaster@1	189 }
webmaster@1	190
webmaster@1	191 /**
webmaster@1	192 * Editing screen for a particular language.
webmaster@1	193 *
webmaster@1	194 * @param $langcode
webmaster@1	195 * Language code of the language to edit.
webmaster@1	196 */
webmaster@1	197 function locale_languages_edit_form(&$form_state, $langcode) {
webmaster@1	198 if ($language = db_fetch_object(db_query("SELECT * FROM {languages} WHERE language = '%s'", $langcode))) {
webmaster@1	199 $form = array();
webmaster@1	200 _locale_languages_common_controls($form, $language);
webmaster@1	201 $form['submit'] = array(
webmaster@1	202 '#type' => 'submit',
webmaster@1	203 '#value' => t('Save language')
webmaster@1	204 );
webmaster@1	205 $form['#submit'][] = 'locale_languages_edit_form_submit';
webmaster@1	206 $form['#validate'][] = 'locale_languages_edit_form_validate';
webmaster@1	207 return $form;
webmaster@1	208 }
webmaster@1	209 else {
webmaster@1	210 drupal_not_found();
webmaster@1	211 }
webmaster@1	212 }
webmaster@1	213
webmaster@1	214 /**
webmaster@1	215 * Common elements of the language addition and editing form.
webmaster@1	216 *
webmaster@1	217 * @param $form
webmaster@1	218 * A parent form item (or empty array) to add items below.
webmaster@1	219 * @param $language
webmaster@1	220 * Language object to edit.
webmaster@1	221 */
webmaster@1	222 function _locale_languages_common_controls(&$form, $language = NULL) {
webmaster@1	223 if (!is_object($language)) {
webmaster@1	224 $language = new stdClass();
webmaster@1	225 }
webmaster@1	226 if (isset($language->language)) {
webmaster@1	227 $form['langcode_view'] = array(
webmaster@1	228 '#type' => 'item',
webmaster@1	229 '#title' => t('Language code'),
webmaster@1	230 '#value' => $language->language
webmaster@1	231 );
webmaster@1	232 $form['langcode'] = array(
webmaster@1	233 '#type' => 'value',
webmaster@1	234 '#value' => $language->language
webmaster@1	235 );
webmaster@1	236 }
webmaster@1	237 else {
webmaster@1	238 $form['langcode'] = array('#type' => 'textfield',
webmaster@1	239 '#title' => t('Language code'),
webmaster@1	240 '#size' => 12,
webmaster@1	241 '#maxlength' => 60,
webmaster@1	242 '#required' => TRUE,
webmaster@1	243 '#default_value' => @$language->language,
webmaster@1	244 '#disabled' => (isset($language->language)),
webmaster@1	245 '#description' => t('<a href="@rfc4646">RFC 4646</a> compliant language identifier. Language codes typically use a country code, and optionally, a script or regional variant name. <em>Examples: "en", "en-US" and "zh-Hant".</em>', array('@rfc4646' => 'http://www.ietf.org/rfc/rfc4646.txt')),
webmaster@1	246 );
webmaster@1	247 }
webmaster@1	248 $form['name'] = array('#type' => 'textfield',
webmaster@1	249 '#title' => t('Language name in English'),
webmaster@1	250 '#maxlength' => 64,
webmaster@1	251 '#default_value' => @$language->name,
webmaster@1	252 '#required' => TRUE,
webmaster@1	253 '#description' => t('Name of the language in English. Will be available for translation in all languages.'),
webmaster@1	254 );
webmaster@1	255 $form['native'] = array('#type' => 'textfield',
webmaster@1	256 '#title' => t('Native language name'),
webmaster@1	257 '#maxlength' => 64,
webmaster@1	258 '#default_value' => @$language->native,
webmaster@1	259 '#required' => TRUE,
webmaster@1	260 '#description' => t('Name of the language in the language being added.'),
webmaster@1	261 );
webmaster@1	262 $form['prefix'] = array('#type' => 'textfield',
webmaster@1	263 '#title' => t('Path prefix'),
webmaster@1	264 '#maxlength' => 64,
webmaster@1	265 '#default_value' => @$language->prefix,
webmaster@1	266 '#description' => t('Language code or other custom string for pattern matching within the path. With language negotiation set to <em>Path prefix only</em> or <em>Path prefix with language fallback</em>, this site is presented in this language when the Path prefix value matches an element in the path. For the default language, this value may be left blank. <strong>Modifying this value will break existing URLs and should be used with caution in a production environment.</strong> <em>Example: Specifying "deutsch" as the path prefix for German results in URLs in the form "www.example.com/deutsch/node".</em>')
webmaster@1	267 );
webmaster@1	268 $form['domain'] = array('#type' => 'textfield',
webmaster@1	269 '#title' => t('Language domain'),
webmaster@11	270 '#maxlength' => 128,
webmaster@1	271 '#default_value' => @$language->domain,
webmaster@1	272 '#description' => t('Language-specific URL, with protocol. With language negotiation set to <em>Domain name only</em>, the site is presented in this language when the URL accessing the site references this domain. For the default language, this value may be left blank. <strong>This value must include a protocol as part of the string.</strong> <em>Example: Specifying "http://example.de" or "http://de.example.com" as language domains for German results in URLs in the forms "http://example.de/node" and "http://de.example.com/node", respectively.</em>'),
webmaster@1	273 );
webmaster@1	274 $form['direction'] = array('#type' => 'radios',
webmaster@1	275 '#title' => t('Direction'),
webmaster@1	276 '#required' => TRUE,
webmaster@1	277 '#description' => t('Direction that text in this language is presented.'),
webmaster@1	278 '#default_value' => @$language->direction,
webmaster@1	279 '#options' => array(LANGUAGE_LTR => t('Left to right'), LANGUAGE_RTL => t('Right to left'))
webmaster@1	280 );
webmaster@1	281 return $form;
webmaster@1	282 }
webmaster@1	283
webmaster@1	284 /**
webmaster@1	285 * Validate the language addition form.
webmaster@1	286 */
webmaster@1	287 function locale_languages_predefined_form_validate($form, &$form_state) {
webmaster@1	288 $langcode = $form_state['values']['langcode'];
webmaster@1	289
webmaster@1	290 if ($duplicate = db_result(db_query("SELECT COUNT(*) FROM {languages} WHERE language = '%s'", $langcode)) != 0) {
webmaster@1	291 form_set_error('langcode', t('The language %language (%code) already exists.', array('%language' => $form_state['values']['name'], '%code' => $langcode)));
webmaster@1	292 }
webmaster@1	293
webmaster@1	294 if (!isset($form_state['values']['name'])) {
webmaster@1	295 // Predefined language selection.
webmaster@1	296 $predefined = _locale_get_predefined_list();
webmaster@1	297 if (!isset($predefined[$langcode])) {
webmaster@1	298 form_set_error('langcode', t('Invalid language code.'));
webmaster@1	299 }
webmaster@1	300 }
webmaster@1	301 else {
webmaster@1	302 // Reuse the editing form validation routine if we add a custom language.
webmaster@1	303 locale_languages_edit_form_validate($form, $form_state);
webmaster@1	304 }
webmaster@1	305 }
webmaster@1	306
webmaster@1	307 /**
webmaster@1	308 * Process the language addition form submission.
webmaster@1	309 */
webmaster@1	310 function locale_languages_predefined_form_submit($form, &$form_state) {
webmaster@1	311 $langcode = $form_state['values']['langcode'];
webmaster@1	312 if (isset($form_state['values']['name'])) {
webmaster@1	313 // Custom language form.
webmaster@1	314 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	315 drupal_set_message(t('The language %language has been created and can now be used. More information is available on the <a href="@locale-help">help screen</a>.', array('%language' => t($form_state['values']['name']), '@locale-help' => url('admin/help/locale'))));
webmaster@1	316 }
webmaster@1	317 else {
webmaster@1	318 // Predefined language selection.
webmaster@1	319 $predefined = _locale_get_predefined_list();
webmaster@1	320 locale_add_language($langcode);
webmaster@1	321 drupal_set_message(t('The language %language has been created and can now be used. More information is available on the <a href="@locale-help">help screen</a>.', array('%language' => t($predefined[$langcode][0]), '@locale-help' => url('admin/help/locale'))));
webmaster@1	322 }
webmaster@1	323
webmaster@1	324 // See if we have language files to import for the newly added
webmaster@1	325 // language, collect and import them.
webmaster@1	326 if ($batch = locale_batch_by_language($langcode, '_locale_batch_language_finished')) {
webmaster@1	327 batch_set($batch);
webmaster@1	328 }
webmaster@1	329
webmaster@1	330 $form_state['redirect'] = 'admin/settings/language';
webmaster@1	331 return;
webmaster@1	332 }
webmaster@1	333
webmaster@1	334 /**
webmaster@1	335 * Validate the language editing form. Reused for custom language addition too.
webmaster@1	336 */
webmaster@1	337 function locale_languages_edit_form_validate($form, &$form_state) {
webmaster@1	338 if (!empty($form_state['values']['domain']) && !empty($form_state['values']['prefix'])) {
webmaster@1	339 form_set_error('prefix', t('Domain and path prefix values should not be set at the same time.'));
webmaster@1	340 }
webmaster@1	341 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	342 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	343 }
webmaster@1	344 if (empty($form_state['values']['prefix']) && language_default('language') != $form_state['values']['langcode'] && empty($form_state['values']['domain'])) {
webmaster@1	345 form_set_error('prefix', t('Only the default language can have both the domain and prefix empty.'));
webmaster@1	346 }
webmaster@1	347 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	348 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	349 }
webmaster@1	350 }
webmaster@1	351
webmaster@1	352 /**
webmaster@1	353 * Process the language editing form submission.
webmaster@1	354 */
webmaster@1	355 function locale_languages_edit_form_submit($form, &$form_state) {
webmaster@1	356 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	357 $default = language_default();
webmaster@1	358 if ($default->language == $form_state['values']['langcode']) {
webmaster@1	359 $properties = array('name', 'native', 'direction', 'enabled', 'plurals', 'formula', 'domain', 'prefix', 'weight');
webmaster@1	360 foreach ($properties as $keyname) {
webmaster@1	361 if (isset($form_state['values'][$keyname])) {
webmaster@1	362 $default->$keyname = $form_state['values'][$keyname];
webmaster@1	363 }
webmaster@1	364 }
webmaster@1	365 variable_set('language_default', $default);
webmaster@1	366 }
webmaster@1	367 $form_state['redirect'] = 'admin/settings/language';
webmaster@1	368 return;
webmaster@1	369 }
webmaster@1	370 /**
webmaster@1	371 * @} End of "locale-language-add-edit"
webmaster@1	372 */
webmaster@1	373
webmaster@1	374 /**
webmaster@1	375 * @defgroup locale-language-delete Language deletion functionality
webmaster@1	376 * @{
webmaster@1	377 */
webmaster@1	378
webmaster@1	379 /**
webmaster@1	380 * User interface for the language deletion confirmation screen.
webmaster@1	381 */
webmaster@1	382 function locale_languages_delete_form(&$form_state, $langcode) {
webmaster@1	383
webmaster@1	384 // Do not allow deletion of English locale.
webmaster@1	385 if ($langcode == 'en') {
webmaster@1	386 drupal_set_message(t('The English language cannot be deleted.'));
webmaster@1	387 drupal_goto('admin/settings/language');
webmaster@1	388 }
webmaster@1	389
webmaster@1	390 if (language_default('language') == $langcode) {
webmaster@1	391 drupal_set_message(t('The default language cannot be deleted.'));
webmaster@1	392 drupal_goto('admin/settings/language');
webmaster@1	393 }
webmaster@1	394
webmaster@1	395 // For other languages, warn user that data loss is ahead.
webmaster@1	396 $languages = language_list();
webmaster@1	397
webmaster@1	398 if (!isset($languages[$langcode])) {
webmaster@1	399 drupal_not_found();
webmaster@1	400 }
webmaster@1	401 else {
webmaster@1	402 $form['langcode'] = array('#type' => 'value', '#value' => $langcode);
webmaster@1	403 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	404 }
webmaster@1	405 }
webmaster@1	406
webmaster@1	407 /**
webmaster@1	408 * Process language deletion submissions.
webmaster@1	409 */
webmaster@1	410 function locale_languages_delete_form_submit($form, &$form_state) {
webmaster@1	411 $languages = language_list();
webmaster@1	412 if (isset($languages[$form_state['values']['langcode']])) {
webmaster@1	413 // Remove translations first.
webmaster@1	414 db_query("DELETE FROM {locales_target} WHERE language = '%s'", $form_state['values']['langcode']);
webmaster@1	415 cache_clear_all('locale:'. $form_state['values']['langcode'], 'cache');
webmaster@1	416 // With no translations, this removes existing JavaScript translations file.
webmaster@1	417 _locale_rebuild_js($form_state['values']['langcode']);
webmaster@1	418 // Remove the language.
webmaster@1	419 db_query("DELETE FROM {languages} WHERE language = '%s'", $form_state['values']['langcode']);
webmaster@1	420 db_query("UPDATE {node} SET language = '' WHERE language = '%s'", $form_state['values']['langcode']);
webmaster@1	421 $variables = array('%locale' => $languages[$form_state['values']['langcode']]->name);
webmaster@1	422 drupal_set_message(t('The language %locale has been removed.', $variables));
webmaster@1	423 watchdog('locale', 'The language %locale has been removed.', $variables);
webmaster@1	424 }
webmaster@1	425
webmaster@1	426 // Changing the language settings impacts the interface:
webmaster@1	427 cache_clear_all('*', 'cache_page', TRUE);
webmaster@1	428
webmaster@1	429 $form_state['redirect'] = 'admin/settings/language';
webmaster@1	430 return;
webmaster@1	431 }
webmaster@1	432 /**
webmaster@1	433 * @} End of "locale-language-add-edit"
webmaster@1	434 */
webmaster@1	435
webmaster@1	436 /**
webmaster@1	437 * @defgroup locale-languages-negotiation Language negotiation options screen
webmaster@1	438 * @{
webmaster@1	439 */
webmaster@1	440
webmaster@1	441 /**
webmaster@1	442 * Setting for language negotiation options
webmaster@1	443 */
webmaster@1	444 function locale_languages_configure_form() {
webmaster@1	445 $form['language_negotiation'] = array(
webmaster@1	446 '#title' => t('Language negotiation'),
webmaster@1	447 '#type' => 'radios',
webmaster@1	448 '#options' => array(
webmaster@1	449 LANGUAGE_NEGOTIATION_NONE => t('None.'),
webmaster@1	450 LANGUAGE_NEGOTIATION_PATH_DEFAULT => t('Path prefix only.'),
webmaster@1	451 LANGUAGE_NEGOTIATION_PATH => t('Path prefix with language fallback.'),
webmaster@1	452 LANGUAGE_NEGOTIATION_DOMAIN => t('Domain name only.')),
webmaster@1	453 '#default_value' => variable_get('language_negotiation', LANGUAGE_NEGOTIATION_NONE),
webmaster@1	454 '#description' => t("Select the mechanism used to determine your site's presentation language. <strong>Modifying this setting may break all incoming URLs and should be used with caution in a production environment.</strong>")
webmaster@1	455 );
webmaster@1	456 $form['submit'] = array(
webmaster@1	457 '#type' => 'submit',
webmaster@1	458 '#value' => t('Save settings')
webmaster@1	459 );
webmaster@1	460 return $form;
webmaster@1	461 }
webmaster@1	462
webmaster@1	463 /**
webmaster@1	464 * Submit function for language negotiation settings.
webmaster@1	465 */
webmaster@1	466 function locale_languages_configure_form_submit($form, &$form_state) {
webmaster@1	467 variable_set('language_negotiation', $form_state['values']['language_negotiation']);
webmaster@1	468 drupal_set_message(t('Language negotiation configuration saved.'));
webmaster@1	469 $form_state['redirect'] = 'admin/settings/language';
webmaster@1	470 return;
webmaster@1	471 }
webmaster@1	472 /**
webmaster@1	473 * @} End of "locale-languages-negotiation"
webmaster@1	474 */
webmaster@1	475
webmaster@1	476 /**
webmaster@1	477 * @defgroup locale-translate-overview Translation overview screen.
webmaster@1	478 * @{
webmaster@1	479 */
webmaster@1	480
webmaster@1	481 /**
webmaster@1	482 * Overview screen for translations.
webmaster@1	483 */
webmaster@1	484 function locale_translate_overview_screen() {
webmaster@1	485 $languages = language_list('language', TRUE);
webmaster@1	486 $groups = module_invoke_all('locale', 'groups');
webmaster@1	487
webmaster@1	488 // Build headers with all groups in order.
webmaster@1	489 $headers = array_merge(array(t('Language')), array_values($groups));
webmaster@1	490
webmaster@1	491 // Collect summaries of all source strings in all groups.
webmaster@1	492 $sums = db_query("SELECT COUNT(*) AS strings, textgroup FROM {locales_source} GROUP BY textgroup");
webmaster@1	493 $groupsums = array();
webmaster@1	494 while ($group = db_fetch_object($sums)) {
webmaster@1	495 $groupsums[$group->textgroup] = $group->strings;
webmaster@1	496 }
webmaster@1	497
webmaster@1	498 // Set up overview table with default values, ensuring common order for values.
webmaster@1	499 $rows = array();
webmaster@1	500 foreach ($languages as $langcode => $language) {
webmaster@1	501 $rows[$langcode] = array('name' => ($langcode == 'en' ? t('English (built-in)') : t($language->name)));
webmaster@1	502 foreach ($groups as $group => $name) {
webmaster@1	503 $rows[$langcode][$group] = ($langcode == 'en' ? t('n/a') : '0/'. (isset($groupsums[$group]) ? $groupsums[$group] : 0) .' (0%)');
webmaster@1	504 }
webmaster@1	505 }
webmaster@1	506
webmaster@1	507 // Languages with at least one record in the locale table.
webmaster@1	508 $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	509 while ($data = db_fetch_object($translations)) {
webmaster@1	510 $ratio = (!empty($groupsums[$data->textgroup]) && $data->translation > 0) ? round(($data->translation/$groupsums[$data->textgroup])*100., 2) : 0;
webmaster@1	511 $rows[$data->language][$data->textgroup] = $data->translation .'/'. $groupsums[$data->textgroup] ." ($ratio%)";
webmaster@1	512 }
webmaster@1	513
webmaster@1	514 return theme('table', $headers, $rows);
webmaster@1	515 }
webmaster@1	516 /**
webmaster@1	517 * @} End of "locale-translate-overview"
webmaster@1	518 */
webmaster@1	519
webmaster@1	520 /**
webmaster@1	521 * @defgroup locale-translate-seek Translation search screen.
webmaster@1	522 * @{
webmaster@1	523 */
webmaster@1	524
webmaster@1	525 /**
webmaster@1	526 * String search screen.
webmaster@1	527 */
webmaster@1	528 function locale_translate_seek_screen() {
webmaster@1	529 $output = _locale_translate_seek();
webmaster@1	530 $output .= drupal_get_form('locale_translate_seek_form');
webmaster@1	531 return $output;
webmaster@1	532 }
webmaster@1	533
webmaster@1	534 /**
webmaster@1	535 * User interface for the string search screen.
webmaster@1	536 */
webmaster@1	537 function locale_translate_seek_form() {
webmaster@1	538 // Get all languages, except English
webmaster@1	539 $languages = locale_language_list('name', TRUE);
webmaster@1	540 unset($languages['en']);
webmaster@1	541
webmaster@1	542 // Present edit form preserving previous user settings
webmaster@1	543 $query = _locale_translate_seek_query();
webmaster@1	544 $form = array();
webmaster@1	545 $form['search'] = array('#type' => 'fieldset',
webmaster@1	546 '#title' => t('Search'),
webmaster@1	547 );
webmaster@1	548 $form['search']['string'] = array('#type' => 'textfield',
webmaster@1	549 '#title' => t('String contains'),
webmaster@1	550 '#default_value' => @$query['string'],
webmaster@1	551 '#description' => t('Leave blank to show all strings. The search is case sensitive.'),
webmaster@1	552 );
webmaster@1	553 $form['search']['language'] = array(
webmaster@1	554 // Change type of form widget if more the 5 options will
webmaster@1	555 // be present (2 of the options are added below).
webmaster@1	556 '#type' => (count($languages) <= 3 ? 'radios' : 'select'),
webmaster@1	557 '#title' => t('Language'),
webmaster@1	558 '#default_value' => (!empty($query['language']) ? $query['language'] : 'all'),
webmaster@1	559 '#options' => array_merge(array('all' => t('All languages'), 'en' => t('English (provided by Drupal)')), $languages),
webmaster@1	560 );
webmaster@1	561 $form['search']['translation'] = array('#type' => 'radios',
webmaster@1	562 '#title' => t('Search in'),
webmaster@1	563 '#default_value' => (!empty($query['translation']) ? $query['translation'] : 'all'),
webmaster@1	564 '#options' => array('all' => t('Both translated and untranslated strings'), 'translated' => t('Only translated strings'), 'untranslated' => t('Only untranslated strings')),
webmaster@1	565 );
webmaster@1	566 $groups = module_invoke_all('locale', 'groups');
webmaster@1	567 $form['search']['group'] = array('#type' => 'radios',
webmaster@1	568 '#title' => t('Limit search to'),
webmaster@1	569 '#default_value' => (!empty($query['group']) ? $query['group'] : 'all'),
webmaster@1	570 '#options' => array_merge(array('all' => t('All text groups')), $groups),
webmaster@1	571 );
webmaster@1	572
webmaster@1	573 $form['search']['submit'] = array('#type' => 'submit', '#value' => t('Search'));
webmaster@1	574 $form['#redirect'] = FALSE;
webmaster@1	575
webmaster@1	576 return $form;
webmaster@1	577 }
webmaster@1	578 /**
webmaster@1	579 * @} End of "locale-translate-seek"
webmaster@1	580 */
webmaster@1	581
webmaster@1	582 /**
webmaster@1	583 * @defgroup locale-translate-import Translation import screen.
webmaster@1	584 * @{
webmaster@1	585 */
webmaster@1	586
webmaster@1	587 /**
webmaster@1	588 * User interface for the translation import screen.
webmaster@1	589 */
webmaster@1	590 function locale_translate_import_form() {
webmaster@1	591 // Get all languages, except English
webmaster@1	592 $names = locale_language_list('name', TRUE);
webmaster@1	593 unset($names['en']);
webmaster@1	594
webmaster@1	595 if (!count($names)) {
webmaster@1	596 $languages = _locale_prepare_predefined_list();
webmaster@1	597 $default = array_shift(array_keys($languages));
webmaster@1	598 }
webmaster@1	599 else {
webmaster@1	600 $languages = array(
webmaster@1	601 t('Already added languages') => $names,
webmaster@1	602 t('Languages not yet added') => _locale_prepare_predefined_list()
webmaster@1	603 );
webmaster@1	604 $default = array_shift(array_keys($names));
webmaster@1	605 }
webmaster@1	606
webmaster@1	607 $form = array();
webmaster@1	608 $form['import'] = array('#type' => 'fieldset',
webmaster@1	609 '#title' => t('Import translation'),
webmaster@1	610 );
webmaster@1	611 $form['import']['file'] = array('#type' => 'file',
webmaster@1	612 '#title' => t('Language file'),
webmaster@1	613 '#size' => 50,
webmaster@1	614 '#description' => t('A Gettext Portable Object (<em>.po</em>) file.'),
webmaster@1	615 );
webmaster@1	616 $form['import']['langcode'] = array('#type' => 'select',
webmaster@1	617 '#title' => t('Import into'),
webmaster@1	618 '#options' => $languages,
webmaster@1	619 '#default_value' => $default,
webmaster@1	620 '#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	621 );
webmaster@1	622 $form['import']['group'] = array('#type' => 'radios',
webmaster@1	623 '#title' => t('Text group'),
webmaster@1	624 '#default_value' => 'default',
webmaster@1	625 '#options' => module_invoke_all('locale', 'groups'),
webmaster@1	626 '#description' => t('Imported translations will be added to this text group.'),
webmaster@1	627 );
webmaster@1	628 $form['import']['mode'] = array('#type' => 'radios',
webmaster@1	629 '#title' => t('Mode'),
webmaster@1	630 '#default_value' => LOCALE_IMPORT_KEEP,
webmaster@1	631 '#options' => array(
webmaster@1	632 LOCALE_IMPORT_OVERWRITE => t('Strings in the uploaded file replace existing ones, new ones are added'),
webmaster@1	633 LOCALE_IMPORT_KEEP => t('Existing strings are kept, only new strings are added')
webmaster@1	634 ),
webmaster@1	635 );
webmaster@1	636 $form['import']['submit'] = array('#type' => 'submit', '#value' => t('Import'));
webmaster@1	637 $form['#attributes']['enctype'] = 'multipart/form-data';
webmaster@1	638
webmaster@1	639 return $form;
webmaster@1	640 }
webmaster@1	641
webmaster@1	642 /**
webmaster@1	643 * Process the locale import form submission.
webmaster@1	644 */
webmaster@1	645 function locale_translate_import_form_submit($form, &$form_state) {
webmaster@1	646 // Ensure we have the file uploaded
webmaster@1	647 if ($file = file_save_upload('file')) {
webmaster@1	648
webmaster@1	649 // Add language, if not yet supported
webmaster@1	650 $languages = language_list('language', TRUE);
webmaster@1	651 $langcode = $form_state['values']['langcode'];
webmaster@1	652 if (!isset($languages[$langcode])) {
webmaster@1	653 $predefined = _locale_get_predefined_list();
webmaster@1	654 locale_add_language($langcode);
webmaster@1	655 drupal_set_message(t('The language %language has been created.', array('%language' => t($predefined[$langcode][0]))));
webmaster@1	656 }
webmaster@1	657
webmaster@1	658 // Now import strings into the language
webmaster@1	659 if ($ret = _locale_import_po($file, $langcode, $form_state['values']['mode'], $form_state['values']['group']) == FALSE) {
webmaster@1	660 $variables = array('%filename' => $file->filename);
webmaster@1	661 drupal_set_message(t('The translation import of %filename failed.', $variables), 'error');
webmaster@1	662 watchdog('locale', 'The translation import of %filename failed.', $variables, WATCHDOG_ERROR);
webmaster@1	663 }
webmaster@1	664 }
webmaster@1	665 else {
webmaster@1	666 drupal_set_message(t('File to import not found.'), 'error');
webmaster@15	667 $form_state['redirect'] = 'admin/build/translate/import';
franck@19	668 return;
webmaster@1	669 }
webmaster@1	670
webmaster@1	671 $form_state['redirect'] = 'admin/build/translate';
webmaster@1	672 return;
webmaster@1	673 }
webmaster@1	674 /**
webmaster@1	675 * @} End of "locale-translate-import"
webmaster@1	676 */
webmaster@1	677
webmaster@1	678 /**
webmaster@1	679 * @defgroup locale-translate-export Translation export screen.
webmaster@1	680 * @{
webmaster@1	681 */
webmaster@1	682
webmaster@1	683 /**
webmaster@1	684 * User interface for the translation export screen.
webmaster@1	685 */
webmaster@1	686 function locale_translate_export_screen() {
webmaster@1	687 // Get all languages, except English
webmaster@1	688 $names = locale_language_list('name', TRUE);
webmaster@1	689 unset($names['en']);
webmaster@1	690 $output = '';
webmaster@1	691 // Offer translation export if any language is set up.
webmaster@1	692 if (count($names)) {
webmaster@1	693 $output = drupal_get_form('locale_translate_export_po_form', $names);
webmaster@1	694 }
webmaster@1	695 $output .= drupal_get_form('locale_translate_export_pot_form');
webmaster@1	696 return $output;
webmaster@1	697 }
webmaster@1	698
webmaster@1	699 /**
webmaster@1	700 * Form to export PO files for the languages provided.
webmaster@1	701 *
webmaster@1	702 * @param $names
webmaster@1	703 * An associate array with localized language names
webmaster@1	704 */
webmaster@1	705 function locale_translate_export_po_form(&$form_state, $names) {
webmaster@1	706 $form['export'] = array('#type' => 'fieldset',
webmaster@1	707 '#title' => t('Export translation'),
webmaster@1	708 '#collapsible' => TRUE,
webmaster@1	709 );
webmaster@1	710 $form['export']['langcode'] = array('#type' => 'select',
webmaster@1	711 '#title' => t('Language name'),
webmaster@1	712 '#options' => $names,
webmaster@1	713 '#description' => t('Select the language to export in Gettext Portable Object (<em>.po</em>) format.'),
webmaster@1	714 );
webmaster@1	715 $form['export']['group'] = array('#type' => 'radios',
webmaster@1	716 '#title' => t('Text group'),
webmaster@1	717 '#default_value' => 'default',
webmaster@1	718 '#options' => module_invoke_all('locale', 'groups'),
webmaster@1	719 );
webmaster@1	720 $form['export']['submit'] = array('#type' => 'submit', '#value' => t('Export'));
webmaster@1	721 return $form;
webmaster@1	722 }
webmaster@1	723
webmaster@1	724 /**
webmaster@1	725 * Translation template export form.
webmaster@1	726 */
webmaster@1	727 function locale_translate_export_pot_form() {
webmaster@1	728 // Complete template export of the strings
webmaster@1	729 $form['export'] = array('#type' => 'fieldset',
webmaster@1	730 '#title' => t('Export template'),
webmaster@1	731 '#collapsible' => TRUE,
webmaster@1	732 '#description' => t('Generate a Gettext Portable Object Template (<em>.pot</em>) file with all strings from the Drupal locale database.'),
webmaster@1	733 );
webmaster@1	734 $form['export']['group'] = array('#type' => 'radios',
webmaster@1	735 '#title' => t('Text group'),
webmaster@1	736 '#default_value' => 'default',
webmaster@1	737 '#options' => module_invoke_all('locale', 'groups'),
webmaster@1	738 );
webmaster@1	739 $form['export']['submit'] = array('#type' => 'submit', '#value' => t('Export'));
webmaster@1	740 // Reuse PO export submission callback.
webmaster@1	741 $form['#submit'][] = 'locale_translate_export_po_form_submit';
webmaster@1	742 $form['#validate'][] = 'locale_translate_export_po_form_validate';
webmaster@1	743 return $form;
webmaster@1	744 }
webmaster@1	745
webmaster@1	746 /**
webmaster@1	747 * Process a translation (or template) export form submission.
webmaster@1	748 */
webmaster@1	749 function locale_translate_export_po_form_submit($form, &$form_state) {
webmaster@1	750 // If template is required, language code is not given.
webmaster@1	751 $language = NULL;
webmaster@1	752 if (isset($form_state['values']['langcode'])) {
webmaster@1	753 $languages = language_list();
webmaster@1	754 $language = $languages[$form_state['values']['langcode']];
webmaster@1	755 }
webmaster@1	756 _locale_export_po($language, _locale_export_po_generate($language, _locale_export_get_strings($language, $form_state['values']['group'])));
webmaster@1	757 }
webmaster@1	758 /**
webmaster@1	759 * @} End of "locale-translate-export"
webmaster@1	760 */
webmaster@1	761
webmaster@1	762 /**
webmaster@1	763 * @defgroup locale-translate-edit Translation text editing
webmaster@1	764 * @{
webmaster@1	765 */
webmaster@1	766
webmaster@1	767 /**
webmaster@1	768 * User interface for string editing.
webmaster@1	769 */
webmaster@1	770 function locale_translate_edit_form(&$form_state, $lid) {
webmaster@1	771 // Fetch source string, if possible.
webmaster@1	772 $source = db_fetch_object(db_query('SELECT source, textgroup, location FROM {locales_source} WHERE lid = %d', $lid));
webmaster@1	773 if (!$source) {
webmaster@1	774 drupal_set_message(t('String not found.'), 'error');
webmaster@1	775 drupal_goto('admin/build/translate/search');
webmaster@1	776 }
webmaster@1	777
webmaster@1	778 // Add original text to the top and some values for form altering.
webmaster@1	779 $form = array(
webmaster@1	780 'original' => array(
webmaster@1	781 '#type' => 'item',
webmaster@1	782 '#title' => t('Original text'),
webmaster@1	783 '#value' => check_plain(wordwrap($source->source, 0)),
webmaster@1	784 ),
webmaster@1	785 'lid' => array(
webmaster@1	786 '#type' => 'value',
webmaster@1	787 '#value' => $lid
webmaster@1	788 ),
webmaster@1	789 'textgroup' => array(
webmaster@1	790 '#type' => 'value',
webmaster@1	791 '#value' => $source->textgroup,
webmaster@1	792 ),
webmaster@1	793 'location' => array(
webmaster@1	794 '#type' => 'value',
webmaster@1	795 '#value' => $source->location
webmaster@1	796 ),
webmaster@1	797 );
webmaster@1	798
webmaster@1	799 // Include default form controls with empty values for all languages.
webmaster@1	800 // This ensures that the languages are always in the same order in forms.
webmaster@1	801 $languages = language_list();
webmaster@1	802 $default = language_default();
webmaster@1	803 // We don't need the default language value, that value is in $source.
webmaster@1	804 $omit = $source->textgroup == 'default' ? 'en' : $default->language;
webmaster@1	805 unset($languages[($omit)]);
webmaster@1	806 $form['translations'] = array('#tree' => TRUE);
webmaster@1	807 // Approximate the number of rows to use in the default textarea.
webmaster@1	808 $rows = min(ceil(str_word_count($source->source) / 12), 10);
webmaster@1	809 foreach ($languages as $langcode => $language) {
webmaster@1	810 $form['translations'][$langcode] = array(
webmaster@1	811 '#type' => 'textarea',
webmaster@1	812 '#title' => t($language->name),
webmaster@1	813 '#rows' => $rows,
webmaster@1	814 '#default_value' => '',
webmaster@1	815 );
webmaster@1	816 }
webmaster@1	817
webmaster@1	818 // Fetch translations and fill in default values in the form.
webmaster@1	819 $result = db_query("SELECT DISTINCT translation, language FROM {locales_target} WHERE lid = %d AND language != '%s'", $lid, $omit);
webmaster@1	820 while ($translation = db_fetch_object($result)) {
webmaster@1	821 $form['translations'][$translation->language]['#default_value'] = $translation->translation;
webmaster@1	822 }
webmaster@1	823
webmaster@1	824 $form['submit'] = array('#type' => 'submit', '#value' => t('Save translations'));
webmaster@1	825 return $form;
webmaster@1	826 }
webmaster@1	827
webmaster@1	828 /**
webmaster@15	829 * Check that a string is safe to be added or imported as a translation.
webmaster@15	830 *
webmaster@15	831 * This test can be used to detect possibly bad translation strings. It should
webmaster@15	832 * not have any false positives. But it is only a test, not a transformation,
webmaster@15	833 * as it destroys valid HTML. We cannot reliably filter translation strings
webmaster@15	834 * on inport becuase some strings are irreversibly corrupted. For example,
webmaster@15	835 * a & in the translation would get encoded to &amp; by filter_xss()
webmaster@15	836 * before being put in the database, and thus would be displayed incorrectly.
webmaster@15	837 *
webmaster@15	838 * The allowed tag list is like filter_xss_admin(), but omitting div and img as
webmaster@15	839 * not needed for translation and likely to cause layout issues (div) or a
webmaster@15	840 * possible attack vector (img).
webmaster@15	841 */
webmaster@15	842 function locale_string_is_safe($string) {
webmaster@15	843 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	844 }
webmaster@15	845
webmaster@15	846 /**
webmaster@15	847 * Validate string editing form submissions.
webmaster@15	848 */
webmaster@15	849 function locale_translate_edit_form_validate($form, &$form_state) {
webmaster@15	850 foreach ($form_state['values']['translations'] as $key => $value) {
webmaster@15	851 if (!locale_string_is_safe($value)) {
webmaster@15	852 form_set_error('translations', t('The submitted string contains disallowed HTML: %string', array('%string' => $value)));
webmaster@15	853 watchdog('locale', 'Attempted submission of a translation string with disallowed HTML: %string', array('%string' => $value), WATCHDOG_WARNING);
webmaster@15	854 }
webmaster@15	855 }
webmaster@15	856 }
webmaster@15	857
webmaster@15	858 /**
webmaster@1	859 * Process string editing form submissions.
webmaster@15	860 *
webmaster@1	861 * Saves all translations of one string submitted from a form.
webmaster@1	862 */
webmaster@1	863 function locale_translate_edit_form_submit($form, &$form_state) {
webmaster@1	864 $lid = $form_state['values']['lid'];
webmaster@1	865 foreach ($form_state['values']['translations'] as $key => $value) {
webmaster@1	866 $translation = db_result(db_query("SELECT translation FROM {locales_target} WHERE lid = %d AND language = '%s'", $lid, $key));
webmaster@1	867 if (!empty($value)) {
webmaster@1	868 // Only update or insert if we have a value to use.
webmaster@1	869 if (!empty($translation)) {
webmaster@1	870 db_query("UPDATE {locales_target} SET translation = '%s' WHERE lid = %d AND language = '%s'", $value, $lid, $key);
webmaster@1	871 }
webmaster@1	872 else {
webmaster@1	873 db_query("INSERT INTO {locales_target} (lid, translation, language) VALUES (%d, '%s', '%s')", $lid, $value, $key);
webmaster@1	874 }
webmaster@1	875 }
webmaster@1	876 elseif (!empty($translation)) {
webmaster@1	877 // Empty translation entered: remove existing entry from database.
webmaster@1	878 db_query("DELETE FROM {locales_target} WHERE lid = %d AND language = '%s'", $lid, $key);
webmaster@1	879 }
webmaster@1	880
webmaster@1	881 // Force JavaScript translation file recreation for this language.
webmaster@1	882 _locale_invalidate_js($key);
webmaster@1	883 }
webmaster@1	884
webmaster@1	885 drupal_set_message(t('The string has been saved.'));
webmaster@1	886
webmaster@1	887 // Clear locale cache.
webmaster@11	888 _locale_invalidate_js();
webmaster@1	889 cache_clear_all('locale:', 'cache', TRUE);
webmaster@1	890
webmaster@1	891 $form_state['redirect'] = 'admin/build/translate/search';
webmaster@1	892 return;
webmaster@1	893 }
webmaster@1	894 /**
webmaster@1	895 * @} End of "locale-translate-edit"
webmaster@1	896 */
webmaster@1	897
webmaster@1	898 /**
webmaster@1	899 * @defgroup locale-translate-delete Translation delete interface.
webmaster@1	900 * @{
webmaster@1	901 */
webmaster@1	902
webmaster@1	903 /**
webmaster@7	904 * String deletion confirmation page.
webmaster@1	905 */
webmaster@7	906 function locale_translate_delete_page($lid) {
webmaster@7	907 if ($source = db_fetch_object(db_query('SELECT * FROM {locales_source} WHERE lid = %d', $lid))) {
webmaster@7	908 return drupal_get_form('locale_translate_delete_form', $source);
webmaster@7	909 }
webmaster@7	910 else {
webmaster@7	911 return drupal_not_found();
webmaster@7	912 }
webmaster@7	913 }
webmaster@7	914
webmaster@7	915 /**
webmaster@7	916 * User interface for the string deletion confirmation screen.
webmaster@7	917 */
webmaster@7	918 function locale_translate_delete_form(&$form_state, $source) {
webmaster@7	919 $form['lid'] = array('#type' => 'value', '#value' => $source->lid);
webmaster@7	920 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	921 }
webmaster@7	922
webmaster@7	923 /**
webmaster@7	924 * Process string deletion submissions.
webmaster@7	925 */
webmaster@7	926 function locale_translate_delete_form_submit($form, &$form_state) {
webmaster@7	927 db_query('DELETE FROM {locales_source} WHERE lid = %d', $form_state['values']['lid']);
webmaster@7	928 db_query('DELETE FROM {locales_target} WHERE lid = %d', $form_state['values']['lid']);
webmaster@1	929 // Force JavaScript translation file recreation for all languages.
webmaster@1	930 _locale_invalidate_js();
webmaster@1	931 cache_clear_all('locale:', 'cache', TRUE);
webmaster@1	932 drupal_set_message(t('The string has been removed.'));
webmaster@7	933 $form_state['redirect'] = 'admin/build/translate/search';
webmaster@1	934 }
webmaster@1	935 /**
webmaster@1	936 * @} End of "locale-translate-delete"
webmaster@1	937 */
webmaster@1	938
webmaster@1	939 /**
webmaster@1	940 * @defgroup locale-api-add Language addition API.
webmaster@1	941 * @{
webmaster@1	942 */
webmaster@1	943
webmaster@1	944 /**
webmaster@1	945 * API function to add a language.
webmaster@1	946 *
webmaster@1	947 * @param $langcode
webmaster@1	948 * Language code.
webmaster@1	949 * @param $name
webmaster@1	950 * English name of the language
webmaster@1	951 * @param $native
webmaster@1	952 * Native name of the language
webmaster@1	953 * @param $direction
webmaster@1	954 * LANGUAGE_LTR or LANGUAGE_RTL
webmaster@1	955 * @param $domain
webmaster@1	956 * Optional custom domain name with protocol, without
webmaster@1	957 * trailing slash (eg. http://de.example.com).
webmaster@1	958 * @param $prefix
webmaster@1	959 * Optional path prefix for the language. Defaults to the
webmaster@1	960 * language code if omitted.
webmaster@1	961 * @param $enabled
webmaster@1	962 * Optionally TRUE to enable the language when created or FALSE to disable.
webmaster@1	963 * @param $default
webmaster@1	964 * Optionally set this language to be the default.
webmaster@1	965 */
webmaster@1	966 function locale_add_language($langcode, $name = NULL, $native = NULL, $direction = LANGUAGE_LTR, $domain = '', $prefix = '', $enabled = TRUE, $default = FALSE) {
webmaster@1	967 // Default prefix on language code.
webmaster@1	968 if (empty($prefix)) {
webmaster@1	969 $prefix = $langcode;
webmaster@1	970 }
webmaster@1	971
webmaster@1	972 // If name was not set, we add a predefined language.
webmaster@1	973 if (!isset($name)) {
webmaster@1	974 $predefined = _locale_get_predefined_list();
webmaster@1	975 $name = $predefined[$langcode][0];
webmaster@1	976 $native = isset($predefined[$langcode][1]) ? $predefined[$langcode][1] : $predefined[$langcode][0];
webmaster@1	977 $direction = isset($predefined[$langcode][2]) ? $predefined[$langcode][2] : LANGUAGE_LTR;
webmaster@1	978 }
webmaster@1	979
webmaster@1	980 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	981
webmaster@1	982 // Only set it as default if enabled.
webmaster@1	983 if ($enabled && $default) {
webmaster@1	984 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	985 }
webmaster@1	986
webmaster@1	987 if ($enabled) {
webmaster@1	988 // Increment enabled language count if we are adding an enabled language.
webmaster@1	989 variable_set('language_count', variable_get('language_count', 1) + 1);
webmaster@1	990 }
webmaster@1	991
webmaster@1	992 // Force JavaScript translation file creation for the newly added language.
webmaster@1	993 _locale_invalidate_js($langcode);
webmaster@1	994
webmaster@1	995 watchdog('locale', 'The %language language (%code) has been created.', array('%language' => $name, '%code' => $langcode));
webmaster@1	996 }
webmaster@1	997 /**
webmaster@1	998 * @} End of "locale-api-add"
webmaster@1	999 */
webmaster@1	1000
webmaster@1	1001 /**
webmaster@1	1002 * @defgroup locale-api-import Translation import API.
webmaster@1	1003 * @{
webmaster@1	1004 */
webmaster@1	1005
webmaster@1	1006 /**
webmaster@1	1007 * Parses Gettext Portable Object file information and inserts into database
webmaster@1	1008 *
webmaster@1	1009 * @param $file
webmaster@1	1010 * Drupal file object corresponding to the PO file to import
webmaster@1	1011 * @param $langcode
webmaster@1	1012 * Language code
webmaster@1	1013 * @param $mode
webmaster@1	1014 * Should existing translations be replaced LOCALE_IMPORT_KEEP or LOCALE_IMPORT_OVERWRITE
webmaster@1	1015 * @param $group
webmaster@1	1016 * Text group to import PO file into (eg. 'default' for interface translations)
webmaster@1	1017 */
webmaster@1	1018 function _locale_import_po($file, $langcode, $mode, $group = NULL) {
webmaster@1	1019 // If not in 'safe mode', increase the maximum execution time.
webmaster@1	1020 if (!ini_get('safe_mode')) {
webmaster@1	1021 set_time_limit(240);
webmaster@1	1022 }
webmaster@1	1023
webmaster@1	1024 // Check if we have the language already in the database.
webmaster@1	1025 if (!db_fetch_object(db_query("SELECT language FROM {languages} WHERE language = '%s'", $langcode))) {
webmaster@1	1026 drupal_set_message(t('The language selected for import is not supported.'), 'error');
webmaster@1	1027 return FALSE;
webmaster@1	1028 }
webmaster@1	1029
webmaster@1	1030 // Get strings from file (returns on failure after a partial import, or on success)
webmaster@1	1031 $status = _locale_import_read_po('db-store', $file, $mode, $langcode, $group);
webmaster@1	1032 if ($status === FALSE) {
webmaster@1	1033 // Error messages are set in _locale_import_read_po().
webmaster@1	1034 return FALSE;
webmaster@1	1035 }
webmaster@1	1036
webmaster@1	1037 // Get status information on import process.
webmaster@15	1038 list($headerdone, $additions, $updates, $deletes, $skips) = _locale_import_one_string('db-report');
webmaster@1	1039
webmaster@1	1040 if (!$headerdone) {
webmaster@1	1041 drupal_set_message(t('The translation file %filename appears to have a missing or malformed header.', array('%filename' => $file->filename)), 'error');
webmaster@1	1042 }
webmaster@1	1043
webmaster@1	1044 // Clear cache and force refresh of JavaScript translations.
webmaster@1	1045 _locale_invalidate_js($langcode);
webmaster@1	1046 cache_clear_all('locale:', 'cache', TRUE);
webmaster@1	1047
webmaster@1	1048 // Rebuild the menu, strings may have changed.
webmaster@1	1049 menu_rebuild();
webmaster@1	1050
webmaster@1	1051 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	1052 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	1053 if ($skips) {
webmaster@15	1054 $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	1055 drupal_set_message($skip_message);
webmaster@15	1056 watchdog('locale', $skip_message, NULL, WATCHDOG_WARNING);
webmaster@15	1057 }
webmaster@1	1058 return TRUE;
webmaster@1	1059 }
webmaster@1	1060
webmaster@1	1061 /**
webmaster@1	1062 * Parses Gettext Portable Object file into an array
webmaster@1	1063 *
webmaster@1	1064 * @param $op
webmaster@1	1065 * Storage operation type: db-store or mem-store
webmaster@1	1066 * @param $file
webmaster@1	1067 * Drupal file object corresponding to the PO file to import
webmaster@1	1068 * @param $mode
webmaster@1	1069 * Should existing translations be replaced LOCALE_IMPORT_KEEP or LOCALE_IMPORT_OVERWRITE
webmaster@1	1070 * @param $lang
webmaster@1	1071 * Language code
webmaster@1	1072 * @param $group
webmaster@1	1073 * Text group to import PO file into (eg. 'default' for interface translations)
webmaster@1	1074 */
webmaster@1	1075 function _locale_import_read_po($op, $file, $mode = NULL, $lang = NULL, $group = 'default') {
webmaster@1	1076
webmaster@1	1077 $fd = fopen($file->filepath, "rb"); // File will get closed by PHP on return
webmaster@1	1078 if (!$fd) {
webmaster@1	1079 _locale_import_message('The translation import failed, because the file %filename could not be read.', $file);
webmaster@1	1080 return FALSE;
webmaster@1	1081 }
webmaster@1	1082
webmaster@1	1083 $context = "COMMENT"; // Parser context: COMMENT, MSGID, MSGID_PLURAL, MSGSTR and MSGSTR_ARR
webmaster@1	1084 $current = array(); // Current entry being read
webmaster@1	1085 $plural = 0; // Current plural form
webmaster@1	1086 $lineno = 0; // Current line
webmaster@1	1087
webmaster@1	1088 while (!feof($fd)) {
webmaster@1	1089 $line = fgets($fd, 10*1024); // A line should not be this long
webmaster@1	1090 if ($lineno == 0) {
webmaster@1	1091 // The first line might come with a UTF-8 BOM, which should be removed.
webmaster@1	1092 $line = str_replace("\xEF\xBB\xBF", '', $line);
webmaster@1	1093 }
webmaster@1	1094 $lineno++;
webmaster@1	1095 $line = trim(strtr($line, array("\\\n" => "")));
webmaster@1	1096
webmaster@1	1097 if (!strncmp("#", $line, 1)) { // A comment
webmaster@1	1098 if ($context == "COMMENT") { // Already in comment context: add
webmaster@1	1099 $current["#"][] = substr($line, 1);
webmaster@1	1100 }
webmaster@1	1101 elseif (($context == "MSGSTR") \|\| ($context == "MSGSTR_ARR")) { // End current entry, start a new one
webmaster@1	1102 _locale_import_one_string($op, $current, $mode, $lang, $file, $group);
webmaster@1	1103 $current = array();
webmaster@1	1104 $current["#"][] = substr($line, 1);
webmaster@1	1105 $context = "COMMENT";
webmaster@1	1106 }
webmaster@1	1107 else { // Parse error
webmaster@1	1108 _locale_import_message('The translation file %filename contains an error: "msgstr" was expected but not found on line %line.', $file, $lineno);
webmaster@1	1109 return FALSE;
webmaster@1	1110 }
webmaster@1	1111 }
webmaster@1	1112 elseif (!strncmp("msgid_plural", $line, 12)) {
webmaster@1	1113 if ($context != "MSGID") { // Must be plural form for current entry
webmaster@1	1114 _locale_import_message('The translation file %filename contains an error: "msgid_plural" was expected but not found on line %line.', $file, $lineno);
webmaster@1	1115 return FALSE;
webmaster@1	1116 }
webmaster@1	1117 $line = trim(substr($line, 12));
webmaster@1	1118 $quoted = _locale_import_parse_quoted($line);
webmaster@1	1119 if ($quoted === FALSE) {
webmaster@1	1120 _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1	1121 return FALSE;
webmaster@1	1122 }
webmaster@1	1123 $current["msgid"] = $current["msgid"] ."\0". $quoted;
webmaster@1	1124 $context = "MSGID_PLURAL";
webmaster@1	1125 }
webmaster@1	1126 elseif (!strncmp("msgid", $line, 5)) {
webmaster@1	1127 if ($context == "MSGSTR") { // End current entry, start a new one
webmaster@1	1128 _locale_import_one_string($op, $current, $mode, $lang, $file, $group);
webmaster@1	1129 $current = array();
webmaster@1	1130 }
webmaster@1	1131 elseif ($context == "MSGID") { // Already in this context? Parse error
webmaster@1	1132 _locale_import_message('The translation file %filename contains an error: "msgid" is unexpected on line %line.', $file, $lineno);
webmaster@1	1133 return FALSE;
webmaster@1	1134 }
webmaster@1	1135 $line = trim(substr($line, 5));
webmaster@1	1136 $quoted = _locale_import_parse_quoted($line);
webmaster@1	1137 if ($quoted === FALSE) {
webmaster@1	1138 _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1	1139 return FALSE;
webmaster@1	1140 }
webmaster@1	1141 $current["msgid"] = $quoted;
webmaster@1	1142 $context = "MSGID";
webmaster@1	1143 }
webmaster@1	1144 elseif (!strncmp("msgstr[", $line, 7)) {
webmaster@1	1145 if (($context != "MSGID") && ($context != "MSGID_PLURAL") && ($context != "MSGSTR_ARR")) { // Must come after msgid, msgid_plural, or msgstr[]
webmaster@1	1146 _locale_import_message('The translation file %filename contains an error: "msgstr[]" is unexpected on line %line.', $file, $lineno);
webmaster@1	1147 return FALSE;
webmaster@1	1148 }
webmaster@1	1149 if (strpos($line, "]") === FALSE) {
webmaster@1	1150 _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1	1151 return FALSE;
webmaster@1	1152 }
webmaster@1	1153 $frombracket = strstr($line, "[");
webmaster@1	1154 $plural = substr($frombracket, 1, strpos($frombracket, "]") - 1);
webmaster@1	1155 $line = trim(strstr($line, " "));
webmaster@1	1156 $quoted = _locale_import_parse_quoted($line);
webmaster@1	1157 if ($quoted === FALSE) {
webmaster@1	1158 _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1	1159 return FALSE;
webmaster@1	1160 }
webmaster@1	1161 $current["msgstr"][$plural] = $quoted;
webmaster@1	1162 $context = "MSGSTR_ARR";
webmaster@1	1163 }
webmaster@1	1164 elseif (!strncmp("msgstr", $line, 6)) {
webmaster@1	1165 if ($context != "MSGID") { // Should come just after a msgid block
webmaster@1	1166 _locale_import_message('The translation file %filename contains an error: "msgstr" is unexpected on line %line.', $file, $lineno);
webmaster@1	1167 return FALSE;
webmaster@1	1168 }
webmaster@1	1169 $line = trim(substr($line, 6));
webmaster@1	1170 $quoted = _locale_import_parse_quoted($line);
webmaster@1	1171 if ($quoted === FALSE) {
webmaster@1	1172 _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1	1173 return FALSE;
webmaster@1	1174 }
webmaster@1	1175 $current["msgstr"] = $quoted;
webmaster@1	1176 $context = "MSGSTR";
webmaster@1	1177 }
webmaster@1	1178 elseif ($line != "") {
webmaster@1	1179 $quoted = _locale_import_parse_quoted($line);
webmaster@1	1180 if ($quoted === FALSE) {
webmaster@1	1181 _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
webmaster@1	1182 return FALSE;
webmaster@1	1183 }
webmaster@1	1184 if (($context == "MSGID") \|\| ($context == "MSGID_PLURAL")) {
webmaster@1	1185 $current["msgid"] .= $quoted;
webmaster@1	1186 }
webmaster@1	1187 elseif ($context == "MSGSTR") {
webmaster@1	1188 $current["msgstr"] .= $quoted;
webmaster@1	1189 }
webmaster@1	1190 elseif ($context == "MSGSTR_ARR") {
webmaster@1	1191 $current["msgstr"][$plural] .= $quoted;
webmaster@1	1192 }
webmaster@1	1193 else {
webmaster@1	1194 _locale_import_message('The translation file %filename contains an error: there is an unexpected string on line %line.', $file, $lineno);
webmaster@1	1195 return FALSE;
webmaster@1	1196 }
webmaster@1	1197 }
webmaster@1	1198 }
webmaster@1	1199
webmaster@1	1200 // End of PO file, flush last entry
webmaster@1	1201 if (($context == "MSGSTR") \|\| ($context == "MSGSTR_ARR")) {
webmaster@1	1202 _locale_import_one_string($op, $current, $mode, $lang, $file, $group);
webmaster@1	1203 }
webmaster@1	1204 elseif ($context != "COMMENT") {
webmaster@1	1205 _locale_import_message('The translation file %filename ended unexpectedly at line %line.', $file, $lineno);
webmaster@1	1206 return FALSE;
webmaster@1	1207 }
webmaster@1	1208
webmaster@1	1209 }
webmaster@1	1210
webmaster@1	1211 /**
webmaster@1	1212 * Sets an error message occurred during locale file parsing.
webmaster@1	1213 *
webmaster@1	1214 * @param $message
webmaster@1	1215 * The message to be translated
webmaster@1	1216 * @param $file
webmaster@1	1217 * Drupal file object corresponding to the PO file to import
webmaster@1	1218 * @param $lineno
webmaster@1	1219 * An optional line number argument
webmaster@1	1220 */
webmaster@1	1221 function _locale_import_message($message, $file, $lineno = NULL) {
webmaster@1	1222 $vars = array('%filename' => $file->filename);
webmaster@1	1223 if (isset($lineno)) {
webmaster@1	1224 $vars['%line'] = $lineno;
webmaster@1	1225 }
webmaster@1	1226 $t = get_t();
webmaster@1	1227 drupal_set_message($t($message, $vars), 'error');
webmaster@1	1228 }
webmaster@1	1229
webmaster@1	1230 /**
webmaster@1	1231 * Imports a string into the database
webmaster@1	1232 *
webmaster@1	1233 * @param $op
webmaster@1	1234 * Operation to perform: 'db-store', 'db-report', 'mem-store' or 'mem-report'
webmaster@1	1235 * @param $value
webmaster@1	1236 * Details of the string stored
webmaster@1	1237 * @param $mode
webmaster@1	1238 * Should existing translations be replaced LOCALE_IMPORT_KEEP or LOCALE_IMPORT_OVERWRITE
webmaster@1	1239 * @param $lang
webmaster@1	1240 * Language to store the string in
webmaster@1	1241 * @param $file
webmaster@1	1242 * Object representation of file being imported, only required when op is 'db-store'
webmaster@1	1243 * @param $group
webmaster@1	1244 * Text group to import PO file into (eg. 'default' for interface translations)
webmaster@1	1245 */
webmaster@1	1246 function _locale_import_one_string($op, $value = NULL, $mode = NULL, $lang = NULL, $file = NULL, $group = 'default') {
webmaster@15	1247 static $report = array('additions' => 0, 'updates' => 0, 'deletes' => 0, 'skips' => 0);
webmaster@1	1248 static $headerdone = FALSE;
webmaster@1	1249 static $strings = array();
webmaster@1	1250
webmaster@1	1251 switch ($op) {
webmaster@1	1252 // Return stored strings
webmaster@1	1253 case 'mem-report':
webmaster@1	1254 return $strings;
webmaster@1	1255
webmaster@1	1256 // Store string in memory (only supports single strings)
webmaster@1	1257 case 'mem-store':
webmaster@1	1258 $strings[$value['msgid']] = $value['msgstr'];
webmaster@1	1259 return;
webmaster@1	1260
webmaster@1	1261 // Called at end of import to inform the user
webmaster@1	1262 case 'db-report':
webmaster@15	1263 return array($headerdone, $report['additions'], $report['updates'], $report['deletes'], $report['skips']);
webmaster@1	1264
webmaster@1	1265 // Store the string we got in the database.
webmaster@1	1266 case 'db-store':
webmaster@1	1267 // We got header information.
webmaster@1	1268 if ($value['msgid'] == '') {
webmaster@1	1269 $header = _locale_import_parse_header($value['msgstr']);
webmaster@1	1270
webmaster@1	1271 // Get the plural formula and update in database.
webmaster@1	1272 if (isset($header["Plural-Forms"]) && $p = _locale_import_parse_plural_forms($header["Plural-Forms"], $file->filename)) {
webmaster@1	1273 list($nplurals, $plural) = $p;
webmaster@1	1274 db_query("UPDATE {languages} SET plurals = %d, formula = '%s' WHERE language = '%s'", $nplurals, $plural, $lang);
webmaster@1	1275 }
webmaster@1	1276 else {
webmaster@1	1277 db_query("UPDATE {languages} SET plurals = %d, formula = '%s' WHERE language = '%s'", 0, '', $lang);
webmaster@1	1278 }
webmaster@1	1279 $headerdone = TRUE;
webmaster@1	1280 }
webmaster@1	1281
webmaster@1	1282 else {
webmaster@1	1283 // Some real string to import.
webmaster@1	1284 $comments = _locale_import_shorten_comments(empty($value['#']) ? array() : $value['#']);
webmaster@1	1285
webmaster@1	1286 if (strpos($value['msgid'], "\0")) {
webmaster@1	1287 // This string has plural versions.
webmaster@1	1288 $english = explode("\0", $value['msgid'], 2);
webmaster@1	1289 $entries = array_keys($value['msgstr']);
webmaster@1	1290 for ($i = 3; $i <= count($entries); $i++) {
webmaster@1	1291 $english[] = $english[1];
webmaster@1	1292 }
webmaster@1	1293 $translation = array_map('_locale_import_append_plural', $value['msgstr'], $entries);
webmaster@1	1294 $english = array_map('_locale_import_append_plural', $english, $entries);
webmaster@1	1295 foreach ($translation as $key => $trans) {
webmaster@1	1296 if ($key == 0) {
webmaster@1	1297 $plid = 0;
webmaster@1	1298 }
webmaster@1	1299 $plid = _locale_import_one_string_db($report, $lang, $english[$key], $trans, $group, $comments, $mode, $plid, $key);
webmaster@1	1300 }
webmaster@1	1301 }
webmaster@1	1302
webmaster@1	1303 else {
webmaster@1	1304 // A simple string to import.
webmaster@1	1305 $english = $value['msgid'];
webmaster@1	1306 $translation = $value['msgstr'];
webmaster@1	1307 _locale_import_one_string_db($report, $lang, $english, $translation, $group, $comments, $mode);
webmaster@1	1308 }
webmaster@1	1309 }
webmaster@1	1310 } // end of db-store operation
webmaster@1	1311 }
webmaster@1	1312
webmaster@1	1313 /**
webmaster@1	1314 * Import one string into the database.
webmaster@1	1315 *
webmaster@1	1316 * @param $report
webmaster@1	1317 * Report array summarizing the number of changes done in the form:
webmaster@1	1318 * array(inserts, updates, deletes).
webmaster@1	1319 * @param $langcode
webmaster@1	1320 * Language code to import string into.
webmaster@1	1321 * @param $source
webmaster@1	1322 * Source string.
webmaster@1	1323 * @param $translation
webmaster@1	1324 * Translation to language specified in $langcode.
webmaster@1	1325 * @param $textgroup
webmaster@1	1326 * Name of textgroup to store translation in.
webmaster@1	1327 * @param $location
webmaster@1	1328 * Location value to save with source string.
webmaster@1	1329 * @param $mode
webmaster@1	1330 * Import mode to use, LOCALE_IMPORT_KEEP or LOCALE_IMPORT_OVERWRITE.
webmaster@1	1331 * @param $plid
webmaster@1	1332 * Optional plural ID to use.
webmaster@1	1333 * @param $plural
webmaster@1	1334 * Optional plural value to use.
webmaster@1	1335 * @return
webmaster@1	1336 * The string ID of the existing string modified or the new string added.
webmaster@1	1337 */
webmaster@1	1338 function _locale_import_one_string_db(&$report, $langcode, $source, $translation, $textgroup, $location, $mode, $plid = NULL, $plural = NULL) {
webmaster@1	1339 $lid = db_result(db_query("SELECT lid FROM {locales_source} WHERE source = '%s' AND textgroup = '%s'", $source, $textgroup));
webmaster@1	1340
webmaster@1	1341 if (!empty($translation)) {
webmaster@15	1342 // Skip this string unless it passes a check for dangerous code.
webmaster@15	1343 if (!locale_string_is_safe($translation)) {
webmaster@15	1344 $report['skips']++;
webmaster@15	1345 $lid = 0;
webmaster@15	1346 }
webmaster@15	1347 elseif ($lid) {
webmaster@1	1348 // We have this source string saved already.
webmaster@1	1349 db_query("UPDATE {locales_source} SET location = '%s' WHERE lid = %d", $location, $lid);
webmaster@1	1350 $exists = (bool) db_result(db_query("SELECT lid FROM {locales_target} WHERE lid = %d AND language = '%s'", $lid, $langcode));
webmaster@1	1351 if (!$exists) {
webmaster@1	1352 // No translation in this language.
webmaster@1	1353 db_query("INSERT INTO {locales_target} (lid, language, translation, plid, plural) VALUES (%d, '%s', '%s', %d, %d)", $lid, $langcode, $translation, $plid, $plural);
webmaster@15	1354 $report['additions']++;
webmaster@1	1355 }
webmaster@1	1356 else if ($mode == LOCALE_IMPORT_OVERWRITE) {
webmaster@1	1357 // Translation exists, only overwrite if instructed.
webmaster@1	1358 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	1359 $report['updates']++;
webmaster@1	1360 }
webmaster@1	1361 }
webmaster@1	1362 else {
webmaster@1	1363 // No such source string in the database yet.
webmaster@1	1364 db_query("INSERT INTO {locales_source} (location, source, textgroup) VALUES ('%s', '%s', '%s')", $location, $source, $textgroup);
webmaster@1	1365 $lid = db_result(db_query("SELECT lid FROM {locales_source} WHERE source = '%s' AND textgroup = '%s'", $source, $textgroup));
webmaster@1	1366 db_query("INSERT INTO {locales_target} (lid, language, translation, plid, plural) VALUES (%d, '%s', '%s', %d, %d)", $lid, $langcode, $translation, $plid, $plural);
webmaster@15	1367 $report['additions']++;
webmaster@1	1368 }
webmaster@1	1369 }
webmaster@1	1370 elseif ($mode == LOCALE_IMPORT_OVERWRITE) {
webmaster@1	1371 // Empty translation, remove existing if instructed.
franck@19	1372 db_query("DELETE FROM {locales_target} WHERE language = '%s' AND lid = %d AND plid = %d AND plural = %d", $langcode, $lid, $plid, $plural);
webmaster@15	1373 $report['deletes']++;
webmaster@1	1374 }
webmaster@1	1375
webmaster@1	1376 return $lid;
webmaster@1	1377 }
webmaster@1	1378
webmaster@1	1379 /**
webmaster@1	1380 * Parses a Gettext Portable Object file header
webmaster@1	1381 *
webmaster@1	1382 * @param $header
webmaster@1	1383 * A string containing the complete header
webmaster@1	1384 * @return
webmaster@1	1385 * An associative array of key-value pairs
webmaster@1	1386 */
webmaster@1	1387 function _locale_import_parse_header($header) {
webmaster@1	1388 $header_parsed = array();
webmaster@1	1389 $lines = array_map('trim', explode("\n", $header));
webmaster@1	1390 foreach ($lines as $line) {
webmaster@1	1391 if ($line) {
webmaster@1	1392 list($tag, $contents) = explode(":", $line, 2);
webmaster@1	1393 $header_parsed[trim($tag)] = trim($contents);
webmaster@1	1394 }
webmaster@1	1395 }
webmaster@1	1396 return $header_parsed;
webmaster@1	1397 }
webmaster@1	1398
webmaster@1	1399 /**
webmaster@1	1400 * Parses a Plural-Forms entry from a Gettext Portable Object file header
webmaster@1	1401 *
webmaster@1	1402 * @param $pluralforms
webmaster@1	1403 * A string containing the Plural-Forms entry
webmaster@1	1404 * @param $filename
webmaster@1	1405 * A string containing the filename
webmaster@1	1406 * @return
webmaster@1	1407 * An array containing the number of plurals and a
webmaster@1	1408 * formula in PHP for computing the plural form
webmaster@1	1409 */
webmaster@1	1410 function _locale_import_parse_plural_forms($pluralforms, $filename) {
webmaster@1	1411 // First, delete all whitespace
webmaster@1	1412 $pluralforms = strtr($pluralforms, array(" " => "", "\t" => ""));
webmaster@1	1413
webmaster@1	1414 // Select the parts that define nplurals and plural
webmaster@1	1415 $nplurals = strstr($pluralforms, "nplurals=");
webmaster@1	1416 if (strpos($nplurals, ";")) {
webmaster@1	1417 $nplurals = substr($nplurals, 9, strpos($nplurals, ";") - 9);
webmaster@1	1418 }
webmaster@1	1419 else {
webmaster@1	1420 return FALSE;
webmaster@1	1421 }
webmaster@1	1422 $plural = strstr($pluralforms, "plural=");
webmaster@1	1423 if (strpos($plural, ";")) {
webmaster@1	1424 $plural = substr($plural, 7, strpos($plural, ";") - 7);
webmaster@1	1425 }
webmaster@1	1426 else {
webmaster@1	1427 return FALSE;
webmaster@1	1428 }
webmaster@1	1429
webmaster@1	1430 // Get PHP version of the plural formula
webmaster@1	1431 $plural = _locale_import_parse_arithmetic($plural);
webmaster@1	1432
webmaster@1	1433 if ($plural !== FALSE) {
webmaster@1	1434 return array($nplurals, $plural);
webmaster@1	1435 }
webmaster@1	1436 else {
webmaster@1	1437 drupal_set_message(t('The translation file %filename contains an error: the plural formula could not be parsed.', array('%filename' => $filename)), 'error');
webmaster@1	1438 return FALSE;
webmaster@1	1439 }
webmaster@1	1440 }
webmaster@1	1441
webmaster@1	1442 /**
webmaster@1	1443 * Parses and sanitizes an arithmetic formula into a PHP expression
webmaster@1	1444 *
webmaster@1	1445 * While parsing, we ensure, that the operators have the right
webmaster@1	1446 * precedence and associativity.
webmaster@1	1447 *
webmaster@1	1448 * @param $string
webmaster@1	1449 * A string containing the arithmetic formula
webmaster@1	1450 * @return
webmaster@1	1451 * The PHP version of the formula
webmaster@1	1452 */
webmaster@1	1453 function _locale_import_parse_arithmetic($string) {
webmaster@1	1454 // Operator precedence table
webmaster@1	1455 $prec = array("(" => -1, ")" => -1, "?" => 1, ":" => 1, "\|\|" => 3, "&&" => 4, "==" => 5, "!=" => 5, "<" => 6, ">" => 6, "<=" => 6, ">=" => 6, "+" => 7, "-" => 7, "*" => 8, "/" => 8, "%" => 8);
webmaster@1	1456 // Right associativity
webmaster@1	1457 $rasc = array("?" => 1, ":" => 1);
webmaster@1	1458
webmaster@1	1459 $tokens = _locale_import_tokenize_formula($string);
webmaster@1	1460
webmaster@1	1461 // Parse by converting into infix notation then back into postfix
webmaster@1	1462 $opstk = array();
webmaster@1	1463 $elstk = array();
webmaster@1	1464
webmaster@1	1465 foreach ($tokens as $token) {
webmaster@1	1466 $ctok = $token;
webmaster@1	1467
webmaster@1	1468 // Numbers and the $n variable are simply pushed into $elarr
webmaster@1	1469 if (is_numeric($token)) {
webmaster@1	1470 $elstk[] = $ctok;
webmaster@1	1471 }
webmaster@1	1472 elseif ($ctok == "n") {
webmaster@1	1473 $elstk[] = '$n';
webmaster@1	1474 }
webmaster@1	1475 elseif ($ctok == "(") {
webmaster@1	1476 $opstk[] = $ctok;
webmaster@1	1477 }
webmaster@1	1478 elseif ($ctok == ")") {
webmaster@1	1479 $topop = array_pop($opstk);
webmaster@1	1480 while (isset($topop) && ($topop != "(")) {
webmaster@1	1481 $elstk[] = $topop;
webmaster@1	1482 $topop = array_pop($opstk);
webmaster@1	1483 }
webmaster@1	1484 }
webmaster@1	1485 elseif (!empty($prec[$ctok])) {
webmaster@1	1486 // If it's an operator, then pop from $oparr into $elarr until the
webmaster@1	1487 // precedence in $oparr is less than current, then push into $oparr
webmaster@1	1488 $topop = array_pop($opstk);
webmaster@1	1489 while (isset($topop) && ($prec[$topop] >= $prec[$ctok]) && !(($prec[$topop] == $prec[$ctok]) && !empty($rasc[$topop]) && !empty($rasc[$ctok]))) {
webmaster@1	1490 $elstk[] = $topop;
webmaster@1	1491 $topop = array_pop($opstk);
webmaster@1	1492 }
webmaster@1	1493 if ($topop) {
webmaster@1	1494 $opstk[] = $topop; // Return element to top
webmaster@1	1495 }
webmaster@1	1496 $opstk[] = $ctok; // Parentheses are not needed
webmaster@1	1497 }
webmaster@1	1498 else {
webmaster@1	1499 return FALSE;
webmaster@1	1500 }
webmaster@1	1501 }
webmaster@1	1502
webmaster@1	1503 // Flush operator stack
webmaster@1	1504 $topop = array_pop($opstk);
webmaster@1	1505 while ($topop != NULL) {
webmaster@1	1506 $elstk[] = $topop;
webmaster@1	1507 $topop = array_pop($opstk);
webmaster@1	1508 }
webmaster@1	1509
webmaster@1	1510 // Now extract formula from stack
webmaster@1	1511 $prevsize = count($elstk) + 1;
webmaster@1	1512 while (count($elstk) < $prevsize) {
webmaster@1	1513 $prevsize = count($elstk);
webmaster@1	1514 for ($i = 2; $i < count($elstk); $i++) {
webmaster@1	1515 $op = $elstk[$i];
webmaster@1	1516 if (!empty($prec[$op])) {
webmaster@1	1517 $f = "";
webmaster@1	1518 if ($op == ":") {
webmaster@1	1519 $f = $elstk[$i - 2] ."):". $elstk[$i - 1] .")";
webmaster@1	1520 }
webmaster@1	1521 elseif ($op == "?") {
webmaster@1	1522 $f = "(". $elstk[$i - 2] ."?(". $elstk[$i - 1];
webmaster@1	1523 }
webmaster@1	1524 else {
webmaster@1	1525 $f = "(". $elstk[$i - 2] . $op . $elstk[$i - 1] .")";
webmaster@1	1526 }
webmaster@1	1527 array_splice($elstk, $i - 2, 3, $f);
webmaster@1	1528 break;
webmaster@1	1529 }
webmaster@1	1530 }
webmaster@1	1531 }
webmaster@1	1532
webmaster@1	1533 // If only one element is left, the number of operators is appropriate
webmaster@1	1534 if (count($elstk) == 1) {
webmaster@1	1535 return $elstk[0];
webmaster@1	1536 }
webmaster@1	1537 else {
webmaster@1	1538 return FALSE;
webmaster@1	1539 }
webmaster@1	1540 }
webmaster@1	1541
webmaster@1	1542 /**
webmaster@1	1543 * Backward compatible implementation of token_get_all() for formula parsing
webmaster@1	1544 *
webmaster@1	1545 * @param $string
webmaster@1	1546 * A string containing the arithmetic formula
webmaster@1	1547 * @return
webmaster@1	1548 * The PHP version of the formula
webmaster@1	1549 */
webmaster@1	1550 function _locale_import_tokenize_formula($formula) {
webmaster@1	1551 $formula = str_replace(" ", "", $formula);
webmaster@1	1552 $tokens = array();
webmaster@1	1553 for ($i = 0; $i < strlen($formula); $i++) {
webmaster@1	1554 if (is_numeric($formula[$i])) {
webmaster@1	1555 $num = $formula[$i];
webmaster@1	1556 $j = $i + 1;
webmaster@1	1557 while ($j < strlen($formula) && is_numeric($formula[$j])) {
webmaster@1	1558 $num .= $formula[$j];
webmaster@1	1559 $j++;
webmaster@1	1560 }
webmaster@1	1561 $i = $j - 1;
webmaster@1	1562 $tokens[] = $num;
webmaster@1	1563 }
webmaster@1	1564 elseif ($pos = strpos(" =<>!&\|", $formula[$i])) { // We won't have a space
webmaster@1	1565 $next = $formula[$i + 1];
webmaster@1	1566 switch ($pos) {
webmaster@1	1567 case 1:
webmaster@1	1568 case 2:
webmaster@1	1569 case 3:
webmaster@1	1570 case 4:
webmaster@1	1571 if ($next == '=') {
webmaster@1	1572 $tokens[] = $formula[$i] .'=';
webmaster@1	1573 $i++;
webmaster@1	1574 }
webmaster@1	1575 else {
webmaster@1	1576 $tokens[] = $formula[$i];
webmaster@1	1577 }
webmaster@1	1578 break;
webmaster@1	1579 case 5:
webmaster@1	1580 if ($next == '&') {
webmaster@1	1581 $tokens[] = '&&';
webmaster@1	1582 $i++;
webmaster@1	1583 }
webmaster@1	1584 else {
webmaster@1	1585 $tokens[] = $formula[$i];
webmaster@1	1586 }
webmaster@1	1587 break;
webmaster@1	1588 case 6:
webmaster@1	1589 if ($next == '\|') {
webmaster@1	1590 $tokens[] = '\|\|';
webmaster@1	1591 $i++;
webmaster@1	1592 }
webmaster@1	1593 else {
webmaster@1	1594 $tokens[] = $formula[$i];
webmaster@1	1595 }
webmaster@1	1596 break;
webmaster@1	1597 }
webmaster@1	1598 }
webmaster@1	1599 else {
webmaster@1	1600 $tokens[] = $formula[$i];
webmaster@1	1601 }
webmaster@1	1602 }
webmaster@1	1603 return $tokens;
webmaster@1	1604 }
webmaster@1	1605
webmaster@1	1606 /**
webmaster@1	1607 * Modify a string to contain proper count indices
webmaster@1	1608 *
webmaster@1	1609 * This is a callback function used via array_map()
webmaster@1	1610 *
webmaster@1	1611 * @param $entry
webmaster@1	1612 * An array element
webmaster@1	1613 * @param $key
webmaster@1	1614 * Index of the array element
webmaster@1	1615 */
webmaster@1	1616 function _locale_import_append_plural($entry, $key) {
webmaster@1	1617 // No modifications for 0, 1
webmaster@1	1618 if ($key == 0 \|\| $key == 1) {
webmaster@1	1619 return $entry;
webmaster@1	1620 }
webmaster@1	1621
webmaster@1	1622 // First remove any possibly false indices, then add new ones
webmaster@1	1623 $entry = preg_replace('/(@count)\[[0-9]\]/', '\\1', $entry);
webmaster@1	1624 return preg_replace('/(@count)/', "\\1[$key]", $entry);
webmaster@1	1625 }
webmaster@1	1626
webmaster@1	1627 /**
webmaster@1	1628 * Generate a short, one string version of the passed comment array
webmaster@1	1629 *
webmaster@1	1630 * @param $comment
webmaster@1	1631 * An array of strings containing a comment
webmaster@1	1632 * @return
webmaster@1	1633 * Short one string version of the comment
webmaster@1	1634 */
webmaster@1	1635 function _locale_import_shorten_comments($comment) {
webmaster@1	1636 $comm = '';
webmaster@1	1637 while (count($comment)) {
webmaster@1	1638 $test = $comm . substr(array_shift($comment), 1) .', ';
webmaster@1	1639 if (strlen($comm) < 130) {
webmaster@1	1640 $comm = $test;
webmaster@1	1641 }
webmaster@1	1642 else {
webmaster@1	1643 break;
webmaster@1	1644 }
webmaster@1	1645 }
webmaster@1	1646 return substr($comm, 0, -2);
webmaster@1	1647 }
webmaster@1	1648
webmaster@1	1649 /**
webmaster@1	1650 * Parses a string in quotes
webmaster@1	1651 *
webmaster@1	1652 * @param $string
webmaster@1	1653 * A string specified with enclosing quotes
webmaster@1	1654 * @return
webmaster@1	1655 * The string parsed from inside the quotes
webmaster@1	1656 */
webmaster@1	1657 function _locale_import_parse_quoted($string) {
webmaster@1	1658 if (substr($string, 0, 1) != substr($string, -1, 1)) {
webmaster@1	1659 return FALSE; // Start and end quotes must be the same
webmaster@1	1660 }
webmaster@1	1661 $quote = substr($string, 0, 1);
webmaster@1	1662 $string = substr($string, 1, -1);
webmaster@1	1663 if ($quote == '"') { // Double quotes: strip slashes
webmaster@1	1664 return stripcslashes($string);
webmaster@1	1665 }
webmaster@1	1666 elseif ($quote == "'") { // Simple quote: return as-is
webmaster@1	1667 return $string;
webmaster@1	1668 }
webmaster@1	1669 else {
webmaster@1	1670 return FALSE; // Unrecognized quote
webmaster@1	1671 }
webmaster@1	1672 }
webmaster@1	1673 /**
webmaster@1	1674 * @} End of "locale-api-import"
webmaster@1	1675 */
webmaster@1	1676
webmaster@1	1677 /**
webmaster@1	1678 * Parses a JavaScript file, extracts strings wrapped in Drupal.t() and
webmaster@1	1679 * Drupal.formatPlural() and inserts them into the database.
webmaster@1	1680 */
webmaster@1	1681 function _locale_parse_js_file($filepath) {
webmaster@1	1682 global $language;
webmaster@1	1683
webmaster@1	1684 // Load the JavaScript file.
webmaster@1	1685 $file = file_get_contents($filepath);
webmaster@1	1686
webmaster@1	1687 // Match all calls to Drupal.t() in an array.
webmaster@1	1688 // Note: \s also matches newlines with the 's' modifier.
webmaster@1	1689 preg_match_all('~[^\w]Drupal\s\.\st\s$\s('. LOCALE_JS_STRING .')\s*[,$]~s', $file, $t_matches);
webmaster@1	1690
webmaster@1	1691 // Match all Drupal.formatPlural() calls in another array.
webmaster@1	1692 preg_match_all('~[^\w]Drupal\s\.\sformatPlural\s$\s.+?\s,\s('. LOCALE_JS_STRING .')\s,\s((?:(?:\'(?:\\\\\'\|[^\'])@count(?:\\\\\'\|[^\'])\'\|"(?:\\\\"\|[^"])@count(?:\\\\"\|[^"])")(?:\s\+\s)?)+)\s*[,$]~s', $file, $plural_matches);
webmaster@1	1693
webmaster@1	1694 // Loop through all matches and process them.
webmaster@1	1695 $all_matches = array_merge($plural_matches[1], $t_matches[1]);
webmaster@1	1696 foreach ($all_matches as $key => $string) {
webmaster@1	1697 $strings = array($string);
webmaster@1	1698
webmaster@1	1699 // If there is also a plural version of this string, add it to the strings array.
webmaster@1	1700 if (isset($plural_matches[2][$key])) {
webmaster@1	1701 $strings[] = $plural_matches[2][$key];
webmaster@1	1702 }
webmaster@1	1703
webmaster@1	1704 foreach ($strings as $key => $string) {
webmaster@1	1705 // Remove the quotes and string concatenations from the string.
webmaster@1	1706 $string = implode('', preg_split('~(?<!\\\\)[\'"]\s\+\s[\'"]~s', substr($string, 1, -1)));
webmaster@1	1707
webmaster@1	1708 $result = db_query("SELECT lid, location FROM {locales_source} WHERE source = '%s' AND textgroup = 'default'", $string);
webmaster@1	1709 if ($source = db_fetch_object($result)) {
webmaster@1	1710 // We already have this source string and now have to add the location
webmaster@1	1711 // to the location column, if this file is not yet present in there.
webmaster@1	1712 $locations = preg_split('~\s;\s~', $source->location);
webmaster@1	1713
webmaster@1	1714 if (!in_array($filepath, $locations)) {
webmaster@1	1715 $locations[] = $filepath;
webmaster@1	1716 $locations = implode('; ', $locations);
webmaster@1	1717
webmaster@1	1718 // Save the new locations string to the database.
webmaster@1	1719 db_query("UPDATE {locales_source} SET location = '%s' WHERE lid = %d", $locations, $source->lid);
webmaster@1	1720 }
webmaster@1	1721 }
webmaster@1	1722 else {
webmaster@1	1723 // We don't have the source string yet, thus we insert it into the database.
webmaster@1	1724 db_query("INSERT INTO {locales_source} (location, source, textgroup) VALUES ('%s', '%s', 'default')", $filepath, $string);
webmaster@1	1725 }
webmaster@1	1726 }
webmaster@1	1727 }
webmaster@1	1728 }
webmaster@1	1729
webmaster@1	1730 /**
webmaster@1	1731 * @defgroup locale-api-export Translation (template) export API.
webmaster@1	1732 * @{
webmaster@1	1733 */
webmaster@1	1734
webmaster@1	1735 /**
webmaster@1	1736 * Generates a structured array of all strings with translations in
webmaster@1	1737 * $language, if given. This array can be used to generate an export
webmaster@1	1738 * of the string in the database.
webmaster@1	1739 *
webmaster@1	1740 * @param $language
webmaster@1	1741 * Language object to generate the output for, or NULL if generating
webmaster@1	1742 * translation template.
webmaster@1	1743 * @param $group
webmaster@1	1744 * Text group to export PO file from (eg. 'default' for interface translations)
webmaster@1	1745 */
webmaster@1	1746 function _locale_export_get_strings($language = NULL, $group = 'default') {
webmaster@1	1747 if (isset($language)) {
webmaster@1	1748 $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	1749 }
webmaster@1	1750 else {
webmaster@1	1751 $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	1752 }
webmaster@1	1753 $strings = array();
webmaster@1	1754 while ($child = db_fetch_object($result)) {
webmaster@1	1755 $string = array(
webmaster@1	1756 'comment' => $child->location,
webmaster@1	1757 'source' => $child->source,
webmaster@1	1758 'translation' => isset($child->translation) ? $child->translation : ''
webmaster@1	1759 );
webmaster@1	1760 if ($child->plid) {
webmaster@1	1761 // Has a parent lid. Since we process in the order of plids,
webmaster@1	1762 // we already have the parent in the array, so we can add the
webmaster@1	1763 // lid to the next plural version to it. This builds a linked
webmaster@1	1764 // list of plurals.
webmaster@1	1765 $string['child'] = TRUE;
webmaster@1	1766 $strings[$child->plid]['plural'] = $child->lid;
webmaster@1	1767 }
webmaster@1	1768 $strings[$child->lid] = $string;
webmaster@1	1769 }
webmaster@1	1770 return $strings;
webmaster@1	1771 }
webmaster@1	1772
webmaster@1	1773 /**
webmaster@1	1774 * Generates the PO(T) file contents for given strings.
webmaster@1	1775 *
webmaster@1	1776 * @param $language
webmaster@1	1777 * Language object to generate the output for, or NULL if generating
webmaster@1	1778 * translation template.
webmaster@1	1779 * @param $strings
webmaster@1	1780 * Array of strings to export. See _locale_export_get_strings()
webmaster@1	1781 * on how it should be formatted.
webmaster@1	1782 * @param $header
webmaster@1	1783 * The header portion to use for the output file. Defaults
webmaster@1	1784 * are provided for PO and POT files.
webmaster@1	1785 */
webmaster@1	1786 function _locale_export_po_generate($language = NULL, $strings = array(), $header = NULL) {
webmaster@1	1787 global $user;
webmaster@1	1788
webmaster@1	1789 if (!isset($header)) {
webmaster@1	1790 if (isset($language)) {
webmaster@1	1791 $header = '# '. $language->name .' translation of '. variable_get('site_name', 'Drupal') ."\n";
webmaster@1	1792 $header .= '# Generated by '. $user->name .' <'. $user->mail .">\n";
webmaster@1	1793 $header .= "#\n";
webmaster@1	1794 $header .= "msgid \"\"\n";
webmaster@1	1795 $header .= "msgstr \"\"\n";
webmaster@1	1796 $header .= "\"Project-Id-Version: PROJECT VERSION\\n\"\n";
webmaster@1	1797 $header .= "\"POT-Creation-Date: ". date("Y-m-d H:iO") ."\\n\"\n";
webmaster@1	1798 $header .= "\"PO-Revision-Date: ". date("Y-m-d H:iO") ."\\n\"\n";
webmaster@1	1799 $header .= "\"Last-Translator: NAME <EMAIL@ADDRESS>\\n\"\n";
webmaster@1	1800 $header .= "\"Language-Team: LANGUAGE <EMAIL@ADDRESS>\\n\"\n";
webmaster@1	1801 $header .= "\"MIME-Version: 1.0\\n\"\n";
webmaster@1	1802 $header .= "\"Content-Type: text/plain; charset=utf-8\\n\"\n";
webmaster@1	1803 $header .= "\"Content-Transfer-Encoding: 8bit\\n\"\n";
webmaster@1	1804 if ($language->formula && $language->plurals) {
webmaster@1	1805 $header .= "\"Plural-Forms: nplurals=". $language->plurals ."; plural=". strtr($language->formula, array('$' => '')) .";\\n\"\n";
webmaster@1	1806 }
webmaster@1	1807 }
webmaster@1	1808 else {
webmaster@1	1809 $header = "# LANGUAGE translation of PROJECT\n";
webmaster@1	1810 $header .= "# Copyright (c) YEAR NAME <EMAIL@ADDRESS>\n";
webmaster@1	1811 $header .= "#\n";
webmaster@1	1812 $header .= "msgid \"\"\n";
webmaster@1	1813 $header .= "msgstr \"\"\n";
webmaster@1	1814 $header .= "\"Project-Id-Version: PROJECT VERSION\\n\"\n";
webmaster@1	1815 $header .= "\"POT-Creation-Date: ". date("Y-m-d H:iO") ."\\n\"\n";
webmaster@1	1816 $header .= "\"PO-Revision-Date: YYYY-mm-DD HH:MM+ZZZZ\\n\"\n";
webmaster@1	1817 $header .= "\"Last-Translator: NAME <EMAIL@ADDRESS>\\n\"\n";
webmaster@1	1818 $header .= "\"Language-Team: LANGUAGE <EMAIL@ADDRESS>\\n\"\n";
webmaster@1	1819 $header .= "\"MIME-Version: 1.0\\n\"\n";
webmaster@1	1820 $header .= "\"Content-Type: text/plain; charset=utf-8\\n\"\n";
webmaster@1	1821 $header .= "\"Content-Transfer-Encoding: 8bit\\n\"\n";
webmaster@1	1822 $header .= "\"Plural-Forms: nplurals=INTEGER; plural=EXPRESSION;\\n\"\n";
webmaster@1	1823 }
webmaster@1	1824 }
webmaster@1	1825
webmaster@1	1826 $output = $header ."\n";
webmaster@1	1827
webmaster@1	1828 foreach ($strings as $lid => $string) {
webmaster@1	1829 // Only process non-children, children are output below their parent.
webmaster@1	1830 if (!isset($string['child'])) {
webmaster@1	1831 if ($string['comment']) {
webmaster@1	1832 $output .= '#: '. $string['comment'] ."\n";
webmaster@1	1833 }
webmaster@1	1834 $output .= 'msgid '. _locale_export_string($string['source']);
webmaster@1	1835 if (!empty($string['plural'])) {
webmaster@1	1836 $plural = $string['plural'];
webmaster@1	1837 $output .= 'msgid_plural '. _locale_export_string($strings[$plural]['source']);
webmaster@1	1838 if (isset($language)) {
webmaster@1	1839 $translation = $string['translation'];
webmaster@1	1840 for ($i = 0; $i < $language->plurals; $i++) {
webmaster@1	1841 $output .= 'msgstr['. $i .'] '. _locale_export_string($translation);
webmaster@1	1842 if ($plural) {
webmaster@1	1843 $translation = _locale_export_remove_plural($strings[$plural]['translation']);
webmaster@1	1844 $plural = isset($strings[$plural]['plural']) ? $strings[$plural]['plural'] : 0;
webmaster@1	1845 }
webmaster@1	1846 else {
webmaster@1	1847 $translation = '';
webmaster@1	1848 }
webmaster@1	1849 }
webmaster@1	1850 }
webmaster@1	1851 else {
webmaster@1	1852 $output .= 'msgstr[0] ""'."\n";
webmaster@1	1853 $output .= 'msgstr[1] ""'."\n";
webmaster@1	1854 }
webmaster@1	1855 }
webmaster@1	1856 else {
webmaster@1	1857 $output .= 'msgstr '. _locale_export_string($string['translation']);
webmaster@1	1858 }
webmaster@1	1859 $output .= "\n";
webmaster@1	1860 }
webmaster@1	1861 }
webmaster@1	1862 return $output;
webmaster@1	1863 }
webmaster@1	1864
webmaster@1	1865 /**
webmaster@1	1866 * Write a generated PO or POT file to the output.
webmaster@1	1867 *
webmaster@1	1868 * @param $language
webmaster@1	1869 * Language object to generate the output for, or NULL if generating
webmaster@1	1870 * translation template.
webmaster@1	1871 * @param $output
webmaster@1	1872 * The PO(T) file to output as a string. See _locale_export_generate_po()
webmaster@1	1873 * on how it can be generated.
webmaster@1	1874 */
webmaster@1	1875 function _locale_export_po($language = NULL, $output = NULL) {
webmaster@1	1876 // Log the export event.
webmaster@1	1877 if (isset($language)) {
webmaster@1	1878 $filename = $language->language .'.po';
webmaster@1	1879 watchdog('locale', 'Exported %locale translation file: %filename.', array('%locale' => $language->name, '%filename' => $filename));
webmaster@1	1880 }
webmaster@1	1881 else {
webmaster@1	1882 $filename = 'drupal.pot';
webmaster@1	1883 watchdog('locale', 'Exported translation file: %filename.', array('%filename' => $filename));
webmaster@1	1884 }
webmaster@1	1885 // Download the file fo the client.
webmaster@1	1886 header("Content-Disposition: attachment; filename=$filename");
webmaster@1	1887 header("Content-Type: text/plain; charset=utf-8");
webmaster@1	1888 print $output;
webmaster@1	1889 die();
webmaster@1	1890 }
webmaster@1	1891
webmaster@1	1892 /**
webmaster@1	1893 * Print out a string on multiple lines
webmaster@1	1894 */
webmaster@1	1895 function _locale_export_string($str) {
webmaster@1	1896 $stri = addcslashes($str, "\0..\37\\\"");
webmaster@1	1897 $parts = array();
webmaster@1	1898
webmaster@1	1899 // Cut text into several lines
webmaster@1	1900 while ($stri != "") {
webmaster@1	1901 $i = strpos($stri, "\\n");
webmaster@1	1902 if ($i === FALSE) {
webmaster@1	1903 $curstr = $stri;
webmaster@1	1904 $stri = "";
webmaster@1	1905 }
webmaster@1	1906 else {
webmaster@1	1907 $curstr = substr($stri, 0, $i + 2);
webmaster@1	1908 $stri = substr($stri, $i + 2);
webmaster@1	1909 }
webmaster@1	1910 $curparts = explode("\n", _locale_export_wrap($curstr, 70));
webmaster@1	1911 $parts = array_merge($parts, $curparts);
webmaster@1	1912 }
webmaster@1	1913
webmaster@1	1914 // Multiline string
webmaster@1	1915 if (count($parts) > 1) {
webmaster@1	1916 return "\"\"\n\"". implode("\"\n\"", $parts) ."\"\n";
webmaster@1	1917 }
webmaster@1	1918 // Single line string
webmaster@1	1919 elseif (count($parts) == 1) {
webmaster@1	1920 return "\"$parts[0]\"\n";
webmaster@1	1921 }
webmaster@1	1922 // No translation
webmaster@1	1923 else {
webmaster@1	1924 return "\"\"\n";
webmaster@1	1925 }
webmaster@1	1926 }
webmaster@1	1927
webmaster@1	1928 /**
webmaster@1	1929 * Custom word wrapping for Portable Object (Template) files.
webmaster@1	1930 */
webmaster@1	1931 function _locale_export_wrap($str, $len) {
webmaster@1	1932 $words = explode(' ', $str);
webmaster@1	1933 $ret = array();
webmaster@1	1934
webmaster@1	1935 $cur = "";
webmaster@1	1936 $nstr = 1;
webmaster@1	1937 while (count($words)) {
webmaster@1	1938 $word = array_shift($words);
webmaster@1	1939 if ($nstr) {
webmaster@1	1940 $cur = $word;
webmaster@1	1941 $nstr = 0;
webmaster@1	1942 }
webmaster@1	1943 elseif (strlen("$cur $word") > $len) {
webmaster@1	1944 $ret[] = $cur ." ";
webmaster@1	1945 $cur = $word;
webmaster@1	1946 }
webmaster@1	1947 else {
webmaster@1	1948 $cur = "$cur $word";
webmaster@1	1949 }
webmaster@1	1950 }
webmaster@1	1951 $ret[] = $cur;
webmaster@1	1952
webmaster@1	1953 return implode("\n", $ret);
webmaster@1	1954 }
webmaster@1	1955
webmaster@1	1956 /**
webmaster@1	1957 * Removes plural index information from a string
webmaster@1	1958 */
webmaster@1	1959 function _locale_export_remove_plural($entry) {
webmaster@1	1960 return preg_replace('/(@count)\[[0-9]\]/', '\\1', $entry);
webmaster@1	1961 }
webmaster@1	1962 /**
webmaster@1	1963 * @} End of "locale-api-export"
webmaster@1	1964 */
webmaster@1	1965
webmaster@1	1966 /**
webmaster@1	1967 * @defgroup locale-api-seek String search functions.
webmaster@1	1968 * @{
webmaster@1	1969 */
webmaster@1	1970
webmaster@1	1971 /**
webmaster@1	1972 * Perform a string search and display results in a table
webmaster@1	1973 */
webmaster@1	1974 function _locale_translate_seek() {
webmaster@1	1975 $output = '';
webmaster@1	1976
webmaster@1	1977 // We have at least one criterion to match
webmaster@1	1978 if ($query = _locale_translate_seek_query()) {
webmaster@1	1979 $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	1980
webmaster@1	1981 $arguments = array();
webmaster@1	1982 $limit_language = FALSE;
webmaster@1	1983 // Compute LIKE section
webmaster@1	1984 switch ($query['translation']) {
webmaster@1	1985 case 'translated':
webmaster@1	1986 $where = "WHERE (t.translation LIKE '%%%s%%')";
webmaster@1	1987 $orderby = "ORDER BY t.translation";
webmaster@1	1988 $arguments[] = $query['string'];
webmaster@1	1989 break;
webmaster@1	1990 case 'untranslated':
webmaster@1	1991 $where = "WHERE (s.source LIKE '%%%s%%' AND t.translation IS NULL)";
webmaster@1	1992 $orderby = "ORDER BY s.source";
webmaster@1	1993 $arguments[] = $query['string'];
webmaster@1	1994 break;
webmaster@1	1995 case 'all' :
webmaster@1	1996 default:
webmaster@1	1997 $where = "WHERE (s.source LIKE '%%%s%%' OR t.translation LIKE '%%%s%%')";
webmaster@1	1998 $orderby = '';
webmaster@1	1999 $arguments[] = $query['string'];
webmaster@1	2000 $arguments[] = $query['string'];
webmaster@1	2001 break;
webmaster@1	2002 }
webmaster@1	2003 $grouplimit = '';
webmaster@1	2004 if (!empty($query['group']) && $query['group'] != 'all') {
webmaster@1	2005 $grouplimit = " AND s.textgroup = '%s'";
webmaster@1	2006 $arguments[] = $query['group'];
webmaster@1	2007 }
webmaster@1	2008
webmaster@1	2009 switch ($query['language']) {
webmaster@1	2010 // Force search in source strings
webmaster@1	2011 case "en":
webmaster@1	2012 $sql = $join ." WHERE s.source LIKE '%%%s%%' $grouplimit ORDER BY s.source";
webmaster@1	2013 $arguments = array($query['string']); // $where is not used, discard its arguments
webmaster@1	2014 if (!empty($grouplimit)) {
webmaster@1	2015 $arguments[] = $query['group'];
webmaster@1	2016 }
webmaster@1	2017 break;
webmaster@1	2018 // Search in all languages
webmaster@1	2019 case "all":
webmaster@1	2020 $sql = "$join $where $grouplimit $orderby";
webmaster@1	2021 break;
webmaster@1	2022 // Some different language
webmaster@1	2023 default:
webmaster@1	2024 $sql = "$join AND t.language = '%s' $where $grouplimit $orderby";
webmaster@1	2025 array_unshift($arguments, $query['language']);
webmaster@1	2026 // Don't show translation flags for other languages, we can't see them with this search.
webmaster@1	2027 $limit_language = $query['language'];
webmaster@1	2028 }
webmaster@1	2029
webmaster@1	2030 $result = pager_query($sql, 50, 0, NULL, $arguments);
webmaster@1	2031
webmaster@1	2032 $groups = module_invoke_all('locale', 'groups');
webmaster@1	2033 $header = array(t('Text group'), t('String'), ($limit_language) ? t('Language') : t('Languages'), array('data' => t('Operations'), 'colspan' => '2'));
webmaster@1	2034 $arr = array();
webmaster@1	2035 while ($locale = db_fetch_object($result)) {
webmaster@1	2036 $arr[$locale->lid]['group'] = $groups[$locale->textgroup];
webmaster@1	2037 $arr[$locale->lid]['languages'][$locale->language] = $locale->translation;
webmaster@1	2038 $arr[$locale->lid]['location'] = $locale->location;
webmaster@1	2039 $arr[$locale->lid]['source'] = $locale->source;
webmaster@1	2040 }
webmaster@1	2041 $rows = array();
webmaster@1	2042 foreach ($arr as $lid => $value) {
webmaster@1	2043 $rows[] = array(
webmaster@1	2044 $value['group'],
webmaster@1	2045 array('data' => check_plain(truncate_utf8($value['source'], 150, FALSE, TRUE)) .'<br /><small>'. $value['location'] .'</small>'),
webmaster@1	2046 array('data' => _locale_translate_language_list($value['languages'], $limit_language), 'align' => 'center'),
webmaster@1	2047 array('data' => l(t('edit'), "admin/build/translate/edit/$lid"), 'class' => 'nowrap'),
webmaster@1	2048 array('data' => l(t('delete'), "admin/build/translate/delete/$lid"), 'class' => 'nowrap'),
webmaster@1	2049 );
webmaster@1	2050 }
webmaster@1	2051
webmaster@1	2052 if (count($rows)) {
webmaster@1	2053 $output .= theme('table', $header, $rows);
webmaster@1	2054 if ($pager = theme('pager', NULL, 50)) {
webmaster@1	2055 $output .= $pager;
webmaster@1	2056 }
webmaster@1	2057 }
webmaster@1	2058 else {
webmaster@1	2059 $output .= t('No strings found for your search.');
webmaster@1	2060 }
webmaster@1	2061 }
webmaster@1	2062
webmaster@1	2063 return $output;
webmaster@1	2064 }
webmaster@1	2065
webmaster@1	2066 /**
webmaster@1	2067 * Build array out of search criteria specified in request variables
webmaster@1	2068 */
webmaster@1	2069 function _locale_translate_seek_query() {
webmaster@1	2070 static $query = NULL;
webmaster@1	2071 if (!isset($query)) {
webmaster@1	2072 $query = array();
webmaster@1	2073 $fields = array('string', 'language', 'translation', 'group');
webmaster@1	2074 foreach ($fields as $field) {
webmaster@1	2075 if (isset($_REQUEST[$field])) {
webmaster@1	2076 $query[$field] = $_REQUEST[$field];
webmaster@1	2077 }
webmaster@1	2078 }
webmaster@1	2079 }
webmaster@1	2080 return $query;
webmaster@1	2081 }
webmaster@1	2082
webmaster@1	2083 /**
webmaster@1	2084 * Force the JavaScript translation file(s) to be refreshed.
webmaster@1	2085 *
webmaster@1	2086 * This function sets a refresh flag for a specified language, or all
webmaster@1	2087 * languages except English, if none specified. JavaScript translation
webmaster@1	2088 * files are rebuilt (with locale_update_js_files()) the next time a
webmaster@1	2089 * request is served in that language.
webmaster@1	2090 *
webmaster@1	2091 * @param $langcode
webmaster@1	2092 * The language code for which the file needs to be refreshed.
webmaster@1	2093 * @return
webmaster@1	2094 * New content of the 'javascript_parsed' variable.
webmaster@1	2095 */
webmaster@1	2096 function _locale_invalidate_js($langcode = NULL) {
webmaster@1	2097 $parsed = variable_get('javascript_parsed', array());
webmaster@1	2098
webmaster@1	2099 if (empty($langcode)) {
webmaster@1	2100 // Invalidate all languages.
webmaster@1	2101 $languages = language_list();
webmaster@1	2102 unset($languages['en']);
webmaster@1	2103 foreach ($languages as $lcode => $data) {
webmaster@1	2104 $parsed['refresh:'. $lcode] = 'waiting';
webmaster@1	2105 }
webmaster@1	2106 }
webmaster@1	2107 else {
webmaster@1	2108 // Invalidate single language.
webmaster@1	2109 $parsed['refresh:'. $langcode] = 'waiting';
webmaster@1	2110 }
webmaster@1	2111
webmaster@1	2112 variable_set('javascript_parsed', $parsed);
webmaster@1	2113 return $parsed;
webmaster@1	2114 }
webmaster@1	2115
webmaster@1	2116 /**
webmaster@1	2117 * (Re-)Creates the JavaScript translation file for a language.
webmaster@1	2118 *
webmaster@1	2119 * @param $language
webmaster@1	2120 * The language, the translation file should be (re)created for.
webmaster@1	2121 */
webmaster@1	2122 function _locale_rebuild_js($langcode = NULL) {
webmaster@1	2123 if (!isset($langcode)) {
webmaster@1	2124 global $language;
webmaster@1	2125 }
webmaster@1	2126 else {
webmaster@1	2127 // Get information about the locale.
webmaster@1	2128 $languages = language_list();
webmaster@1	2129 $language = $languages[$langcode];
webmaster@1	2130 }
webmaster@1	2131
webmaster@1	2132 // Construct the array for JavaScript translations.
webmaster@1	2133 // We sort on plural so that we have all plural forms before singular forms.
webmaster@1	2134 $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	2135
webmaster@1	2136 $translations = $plurals = array();
webmaster@1	2137 while ($data = db_fetch_object($result)) {
webmaster@1	2138 // Only add this to the translations array when there is actually a translation.
webmaster@1	2139 if (!empty($data->translation)) {
webmaster@1	2140 if ($data->plural) {
webmaster@1	2141 // When the translation is a plural form, first add it to another array and
webmaster@1	2142 // wait for the singular (parent) translation.
webmaster@1	2143 if (!isset($plurals[$data->plid])) {
webmaster@1	2144 $plurals[$data->plid] = array($data->plural => $data->translation);
webmaster@1	2145 }
webmaster@1	2146 else {
webmaster@1	2147 $plurals[$data->plid] += array($data->plural => $data->translation);
webmaster@1	2148 }
webmaster@1	2149 }
webmaster@1	2150 elseif (isset($plurals[$data->lid])) {
webmaster@1	2151 // There are plural translations for this translation, so get them from
webmaster@1	2152 // the plurals array and add them to the final translations array.
webmaster@1	2153 $translations[$data->source] = array($data->plural => $data->translation) + $plurals[$data->lid];
webmaster@1	2154 unset($plurals[$data->lid]);
webmaster@1	2155 }
webmaster@1	2156 else {
webmaster@1	2157 // There are no plural forms for this translation, so just add it to
webmaster@1	2158 // the translations array.
webmaster@1	2159 $translations[$data->source] = $data->translation;
webmaster@1	2160 }
webmaster@1	2161 }
webmaster@1	2162 }
webmaster@1	2163
webmaster@1	2164 // Construct the JavaScript file, if there are translations.
webmaster@1	2165 $data = $status = '';
webmaster@1	2166 if (!empty($translations)) {
webmaster@1	2167
webmaster@1	2168 $data = "Drupal.locale = { ";
webmaster@1	2169
webmaster@1	2170 if (!empty($language->formula)) {
webmaster@1	2171 $data .= "'pluralFormula': function(\$n) { return Number({$language->formula}); }, ";
webmaster@1	2172 }
webmaster@1	2173
webmaster@1	2174 $data .= "'strings': ". drupal_to_js($translations) ." };";
webmaster@1	2175 $data_hash = md5($data);
webmaster@1	2176 }
webmaster@1	2177
webmaster@1	2178 // Construct the filepath where JS translation files are stored.
webmaster@1	2179 // There is (on purpose) no front end to edit that variable.
webmaster@1	2180 $dir = file_create_path(variable_get('locale_js_directory', 'languages'));
webmaster@1	2181
webmaster@1	2182 // Delete old file, if we have no translations anymore, or a different file to be saved.
webmaster@1	2183 if (!empty($language->javascript) && (!$data \|\| $language->javascript != $data_hash)) {
webmaster@1	2184 file_delete(file_create_path($dir .'/'. $language->language .'_'. $language->javascript .'.js'));
webmaster@1	2185 $language->javascript = '';
webmaster@1	2186 $status = 'deleted';
webmaster@1	2187 }
webmaster@1	2188
webmaster@1	2189 // Only create a new file if the content has changed.
webmaster@1	2190 if ($data && $language->javascript != $data_hash) {
webmaster@1	2191 // Ensure that the directory exists and is writable, if possible.
webmaster@1	2192 file_check_directory($dir, TRUE);
webmaster@1	2193
webmaster@1	2194 // Save the file.
webmaster@1	2195 $dest = $dir .'/'. $language->language .'_'. $data_hash .'.js';
webmaster@1	2196 if (file_save_data($data, $dest)) {
webmaster@1	2197 $language->javascript = $data_hash;
webmaster@1	2198 $status = ($status == 'deleted') ? 'updated' : 'created';
webmaster@1	2199 }
webmaster@1	2200 else {
webmaster@1	2201 $language->javascript = '';
webmaster@1	2202 $status = 'error';
webmaster@1	2203 }
webmaster@1	2204 }
webmaster@1	2205
webmaster@1	2206 // Save the new JavaScript hash (or an empty value if the file
webmaster@1	2207 // just got deleted). Act only if some operation was executed.
webmaster@1	2208 if ($status) {
webmaster@1	2209 db_query("UPDATE {languages} SET javascript = '%s' WHERE language = '%s'", $language->javascript, $language->language);
webmaster@1	2210
webmaster@1	2211 // Update the default language variable if the default language has been altered.
webmaster@1	2212 // This is necessary to keep the variable consistent with the database
webmaster@1	2213 // version of the language and to prevent checking against an outdated hash.
webmaster@1	2214 $default_langcode = language_default('language');
webmaster@1	2215 if ($default_langcode == $language->language) {
webmaster@1	2216 $default = db_fetch_object(db_query("SELECT * FROM {languages} WHERE language = '%s'", $default_langcode));
webmaster@1	2217 variable_set('language_default', $default);
webmaster@1	2218 }
webmaster@1	2219 }
webmaster@1	2220
webmaster@1	2221 // Log the operation and return success flag.
webmaster@1	2222 switch ($status) {
webmaster@1	2223 case 'updated':
webmaster@1	2224 watchdog('locale', 'Updated JavaScript translation file for the language %language.', array('%language' => t($language->name)));
webmaster@1	2225 return TRUE;
webmaster@1	2226 case 'created':
webmaster@1	2227 watchdog('locale', 'Created JavaScript translation file for the language %language.', array('%language' => t($language->name)));
webmaster@1	2228 return TRUE;
webmaster@1	2229 case 'deleted':
webmaster@1	2230 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	2231 return TRUE;
webmaster@1	2232 case 'error':
webmaster@1	2233 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	2234 return FALSE;
webmaster@1	2235 default:
webmaster@1	2236 // No operation needed.
webmaster@1	2237 return TRUE;
webmaster@1	2238 }
webmaster@1	2239 }
webmaster@1	2240
webmaster@1	2241 /**
webmaster@1	2242 * List languages in search result table
webmaster@1	2243 */
webmaster@1	2244 function _locale_translate_language_list($translation, $limit_language) {
webmaster@1	2245 // Add CSS
webmaster@1	2246 drupal_add_css(drupal_get_path('module', 'locale') .'/locale.css', 'module', 'all', FALSE);
webmaster@1	2247
webmaster@1	2248 $languages = language_list();
webmaster@1	2249 unset($languages['en']);
webmaster@1	2250 $output = '';
webmaster@1	2251 foreach ($languages as $langcode => $language) {
webmaster@1	2252 if (!$limit_language \|\| $limit_language == $langcode) {
webmaster@1	2253 $output .= (!empty($translation[$langcode])) ? $langcode .' ' : "<em class=\"locale-untranslated\">$langcode</em> ";
webmaster@1	2254 }
webmaster@1	2255 }
webmaster@1	2256
webmaster@1	2257 return $output;
webmaster@1	2258 }
webmaster@1	2259 /**
webmaster@1	2260 * @} End of "locale-api-seek"
webmaster@1	2261 */
webmaster@1	2262
webmaster@1	2263 /**
webmaster@1	2264 * @defgroup locale-api-predefined List of predefined languages
webmaster@1	2265 * @{
webmaster@1	2266 */
webmaster@1	2267
webmaster@1	2268 /**
webmaster@1	2269 * Prepares the language code list for a select form item with only the unsupported ones
webmaster@1	2270 */
webmaster@1	2271 function _locale_prepare_predefined_list() {
webmaster@1	2272 $languages = language_list();
webmaster@1	2273 $predefined = _locale_get_predefined_list();
webmaster@1	2274 foreach ($predefined as $key => $value) {
webmaster@1	2275 if (isset($languages[$key])) {
webmaster@1	2276 unset($predefined[$key]);
webmaster@1	2277 continue;
webmaster@1	2278 }
webmaster@1	2279 // Include native name in output, if possible
webmaster@1	2280 if (count($value) > 1) {
webmaster@1	2281 $tname = t($value[0]);
webmaster@1	2282 $predefined[$key] = ($tname == $value[1]) ? $tname : "$tname ($value[1])";
webmaster@1	2283 }
webmaster@1	2284 else {
webmaster@1	2285 $predefined[$key] = t($value[0]);
webmaster@1	2286 }
webmaster@1	2287 }
webmaster@1	2288 asort($predefined);
webmaster@1	2289 return $predefined;
webmaster@1	2290 }
webmaster@1	2291
webmaster@1	2292 /**
webmaster@1	2293 * Some of the common languages with their English and native names
webmaster@1	2294 *
webmaster@1	2295 * Based on ISO 639 and http://people.w3.org/rishida/names/languages.html
webmaster@1	2296 */
webmaster@1	2297 function _locale_get_predefined_list() {
webmaster@1	2298 return array(
webmaster@1	2299 "aa" => array("Afar"),
webmaster@1	2300 "ab" => array("Abkhazian", "аҧсуа бызшәа"),
webmaster@1	2301 "ae" => array("Avestan"),
webmaster@1	2302 "af" => array("Afrikaans"),
webmaster@1	2303 "ak" => array("Akan"),
webmaster@1	2304 "am" => array("Amharic", "አማርኛ"),
webmaster@1	2305 "ar" => array("Arabic", /* Left-to-right marker "‭" */ "العربية", LANGUAGE_RTL),
webmaster@1	2306 "as" => array("Assamese"),
webmaster@1	2307 "av" => array("Avar"),
webmaster@1	2308 "ay" => array("Aymara"),
webmaster@1	2309 "az" => array("Azerbaijani", "azərbaycan"),
webmaster@1	2310 "ba" => array("Bashkir"),
webmaster@1	2311 "be" => array("Belarusian", "Беларуская"),
webmaster@1	2312 "bg" => array("Bulgarian", "Български"),
webmaster@1	2313 "bh" => array("Bihari"),
webmaster@1	2314 "bi" => array("Bislama"),
webmaster@1	2315 "bm" => array("Bambara", "Bamanankan"),
webmaster@1	2316 "bn" => array("Bengali"),
webmaster@1	2317 "bo" => array("Tibetan"),
webmaster@1	2318 "br" => array("Breton"),
webmaster@1	2319 "bs" => array("Bosnian", "Bosanski"),
webmaster@1	2320 "ca" => array("Catalan", "Català"),
webmaster@1	2321 "ce" => array("Chechen"),
webmaster@1	2322 "ch" => array("Chamorro"),
webmaster@1	2323 "co" => array("Corsican"),
webmaster@1	2324 "cr" => array("Cree"),
webmaster@1	2325 "cs" => array("Czech", "Čeština"),
webmaster@1	2326 "cu" => array("Old Slavonic"),
webmaster@1	2327 "cv" => array("Chuvash"),
webmaster@1	2328 "cy" => array("Welsh", "Cymraeg"),
webmaster@1	2329 "da" => array("Danish", "Dansk"),
webmaster@1	2330 "de" => array("German", "Deutsch"),
webmaster@1	2331 "dv" => array("Maldivian"),
webmaster@1	2332 "dz" => array("Bhutani"),
webmaster@1	2333 "ee" => array("Ewe", "Ɛʋɛ"),
webmaster@1	2334 "el" => array("Greek", "Ελληνικά"),
webmaster@1	2335 "en" => array("English"),
webmaster@1	2336 "eo" => array("Esperanto"),
webmaster@1	2337 "es" => array("Spanish", "Español"),
webmaster@1	2338 "et" => array("Estonian", "Eesti"),
webmaster@1	2339 "eu" => array("Basque", "Euskera"),
webmaster@1	2340 "fa" => array("Persian", /* Left-to-right marker "‭" */ "فارسی", LANGUAGE_RTL),
webmaster@1	2341 "ff" => array("Fulah", "Fulfulde"),
webmaster@1	2342 "fi" => array("Finnish", "Suomi"),
webmaster@1	2343 "fj" => array("Fiji"),
webmaster@1	2344 "fo" => array("Faeroese"),
webmaster@1	2345 "fr" => array("French", "Français"),
webmaster@1	2346 "fy" => array("Frisian", "Frysk"),
webmaster@1	2347 "ga" => array("Irish", "Gaeilge"),
webmaster@1	2348 "gd" => array("Scots Gaelic"),
webmaster@1	2349 "gl" => array("Galician", "Galego"),
webmaster@1	2350 "gn" => array("Guarani"),
webmaster@1	2351 "gu" => array("Gujarati"),
webmaster@1	2352 "gv" => array("Manx"),
webmaster@1	2353 "ha" => array("Hausa"),
webmaster@1	2354 "he" => array("Hebrew", /* Left-to-right marker "‭" */ "עברית", LANGUAGE_RTL),
webmaster@1	2355 "hi" => array("Hindi", "हिन्दी"),
webmaster@1	2356 "ho" => array("Hiri Motu"),
webmaster@1	2357 "hr" => array("Croatian", "Hrvatski"),
webmaster@1	2358 "hu" => array("Hungarian", "Magyar"),
webmaster@1	2359 "hy" => array("Armenian", "Հայերեն"),
webmaster@1	2360 "hz" => array("Herero"),
webmaster@1	2361 "ia" => array("Interlingua"),
webmaster@1	2362 "id" => array("Indonesian", "Bahasa Indonesia"),
webmaster@1	2363 "ie" => array("Interlingue"),
webmaster@1	2364 "ig" => array("Igbo"),
webmaster@1	2365 "ik" => array("Inupiak"),
webmaster@1	2366 "is" => array("Icelandic", "Íslenska"),
webmaster@1	2367 "it" => array("Italian", "Italiano"),
webmaster@1	2368 "iu" => array("Inuktitut"),
webmaster@1	2369 "ja" => array("Japanese", "日本語"),
webmaster@1	2370 "jv" => array("Javanese"),
webmaster@1	2371 "ka" => array("Georgian"),
webmaster@1	2372 "kg" => array("Kongo"),
webmaster@1	2373 "ki" => array("Kikuyu"),
webmaster@1	2374 "kj" => array("Kwanyama"),
webmaster@1	2375 "kk" => array("Kazakh", "Қазақ"),
webmaster@1	2376 "kl" => array("Greenlandic"),
webmaster@1	2377 "km" => array("Cambodian"),
webmaster@1	2378 "kn" => array("Kannada", "ಕನ್ನಡ"),
webmaster@1	2379 "ko" => array("Korean", "한국어"),
webmaster@1	2380 "kr" => array("Kanuri"),
webmaster@1	2381 "ks" => array("Kashmiri"),
webmaster@1	2382 "ku" => array("Kurdish", "Kurdî"),
webmaster@1	2383 "kv" => array("Komi"),
webmaster@1	2384 "kw" => array("Cornish"),
webmaster@1	2385 "ky" => array("Kirghiz", "Кыргыз"),
webmaster@1	2386 "la" => array("Latin", "Latina"),
webmaster@1	2387 "lb" => array("Luxembourgish"),
webmaster@1	2388 "lg" => array("Luganda"),
webmaster@1	2389 "ln" => array("Lingala"),
webmaster@1	2390 "lo" => array("Laothian"),
webmaster@1	2391 "lt" => array("Lithuanian", "Lietuvių"),
webmaster@1	2392 "lv" => array("Latvian", "Latviešu"),
webmaster@1	2393 "mg" => array("Malagasy"),
webmaster@1	2394 "mh" => array("Marshallese"),
webmaster@1	2395 "mi" => array("Maori"),
webmaster@1	2396 "mk" => array("Macedonian", "Македонски"),
webmaster@1	2397 "ml" => array("Malayalam", "മലയാളം"),
webmaster@1	2398 "mn" => array("Mongolian"),
webmaster@1	2399 "mo" => array("Moldavian"),
webmaster@1	2400 "mr" => array("Marathi"),
webmaster@1	2401 "ms" => array("Malay", "Bahasa Melayu"),
webmaster@1	2402 "mt" => array("Maltese", "Malti"),
webmaster@1	2403 "my" => array("Burmese"),
webmaster@1	2404 "na" => array("Nauru"),
webmaster@1	2405 "nd" => array("North Ndebele"),
webmaster@1	2406 "ne" => array("Nepali"),
webmaster@1	2407 "ng" => array("Ndonga"),
webmaster@1	2408 "nl" => array("Dutch", "Nederlands"),
webmaster@1	2409 "nb" => array("Norwegian Bokmål", "Bokmål"),
webmaster@1	2410 "nn" => array("Norwegian Nynorsk", "Nynorsk"),
webmaster@1	2411 "nr" => array("South Ndebele"),
webmaster@1	2412 "nv" => array("Navajo"),
webmaster@1	2413 "ny" => array("Chichewa"),
webmaster@1	2414 "oc" => array("Occitan"),
webmaster@1	2415 "om" => array("Oromo"),
webmaster@1	2416 "or" => array("Oriya"),
webmaster@1	2417 "os" => array("Ossetian"),
webmaster@1	2418 "pa" => array("Punjabi"),
webmaster@1	2419 "pi" => array("Pali"),
webmaster@1	2420 "pl" => array("Polish", "Polski"),
webmaster@1	2421 "ps" => array("Pashto", /* Left-to-right marker "‭" */ "پښتو", LANGUAGE_RTL),
webmaster@11	2422 "pt-pt" => array("Portuguese, Portugal", "Português"),
webmaster@1	2423 "pt-br" => array("Portuguese, Brazil", "Português"),
webmaster@1	2424 "qu" => array("Quechua"),
webmaster@1	2425 "rm" => array("Rhaeto-Romance"),
webmaster@1	2426 "rn" => array("Kirundi"),
webmaster@1	2427 "ro" => array("Romanian", "Română"),
webmaster@1	2428 "ru" => array("Russian", "Русский"),
webmaster@1	2429 "rw" => array("Kinyarwanda"),
webmaster@1	2430 "sa" => array("Sanskrit"),
webmaster@1	2431 "sc" => array("Sardinian"),
webmaster@1	2432 "sd" => array("Sindhi"),
webmaster@1	2433 "se" => array("Northern Sami"),
webmaster@1	2434 "sg" => array("Sango"),
webmaster@1	2435 "sh" => array("Serbo-Croatian"),
webmaster@1	2436 "si" => array("Singhalese"),
webmaster@1	2437 "sk" => array("Slovak", "Slovenčina"),
webmaster@1	2438 "sl" => array("Slovenian", "Slovenščina"),
webmaster@1	2439 "sm" => array("Samoan"),
webmaster@1	2440 "sn" => array("Shona"),
webmaster@1	2441 "so" => array("Somali"),
webmaster@1	2442 "sq" => array("Albanian", "Shqip"),
webmaster@1	2443 "sr" => array("Serbian", "Српски"),
webmaster@1	2444 "ss" => array("Siswati"),
webmaster@1	2445 "st" => array("Sesotho"),
webmaster@1	2446 "su" => array("Sudanese"),
webmaster@1	2447 "sv" => array("Swedish", "Svenska"),
webmaster@1	2448 "sw" => array("Swahili", "Kiswahili"),
webmaster@1	2449 "ta" => array("Tamil", "தமிழ்"),
webmaster@1	2450 "te" => array("Telugu", "తెలుగు"),
webmaster@1	2451 "tg" => array("Tajik"),
webmaster@1	2452 "th" => array("Thai", "ภาษาไทย"),
webmaster@1	2453 "ti" => array("Tigrinya"),
webmaster@1	2454 "tk" => array("Turkmen"),
webmaster@1	2455 "tl" => array("Tagalog"),
webmaster@1	2456 "tn" => array("Setswana"),
webmaster@1	2457 "to" => array("Tonga"),
webmaster@1	2458 "tr" => array("Turkish", "Türkçe"),
webmaster@1	2459 "ts" => array("Tsonga"),
webmaster@1	2460 "tt" => array("Tatar", "Tatarça"),
webmaster@1	2461 "tw" => array("Twi"),
webmaster@1	2462 "ty" => array("Tahitian"),
webmaster@1	2463 "ug" => array("Uighur"),
webmaster@1	2464 "uk" => array("Ukrainian", "Українська"),
webmaster@1	2465 "ur" => array("Urdu", /* Left-to-right marker "‭" */ "اردو", LANGUAGE_RTL),
webmaster@1	2466 "uz" => array("Uzbek", "o'zbek"),
webmaster@1	2467 "ve" => array("Venda"),
webmaster@1	2468 "vi" => array("Vietnamese", "Tiếng Việt"),
webmaster@1	2469 "wo" => array("Wolof"),
webmaster@1	2470 "xh" => array("Xhosa", "isiXhosa"),
webmaster@1	2471 "yi" => array("Yiddish"),
webmaster@1	2472 "yo" => array("Yoruba", "Yorùbá"),
webmaster@1	2473 "za" => array("Zhuang"),
webmaster@1	2474 "zh-hans" => array("Chinese, Simplified", "简体中文"),
webmaster@1	2475 "zh-hant" => array("Chinese, Traditional", "繁體中文"),
webmaster@1	2476 "zu" => array("Zulu", "isiZulu"),
webmaster@1	2477 );
webmaster@1	2478 }
webmaster@1	2479 /**
webmaster@1	2480 * @} End of "locale-api-languages-predefined"
webmaster@1	2481 */
webmaster@1	2482
webmaster@1	2483 /**
webmaster@1	2484 * @defgroup locale-autoimport Automatic interface translation import
webmaster@1	2485 * @{
webmaster@1	2486 */
webmaster@1	2487
webmaster@1	2488 /**
webmaster@1	2489 * Prepare a batch to import translations for all enabled
webmaster@1	2490 * modules in a given language.
webmaster@1	2491 *
webmaster@1	2492 * @param $langcode
webmaster@1	2493 * Language code to import translations for.
webmaster@1	2494 * @param $finished
webmaster@1	2495 * Optional finished callback for the batch.
webmaster@1	2496 * @param $skip
webmaster@1	2497 * Array of component names to skip. Used in the installer for the
webmaster@1	2498 * second pass import, when most components are already imported.
webmaster@1	2499 * @return
webmaster@1	2500 * A batch structure or FALSE if no files found.
webmaster@1	2501 */
webmaster@1	2502 function locale_batch_by_language($langcode, $finished = NULL, $skip = array()) {
webmaster@1	2503 // Collect all files to import for all enabled modules and themes.
webmaster@1	2504 $files = array();
webmaster@1	2505 $components = array();
webmaster@1	2506 $query = "SELECT name, filename FROM {system} WHERE status = 1";
webmaster@1	2507 if (count($skip)) {
webmaster@1	2508 $query .= " AND name NOT IN (". db_placeholders($skip, 'varchar') .")";
webmaster@1	2509 }
webmaster@1	2510 $result = db_query($query, $skip);
webmaster@1	2511 while ($component = db_fetch_object($result)) {
webmaster@1	2512 // Collect all files for all components, names as $langcode.po or
webmaster@1	2513 // with names ending with $langcode.po. This allows for filenames
webmaster@1	2514 // like node-module.de.po to let translators use small files and
webmaster@1	2515 // be able to import in smaller chunks.
webmaster@1	2516 $files = array_merge($files, file_scan_directory(dirname($component->filename) .'/translations', '(^\|\.)'. $langcode .'\.po$', array('.', '..', 'CVS'), 0, FALSE));
webmaster@1	2517 $components[] = $component->name;
webmaster@1	2518 }
webmaster@1	2519
webmaster@1	2520 return _locale_batch_build($files, $finished, $components);
webmaster@1	2521 }
webmaster@1	2522
webmaster@1	2523 /**
webmaster@1	2524 * Prepare a batch to run when installing modules or enabling themes.
webmaster@1	2525 * This batch will import translations for the newly added components
webmaster@1	2526 * in all the languages already set up on the site.
webmaster@1	2527 *
webmaster@1	2528 * @param $components
webmaster@1	2529 * An array of component (theme and/or module) names to import
webmaster@1	2530 * translations for.
webmaster@1	2531 * @param $finished
webmaster@1	2532 * Optional finished callback for the batch.
webmaster@1	2533 */
webmaster@1	2534 function locale_batch_by_component($components, $finished = '_locale_batch_system_finished') {
webmaster@1	2535 $files = array();
webmaster@1	2536 $languages = language_list('enabled');
webmaster@1	2537 unset($languages[1]['en']);
webmaster@1	2538 if (count($languages[1])) {
webmaster@1	2539 $language_list = join('\|', array_keys($languages[1]));
webmaster@1	2540 // Collect all files to import for all $components.
webmaster@1	2541 $result = db_query("SELECT name, filename FROM {system} WHERE status = 1");
webmaster@1	2542 while ($component = db_fetch_object($result)) {
webmaster@1	2543 if (in_array($component->name, $components)) {
webmaster@1	2544 // Collect all files for this component in all enabled languages, named
webmaster@1	2545 // as $langcode.po or with names ending with $langcode.po. This allows
webmaster@1	2546 // for filenames like node-module.de.po to let translators use small
webmaster@1	2547 // files and be able to import in smaller chunks.
webmaster@1	2548 $files = array_merge($files, file_scan_directory(dirname($component->filename) .'/translations', '(^\|\.)('. $language_list .')\.po$', array('.', '..', 'CVS'), 0, FALSE));
webmaster@1	2549 }
webmaster@1	2550 }
webmaster@1	2551 return _locale_batch_build($files, $finished);
webmaster@1	2552 }
webmaster@1	2553 return FALSE;
webmaster@1	2554 }
webmaster@1	2555
webmaster@1	2556 /**
webmaster@1	2557 * Build a locale batch from an array of files.
webmaster@1	2558 *
webmaster@1	2559 * @param $files
webmaster@1	2560 * Array of files to import
webmaster@1	2561 * @param $finished
webmaster@1	2562 * Optional finished callback for the batch.
webmaster@1	2563 * @param $components
webmaster@1	2564 * Optional list of component names the batch covers. Used in the installer.
webmaster@1	2565 * @return
webmaster@1	2566 * A batch structure
webmaster@1	2567 */
webmaster@1	2568 function _locale_batch_build($files, $finished = NULL, $components = array()) {
webmaster@1	2569 $t = get_t();
webmaster@1	2570 if (count($files)) {
webmaster@1	2571 $operations = array();
webmaster@1	2572 foreach ($files as $file) {
webmaster@1	2573 // We call _locale_batch_import for every batch operation.
webmaster@1	2574 $operations[] = array('_locale_batch_import', array($file->filename)); }
webmaster@1	2575 $batch = array(
webmaster@1	2576 'operations' => $operations,
webmaster@1	2577 'title' => $t('Importing interface translations'),
webmaster@1	2578 'init_message' => $t('Starting import'),
webmaster@1	2579 'error_message' => $t('Error importing interface translations'),
webmaster@1	2580 'file' => './includes/locale.inc',
webmaster@1	2581 // This is not a batch API construct, but data passed along to the
webmaster@1	2582 // installer, so we know what did we import already.
webmaster@1	2583 '#components' => $components,
webmaster@1	2584 );
webmaster@1	2585 if (isset($finished)) {
webmaster@1	2586 $batch['finished'] = $finished;
webmaster@1	2587 }
webmaster@1	2588 return $batch;
webmaster@1	2589 }
webmaster@1	2590 return FALSE;
webmaster@1	2591 }
webmaster@1	2592
webmaster@1	2593 /**
webmaster@1	2594 * Perform interface translation import as a batch step.
webmaster@1	2595 *
webmaster@1	2596 * @param $filepath
webmaster@1	2597 * Path to a file to import.
webmaster@1	2598 * @param $results
webmaster@1	2599 * Contains a list of files imported.
webmaster@1	2600 */
webmaster@1	2601 function _locale_batch_import($filepath, &$context) {
webmaster@1	2602 // The filename is either {langcode}.po or {prefix}.{langcode}.po, so
webmaster@1	2603 // we can extract the language code to use for the import from the end.
webmaster@1	2604 if (preg_match('!(/\|\.)([^\./]+)\.po$!', $filepath, $langcode)) {
webmaster@1	2605 $file = (object) array('filename' => basename($filepath), 'filepath' => $filepath);
webmaster@1	2606 _locale_import_read_po('db-store', $file, LOCALE_IMPORT_KEEP, $langcode[2]);
webmaster@1	2607 $context['results'][] = $filepath;
webmaster@1	2608 }
webmaster@1	2609 }
webmaster@1	2610
webmaster@1	2611 /**
webmaster@1	2612 * Finished callback of system page locale import batch.
webmaster@1	2613 * Inform the user of translation files imported.
webmaster@1	2614 */
webmaster@1	2615 function _locale_batch_system_finished($success, $results) {
webmaster@1	2616 if ($success) {
webmaster@1	2617 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	2618 }
webmaster@1	2619 }
webmaster@1	2620
webmaster@1	2621 /**
webmaster@1	2622 * Finished callback of language addition locale import batch.
webmaster@1	2623 * Inform the user of translation files imported.
webmaster@1	2624 */
webmaster@1	2625 function _locale_batch_language_finished($success, $results) {
webmaster@1	2626 if ($success) {
webmaster@1	2627 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	2628 }
webmaster@1	2629 }
webmaster@1	2630
webmaster@1	2631 /**
webmaster@1	2632 * @} End of "locale-autoimport"
webmaster@1	2633 */

Mercurial > defr > drupal > core

annotate includes/locale.inc @ 19:3edae6ecd6c6 6.9