charLower = new Array();
charUpper = new Array();

maraddonn = new Array("%e9",  " "); 
crruiff = new Array("%c9",  " ");
russ= new Array("%8e", " ");
nadd = new Array("%83", " ");
amerrica = new Array("é", " ");
coparrey = new Array("É", " ");
island  = new Array("é", " ");
georgg  = new Array("É", " ");

aFieldList = new Array("1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40");


aAnswers = new Array("consumición","exposición","calefacción","traducción","lombriz","zepelines","Zenaida","zigzag","Erradicación","Zebedeo","protección","objeción","acción","cinc","cicatriz","incubación","ubicación","ciervo","porción","mención","dirección","reducción","inyección","conducción","potenciación","calefactor","dilación","Isaac","frac","bistec","tictac","rosácea","enloqueció","perfeccionó","zéjel","célula","celos","cefalea","discreción","azteca");

 aExplanation = new Array("","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","");
 arrHyperlink = new Array();

 aMyAnswers = new Array("","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","");
 var Turgay = 0;
 var Rindan = (aAnswers.length);
 var setin = 0;

arrAliasNames = new Array(); 
arrAliasValues = new Array();

 var lun = "";
 var lun001 = "<font color='blue'>¡Sin respuesta!</font>";
 var lun002 = "<font color='black'>N<sup>o</sup> </font>";
 var lun003 = "<font color='green'>¡Mal!</font>";
 var lun004 = "<font color='black'>¡Bien!</font>"
 var lun005 = "Continuar";
 var lun006 = "<font color='green'>¡Inténtalo de nuevo!</font>";
 var lun007 = "<font color='green'>No, la respuesta exacta es:</font>";
 var lun008 = "<font color='black'>Resultados</font>";
 var lun009 = "<font color='black'>Tu respuesta</font>";
 var lun010 = "<font color='black'>Respuesta exacta</font>";
 var lun011 = "<font color='black'>Valoración</font>";
 var lun012 = "<font color='black'>Tu nota es:</font>";
 var lun013 = "<font color='black'>sobre</font>";
 var lun014 = "<font color='black'>Porcentaje:</font>";
 var lun015 = "<font color='black'>N<sup>o</sup> </font>";
 var lun016 = "<font color='black'>Tu respuesta: </font>";
 var lun017 = "<font color='black'>¡Es correcta!</font>";
 var lun018 = "Explicación:";
 var lun019 = "";
 var tv001 = "Corregir y nota final";
 var tv002 = "Corregir";
 var tv003 = "Mal";

function fnChkAnswer(Thenum)
{

 var german = fnStripBlanks(convertCharLowerCase(aMyAnswers[Thenum]));
 var sara = fnStripBlanks(convertCharLowerCase(aAnswers[Thenum]));


 var ana = mySplit(sara, "\/");

 for (var i=0; i<ana.length; i++) {
   if (german == fnStripBlanks(toCharacter(ana[i]))) {
     Turgay++;
     return('<B><font color="yellow">' + lun004 + '</font></B>');
   }
 }

 return('<font color="green">' + lun003 + '</font>');
}

function fnGetValue(fnValue, Fnum, Pnum, Ecnt)
{

 aFieldType = new Array("select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one","select-one");
 var hold, index, count = 0;

  if (aFieldType[Fnum] == "text"){
       hold = fnValue.elements[Pnum].value;
  }
  else if (aFieldType[Fnum] == "radio"){
    while (count < Ecnt) {
     if (fnValue.elements[Pnum + count].checked){
       hold = fnValue.elements[Pnum+count].value;
     }
    count++;
    }
    if (hold == null) {
      hold = " ";
    }
  }
  else if (aFieldType[Fnum] == "select-one"){
    index = fnValue.elements[Pnum].selectedIndex;
    hold = fnValue.elements[Pnum].options[index].value;
  }
return(hold);
}


function fnGetImage(inalias)
{
var mororr;
var puebla = new Array();

 for (mororr=0; mororr < arrAliasNames.length; mororr++) {
    if (inalias.indexOf(arrAliasNames[mororr]) != -1) {
      puebla = mySplit(inalias,arrAliasNames[mororr]);
      inalias = myJoin(puebla, '<IMG SRC=\"' + arrAliasValues[mororr] + '\">');
    }
 }
return(inalias);
}

