/******************************************
contents of data files are stored in variables
named after the search value in js files. For
example gac codes are stored in gac.js and
are known as a gac search in this form
********************************************/

var charstrokes;
var userinput;
var search;
var checkshaca;

function processwithshaca(obj_f) {
	checkshaca=1;
	process(obj_f);
	}

function process(obj_f) {

  for (x=0; x<=7; x++) {
	search = obj_f.searchtype[x].value;

	if (obj_f.searchtype[x].checked) {
	  search = obj_f.searchtype[x].value;
	  x = 7;
	  }
	}


  	userinput = obj_f.userinput.value;
	userinput = userinput.toUpperCase();

/************************
allow forced subject search
**************************/
   
if (userinput.substr(userinput.length - 1, 1)=='\$') {
	search="shaca";
	obj_f.searchtype[7].checked=true;
	}

	switch (search) {
	  	case "lc":
			if (userinput.length > 0) {
				body=cutter();
				render(body);
				break;	
				}			
		case "shaca":
			if (checkshaca==1) {
				checkshaca=0;
				if (userinput.length > 2) {
					OpenWin('http://osulibrary.orst.edu/RDM/html/shaca.php?' 
					+ 'userinput=' + userinput.substr(0, userinput.length));
					}
				}
				break;
	  	default:
			if (userinput.length > 2) {
				body=extract();
				render(body);
				break;
				}
	  	}
return;

}

/**************************
***************************

Calculates LC Cutter values

***************************
**************************/

function cutter()  {

	var skip = 1;
	var tbl2arr = new Array();
	var tbl3arr = new Array();



	firstchar = userinput.substr(0, 1);
	secondchar = userinput.substr(1, 1);
	totallength = userinput.length;
	
	cutterval = firstchar;
				
	/* ****************************************
	Set up arrays determing which tables to use
	****************************************** */

	valuelocator ="ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890";
	tablefinder = "1444144414444414342414444455555555555";
	validnumbers = "23456789Q";

	tbl2arr[1] = "22233333333445566788999999XXXXXXXXXX";
	tbl2arr[2] = "22334445555566666667899999XXXXXXXXXX";
	tbl2arr[3] = "QQQQQQQQQQQQQQQQQQQQUUUUUUXXXXXXXXXX";
	tbl2arr[4] = "33334444555555666777888899XXXXXXXXXX";
	tbl2arr[5] = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX";
	tbl3arr = "33334444555566677778889999";

	/* ******************************
	Locate correct table
  	 ****************************** */		
	
	for (itable = 0; itable < 36; itable++) {
	
		if (valuelocator.substr(itable, 1) == userinput.substr(0, 1)) {
			whichtable = tablefinder.substr(itable, 1);
			}
		}

	/* **************************************
	Look up second character on correct table
	***************************************** */

	for (iChar = 0; iChar < 36; iChar++) {
		if (valuelocator.substr(iChar, 1) == userinput.substr(1, 1)) {

		/* *****************************************************
		Get Cutter Value -- Accepts only values from 2-9
		***************************************************** */	
			nextdigit = tbl2arr[whichtable].substr(iChar, 1);

			for (x = 0; x < 9; x++) {
				if (nextdigit == validnumbers.substr(x, 1)) {						
					cutterval = cutterval + nextdigit;
					}
				}
					
			}
		}

	/* *****************
	Handle SCH exception
	****************** */

	if (userinput.substr(0, 3) == "SCH") {
		cutterval = "S3";
		}


	/* *****************************
	Process third character onwards
	****************************** */

	startCounter = 2;

	if (userinput.substr(0, 3) == "SCH") {
		startCounter++;
		}

	for (counter = startCounter; counter < totallength; counter++) {
		for (itable = 0; itable < 36; itable++) {
	
			if (valuelocator.substr(itable, 1) == userinput.substr(counter, 1)) {

				/* ******************************
				Get Cutter Value
				****************************** */	
				nextdigit = tbl3arr.substr(itable, 1);
				cutterval = cutterval + nextdigit;
				}
			}
					
		}
					
	
	/* **********************************************************
	Detect special cases. Otherwise, just return calculated value
	************************************************************ */
	if (whichtable == 5) {
		cutterval = "Use A12 - A19 for numerals";
		}

	if (userinput.length > 2) {
		if (cutterval.substr(1, 1) == "U") {
			cutterval = "Q" + cutterval.substr(2);
			}
		}	

	for (x = 1; x < cutterval.length; x++)	{
		if (cutterval.substr(x, 1) == "Q") {
			cutterval = "Use 2 - 29 for Qa - Qt";
			}
		}
	cutterval ='<head>\n'
  	+'<style>TD { font-weight: bold; font-size=10pt;}\n'
  	+'</style>\n'
  	+'</head>\n'
  	+'<body style="font-size: 10pt; font-family: arial;font-weight: bold;">\n'
	+'<center><h1>' + cutterval + '</h1></center>';
	return cutterval;
}

/***********************************
************************************

Looks for data input by user in
tables and outputs data to result
screen

************************************
***********************************/

