function include_source(str_url) {
	str = '<script language="JavaScript" src="' + str_url + '"><\/script>'
	document.write(str);
}

function scan_url_params() {
	msg("scan_url_params")

	url_params = window.location.search.substring(1);
	params = url_params.split("&");

	for (i=0; i<params.length; ++i) {
		param = params[i];
		param = param.split("=");
		name = param[0];
		val = param[1];

		switch (name) {
		case "year": yyyy = val; break;
		case "storm": storm_key = val; break;
		case "ob": ob_mode = val; break;
		}
	}
}


function msg(p) {
//	alert(p);
}


function pad(n) {
	if (n < 10) return ("0" + n);
	return "" + n;
}



function key_pressed() {

	switch (window.event.keyCode) {

	case 52:
	case 44:
	case 60:
		top.obs.previous_observation(); break;

	case 54:
	case 46:
	case 62:
		top.obs.next_observation(); break;

	}
}



function main_page_loaded() {
	msg("main_page_loaded");
	any_page_loaded(page_id);
}


function any_page_loaded(page_id) {
	num_pages_loaded += 1;
	msg("any_page_loaded: " + num_pages_loaded);



	switch (page_id) {
	case "storm":
		if (obs_load_pending) { storm.update_display(); obs_load_pending = 0; }
		break;
	}


	if (num_pages_loaded == num_pages) { all_pages_loaded(); }

}


function all_pages_loaded() {
///	alert("all_pages_loaded");
	obs.update_display();
}



function set_year(year_obj) {

	yyyy = year_obj.name;
	
	storm_key = year_obj.storm;
	storm.document.location.href = storm.document.location.href
	obs_load_pending = 1;
}


function set_storm_folder() {
	storm_folder = root + yyyy + "/" + storm_key + "/"
}


function set_storm(storm_obj) {

	storm_key = storm_obj.key;
	set_storm_folder();

	year.set_storm(storm_key);
	//TBD set this on initial page load

	num_pages_loaded = num_pages - 3;

	obs.document.location.href = obs.document.location.href;
	chart.document.location.href = chart.document.location.href;
	sst.document.location.href = sst.document.location.href;
}


function toggle_close_up() {
	if (help_off()) return;

	switch (wind_mode) {
	case "wind_barbs": wind_mode = "ambiguity_vectors"; break;
	case "ambiguity_vectors": wind_mode = "wind_barbs"; break;
	}
	wind_update_display();
}


function zoom_rain_display() {
	if (help_off()) return;

	switch (rain_zoom) {
	case "close_up": rain_zoom = "zoom_out"; break;
	case "zoom_out": rain_zoom = "close_up"; break;
	}
	rain_update_display();
}


function display_observation(opt) {
	help_off();
	ob_key = obs.get_option_key(opt);
	chart.hilite_observation(opt);
	sst.display_option(opt);
	wind_update_display();
	rain_update_display();
}


function wind_update_display() {
	sat_key = obs.get_sat_key()
	
	img_url = storm_folder + "scat/close_up/" + wind_mode + "/" + storm_key + "_" + ob_key + "_" + sat_key + ".png";
	document.images["close_up"].src = img_url;

	img_url = storm_folder + "scat/zoom_out/wind_barbs/" + storm_key + "_" + ob_key + "_" + sat_key + ".png";
	document.images["zoom_out"].src = img_url;
}



function rain_update_display() {
	img_url = storm_folder + "rain/" + rain_zoom + "/" + storm_key + "_rain_" + ob_key + ".png"
	document.images["rain"].src = img_url;
}


function help() {
	switch (help_on) {
	case 0: display_help(); break;
	case 1: hide_help(); break;
	}
}

function display_help() {
	document.images["help"].src = "../images/btns/bg/ice/help_hide.gif";
	chart.help();
	sst.help();
	document.images["close_up"].src = "img/help/close_up.gif";
	document.images["zoom_out"].src = "img/help/zoom_out.gif";
	document.images["rain"].src = "img/help/rain.gif";
	help_on = 1;
}

function hide_help() {
	chart.help_off();
	sst.help_off();
	wind_update_display();
	rain_update_display();
	document.images["help"].src = "../images/btns/bg/ice/help_show.gif";
	help_on = 0;
}

function help_off() {
	switch (help_on) {
	case 0: return(0);
	case 1: hide_help(); return(1);
	}
}