function fnPrint_Report(inStart, inFinish, inTitle, bTotalChk)
{
Turgay = 0;
TotScore = 0;
SectionCnt = 0;
var corbbatta;
var panddo;
var sanfilli, sinfillipp;
var gonzza;
var marrtt
var mierrc = 0;


gonzza = '<CENTER><font color="#8000ff"></font><BIG><BIG><BIG>'+ 
'<font FACE="ARIAL,HELVETICA">' + inTitle + '<font></BIG></BIG></BIG>'+ 
    '<TABLE WIDTH=85% background=checo18.jpg BORDER=10 CELLPADDING="1" ALIGN="Center">'+
     '<TR><td align=Center COLSPAN="6%"><B>' + lun002 + '</B></TD>' +
     '<td align=Center COLSPAN="42%"><B>' + lun009 + '</B></TD>' +
     '<td align=Center COLSPAN="42%"><B>' + lun010 + '</B></TD>' +
     '<td align=Center COLSPAN="10%"><B>' + lun011 + '</B></TD></TR>';

for (var i = inStart; i<inFinish; i++) {
  TotScore++;
  Qcor = fnChkAnswer(i);
  corbbatta = fnStripBlanks(toHtml(aMyAnswers[i]));
  if (corbbatta.length == 0) {
    corbbatta ='<font color="blue">' + lun001 + '</font>';
  }
  else {
    sanfilli = fnGetImage(corbbatta);
    if (sanfilli != "") {
      corbbatta = sanfilli;
    }
    else {
      corbbatta ='<font color="blue">' + toHtml(corbbatta) + '</font>';
    }
  }

  sinfillipp = fnGetImage(aAnswers[i]);
  if (sinfillipp != "") {
    panddo = sinfillipp;
  }
  else {
    panddo = toHtml(aAnswers[i]);
  }

  gonzza+= '<TR><TD COLSPAN="6%" ALIGN=Center><font color="black">'+  aFieldList[i] +
 '</font></TD>' + '<TD COLSPAN="42%"><font color="blue">' + 
     corbbatta + '</TD><TD COLSPAN="42%"><font color="RED">' +  panddo +
     '</font></TD><TD COLSPAN="10%">' + Qcor + '</TD></TR>';
  }

if (TotScore != 0) {
  mierrc = Math.round(((Turgay / TotScore)* 10000))/100;
}

gonzza+= '<TR><TD COLSPAN="100%" background=checo18.jpg>' +
   '<p align=Center><B>' + lun012 + '<BR><font color="RED">' +
   Turgay + '</font>&nbsp;' + lun013 + ' <font color="green">&nbsp;' + 
   TotScore + '</font><P><CENTER>' + lun014 +' <font color="black">' +
   mierrc + '%</font></B></CENTER></TD></TR></TABLE></CENTER>';

return gonzza;
}


function GetMyAns(fnValue, field_num, phys_num, elem_count)
{
var parracass;

    parracass = fnGetValue(fnValue, field_num-1, phys_num, elem_count);
    aMyAnswers[field_num-1] = parracass;
  parracass = fnStripBlanks(toHtml(parracass));

return(parracass);
}

function GetMsgAnswer(parracass)
{
var perrdavv;

 if (parracass.length == 0) {
    perrdavv = '<CENTER><font color="green"><B>' + lun001 + '</B></font></CENTER>';
  }
  else {
      perrdavv = '<B><CENTER>'+ lun016 +  '</B><BR>';

    sanfilli = fnGetImage(parracass);
    if (sanfilli != "") {
      perrdavv += sanfilli;
    }
    else {
      perrdavv += '<font color="blue"><B>' + toHtml(parracass) + '</B></font></CENTER>';
    }
  }
return(perrdavv);
}

function GetMsgHeader(iNum)
{
var perrdavv;

     perrdavv = "<CENTER><B>" + lun015 + aFieldList[iNum] +
     "</B></CENTER><P><P>";
return(perrdavv);
}

function stretchWindow(inVal, inValue)
{
  var saracumpl=0;

  saracumpl = inVal + 40*(Math.round(inValue.length / 100));
  if (saracumpl > inVal) {
    return(saracumpl);
  }
  return(inVal);
}