function extract() {
var resultarray = new Array();
var cellarray = new Array();
var founditems = '';
var found = 0;
var weblink = '';
var regmatch = '\\b' + userinput;
var regmarc = '\\d\\d\\d';

var regexsearch = new RegExp(regmatch, "i");
var regmarcsearch = new RegExp(regmarc, "i");

switch (search) {
	case "shaca":
		OpenWin(weblink);
		return 'performing SHACA search.......';
	case "gac":
		{
		resultarray = gac.split("\@");
		founditems += '<pre style="font-family: arial; font-size=10pt;">\n'
		+'<b>\n';


		for (x=0; x<=resultarray.length-1; x++) {
			if (regexsearch.exec(resultarray[x])) {
				founditems += resultarray[x] + "\n";
				found = 1;
				}
			}
		founditems += '</b>\n</pre>';

		if (found == 0) {
			founditems = notfound();			
			}
				
		return founditems;
		}
	case "geogcutter":
		{
		resultarray = geogcutter.split("\@");
		break;
		}
	case "aacr":
		{
		resultarray = aacr.split("\@");
		break;
		}
	case "lang":
		{
		resultarray = lang.split("\@");
		break;
		}
	case "country":
		{
		resultarray = country.split("\@");
		break;
		}
	case "marc":
		{
		resultarray = marc.split("\@");
  		founditems +='<head>\n'
  		+'<link title="new" REL=stylesheet HREF="fixed.css" type="text/css" />'
  		+'</head>\n'
  		+'<body>\n'
		+ '<script language="javascript" src="utility.js"></script>\n';
		founditems += '<center><table width="65%">\n';

		for (x=0; x<=resultarray.length-1; x++) {
			if (regexsearch.exec(resultarray[x])) {
				found += 1;
				cellarray = resultarray[x].split("\t");	

				if (found % 2 == 1) {
					founditems += '<tr><td style="background: #c6d6ee;">'
					+'<a href="javascript:OpenWin(\'http://www.oclc.org/bibformats/en/'
					+ cellarray[0].substr(0, 1)
					+ 'xx/'
					+ cellarray[0]
					+ '.shtm\');">'
					+ cellarray[0]
					+ '&nbsp;&nbsp;'
					+ cellarray[1]
					+ '</a></td></tr>'
					+ '\n';

					}
					else
					{
					founditems += '<tr><td>'
					+'<a href="javascript:OpenWin(\'http://www.oclc.org/bibformats/en/'
					+ cellarray[0].substr(0, 1)
					+ 'xx/'
					+ cellarray[0]
					+ '.shtm\');">'
					+ cellarray[0]
					+ '&nbsp;&nbsp;'
					+ cellarray[1]
					+ '</td></tr>'
					+ '\n';
					}
				}
			}
		founditems += '</table></center><p />'
		+'<center class="red"><b>Click on any field above for '
		+'detailed information from OCLC</b>'
		+'<br />OCLC provided data &copy OCLC</center>';

		if (regmarcsearch.exec(userinput)) {
			weblink='http://www.oclc.org/bibformats/en/' + userinput.substr(0, 1) + 'xx/' + userinput
			+'.shtm';

		/************************************
		Looks for numeric OCLC search
		************************************/
			if (userinput == '007') {
				weblink='http://www.oclc.org/bibformats/en/0xx/';
				}

			GetPage(weblink);
			founditems='<b>Retrieving information from OCLC...... <p />All OCLC data is provided by and &copy OCLC.  All OCLC information appears in the same window, so this program will not open multiple windows.  <p /> The Cataloging Calculator also supports keyword searches of MARC fields.</b>';
			return founditems;
			}

        	if (found == 0) {
			founditems = notfound();
			}

		/*************************************
		Performs search in OCLC if only one hit
		**************************************/

		if (found==1) {
			found = 0;
			weblink='http://www.oclc.org/bibformats/en/'
			+ cellarray[0].substr(0, 1)
			+ 'xx/'
			+ cellarray[0]
			+ '.shtm';
			GetPage(weblink);
			founditems='<b>Only one match detected, automatically opening window.....<p />Retrieving information from OCLC...... <p />All OCLC data is provided by and &copy OCLC.  All OCLC information appears in the same window, so this program will not open multiple windows.  </b>';
			return founditems;
			}
			
		return founditems;
		}
	}

  	founditems +='<head>\n'
  	+'<style>TD { font-weight: bold; font-size=10pt;}\n'
  	+'</style>\n'
  	+'</head>\n'
  	+'<body style="font-size: 10pt; font-family: arial;font-weight: bold;">\n'
	+ '<center><table width="65%">\n';

	for (x=0; x<=resultarray.length-1; x++) {
		if (regexsearch.exec(resultarray[x])) {
			found += 1;
			cellarray = resultarray[x].split("\t");	

			if (found % 2 == 1) {
				founditems += '<tr><td style="background: #c6d6ee;">'
				+ cellarray[0]
				+ '</td><td style="background: #c6d6ee;">'
				+ cellarray[1]
				+ '</td></tr>'
				+ "\n";
				}
				else
				{
				founditems += '<tr><td>'
				+ cellarray[0]
				+ '</td><td>'
				+ cellarray[1]
				+ '</td></tr>'
				+ "\n";
				}
			}
		}
	founditems += '</table></center>';

	if (found == 0) {
		founditems = notfound();			
		}
				
	return founditems;
}


/***********************************
************************************
 
Default no items found message

************************************
************************************/

function notfound() {
	return "<center><h1>No matches were found. Please try again</h1></center>";
}

/***********************************
************************************
 
Outputs HTML to search result window

************************************
************************************/

function render(body) {
 searchresults=window.open('','results')
 searchresults.document.write(
  '<html>\n'
  + body
  +'</body></html>'
 )
 searchresults.document.close()
}