496 lines
15 KiB
Perl
Executable File
496 lines
15 KiB
Perl
Executable File
#!/usr/bin/perl
|
||
#
|
||
# $Id: Interpreter.pl,v 1.8 2006/01/23 21:39:30 ddoughty Exp $
|
||
#
|
||
# Source File: Interpreter.pl
|
||
|
||
# Get config
|
||
require 'sitecfg.pl';
|
||
require 'testlib.pl';
|
||
|
||
&app_initialize;
|
||
|
||
print "Content-Type: text/html\n\n";
|
||
|
||
if (&get_session($FORM{'tid'})) {
|
||
$FORM{'submit'} =~ s/\+/ /g;
|
||
if ($FORM{'submit'} eq 'Save Changes') {
|
||
$sNotice = "Translations updated";
|
||
&UpdateTranslation();
|
||
} elsif ($FORM{'submit'} eq 'printtable') {
|
||
&PrintPrintForm();
|
||
} elsif ($FORM{'submit'} eq 'printenglish') {
|
||
&PrintEnglishForm();
|
||
} else {
|
||
$sNotice = "";
|
||
&PrintForm();
|
||
}
|
||
}
|
||
|
||
sub PrintForm {
|
||
$nshref = ($SESSION{'browserapp'} eq MSIE) ? "" : "HREF=\"#top\"";
|
||
if ($SESSION{'uac'} =~ /txlatr./ ) {
|
||
$sPrintlink="";
|
||
$logoutbutton = "<BR><CENTER>
|
||
<FORM METHOD=POST ACTION=\"$PATHS{'cgiroot'}/logout.pl\"
|
||
Name=\"syncform\" TARGET=\"exit\">
|
||
<INPUT NAME=\"tid\" TYPE=HIDDEN VALUE=\"$SESSION{'tid'}\">
|
||
<INPUT NAME=\"csec\" TYPE=HIDDEN VALUE=\"$SYSTEM{'autologout'}\">
|
||
<INPUT NAME=\"idle\" TYPE=HIDDEN VALUE=\"N\">
|
||
<A $nshref
|
||
onMouseOver=\"document.logoff.src='$PATHS{'graphroot'}/btnlogouton.gif'\"
|
||
onMouseOut=\"document.logoff.src='$PATHS{'graphroot'}/btnlogoutoff.gif'\"
|
||
onClick=\"return log_out(document.syncform)\"
|
||
><IMG NAME=\"logoff\" SRC=\"$PATHS{'graphroot'}/btnlogoutoff.gif\" border=0 alt=\"Log Out\"></A>
|
||
</FORM>\n</CENTER>\n";
|
||
$logoutjscript = "
|
||
function log_out(objForm) {
|
||
var sURL;
|
||
sURL = \"$PATHS{'cgiroot'}/logout.pl?tid=$SESSION{'tid'}&idle=N\";
|
||
top.document.location.replace(sURL);
|
||
}\n";
|
||
} else {
|
||
$logoutbutton = "";
|
||
$logoutjscript = "";
|
||
$sPrintlink="<a href=\"$PATHS{'cgiroot'}/Interpreter.pl?tid=$SESSION{'tid'}&lang=$FORM{'lang'}&submit=printtable\" target=\"wdwprinttable\">Print-Translations</a>
|
||
<a href=\"$PATHS{'cgiroot'}/Interpreter.pl?tid=$SESSION{'tid'}&lang=$FORM{'lang'}&submit=printenglish\" target=\"wdwprinttable\">Print-English</a>";
|
||
}
|
||
|
||
$idEnglish = "enu";
|
||
@sEnglish = &get_phrases($idEnglish);
|
||
$txtEnglish = $LANGUAGE_ID{$idEnglish};
|
||
$idTranslation = $FORM{'lang'};
|
||
@sTranslation = &get_phrases($idTranslation);
|
||
$txtTranslation = $LANGUAGE_ID{$idTranslation};
|
||
|
||
$basefont="";
|
||
$fontface="";
|
||
$fontend = "";
|
||
if ($FORM{'lang'} eq 'arb') { $charset="iso-8859-6";}
|
||
elsif ($FORM{'lang'} eq 'cyr') {
|
||
$charset="iso-8859-5";
|
||
# $charset="koi8-r";
|
||
$basefont="<BASEFONT FACE=\"Verdana Cyr\">";
|
||
$fontface="<FONT FACE=\"Verdana Cyr\">";
|
||
$fontend = "</FONT>";
|
||
} else { $charset="iso-8859-1";}
|
||
|
||
$locator = "<center>\n";
|
||
$locator = join('', $locator, "<a href=\"\#x0\">\[-\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x54\">\[A\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x91\">\[B\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x103\">\[C\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x159\">\[D\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x183\">\[E\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x209\">\[F\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x220\">\[G\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x233\">\[H\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x240\">\[I\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x254\">\[JL\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x263\">\[M\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x279\">\[N\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x300\">\[O\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x310\">\[P\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x328\">\[Q\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x334\">\[R\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x356\">\[S\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x406\">\[T\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x440\">\[U\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x448\">\[V\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x453\">\[W\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x460\">\[Y\]\ \;</a> ");
|
||
$locator = join('', $locator, "<a href=\"\#x466\">\[+\]\ \;</a><BR>\n");
|
||
$locator = join('', $locator, "</center>\n");
|
||
$pad = "000";
|
||
for (0 .. $#sEnglish) {
|
||
$x = "$_";
|
||
$y = int(4 - length($x));
|
||
if ($y) {$x = join('', substr($pad,0,$y), $x);}
|
||
$locator = join('', $locator, "<a href=\"\#x$_\">\[$x\]\ \;</a> ");
|
||
}
|
||
|
||
print "<HTML>
|
||
<HEAD>
|
||
<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$charset\">
|
||
<TITLE>Test-Central $txtEnglish-$txtTranslation Translation</TITLE>
|
||
$basefont
|
||
<SCRIPT language=\"JavaScript\">
|
||
<!--
|
||
var aEnglish,aSymbol,aMath,aMisc,aKeys,aCharSet;
|
||
|
||
bNSNG = ($SESSION{'browserapp'} =~ \"MSIE\") ? 0 : 1;
|
||
|
||
aEnglish=\"aeiouyAEIOUYaeiouyAEIOUYaeiouyAEIOUYaeiouyAEIOUYcnsCN!?\";
|
||
aSymbol =\" \";
|
||
|
||
aEnglish=\"aeiouyAEIOUYaeiouyAEIOUYaeiouyAEIOUYaeiouyAEIOUYcnsCN!?\";
|
||
aMath = \"0123+x. 0123o - Aau \";
|
||
aMisc = \"rcsp \";
|
||
aSymbol =\" \";
|
||
|
||
function tGotFocus(oTxt) {
|
||
oSelTxt = oTxt;
|
||
return true;
|
||
}
|
||
|
||
function langselect(oSelLang) {
|
||
var oCtrl,i,j,k,sChar,x,sBlank;
|
||
sBlank = \" \";
|
||
if (oSelLang.selectedIndex == 1) {
|
||
aKeys=\"'`^:~+\";
|
||
aCharSet = aEnglish;
|
||
sBlank = \"French\";
|
||
aSymbol= \" <20> <20> \";
|
||
aSymbol+=\"<22><> <20> <20><> <20> \";
|
||
aSymbol+=\"<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> \";
|
||
aSymbol+=\" <20><> <20> <20><> <20> \";
|
||
aSymbol+=\"<22> <20> \";
|
||
} else { if (oSelLang.selectedIndex == 2) {
|
||
aKeys=\"'`^:~+\";
|
||
aCharSet = aEnglish;
|
||
sBlank = \"German\";
|
||
aSymbol= \" \";
|
||
aSymbol+=\" \";
|
||
aSymbol+=\" \";
|
||
aSymbol+=\"<22> <20><> <20> <20> \";
|
||
aSymbol+=\" <20> \";
|
||
} else { if (oSelLang.selectedIndex == 3) {
|
||
aKeys=\"'`^:~+\";
|
||
aCharSet = aEnglish;
|
||
sBlank = \"Spanish\";
|
||
aSymbol= \"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\";
|
||
aSymbol+=\" \";
|
||
aSymbol+=\" \";
|
||
aSymbol+=\" <20> <20> \";
|
||
aSymbol+=\" <20> ѡ<>\";
|
||
} else { if (oSelLang.selectedIndex == 4) {
|
||
aKeys=\"'/:^\";
|
||
aCharSet = aMath;
|
||
sBlank = \"Math\";
|
||
aSymbol= \"<22><><EFBFBD><EFBFBD><EFBFBD> \";
|
||
aSymbol+=\"ؼ<><D8BC><EFBFBD> \";
|
||
aSymbol+=\"<22> \";
|
||
aSymbol+=\"<22><><EFBFBD> \";
|
||
aSymbol+=\" \";
|
||
} else { if (oSelLang.selectedIndex == 5) {
|
||
aKeys=\"^\";
|
||
aCharSet = aMisc;
|
||
sBlank = \"Misc\";
|
||
aSymbol= \"<22><><EFBFBD><EFBFBD> \";
|
||
aSymbol+=\" \";
|
||
aSymbol+=\" \";
|
||
aSymbol+=\" \";
|
||
aSymbol+=\" \";
|
||
} else {
|
||
sBlank = \"\";
|
||
aKeys=\"\";
|
||
aCharSet = \"\";
|
||
}}}}}
|
||
return true;
|
||
}
|
||
|
||
function languagesupport(oTxt) {
|
||
var ostart,oText,schar,iidx,siidx;
|
||
|
||
if (bNSNG) { return true;}
|
||
|
||
oText = oTxt.value;
|
||
ostart=oText.length-1;
|
||
if (ostart > -1) {
|
||
iidx=aKeys.indexOf(oText.charAt(ostart));
|
||
if (iidx == 5) {iidx = 4};
|
||
if (iidx != -1) {
|
||
ostart--;
|
||
schar=oText.charAt(ostart);
|
||
siidx=iidx*12;
|
||
iidx=aCharSet.indexOf(schar,siidx);
|
||
if (iidx != -1) {
|
||
if (aSymbol.charAt(iidx) != \" \") {
|
||
oTxt.value=oText.substring(0,ostart)+aSymbol.charAt(iidx);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
return true;
|
||
}
|
||
|
||
function onConvert(oTxt) {
|
||
var ostart,oText,schar,schar2,iidx,siidx,oOutput,oend;
|
||
|
||
oText = oTxt.value;
|
||
oOutput = oText.charAt(0);
|
||
for (ostart=1; ostart<=oText.length-1;ostart++) {
|
||
schar2=oText.charAt(ostart);
|
||
iidx=aKeys.indexOf(schar2);
|
||
if (iidx == 5) {iidx = 4};
|
||
if (iidx == -1) {
|
||
oOutput += schar2;
|
||
} else {
|
||
oend=ostart-1;
|
||
schar=oText.charAt(oend);
|
||
siidx=iidx*12;
|
||
iidx=aCharSet.indexOf(schar,siidx);
|
||
if (iidx == -1) {
|
||
oOutput += schar2;
|
||
} else {
|
||
if (aSymbol.charAt(iidx) != \" \") {
|
||
oend=oOutput.length-1;
|
||
oOutput = oOutput.substring(0,oend)+aSymbol.charAt(iidx);
|
||
} else {
|
||
oOutput += schar2;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
oTxt.value=oOutput;
|
||
return true;
|
||
}
|
||
|
||
function onWdwLoad() {
|
||
if (\"$idTranslation\" == \"fr\") {
|
||
document.form1.languageext.selectedIndex = 1;
|
||
} else {
|
||
if (\"$idTranslation\" == \"sp\") {
|
||
document.form1.languageext.selectedIndex = 3;
|
||
} else {
|
||
if (\"$idTranslation\" == \"deu\") {
|
||
document.form1.languageext.selectedIndex = 2;
|
||
} else {
|
||
document.form1.languageext.selectedIndex = 0;
|
||
}
|
||
}
|
||
}
|
||
langselect(document.form1.languageext);
|
||
return true;
|
||
}
|
||
$logoutjscript
|
||
window.onload=onWdwLoad;
|
||
//-->
|
||
</SCRIPT>
|
||
</HEAD>
|
||
<BODY BGCOLOR=\"\#FFFFFF\" TEXT=\"\#000000\" LINK=\"\#0000FF\" VLINK=\"\#800080\">
|
||
<FORM METHOD=POST NAME=\"form1\">
|
||
<input type=\"hidden\" name=\"tid\" value=\"$SESSION{'tid'}\">
|
||
<input type=\"hidden\" name=\"lang\" value=\"$idTranslation\">
|
||
<table cellspacing=\"0\" cellpadding=\"0\" border=\"1\" width=100\%>
|
||
<tr>
|
||
<td colspan=2><IMG SRC=\"$PATHS{'graphroot'}/logo.gif\" WIDTH=160 BORDER=0></td>
|
||
<td align=center><FONT SIZE=4><b>Test-Central $txtEnglish-$txtTranslation Phrase Translations</b></FONT></td>
|
||
</tr>
|
||
<tr>
|
||
<td align=left><font size=1 color=\"green\">$sPrintlink\ \;</font></td>
|
||
<td colspan=2 align=right><font size=1 color=\"green\">$sNotice\ \;</font></td>
|
||
</tr>
|
||
<TR>
|
||
<td colspan=3 align=left valign=top nowrap>
|
||
<FONT SIZE=2 COLOR=\"#FF0000\">
|
||
<a name=\"langspt\">SYMBOL MODE: </a>
|
||
<SELECT name=\"languageext\" onChange=\"return langselect(this)\">
|
||
<OPTION value=\"enu\">ENGLISH
|
||
<OPTION value=\"fr\">FRENCH
|
||
<OPTION value=\"deu\">GERMAN
|
||
<OPTION value=\"sp\">SPANISH
|
||
<OPTION value=\"math\">Math/Scientific
|
||
<OPTION value=\"misc\">Miscellaneous
|
||
</SELECT> (to return here, click the symbol link)
|
||
(to goto logout, click <a href=\"\#bottom\">end</a>)
|
||
</FONT>
|
||
</td>
|
||
</TR>
|
||
<tr>
|
||
<td colspan=3><font size=2>$locator</font></td>
|
||
</tr>
|
||
<tr>
|
||
<td width=100><b>Text ID</b></td>
|
||
<td colspan=2><b>$txtEnglish<BR>
|
||
$txtTranslation</b></td>
|
||
</tr>
|
||
";
|
||
for (0 .. $#sEnglish) {
|
||
$sconv = $sTranslation[$_];
|
||
chop ($sconv);
|
||
$sconv =~ s/\&\;/\&/g;
|
||
$sconv =~ s/<BR>/\r\n/g;
|
||
$rows=1;
|
||
$cols=length($sEnglish[$_]);
|
||
$size=length($sEnglish[$_]);
|
||
if ($cols < 20) {
|
||
$cols = 30;
|
||
$inputtype = "<input type=text name=\"x$_\" size=60 maxlength=$cols value=\"$sconv\" onKeyPress=\"languagesupport(this)\" onFocus=\"return tGotFocus(this)\" onBlur=\"return onConvert(this)\">";
|
||
} else {
|
||
if ($cols > 19) {$cols = 60};
|
||
$rows = int($size / 25);
|
||
if ($rows < 2) { $rows = 2;}
|
||
if ($rows > 5) { $rows = 5;}
|
||
$inputtype = "<textarea name=\"x$_\" rows=$rows cols=$cols onKeyPress=\"languagesupport(this)\" onFocus=\"return tGotFocus(this)\" onBlur=\"return onConvert(this)\">$sconv</textarea>";
|
||
};
|
||
print "<tr>
|
||
<td valign=top width=100>x$_</td>
|
||
<td colspan=2 valign=top><a name=\"x$_\">$sEnglish[$_]</a><BR>
|
||
$fontface$inputtype$fontend<BR>
|
||
<a href=\"\#top\">top</a>
|
||
<a href=\"\#bottom\">end</a>
|
||
<a href=\"\#langspt\">symbols</a>
|
||
</td>
|
||
</tr>
|
||
";
|
||
}
|
||
print "<tr>
|
||
<td colspan=3 align=center>
|
||
<a name=\"bottom\">\ \;</a>
|
||
<input type=\"submit\" name=\"submit\" value=\"Save Changes\">
|
||
</td>
|
||
</tr>
|
||
</table>
|
||
$logoutbutton
|
||
</form>
|
||
</BODY>
|
||
</HTML>
|
||
";
|
||
}
|
||
|
||
sub UpdateTranslation {
|
||
$idEnglish = "enu";
|
||
@sEnglish = &get_phrases($idEnglish);
|
||
@sTranslation = &get_phrases($FORM{'lang'});
|
||
$txtTranslation = $language;
|
||
$idTranslation = $languageid;
|
||
for (0 .. $#sEnglish) {
|
||
chop ($sTranslation[$_]);
|
||
$id = "x$_";
|
||
if ($FORM{$id} ne '') {
|
||
$sTranslation[$_] = $FORM{$id};
|
||
$sTranslation[$_] =~ s/\+/ /g;
|
||
if ($FORM{'lang'} ne 'kor') { $sTranslation[$_] =~ s/\&/\&\;/g; }
|
||
$sTranslation[$_] =~ s/\r//g;
|
||
$sTranslation[$_] =~ s/\n/<BR>/g;
|
||
} else {
|
||
if ($sTranslation[$_] ne '') {
|
||
if ($FORM{'lang'} ne 'kor') { $sTranslation[$_] =~ s/\&/\&\;/g; }
|
||
$sTranslation[$_] =~ s/\r//g;
|
||
$sTranslation[$_] =~ s/\n/<BR>/g;
|
||
} else {
|
||
$sTranslation[$_] = "$FORM{'lang'}-$_";
|
||
}
|
||
}
|
||
}
|
||
&put_phrases($FORM{'lang'});
|
||
&PrintForm();
|
||
}
|
||
|
||
sub PrintPrintForm {
|
||
$idEnglish = "enu";
|
||
@sEnglish = &get_phrases($idEnglish);
|
||
$txtEnglish = $LANGUAGE_ID{$idEnglish};
|
||
$idTranslation = $FORM{'lang'};
|
||
@sTranslation = &get_phrases($idTranslation);
|
||
$txtTranslation = $LANGUAGE_ID{$idTranslation};
|
||
|
||
$basefont="";
|
||
$fontface="";
|
||
$fontend = "";
|
||
if ($FORM{'lang'} eq 'arb') { $charset="iso-8859-6";}
|
||
elsif ($FORM{'lang'} eq 'cyr') {
|
||
$charset="iso-8859-5";
|
||
# $charset="koi8-r";
|
||
$basefont="<BASEFONT FACE=\"Verdana Cyr\">";
|
||
$fontface="<FONT FACE=\"Verdana Cyr\">";
|
||
$fontend = "</FONT>";
|
||
} else { $charset="iso-8859-1";}
|
||
|
||
print "<HTML>
|
||
<HEAD>
|
||
<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$charset\">
|
||
<TITLE>Test-Central $txtEnglish-$txtTranslation Translation</TITLE>
|
||
$basefont
|
||
</HEAD>
|
||
<BODY BGCOLOR=\"\#FFFFFF\" TEXT=\"\#000000\" LINK=\"\#0000FF\" VLINK=\"\#800080\">
|
||
<FORM METHOD=POST NAME=\"form1\">
|
||
<input type=\"hidden\" name=\"tid\" value=\"$SESSION{'tid'}\">
|
||
<input type=\"hidden\" name=\"lang\" value=\"$idTranslation\">
|
||
<table cellspacing=\"0\" cellpadding=\"0\" border=\"1\" width=100\%>
|
||
<tr>
|
||
<td colspan=2><IMG SRC=\"$PATHS{'graphroot'}/logo.gif\" WIDTH=160 BORDER=0></td>
|
||
<td align=center><FONT SIZE=4><b>Test-Central $txtEnglish-$txtTranslation Phrase Translations</b></FONT></td>
|
||
</tr>
|
||
<tr>
|
||
<td width=100><b>Text ID</b></td>
|
||
<td colspan=2><b>$txtEnglish<BR>
|
||
$txtTranslation</b></td>
|
||
</tr>
|
||
";
|
||
for (0 .. $#sEnglish) {
|
||
$sconv = $sTranslation[$_];
|
||
chop ($sconv);
|
||
$sconv =~ s/\&\;/\&/g;
|
||
$sconv =~ s/<BR>/\r\n/g;
|
||
$rows=1;
|
||
$cols=length($sEnglish[$_])+8;
|
||
$size=length($sEnglish[$_]);
|
||
if ($cols < 60) {
|
||
$inputtype = "<input type=text name=\"x$_\" size=60 maxlength=$cols value=\"$sconv\" onKeyPress=\"languagesupport(this)\" onFocus=\"return tGotFocus(this)\" onBlur=\"return onConvert(this)\">";
|
||
} else {
|
||
if ($cols > 59) {$cols = 60};
|
||
$rows = int($size / 25);
|
||
if ($rows < 2) { $rows = 2;}
|
||
if ($rows > 5) { $rows = 5;}
|
||
$inputtype = "<textarea name=\"x$_\" rows=$rows cols=$cols onKeyPress=\"languagesupport(this)\" onFocus=\"return tGotFocus(this)\" onBlur=\"return onConvert(this)\">$sconv</textarea>";
|
||
};
|
||
print "<tr>
|
||
<td valign=top width=100>x$_</td>
|
||
<td colspan=2 valign=top>$sEnglish[$_]<BR>
|
||
$fontface$inputtype$fontend<BR>
|
||
</td>
|
||
</tr>
|
||
";
|
||
}
|
||
print "
|
||
</table>
|
||
</form>
|
||
</BODY>
|
||
</HTML>
|
||
";
|
||
}
|
||
|
||
sub PrintEnglishForm {
|
||
$idEnglish = "enu";
|
||
@sEnglish = &get_phrases($idEnglish);
|
||
$txtEnglish = $LANGUAGE_ID{$idEnglish};
|
||
$fontface="";
|
||
$fontend = "";
|
||
$charset="iso-8859-1";
|
||
|
||
print "<HTML>
|
||
<HEAD>
|
||
<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$charset\">
|
||
<TITLE>Test-Central $txtEnglish Phrases</TITLE>
|
||
</HEAD>
|
||
<BODY BGCOLOR=\"\#FFFFFF\" TEXT=\"\#000000\" LINK=\"\#0000FF\" VLINK=\"\#800080\">
|
||
<FORM METHOD=POST NAME=\"form1\">
|
||
<input type=\"hidden\" name=\"tid\" value=\"$SESSION{'tid'}\">
|
||
<input type=\"hidden\" name=\"lang\" value=\"$idTranslation\">
|
||
<table cellspacing=\"0\" cellpadding=\"0\" border=\"1\" width=100\%>
|
||
<tr>
|
||
<td><IMG SRC=\"$PATHS{'graphroot'}/logo.gif\" WIDTH=100 BORDER=0></td>
|
||
<td align=center><FONT SIZE=4><b>Test-Central $txtEnglish Phrases</b></FONT></td>
|
||
</tr>
|
||
<tr>
|
||
<td width=100><b>Text ID</b></td>
|
||
<td><b>$txtEnglish</b></td>
|
||
</tr>
|
||
";
|
||
for (0 .. $#sEnglish) {
|
||
print "<tr>
|
||
<td valign=top width=100>x$_</td>
|
||
<td valign=top>$sEnglish[$_]</td>
|
||
</tr>
|
||
";
|
||
}
|
||
print "
|
||
</table>
|
||
</form>
|
||
</BODY>
|
||
</HTML>
|
||
";
|
||
}
|