// JavaScript code for DB/Text Web Publisher QBE screens
// DB/Text® WebPublisher, Copyright © 1998-2001, Inmagic, Inc., Woburn, MA, USA. All rights reserved.

var appletCount = 0;
var inputObjects = new Array(), inputNames = new Array();
var appletObjects = new Array(), appletNames = new Array();

var timerID = null;

var dbtw_action = "http://dbase1.lapl.org/dbtw-wpd/exec/dbtwpub.dll";
var dbtw_server = window.location.protocol + "//" + window.location.host + dbtw_action;

var dbtw_applet = "\"BrowserApplet.class\"";
var dbtw_applet_base;
if ( parseInt(navigator.appVersion, 10) < 4 )
   dbtw_applet_base = "\"/dbtw-wpd/applets/ww25\"";
else if ( (navigator.appName.indexOf("Netscape") >= 0) &&
            (parseInt(navigator.appVersion, 10) == 4) &&
            (navigator.appVersion.substring(2,3) == "0") &&
            (parseInt(navigator.appVersion.substring(2,5), 10) <= 6) )
   dbtw_applet_base = "\"/dbtw-wpd/applets/ww25\"";
else
   dbtw_applet_base = "\"/dbtw-wpd/applets/ww30\"";

// Variables to support translation
var dbtw_noquery_msg = "No query criteria specified.";

var dbtw_ww_width = 80;
var dbtw_ww_height = 30;
var dbtw_ww_label = "Word Wheel";

function dbtw_q_submit( form_obj )
   {
   if ((navigator.appName == "Microsoft Internet Explorer") &&
       (navigator.appVersion.indexOf("3.0") >= 0))
      return true;
   var el_count = form_obj.elements.length;
   for ( var i=0; i<el_count; i++ )
      if (( form_obj.elements[i].name.substring(0, 2) == "QI" ) ||
          ( form_obj.elements[i].name.substring(0, 2) == "qi" ))
         if ( form_obj.elements[i].type.substring(0, 6) == "select" )
         {
            if ( form_obj.elements[i].options[form_obj.elements[i].selectedIndex].text != "" )
               return true;
         }
         else
         {
            if ( form_obj.elements[i].value != "" )
               return true;
         }
   alert( dbtw_noquery_msg );
   return false;
   }

function dbtw_q_form()
   {
	document.write("\r\n<FORM ACTION=\"" + dbtw_action + "\" METHOD=POST NAME=\"qbe_form\" onSubmit=\"return dbtw_q_submit(this)\">\r\n");
	document.write("<INPUT TYPE=\"hidden\" NAME=\"XC\" VALUE=\"" + dbtw_action + "\">\r\n");
	document.write("<INPUT TYPE=\"hidden\" NAME=\"BU\" VALUE=\"http://dbase1.lapl.org\">\r\n");
   }

function dbtw_q_applet( input_name )
   {
	var applet_html = "\r\n<td> <APPLET CODE=" + dbtw_applet +
	               " CODEBASE=" + dbtw_applet_base +
						" WIDTH=" + dbtw_ww_width + " HEIGHT=" + dbtw_ww_height + " ALIGN=TOP VSPACE=0" +
						" NAME=\"app_" + input_name + "\" MAYSCRIPT>\r\n";
	document.write( applet_html );

   var btnName_html = "\r\n<PARAM NAME=\"btnName\" VALUE=\"" + dbtw_ww_label + "\">";
	document.write( btnName_html );

	inputNames[appletCount] = input_name;
	appletNames[appletCount] = "app_" + input_name;
	appletCount++;
   }


function checkApplets()
   {
   var i = 0;
   var pasteStr = "";
   var currApplet = null;
   var currBox = null;
   var boxText = "";

	for (i = 0; i < appletCount; i++ )
	{
		currApplet = appletObjects[i];      
		pasteStr = currApplet.m_PasteStr;
		if (pasteStr != "")
		{
			currBox = inputObjects[i];
			if (currBox.value == "")
				boxText = pasteStr;
			else
				boxText = currBox.value + " / " + pasteStr;
			currBox.value = boxText;
			currApplet.m_PasteStr = "";
		}      
	}
	timerID = setTimeout("checkApplets()", 200);
   }