function Field_popup(fnValue, field_num, phys_num, elem_count, show_flag, tries_flag)
{
  var corbbatta, Theans, RightAns;
  var sanfilli, sinfillipp;
  var sevill;
  var caccer=630, bigWidth=630;
  var baddajj;

  corbbatta = GetMyAns(fnValue, field_num, phys_num, elem_count);
  Arrans = fnStripBlanks(convertCharLowerCase(aAnswers[field_num-1]));

  ana = mySplit(Arrans, "\/");
  RightAns = 0;

  lun = GetMsgHeader(field_num-1);

  lun += GetMsgAnswer(corbbatta);
  bigWidth = stretchWindow(bigWidth, corbbatta);

  lun+= "<P><P>";

  for (var i=0; i<ana.length; i++) {
    if (convertCharLowerCase(corbbatta) == fnStripBlanks(toCharacter(ana[i])))
     { RightAns = 1;}
  }

  if (RightAns == 1) {
     lun+= '<B><CENTER>' + lun017 + '</CENTER></B>';
  }
  else {
    if (show_flag == 0) {
       lun+= '<CENTER>' + lun006 + '</CENTER>';
    }
    else {
       lun+= '<CENTER>' + lun007 + '</CENTER>';
    }

    if ((show_flag == 1) || (show_flag == 2)) {
      sinfillipp = fnGetImage(aAnswers[field_num-1]);
      if (sinfillipp != "") {
         lun += '<CENTER><font color="yellow"><B>' + sinfillipp + '</B></font></CENTER>';
      }
      else {
        lun += '<CENTER><font color="yellow"><B>' +  toHtml(aAnswers[field_num-1]) + '</B></font></CENTER>';
      }
      bigWidth = stretchWindow(bigWidth, aAnswers[field_num-1]);
      caccer = 200;

    }
  }
  if (show_flag == 2) {
       lun+=  '<P>' + '<font color="black"><B>Explication :</B></font>' + 
'<font color="black"> ' + toHtml(aExplanation[field_num-1]) + '</font>' ;

     caccer = 260;
     bigWidth = stretchWindow(bigWidth, aExplanation[field_num-1]);

  }

  baddajj = 'height=' + caccer + ',width=' + bigWidth + ',resizable=yes,scrollbars=yes';

  lun+= "<P><HR><P>";
  Write_popup("", tv002, baddajj, '#FF9900', '003090', tries_flag);
}

function Report_popup(inStart, inFinish, inTitle)
{

  lun = fnPrint_Report(inStart, inFinish, inTitle, 0);
  Write_popup("", tv001,'height=500,width=600,resizable=yes,scrollbars=yes,menubar=yes', '#FF9900', '003090', 0);
}

function Total_popup()
{

  lun = fnPrint_Report(0, Rindan, lun008, 1);
  Write_popup("", tv001,'height=500,width=600,resizable=yes,scrollbars=yes,menubar=yes,', '#FF9900', '003090', 0);
  
}

function Write_popup(SPopUrl, SPopTitle, SPopDesc, SPopColor, SFontColor, tries_flag)
{
  popup = window.open(SPopUrl, "popDialog", SPopDesc)
  popup.document.write('<HTML>');
  popup.document.write('<HEAD>');
  popup.document.write('<TITLE>' + SPopTitle + '</TITLE>');
  popup.document.write("<BODY BGCOLOR='" + SPopColor + "' onBlur=self.focus()>"+
  "<font color='"+SFontColor+"'>"+"<P><font SIZE='+1'><B></B></font>");
  popup.document.write ("<background=checo18.jpg><CENTER><img src='images/pizarracresumen.gif'></CENTER>");
  popup.document.write(lun);
  popup.document.write("<FORM NAME=POPUP><CENTER>"+ 
  "<INPUT NAME='BUTTON' TYPE='BUTTON' VALUE="+ lun005);
  popup.document.write(" onClick='self.close()'>"+"</CENTER></FORM></BODY></HTML>");
  popup.document.close();
}

function error_window(szTypeTitle, msg_error)
{

    lun = msg_error;
  Write_popup("",szTypeTitle, 'height=500,width=360,resizable=yes,scrollbars=yes', 'FFFFFF', 'RED', 0);
}

function fnStripBlanks(someString)
{
 var ppellicu="";
 var denuevv = 0;
 fini = someString.length;

 while (someString.charAt(denuevv) == " ") 
    {denuevv++};
 while (someString.charAt(fini-1)== " ") 
    {fini--};
 for (var i=denuevv; i<fini; i++) {
     if ((someString.charAt(i) !=" ") || (someString.charAt(i+1) !=" ")) {
        ppellicu+= someString.charAt(i);
     }
 }
return(ppellicu);
}

function mySplit(splitString, splitBy)
{

  var coronnillz = new Array();
  var extremm, denuevv = 0, octuybb = 0;

  while (((extremm = splitString.indexOf(splitBy, denuevv)) != -1) &&  (denuevv < splitString.length)) {
    coronnillz[octuybb++] = splitString.substring(denuevv, extremm);
    denuevv = extremm + splitBy.length;
  }

  coronnillz[octuybb] = splitString.substring(denuevv, splitString.length);
return (coronnillz);
}


function myJoin(joinArray, joinBy)
{
 var catalya, octuybb = joinArray.length;
 var bilbboz = "";

 if (joinArray[0].length !=0 ) {
   bilbboz = joinArray[0];
 }

 for (catalya = 1;  catalya< octuybb - 1; catalya++) {
   if (joinArray[catalya].length == 0) {     bilbboz+= joinBy;
   }
   else {
     bilbboz+= joinBy+ joinArray[catalya];
   }
 }

 if (joinArray.length > 1) {
   if (joinArray[octuybb-1].length != 0) {
     bilbboz+= joinBy + joinArray[octuybb-1];
   }
   else {bilbboz += joinBy};
 }

return(bilbboz);
}