// Copyright Dalbrook Limited 2004
// All rights reserved

function body_initialise(body_id) {

// Check for modern browser. If not, abandon hope
	if (!document.getElementById ||
		!document.getElementsByTagName) return false;

	emailWidget();
	style_widget();
	quotes_database_widget(body_id);
}

function set_page_header (header_value) {
	var header_element = document.getElementById ('page_header');
	if (header_element) {
		page_header.innerHTML = header_value
	}
}

function new_request_object () {
	var xml_http;
	if (window.ActiveXObject) {
		xml_http = new ActiveXObject("Microsoft.XMLHTTP");
	} else if (window.XMLHttpRequest) {
		xml_http = new XMLHttpRequest();
	}
	return xml_http;
}

function open_request (xml_http, xml_url, xml_event_handler) {
	xml_http.open("POST", xml_url, true);
	xml_http.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
	xml_http.onreadystatechange = xml_event_handler;
	xml_http.send(null);
}

function open_write_only_request (xml_http, xml_url) {
	xml_http.open("POST", xml_url, true);
	xml_http.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
	xml_http.send(null);
}

function extract_parms (in_string) {

	var return_values = new Object();
	var work_array = []
	var work_item;
	var equals;
	var parm_key;
	var parm_value;

	if (in_string.indexOf('&')) {
		work_array = in_string.split('&');
	} else {
		work_array[0] = in_string;
	}
	for (var i=0; i<work_array.length; i++) {
		work_item = work_array[i];
		if (work_item.substr(0,1) == '?') {
			work_item = work_item.substr(1);
		}
		equals = work_item.indexOf('=');
		if (equals > 0) {
			parm_key = work_item.substr(0,equals);
			parm_value = work_item.substr(equals+1);
			return_values[parm_key] = parm_value;
		}
	}
	return return_values;
}