function initApplet(currApplet)
   {
   currApplet.ServerAddress = dbtw_server;

   var tmp, r, g, b;
   tmp = document.bgColor;
   r = "0x" + tmp.substring(1, 3);      
   g = "0x" + tmp.substring(3, 5);
   b = "0x" + tmp.substring(5, 7);
   currApplet.SetButtonBkColor(parseInt(r), parseInt(g), parseInt(b));                                 
   }

function dbtw_init_page()
   {
	var appletIndex;
	var appletObject; 

	for (appletIndex = 0; appletIndex < appletCount; appletIndex++ )
	   {
		inputObjects[appletIndex] = eval( "document.qbe_form." + inputNames[appletIndex] );
		
		if ((navigator.appName == "Microsoft Internet Explorer") &&
          (navigator.appVersion.indexOf("3.0") >= 0))
			appletObject = document.qbe_form.elements[appletNames[appletIndex]];
		else
 			appletObject = document.applets[appletNames[appletIndex]];

		appletObjects[appletIndex] = appletObject;
		initApplet( appletObject );
	   }
	timerID = setTimeout("checkApplets()", 500);      
   }

function dbtw_terminate_page()
   {
	clearTimeout(timerID);
   }

function dbtw_initialize(tb_name, bUsePassword, msg_file)
   {
   // tb_name, bUsePassword are unused, and are present to be compatible with generated HTML
   // msg_file, if present and not empty, supplies a message file
   var actMsgFile = "";
   if ((arguments.length >= 3) && (msg_file.length > 0))
      actMsgFile = "&MF=" + msg_file;

   // Support setting localized strings
   document.write("\r\n<SCRIPT LANGUAGE=\"JavaScript\" SRC=\"" + dbtw_action +
                  "?AC=APPLET_STRINGS" + actMsgFile + "\"></" + "SCRIPT>");
   }

// Obsolete as of V5.0; retained for backwards compatibility
function dbtw_body( bg_color, bg_image )
   {
	var body_html = "\r\n\<BODY";
	if ( bg_color != "" )
		body_html += ( " BGCOLOR=#" + bg_color );
	if ( bg_image != "" )
	   if ( bg_image.indexOf("/") != -1 )
		   body_html += ( " BACKGROUND=\"" + bg_image + "\"" );
		else
		   body_html += ( " BACKGROUND=\"/dbtw-wpd/images/" + bg_image + "\"" );
	body_html += " onLoad=\"dbtw_init_page()\" onUnload=\"dbtw_terminate_page()\">\r\n";
	document.write( body_html );
   }

// Obsolete as of V5.1; retained for backwards compatibility
function dbtw_logo( logo_image )
   {
   var logo_html;
   if ( logo_image.indexOf("/") != -1 )
	   logo_html = "\r\n\<IMG SRC=\"" + logo_image + "\">\r\n";
	else
	   logo_html = "\r\n\<IMG SRC=\"/dbtw-wpd/images/" + logo_image + "\">\r\n";
	document.write( logo_html );
   }

// Obsolete; retained for backwards compatibility
function dbtw_image_inline_extref( image )
   {
	var image_html = "\r\n\<IMG SRC=\"" + image + "\">\r\n";
	document.write( image_html );
   }

// Obsolete; retained for backwards compatibility
function dbtw_image_link_extref( image )
   {
	var image_html = "\r\n\<A HREF=\"" + image + "\">" + image + "</A>\r\n";
	document.write( image_html );
   }

// Obsolete
function displayHelp()
   {
   window.open("/dbtw-wpd/help/dws_ww.htm", "help", "scrollbars=1,resizable=1,width=600,height=300");   
   }