www.Inmagic.com    Inmagic Forums    Inmagic Forums  Hop To Forum Categories  Bug Reports    Fixed dbtw_q_main.js (CGI version)
Go
New
Find
Notify
Tools
Reply
  
-star Rating Rate It!  Login/Join 
Posted
Seeing as most peoples mail servers seem to be stripping out attached .js files, I'll post it here too.

// JavaScript code for DB/Text Web Publisher QBE screens
// DB/Text® WebPublisher, Copyright © 1998-2000, 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 = "/dbtw-wpd/exec/dbtwpcgi.exe";
var dbtw_base_url = window.location;
var dbtw_server = window.location.protocol + "//" + window.location.host + dbtw_action;
var dbtw_logo_loc="/dbtw-wpd/images/";

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\"";

function dbtw_initialize()
{
}

function dbtw_body( bg_color, bg_image )
{
var body_html = "\r\n\ 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_logo_loc + bg_image + "\"" );
body_html += " onLoad=\"dbtw_init_page()\" onUnload=\"dbtw_terminate_page()\">\r\n";
document.write( body_html );
}

function dbtw_logo( logo_image )
{
var logo_html;
if ( logo_image.indexOf("/") != -1 )
logo_html = "\r\n\\r\n";
else
logo_html = "\r\n\\r\n";
document.write( logo_html );
}

function dbtw_image_inline_extref( image )
{
var image_html = "\r\n\\r\n";
document.write( image_html );
}

function dbtw_image_link_extref( image )
{
var image_html = "\r\n\"
+ image + "
\r\n";
document.write( image_html );
}

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 if ( 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( "No query criteria specified." );
return false;
}

function dbtw_q_form()
{
var form_html = "\r\n
"\" METHOD=POST NAME=\"qbe_form\" onSubmit=\"return dbtw_q_submit(this)\">\r\n";
document.write( form_html );
var url_html = " dbtw_base_url + "\">\r\n";
document.write( url_html );
}

function dbtw_q_applet( input_name )
{
var applet_html = "\r\n
" NAME=\"app_" + input_name + "\" MAYSCRIPT>\r\n";
document.write( applet_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 displayHelp()
{
window.open("/dbtw-wpd/help/dws_ww.htm", "help", "scrollbars=1,resizable=1,width=600,height=300");
}


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);
}
 
Posts: 142 | Location: Auckland, New Zealand | Registered: Thu August 10 2000Reply With QuoteEdit or Delete MessageReport This Post
 Previous Topic | Next Topic powered by eve community  
 

www.Inmagic.com    Inmagic Forums    Inmagic Forums  Hop To Forum Categories  Bug Reports    Fixed dbtw_q_main.js (CGI version)