/**
 *  Custom routines for Robertson Library Evergreen environment.
 */

function rdetailShowCategories( ) {
  loadMARCRecord();
//  loadParser();

}



var MARCRequest;
var marctags;
var firstResultRow;


function loadMARCRecord( ) {

  MARCRequest = null;

  if (window.XMLHttpRequest) {
    // Code for all new browsers
    MARCRequest = new XMLHttpRequest();
  } else if ( window.ActiveXObject ) {
    // Code for IE 5 and 6
    MARCRequest = new ActiveXObject( "Microsoft.XMLHTTP" );
  }

  if ( MARCRequest != null ) {
    MARCRequest.onreadystatechange = marcrec_State_Change;
    MARCRequest.open( "GET", "/opac/extras/supercat/retrieve/marcxml/record/" + record.doc_id(), true );
    MARCRequest.send(null);
  }

}

/** Return a data field or fields from the current item's MARC record.
 */
function getMarcDataField( dataField ) {

  var MARCXML = MARCRequest.responseXML;

  if ( MARCXML == null ) {
    return null;
  }

  marcItems = getElementsByAttribute( MARCXML, 'controlfield', 'tag', dataField );

  if ( marcItems.length == 0 ) {
    marcItems = getElementsByAttribute( MARCXML, 'datafield', 'tag', dataField );
  }
  
  return marcItems;
    
}

/**
 *  Return the specified subfield from the supplied MARC data field item.
 *  @param dataFieldItem An array of subfields that have the same marc data field tag.
 *  @param subField A string specifying the subfield to extract.
 */
function getMarcSubField( dataFieldItem, subField ) {
  nextItem = getElementsByAttribute( dataFieldItem, 'subfield', 'code', ( subField != null ? subField : '*' ) );
  
  return nextItem;
}

function marcrec_State_Change() {

var treeList = new Array();

  if ( MARCRequest.readyState == 4 ) {
    // 4 means "loaded"
    if ( MARCRequest.status == 200 ) {
      // 200 means "OK"

     marctags = document.getElementsByTagName("MARC");

      for ( i = 0; i < marctags.length; i++ ) {
        dataField = marctags.item(i).getAttribute('dataField');
        controlField = marctags.item(i).getAttribute('controlField');
        marcItems = getElementsByAttribute( MARCRequest.responseXML, 'controlfield', 'tag', controlField );
        
        if ( marcItems.length > 0 ) {
          // This is a control field, which has no subfields, rather than a data field.

            itemString = getText( marcItems[0] );
 			currentField = document.createElement( 'span' );
            
            setText( currentField, itemString );
			marctags[i].parentNode.appendChild( currentField );
          continue;
        }
        
        marcItems = getElementsByAttribute( MARCRequest.responseXML, 'datafield', 'tag', dataField );

        buildSearchString = ( marctags[i].getAttribute( 'searchfield' ) != null ? true : false );

    	itemString = '';	
	var item=new Array();
	var newTerm='';

        for ( j = 0; j < marcItems.length; j++ ) {

          nextItem = getElementsByAttribute( marcItems[j], 'subfield', 'code', ( marctags[i].getAttribute('subfield') != null ? marctags[i].getAttribute('subfield') : '*' ) );

          for ( k = 0; k < nextItem.length; k++ ) {
		itemString += nextItem[k].firstChild.nodeValue;
   		currentSubField = document.createElement( (buildSearchString ? 'a' : 'span') );
            
            	setText( currentSubField, itemString );
		marctags[i].parentNode.appendChild( currentSubField );

		if ( buildSearchString ) {
			href = '../xml/rresult.xml?rt=' + marctags[i].getAttribute('searchfield') + '&tp=' + marctags[i].getAttribute('searchfield') + '&t=';
  
              		for ( l = 0; l <= k; l++ ) {
                		href += nextItem[l].firstChild.nodeValue + '%20'; // it's ok to have a space at the end.
			}
              
			//GRPL: these will always search the whole system l=9
              		href += '&l=9&ol=9&f=&av=';
              		currentSubField.setAttribute('href', href);
              		currentSubField.setAttribute('title', 'Perform a search on this term' );
	      		currentSubField.setAttribute('class', 'classic_link');
		}

            	separatorItem = document.createElement('span');
			
     	    	if ( k < nextItem.length - 1) {
              		setText( separatorItem, ( marctags[i].getAttribute('separator') != null ? ' ' + marctags[i].getAttribute('separator') + ' ' : ' ' ) );
              		marctags[i].parentNode.appendChild( separatorItem );
			newTerm += itemString+"+";

            	} else {
			if (dataField.match("65"))
				newTerm += itemString;
			if ( marctags[i].getAttribute( 'newline' ) != null ) {
			    	if ( marctags[i].getAttribute( 'newline' ) == 'no' ){
			      		setText( separatorItem, ' ' );
                  			marctags[i].parentNode.appendChild( separatorItem );
                                	newTerm += itemString+"+";
			    	} else {
			      		marctags[i].parentNode.appendChild( document.createElement('br') );
			    	}
			} else {
                		marctags[i].parentNode.appendChild( document.createElement('br') );

				item.push(newTerm);
				newTerm = '';

            		}
		}

	    	itemString = '';
            
          }
        } // for j

	treeList.push(item);


        if ( getText(marctags[i].parentNode).replace(/^\s+|\s+$/g, '') == '' ) {
            hideMe(marctags[i].parentNode.parentNode);
	}

    } // for i


   } // status 200
  } // Readystate 4 

   for (x=0; x < treeList.length; x++){
	customDrawSidebarTrees(
                STYPE_KEYWORD,
                "customSidebarTree", treeList[x],
                $("subject_custom_sidebar"),
                $("custom_sidebar_tree_div") );
   }

} // close function


