root/drupal/modules/simple_translation/trunk/simple_translation.module

<?

/* 
 * ===============================
 * DEBUG STUFF
 * ===============================
 */

if (!function_exists("d")) {
  function d($message, $item=null, $print=false) {
    if ($item) {
      $message .= ": " . print_r($item,true);
    }
    if ($print) {
      print("debug: <pre>$message</pre>");
    } else {
      drupal_set_message("debug: <pre>$message</pre>");
    }
  } 
}

/* 
 * =======================================
 * HOOKS
 * =======================================
 */



function simple_translation_nodeapi(&$node, $op, $a3 = NULL, $a4 = NULL) {


  global $language;
  global $no_recurse_nid;
  if ($op != "load" or $no_recurse_nid == $node->nid) {
    $no_recurse_nid = Null;
    return;
  }
  
  // Load the translation source node.
  $sNode = safe_node_load($node->tnid);

  if (!$sNode) {
    return;
  }

  // Get the translated node.
  $tNode = _load_translated_node($sNode, $language);
  
  if (!$tNode) {
    //d("No translation for $sNode->title");
    return;
  }
  //d("translated to $tNode->title");

  // Replace the loaded node with the translated node.
  //$node = $tNode;
  $node->title = $tNode->title;
  $node->body = $tNode->body;
  $node->teaser = $tNode->teaser;
  //d("node",$node);
}



// Translate menu links.
// Note, this is a patched hook.
function simple_translation_menu_tree_item_alter(&$item) {
  global $language;
  $title = $item["link_title"];

  // If HTML, do nothing
  if (stristr($title, "<") and stristr($title, ">")) { 
    return;
  }

  // If this points to a node...
  sscanf($item["link_path"], "node/%d", $nid);
  if ($nid) {
    // Replace the menu title with the translated title.
    // Remember, we hook node_load in this module to translate it.
    $node = node_load($nid);
    $item["link_title"] = $node->title;
    return;
  }
  
  // As a fallback, allow the user to translate other menu titles (e.g. links to other sites, etc.).
  $item["link_title"] = t($item["link_title"]);
}


/* Force node listings to only contain translation source nodes, since we translate these when they are viewed. */
function simple_translation_db_rewrite_sql($query, $primary_table, $primary_key, $args = array()){
  // Adapted from i18n module
  
  $query_mods = array();

  switch ($primary_table) {
    case 'n':
    case 'node':
      // No rewrite for queries with subselect ? (views count queries)
      // @ TO DO Actually these queries look un-rewrittable, check with other developers
      if (preg_match("/FROM \(SELECT/", $query)) return;
      // No rewrite for translation module queries
      if (preg_match("/.*FROM {node} $primary_table WHERE.*$primary_table\.tnid/", $query)) return;
      // When loading specific nodes, language conditions shouldn't apply
      if (preg_match("/WHERE.*\s$primary_table.nid\s*=\s*(\d|%d)/", $query)) return;
      // If language conditions already there, get out
      if (preg_match("/i18n/", $query)) return;
      
      //d("q",array($primary_table, $primary_key, $query));

      // Show only translation sources from translation sets.
      $query_mods["where"] = "$primary_table.nid = $primary_table.tnid OR $primary_table.language = ''";
  }
  
  return $query_mods;
}


function simple_translation_views_pre_render(&$view) {
  //d("result",$view->result);
  foreach ($view->result as $item) {
    if (!$item->nid) { continue; }

    // Remember, our module causes the translated node to be loaded when node_load is called.
    $node = node_load($item->nid);
    
    //assert($node->nid == $node->tnid);
    //$tNode = _load_translated_node($node, $language);
    //if (!$tNode) { continue; }

    // Update translatable fields.
    $item->node_title = $node->title;
    $item->node_revisions_teaser = node_teaser($node->body);
    $item->node_revisions_body = $node->body;
  }
}


/* Initialise the module. */
function simple_translation_init() {
  
  // Need to clear the menu cache to allow menu translation.
  // TODO: Need to find a better way.
  menu_cache_clear_all();
  
  //drupal_rebuild_theme_registry();
}


/* 
 * =======================================
 * UTILITY FUNCTIONS
 * =======================================
 */

/* Loads a node in such a way that it will not be processed recursively by our nodeapi hook. */
// Used to stop us recursing when hooking node_load.
$no_recurse_nid = Null;
function safe_node_load($nid) {
  global $no_recurse_nid;
  $no_recurse_nid = $nid;
  return node_load($nid);
}


/* Loads the translated version of a node or returns the original node if no translation. */
function _load_translated_node(&$node, $language) {
 
  // Return original if no trans source, non-lang specific node, or the node language is same as user language.
  if (!($node->tnid and $language->language) or $language->language == $node->language) {
    return $node;
  }

  // Try to get the translated version.
  $tNode = Null;
  foreach (translation_node_get_translations($node->tnid) as $lang => $translation_node) {
    if ($lang == $language->language) {
      $tNode = safe_node_load($translation_node->nid);
      break;
    }
  }

  return $tNode;
}


/* 
 * =======================================
 * OLD STUFF
 * =======================================
 */

function xxxsimple_translation_nodeapi(&$node, $op, $a3 = NULL, $a4 = NULL) {
  // TODO: When incomming node is a translated node, comments of trans source are not dispayed.

  global $language;

  if ($op != "alter") {
    return;
  }

  // State what the arguments are.
  $teaser = $a3;
  $page = $a4;

  // Get the translation source node of this node
  $sNode = node_load($node->tnid);

  if (!$sNode) {
    return;
  }

  // Get the translated node.
  $tNode = _load_translated_node($sNode, $language);
  
  if (!$tNode) {
    return;
  }

  // Sadly need to re-build the node's content, since drupal_render cannot be called more than once on content.
  $sNode = node_build_content($sNode, $teaser, $page);

  // Render the node and update the originally rendered node.
  $tNode = node_build_content($tNode, $teaser, $page);
  
  // Render the content in the correct language.
  $sNode->content["body"] = $tNode->content["body"];
  $renderedContent = drupal_render($sNode->content);
  $sNode->teaser = $renderedContent;
  $sNode->body = $renderedContent;
  
  // Update the page title.
  $sNode->title = $tNode->title;
  drupal_set_title(check_plain($sNode->title));

  // Update the links
  $sNode->links = module_invoke_all('link', 'node', $tNode, $teaser);
  drupal_alter('link', $sNode->links, $tNode);

  // Replace $node with the modified $sNode
  $node = $sNode;
}




?>