<?php
	// adding a ligne for type of encoding. Sebastien
	global $cTypoCode, $lUserCanChangeTypo, $currentlang,$myts;
	$prefixCode = $myts->typocode($cTypoCode);
	$title = $myts->de_typocode($title,$prefixCode);
	$content = $myts->de_typocode($content,$prefixCode);
	$sel_typocode[$prefixCode] = ' selected';
    // this is not marvellous. Help me please ! 
	if (file_exists("modules/NS-Wiki/lang/".$currentlang."/global.php")) 
		{
		   include("modules/NS-Wiki/lang/".$currentlang."/global.php");
	    }
      elseif (file_exists("modules/NS-Wiki/lang/eng/global.php")) 
		{
	   include("modules/NS-Wiki/lang/eng/global.php");	     
	}


	modules_get_language();


	$hlpfile = "modules/NS-Wiki/lang/".$currentlang."/readmewiki.html";
	echo "<script type=\"text/javascript\">\n";
	echo "<!--\n";
	echo "function WIKIopenwindow(){\n";
	echo "	window.open (\"$hlpfile\",\"Help\",\"toolbar=no,location=no,directories=no,status=no,scrollbars=yes,resizable=no,copyhistory=no,width=600,height=200\");\n";
	echo "}\n";
	echo "//-->\n";
	echo "</SCRIPT>\n\n";

	if ($lUserCanChangeTypo) 
		{		
	 echo  '[ <a href="javascript:WIKIopenwindow('.')" class="pn-normal">'._LIBELHELP.'</a> ]<br><br>'."\n";
		echo "<br><b>"._TYPOCODE.": </b>"
		.'<select name="typocode" size="1">'
		.'<option value="_TP" '.$sel_typocode['_TP'].'>postnuke</option>'
		.'<option value="_TW" '.$sel_typocode['_TW'].'>wiki</option>'
		.'<option value="_TB" '.$sel_typocode['_TB'].'>bbcode</option>';
	print '</select><br><br>';
		}
	else
		{
		if ($cTypoCode == "wiki")
		{ echo	'[ <a href="javascript:WIKIopenwindow('.')" class="pn-normal">'._LIBELHELP.'</a> ]<br><br>'."\n"; }
		switch($cTypoCode) {
			
			case 'wiki' :
				$cTypoCodePref = "_TW";
				break;
			case 'postnuke' :
				$cTypoCodePref = "_TP";
				break;
			case 'bbcode' :
				$cTypoCodePref = "_TB";
				break;
			default:
				$cTypoCodePref = "";
			}				
		print( "<input type=\"hidden\" name=\"typocode\" value=\"$cTypoCodePref\">" );
		}		
?>