// Script for deepsea affiliate page

// THESE SCRIPTS ARE THE COPYRIGHT OF JOHN LIDDIARD (C) 2003 AND MAY NOT BE
// COPIED OR USED WITHOUT HIS EXPLICIT CONSENT
//

var test = 0; // for deepsea webmaster private testing - not much use
			  // to anyone else

// Object to accumulate parameters
var ds_params = {
	// object defining parameters
	interest: "angling",
	schedule_keywords:''
	}

// call as many times as neccessary to set up parameters for deepsea scripts
// eg: set_ds_param('mode','calendar');
function set_ds_param (pname, pvalue){
	if (!pname){
		return;
		}
	if (!pvalue){
		pvalue='';
		}
	if (pname == 'mode'){
		ds_params['schedule_mode']=pvalue;
		return;
		}
	if (pname == 'title'){
		ds_params['schedule_title']=pvalue;
		return;
		}
	if (pname == 'style'){
		ds_params['schedule_style']=pvalue;
		return;
		}
	if (pname == 'keys'){

		var knum=0;
		var kp = new Array();
		kp = pvalue.split(/[\s\,\;\|]+/);
		for (var i in kp){
			var ipv = kp[i];
			if (knum<1){
				ds_params['schedule_keywords']+= ' '+ipv;
				}
			else{
				// or within this group
				ds_params['schedule_keywords']+= ' or '+ipv;
				}
			knum = knum+1;
			}
		//alert(ds_params['schedule_keywords']);
		return;
		}

	if (pname == 'exclude'){
		var ep = new Array();
		ep = pvalue.split(/[\s\,\;\|]+/);
		for (var i in ep){
			var ipv = ep[i];
			if (ds_params['schedule_keywords']){
				ds_params['schedule_keywords']+= ' not '+ipv;
				}
			else{
				ds_params['schedule_keywords']='not '+ipv;
				}
			}
		//alert(ds_params['schedule_keywords']);
		return;
		}

	ds_params[pname]=pvalue;
	}

// complete the entire frame set
// eg: make_ds_frameset();
function make_ds_frameset() {
	document.write('<frameset>\n');
	make_ds_frame();
	document.write('</frameset>\n');
	}

// really intended for use within make_ds_frameset(), but can also
// be used by those who know what they are doing to build deepsea
// directly into their own frameset
// eg: make_ds_frame();
function make_ds_frame () {
	var ds_file;
	if (ds_params['interest']=='angling'){
		ds_file='angling_spaces.htm';
		}
	else {
		ds_file='diving_spaces.htm';
		}
	var ds_path;
	if (test && (test==1)){
		ds_path= 'http://localhost/deepsea/docs/affiliate/';
		}
	else {
		ds_path= 'http://www.deepsea.co.uk/affiliate/';
		}
	var ds_param_list = '?';
	for (var pname in ds_params){
		if (pname == 'interest')continue;
		if (!ds_params[pname])continue;
		ds_param_list = ds_param_list+pname+'='+escape(ds_params[pname])+'&';
		}

	document.write ('<frame name="ds" \nsrc="');
	document.write (ds_path+ds_file+ds_param_list);
	document.write ('"\nmarginwidth=0 marginheight=0 noresize>\n');
	}