function f_sz_librus(szIn1)
{
  //--конвертируем символы для либрусека
  var szIn=szIn1.toUpperCase();

  var szRu="АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
  var szLi="%D0%90%D0%91%D0%92%D0%93%D0%94%D0%95%D0%81%D0%96%D0%97%D0%98%D0%99%D0%9A%D0%9B%D0%9C%D0%9D%D0%9E%D0%9F%D0%A0%D0%A1%D0%A2%D0%A3%D0%A4%D0%A5%D0%A6%D0%A7%D0%A8%D0%A9%D0%AA%D0%AB%D0%AC%D0%AD%D0%AE%D0%AF";
  //var ar1=szRu.split('');
  var ar2=szLi.split('%D0%');

  var iMax=szIn.length;
  var iPos=0;
  var ar=szIn.split('');
  var ch=' ';
  
  var szOut="";
  
  for(i=0; i<iMax; i++)
  {
     ch=ar[i];
     if(ch==' ')ch='+';
     
     iPos=szRu.indexOf(ch);
     if(iPos!=-1)szOut+=("%D0%"+ar2[iPos+1]);
     else szOut+=ch;
  }
  
  return szOut;
}

function f_submit(ob)
{
     if(ob.forms[0].name==undefined)return;
     ob.onload=ob.forms[0].submit();
}

function f_para_poisk(nInput)
{
   var szName1="";  //--автор--
   var szName2=""; //--произведение
   var sz1="";
   var sz2="";
   
   if(nInput==1)
   {
       szName1="input_en1";    szName11="input_en2";
   }
   else if(nInput==2 || nInput==4)szName1="input_ru";
   else if(nInput==3)szName1="input_mp3";
   else return;

   var ob1=document.getElementsByName(szName1); if(!ob1.length)return;
   var sz1=ob1[0].value;
   if(nInput==1)
   {
      var ob2=document.getElementsByName(szName11); if(!ob2.length)return;
      var sz2=ob2[0].value;
   }
   
   if(sz1.length > 200 || sz2.length > 200){alert("Слишком длинное слово... "); return;}

   if(nInput==1)
   {
      w1=window.open();
      f_elenberg(w1, sz1, sz2);
   }
   else if(nInput==2)
   {
      var szUni=f_sz_librus(sz1);

      w1=window.open();
      w1.document.location="http://lib.rus.ec/booksearch/?ask="+szUni;
   }
   else if(nInput==3)
   {
      var szUni=escape(sz1+" AND collection:audio_bookspoetry");
      w1=window.open();
      w1.document.location="http://www.archive.org/search.php?query="+szUni;
   }
   else if(nInput==4)
   {
      var szUni=sz1;
      w1=window.open();
      w1.document.location="http://txt.ebooks-vsem.com/cgi-bin/win/GrepSearch?Search="+szUni;
   }
}

function f_elenberg(obWin, szAvtor, szTit)
{
var d1=obWin.document; 
d1.writeln('<center><div style="width:600px">');
d1.writeln('<form method="post" action="http://www.gutenberg.org/catalog/world/results"');
d1.writeln('accept-charset="utf-8" enctype="multipart/form-data">');
d1.writeln('<fieldset>');
d1.writeln('<legend>Catalog Search Form</legend>');
d1.writeln('<div>');
d1.writeln('<label accesskey="a" for="menu-author">Author:</label>');
d1.writeln('<input type="text" value="'+szAvtor+'" id="menu-author" name="author" class="searchInput" title="Type the name of the author - Accesskey=a" alt="Author:" tabindex="20" size="20" maxlength="80" />');
 
d1.writeln('<label accesskey="t" for="menu-title">Title Word(s):</label>');
d1.writeln('<input type="text" value="'+szTit+'" id="menu-title" name="title" class="searchInput" title="Type the title of the work - Accesskey=t" alt="Title Word(s):" tabindex="21" size="20" maxlength="80" />');
 
d1.writeln('<button type="submit" id="catSearchGo" name="catSearchGo" class="searchButton" title="Start the search - Accesskey=g" accesskey="g" tabindex="23">Go</button>');
d1.writeln('</div>');
d1.writeln('</fieldset>');
d1.writeln('</form>');
d1.writeln('<p style="font-size:24px">Запрос обрабатывается.<br>Немного подождите...');
d1.writeln('</div></center>');
f_submit(d1);

}