document.write('<scri' + 'pt type="text/javascript" language="javascript1.2" src="/etc/prototype.js"></scr' + 'ipt>');

var _tool = new Array;

_tool['domview']		= new PrimitiveObject('uri', "javascript: viewDispatch('domview');", 'text', '&lt;debug&gt;');
_tool['choose']			= new PrimitiveObject('uri', "javascript: viewDispatch('choose');", 'text', 'Choose');
_tool['edit']			= new PrimitiveObject('uri', "javascript: viewDispatch('edit');", 'text', 'Modify');
_tool['emaillist']		= new PrimitiveObject('uri', "", 'init', "html += toolEmaillist();");
_tool['emailsend']		= new PrimitiveObject('uri', "", 'init', "html += toolEmailsend();");
_tool['exit']			= new PrimitiveObject('uri', "javascript: viewDispatch('exit');", 'text', 'Close');
_tool['export']			= new PrimitiveObject('uri', "javascript: viewDispatch('export');", 'text', 'Export');
_tool['import']			= new PrimitiveObject('uri', "javascript: viewDispatch('import');", 'text', 'Import');
_tool['delete']			= new PrimitiveObject('uri', "javascript: viewDispatch('delete');", 'text', 'Remove');
_tool['logout']			= new PrimitiveObject('uri', "javascript: viewDispatch('logout');", 'text', 'Logout');
_tool['mattach']		= new PrimitiveObject('uri', "javascript: viewDispatch('mattach');", 'text', 'Attach');
_tool['mattachfile']	= new PrimitiveObject('uri', "javascript: viewDispatch('mattachfile');", 'text', 'Attach');
_tool['mcompose']		= new PrimitiveObject('uri', "javascript: viewDispatch('mcompose');", 'text', 'Compose');
_tool['mcopybody']		= new PrimitiveObject('uri', "javascript: viewDispatch('mcopybody');", 'text', 'Quote Original');
_tool['mdelete']		= new PrimitiveObject('uri', "javascript: viewDispatch('mdelete');", 'text', 'Delete');
_tool['mdeletethis']	= new PrimitiveObject('uri', "javascript: viewDispatch('mdeletethis');", 'text', 'Delete');
_tool['mgo']			= new PrimitiveObject('uri', "", 'init', "html += toolMailgo();");
_tool['mfolder']		= new PrimitiveObject('uri', "", 'init', "html += toolMailfolder();");
_tool['mforward']		= new PrimitiveObject('uri', "javascript: viewDispatch('mforward');", 'text', 'Forward');
_tool['mforwardlist']	= new PrimitiveObject('uri', "javascript: viewDispatch('mforwardlist');", 'text', 'Forward');
_tool['mmakefolder']	= new PrimitiveObject('uri', "javascript: viewDispatch('mmakefolder');", 'text', 'Create Folder');
_tool['mmarkread']		= new PrimitiveObject('uri', "javascript: viewDispatch('mmarkread');", 'text', 'Mark Read');
_tool['mmove']			= new PrimitiveObject('uri', "", 'init', "html += toolMailmove();");
_tool['mnext']			= new PrimitiveObject('uri', "javascript: viewDispatch('mnext');", 'text', 'Next &gt;');
_tool['mprev']			= new PrimitiveObject('uri', "javascript: viewDispatch('mprev');", 'text', '&lt; Prev');
_tool['mreply']			= new PrimitiveObject('uri', "javascript: viewDispatch('mreply');", 'text', 'Reply');
_tool['mreplyall']		= new PrimitiveObject('uri', "javascript: viewDispatch('mreplyall');", 'text', 'Reply All');
_tool['mreplyalllist']	= new PrimitiveObject('uri', "javascript: viewDispatch('mreplyalllist');", 'text', 'Reply All');
_tool['mreplylist']		= new PrimitiveObject('uri', "javascript: viewDispatch('mreplylist');", 'text', 'Reply');
_tool['mreplyreplyall']	= new PrimitiveObject('uri', "javascript: viewDispatch('mreplyreplyall');", 'text', 'Reply All');
_tool['msave']			= new PrimitiveObject('uri', "javascript: viewDispatch('msave');", 'text', 'Save');
_tool['msend']			= new PrimitiveObject('uri', "javascript: viewDispatch('msend');", 'text', 'Send');
_tool['mview']			= new PrimitiveObject('uri', "javascript: viewDispatch('mview');", 'text', 'View');
_tool['next']			= new PrimitiveObject('uri', "javascript: viewDispatch('next');", 'text', 'Next &gt;');
_tool['new']			= new PrimitiveObject('uri', "javascript: viewDispatch('new');", 'text', 'New');
_tool['pagetool']		= new PrimitiveObject('uri', "", 'init', 'html += toolPagetool');
_tool['prev']			= new PrimitiveObject('uri', "javascript: viewDispatch('prev');", 'text', '&lt; Prev');
_tool['refresh']		= new PrimitiveObject('uri', "javascript: viewDispatch('refresh');", 'text', 'Refresh');
_tool['save']			= new PrimitiveObject('uri', "javascript: viewDispatch('save');", 'text', 'Save');