/**
 *  Cross-browser funciton to apply XSLT stylesheet to
 *  an XML document object.
 */ 
function transformXSLT( XSLStyleSheet, XMLData, InsertElementID) {
  if (window.ActiveXObject) {
    //Code for internet explorer
    TransformDoc = XMLData.transformNode(XSLStyleSheet);
    document.getElementById(InsertElementID).innerHTML = TransformDoc;
  }
  else if (document.implementation && document.implementation.createDocument) {
    //Code for mozilla
    XSLTProcessor = new XSLTProcessor();
    XSLTProcessor.importStylesheet(XSLStyleSheet);
    TransformDoc = XSLTProcessor.transformToFragment(XMLData, document);
    document.getElementById(InsertElementID).appendChild(TransformDoc);
  }
  else {
    return false;
  }


}

function getElementsByAttribute(oElm, strTagName, strAttributeName, strAttributeValue) {
  var arrElements = oElm.getElementsByTagName(strTagName );
  var arrReturnElements = new Array();
  var oAttributeValue = new XRegExp( "(^|\\s)" + strAttributeValue + "(\\s|$)", "i" );
  var oCurrent;
  var oAttribute;
  for ( var i=0; i < arrElements.length; i++ ) {
   oCurrent = arrElements[i];
   oAttribute = oCurrent.getAttribute( strAttributeName );
   if( oAttribute != null && oAttribute.length > 0) { 
      if( oAttributeValue && oAttributeValue.test( oAttribute ) ) {
        arrReturnElements.push(oCurrent);
      }
    }
  }
  return arrReturnElements;
}

/**
 *  Hack to fix "electronic electronic resource" from showing up in physical desc. field.
 */
function rdetailFixPhysicalDescription() {
  phys = document.getElementById( 'rdetail_physical_desc' );
  physstr = getText(phys);
  setText( phys, physstr.substr(0, 22) ) ;
  if (physstr && physstr.substr(0, 22) == ' electronic electronic' ) {

    newphysstr = 'e' + physstr.substring( 13, physstr.length );
	setText(phys, newphysstr);
  }
  
  // Internet Explorer only
  if (physstr && physstr.substr(0, 21) == 'electronic electronic' ) {

    newphysstr = 'e' + physstr.substring( 12, physstr.length );
	setText(phys, newphysstr);
  }

}

function rdetailShowFirstItemDetails( ) {

//  var detailItems = getElementsByAttribute( document, 'a', 'name', 'details' );
/*  var detailItems = document.getElementsByName( 'details' );

  alert ( detailItems.length );
  for ( i = 0; i < detailItems.length; i++ ) {
    if ( detailItems[i].href == '' ) {
      continue;
    }
    evail( detailItems[i].href );
    return;
  }
*/

}

function trimStr( str ) {
  return str.replace(/^\s+|\s+$/g, '');
}

/** 
 *  Cross-browser hacks below this point. Ugly.
 */
function getText( control ) {
  if ( control == null ) {
    return '';
  }
  if (document.all){
    return control.innerText;
  } else {
    return trimStr(control.textContent);
  } 
}

function setText(control, value) {
  if (document.all){
    control.innerText = value;
  }else{
    control.textContent = value; 
  } 
}


function customDrawSidebarTrees( stype, treeName, items, wrapperNode, destNode ) {
        eval("tree = " + treeName);

        var xrefCache = [];
        var x = 0;
	var found='';
	var oldRoot='';
        for( var i in items ) {

                if(isNull(items[i])) continue;

                /* again, IE is a turd */
                if(IE) { if(x++ > 5) break; }
                else { if(x++ > 7) break; }

                var args = {};
		var termList='';
		if (items[i]){
			var term = items[i].split("+");
			var haveRoot='';
			for (j = 0; j < term.length; j++ ) {
			   termList += term[j]+"+"
			   var item = normalize(truncate(termList,65));		
			   var href = resultQuickLink( item, stype);
			   if ( !haveRoot && !oldRoot.match(term[j])){	
				if (!(oldRoot.match(term[j])) ){
              	  			tree.addNode( stype + "_" + term[j], treeName + 'Root', term[j], href );
					oldRoot += term[j];
				}
				haveRoot = term[j];
			   }else{
				if ( !(found.match(term[j])) && termList.match(haveRoot) ){
					tree.addNode( stype + "_" + term[j], stype + '_' + haveRoot , term[j], href );
					found += term[j];
					haveRoot = term[j];
				}
			   }
			}
		}
        }

}