From c2bfae5465d9cecd1a1af3893f4633cee7451db1 Mon Sep 17 00:00:00 2001
From: Yannick Warnier <yannick.warnier@beeznest.com>
Date: Sun, 30 Dec 2007 13:13:01 +0100
Subject: [PATCH] [svn r14083] Added language file import method

---
 main/webrooms/checksession.php        |  3 +-
 main/webrooms/get_translation.lib.php | 59 +++++++++++++++++++++++++++
 2 files changed, 61 insertions(+), 1 deletion(-)
 create mode 100644 main/webrooms/get_translation.lib.php

diff --git a/main/webrooms/checksession.php b/main/webrooms/checksession.php
index 4c8b317a53..f0b5a89b87 100644
--- a/main/webrooms/checksession.php
+++ b/main/webrooms/checksession.php
@@ -10,6 +10,7 @@ require_once('../newscorm/scorm.class.php');
 require_once('../newscorm/scormItem.class.php');
 require_once('../newscorm/aicc.class.php');
 require_once('../newscorm/aiccItem.class.php');
+require_once('get_translation.lib.php');
 
 include("../../main/inc/global.inc.php");
 api_block_anonymous_users();
@@ -72,7 +73,7 @@ printf('  <studentview>%s</studentview>',$student_view);
 printf('  <documentid>%s</documentid>',$document_id);
 printf('</recorderparams>');
 printf('<languageobject>');
-include_once($language_interface.'.xml');
+printf(get_language_file_as_xml($language_interface));
 printf('</languageobject>');
 printf('</dokeosobject>');
 ?>
\ No newline at end of file
diff --git a/main/webrooms/get_translation.lib.php b/main/webrooms/get_translation.lib.php
new file mode 100644
index 0000000000..6eae15ccf4
--- /dev/null
+++ b/main/webrooms/get_translation.lib.php
@@ -0,0 +1,59 @@
+<?php
+/**
+ * Library for language translation from Dokeos language files to XML for videoconference
+ * @uses main_api.lib.php for api_get_path() 
+ */
+/**
+ * This function reads a Dokeos language file and transforms it into XML, 
+ * then returns the XML string to the caller. 
+ */
+function get_language_file_as_xml($language='english')
+{
+	$path = api_get_path(SYS_LANG_PATH).$language.'/';
+	if(!is_dir($path) or !is_readable($path))
+	{ 
+		if($language != 'english')
+		{
+			return get_language_file_as_xml('english');
+		}
+		else
+		{
+			return '';
+		}
+	}
+	error_log('Analysing path '.$path);
+	$file = $path.'videoconf.inc.php';
+	if(!is_file($file) or !is_readable($file))
+	{
+		if($language != 'english')
+		{
+			return get_language_file_as_xml('english');
+		}
+		else
+		{
+			return '';
+		}
+	}
+	$list = file($file);
+	$xml = '';
+	foreach ( $list as $line )
+	{
+		if(substr($line,0,1)=='$')
+		{
+			$items = array();
+			$match = preg_match('/^\$([^\s]*)\s*=\s*"(.*)";$/',$line,$items);
+			if($match)
+			{
+				//todo: The following conversion should only happen for old language files (encoded in ISO-8859-1).
+				$string = iconv('ISO-8859-1','UTF-8',$items[2]);
+				$xml .= '<labelfield><labelid>'.$items[1].'</labelid><labelvalue>'.$string.'</labelvalue></labelfield>'."\n";
+			}
+		}
+	}
+	if(empty($xml) && $language!='english')
+	{
+		return get_language_file_as_xml('english');
+	}
+	return $xml;
+}
+?>
\ No newline at end of file