var _viewtop = 110;
var _curtop = _viewtop;
var _curheight = 600;
var _curwidth = 800;

function appDefineTool(toolname, appobj, viewobj)
{
	_tool[toolname] = appobj;
	viewDefineTool(toolname, viewobj);
}

function appClearToolbar()
{
	var i;
	
	$("toolbar").innerHTML = "";
}

function appResizeWindow()
{
//	appSetFrameSize();
//	viewDispatch('resize');
}

function appSetDispatch(p)
{
	viewDispatch = p;
}

function appDOMViewBody()
{
	DOMViewerObj = document.body;
	window.open('/domviewer.html');
}

function appContentTop()
{
	var result = 240;
	var bench = $("pgbenchmk");
	if(IE4 || IE5 || IE6)
	{
		var p = bench.parentNode.parentNode.parentNode.parentNode.parentNode;
		result = parseInt(p.offsetTop) + parseInt(p.offsetHeight) + 2;
	}
	else
		result = parseInt(bench.y) + 2;
	
	return(result);
}


function appResizeMsgbody(deltaheight)
{
	var msgbody = $("msgbody");
	
	var mytop = appContentTop();

	msgbody.style.top = ((mytop + 15) + "px");
	msgbody.style.width = "100%";
	if(deltaheight == -1)
		myheight = 150;
	else
	{
		var myheight = 200;
		if(IE4 || IE5 || IE6)
			myheight = _curheight - mytop - 77 - 15;
		else
			myheight = (parseInt(window.innerHeight) - mytop - 15);
	}
	msgbody.style.height = ((myheight + deltaheight) + "px");
	msgbody.style.visibility = "visible";
}

function appShowTableHeading(myleft)
{
	var div = $("tableheader");
	div.style.visibility = "visible";

	var obj = ref("thbenchmk");
	var t = elemGetTop(obj);
	
	div = $("tabledata");
	div.style.top = ((t + 13) + "px");
	div.style.visibility = "visible";
}

var _setTitleCount = 0;

function appSetTitle()
{
	// setup a retry timer

	window.setTimeout("appSetTitleWork()", 10);
	_setTitleCount = 100;		// retry it 100 times, giving up after 10 seconds
}

function appSetTitleWork()
{
	if(--_setTitleCount != 0 && document.title == "undefined")
		window.setTimeout("appSetTitleWork()", 100);
	else
		$("pagetitle").innerHTML = document.title;
}

function appSetPageheading(string)
{
	$("pagetitle").innerHTML = string;
}

function appSetToolbar(toolnames, tools)
{
	var i;

	var html = "";
	for(i = 0; i < toolnames.length; i++)
	{
		var curtool = tools[toolnames[i]];
		if(curtool.getProperty('enable') == 1)
		{
			var ttype = curtool.getProperty('type');
			var uri = _tool[ttype].getProperty('uri');
			if(uri == "")
				eval(_tool[ttype].getProperty('init'));		
			else
				html += '<a href="' + uri + '" class="tool">' + _tool[ttype].getProperty('text') + '</a>&nbsp;&nbsp;'
		}
	}
	
	$("toolbar").innerHTML = html + '<br />&nbsp;<br />';
}

function appInit()
{
}

function appUnloadView()
{
	var div = $("tableheader");
	div.style.visibility = "hidden";
	div.style.top = 0;
	div.style.left = 0;
	div.innerHTML = "";
	appClearToolbar()
}

function appLogout()
{
	document.location = '/logout?class=webmail';
}

function appPixwiz(field, table, pkey, id, args)
{
	var uri = "/RetailScience/pixwiz1?db_template=pixwiz1&choosepix=y&pixfield=" + field;
	uri += "&db_table=" + table + "&db_primarykey=" + pkey + "&db_recordid=" + id;
	if(args.length > 0)
		uri = uri + "&" + args;
	var pixwiz = window.open(uri,"picker","scrollbars,menubar,status,width=800,height=600");
	pixwiz.focus();
}

function appPixwizCallback(field, imgid, imgsrc)
{
	eval("document.save." + field + ".value=" + imgid);
	$("img_" + field).src = imgsrc;
}

function appPoppix(imgid, imgtype)
{
	var uri = "/RetailScience/dbrun?db_template=rspoppix&imgid=" + imgid + "&imgtype=" + imgtype;
	var pixpopper = window.open(uri,"popper" + imgid,"scrollbars,menubar,status,width=50,height=50");
	pixpopper.focus();
}

function toolEmaillist()
{
	var i;
	
	var html = '<select id="emailto" name="emailto" class="tool"><option value="-1">Choose Recipient</option>';
	for(i = 0; i < workRecipient.length; i++)
	{
		html += '<option value="' + i;
		html += '">' + workRecipient[i] + '</option>';
	}
	html += '</select>&nbsp;';

	return(html);	
}

function toolEmailsend()
{
	return('<a href="javascript: pageSendmail($(\'emailto\').value);" class="tool">Send Email to</a>&nbsp;&nbsp;');
}