/* ************************************************************************************* */
/* * Global Javascripts for Dcalog in Drupal                                          * */
/* *                                                                                   * */
/* * History                                                                           * */
/* * Init Date   Description                                                           * */
/* * ---- ------ --------------------------------------------------------------------- * */
/* * KGV  090207 Created                                                               * */
/* ************************************************************************************* */

/* +--------------------+ */
/* | dk_global          | */
/* +--------------------+ */
var is_ie = (document.all)


/* +--------------------+ */
/* | dk_nsplink         | */
/* +--------------------+ */
function dk_nsplink_connect(pPort,pUser) {
	// In NSP we're always using IE
	var zURL = "http://LOCALHOST:"+pPort+"/GETLOGIN?AB=" + pUser
	var loaded = false
	var xml = new ActiveXObject("Msxml.DOMDocument");
	xml.async = false
	try {
		xml.setProperty("ServerHTTPRequest", true)
		xml.load(zURL);
		loaded = true
		if (xml.parseError.errorCode!=0) {			
		//	alert("Erreur chargement config " + zURL + " : " + xml.parseError.errorCode + " - " + xml.parseError.reason)
		}
	} catch (e) {
	//	alert(zURL + " : " + e.number + " : " + e.description)
	}		
}




/* +--------------------+ */
/* | dk_opacweb         | */
/* +--------------------+ */
var dk_opacweb_win;

// Allow the user to create a link with another database
function dk_opacweb_openWinOther (pDatabase) {
	// To open other database
	zURL = dk_account_opacwebURL + "/bin/opacweb.dll/GlobalInfo?XFile=Index&Init=T&HomePage=F"
	zURL += '&XP_DataBaseName='+pDatabase			
	zURL += '&XP_CloseSession=T';
	dk_opacweb_win = window.open(zURL,"dk_opacweb","HEIGHT=600, WIDTH=800");
	dk_opacweb_win.focus();
}

function dk_opacweb_openWin (pURL, pAdvanced) {
	var zSearch = ""
	try {
		document.dk_opacweb_form.action = "";
		var zSearch = document.dk_opacweb_form.search.value
	} catch (e) {}
	var zURL = pURL

	switch (pAdvanced) {
	case true:
		zSearch = "";
		break;
	default:
		if (zSearch=="") return
		zURL += "&URLCenter=Searchqm;XFile=SearchMUXamp;Inner=Tamp;Use1=1036amp;Data1="+zSearch;
		break;
	}
	
	dk_opacweb_win = window.open(zURL,"dk_opacweb","HEIGHT=600, WIDTH=800");
	dk_opacweb_win.focus();

}
function dk_opacweb_openWinURL() {
	var zURL = dk_account_opacwebURL + "/bin/opacweb.dll/GlobalInfo?XFile=Index&Init=T&HomePage=F&XP_CloseSession=T"
	dk_opacweb_win = window.open(zURL,"dk_opacweb","HEIGHT=600, WIDTH=800");
	try {dk_opacweb_win.focus()} catch (e) {}
}
function dk_opacweb_submit(pURL) {
	document.dk_opacweb_form.action = pURL;
	document.dk_opacweb_form.submit();
	return false;
}
function dk_opacweb_closeWin() {
	dk_opacweb_win.close()
}


/* +--------------------+ */
/* | dk_account         | */
/* +--------------------+ */
var dk_account_opacwebURL = "/opacweb";
var dk_account_NSP = false;

function dk_account_setOpacwebURL(pValue) {
	dk_account_opacwebURL = pValue
}
function dk_account_setNSP(pValue) {
	dk_account_NSP = false;
	if (pValue) dk_account_NSP = true;
}

function dk_account_frameSize() {
	var iHeaderFooterHeight = document.getElementById("outerColumnContainer").offsetTop + document.getElementById("opacwebFrame").offsetTop + document.getElementById("footer").offsetHeight 
	var newHeight = document.body.clientHeight-iHeaderFooterHeight - 22;
	return Math.max(newHeight,300);
}
function dk_account_login() {
	var opacwebDLL = dk_account_opacwebURL + "/bin/opacweb.dll/"
	var zUserId = 'Identification abonné'
	var zLink = 'GlobalInfo?XFile=LoginAb&Init=T&Action=ShowAccount&ChooseBase=T&Lang=FR'
	if (is_ie) {
		dk_account_popupIE(opacwebDLL,self,zLink,dk_account_encodeUtf8(zUserId),'310','500','r','T');
	} else {
		dk_account_popupFF(opacwebDLL,self,zLink,dk_account_encodeUtf8(zUserId),'310','500','r','T');
	}
}
function dk_account_windowDetails(pWindow) {
	var win = pWindow
	var obj = new Object()
	
	obj.left	= 0
	obj.top		= 0
	obj.height	= 500
	obj.width	= 750

	if (is_ie) {
		try {obj.left	= win.screenLeft} catch (e) {}
		try {obj.top	= win.screenTop} catch (e) {}
		try {obj.height	= win.document.body.clientHeight} catch (e) {}
		try {obj.width	= win.document.body.clientWidth} catch (e) {}
	} else {
		try {obj.left	= win.screenX+(win.outerWidth-win.innerWidth)-4;} catch (e) {}
		try {obj.top	= win.screenY+(win.outerHeight-24-win.innerHeight)+2;} catch (e) {}
		try {obj.height	= win.innerHeight-0} catch (e) {}
		try {obj.width	= win.innerWidth-0} catch (e) {}
	}
	return obj
}
function dk_account_encodeUtf8(pText) {
	var zRes   = ''	
	var zInput = pText

	for (var i=0; i < zInput.length;i++) {
		var zChar = zInput.substr(i,1)
		var c = zChar.charCodeAt(0)
		if (c <= 0x7F) {
			zRes += zChar
		} else {
			if (c <= 0x7FF) {
				// Had used escape(String.fromCharCode()), but escape wouldn't translate ABC to % equiv
				zRes += dk_account_translateToHex(0xC0 | (c >> 6))
				zRes += dk_account_translateToHex(0x80 | (c & 0x3F))
			} else {
				zRes += dk_account_translateToHex(0xE0 | (c >> 12))
				zRes += dk_account_translateToHex(0x80 | ((c >> 6) & 0x3F))
				zRes += dk_account_translateToHex(0x80 | (c & 0x3F))
			}
		}			
	}
	return zRes;
}
function dk_account_translateToHex(pInt) {
	var nos = new Array(pInt >> 4,pInt & 15)	// Left and right bits
	for (var i=0;i<nos.length;i++) if (nos[i] >= 10) nos[i] = String.fromCharCode(nos[i]+55);
	return "%" + nos[0] + nos[1]
}
function dk_account_popupFF(path,receptorName,it,t,h,w,r,i,top,left)
{	
	winTop = (top) ? top : (screen.availHeight - h)/2;
	winLeft = (left) ? left : (screen.availWidth - w)/2;

	if (r)
		var newWind=window.open(path+it , null, "scrollbars,modal=1,width="+w+",height="+h+",ScreenY="+winTop+",ScreenX="+winLeft+",Resizable=Yes");
	else
		var newWind=window.open(path+it , null, "scrollbars,modal=1,width="+w+",height="+h+",ScreenY="+winTop+",ScreenX="+winLeft+",Center=Yes");
}
function dk_account_popupIE(p,o,u,t,h,w,r,i,top,left){
	 var param = new Object()
	 param.Url = u
	 param.Opener = o
	 zTop  = (top) ? ' dialogTop:'+top+'px;' : ''
	 zLeft = (left) ? ' dialogLeft:'+left+'px;' : ''
	 
	 var zPrefix = (String(u).substr(0,4)=='Free') ? 'Free' : ''

	 if (r)
	 	var returnValue=window.showModalDialog(p + zPrefix+'GlobalInfo?XFile=Modal&WinTitle='+t+'&INIT='+i,param,"dialogHeight: " + h + "px;dialogWidth: " + w + "px;scroll: No;"+zTop+zLeft+" center: Yes; help: No; resizable: Yes; status: No;");
	 else
	 	var returnValue=window.showModalDialog(p + zPrefix+'GlobalInfo?XFile=Modal&WinTitle='+t+'&INIT='+i,param,"dialogHeight: " + h + "px;dialogWidth: " + w + "px;scroll: No;"+zTop+zLeft+" center: Yes; help: No; resizable: No; status: No;");
	if (returnValue) eval(returnValue)
}


/* +--------------------+ */
/* | Global functions   | */
/* +--------------------+ */
/* +--------------------+ */
/* | Other functions    | */
/* +--------------------+ */

/* As far as I can see, the following are NEVER called */
function ShowAccount(LogCode,FullName,DataBase) {
	var opacwebDLL = dk_account_opacwebURL + "/bin/opacweb.dll/"
	var win = parent
	if (NSP) win = self
	//var obj = dk_account_windowDetails(win)
	var obj = new Object()
	obj.height = 600
	obj.width = 800
	obj.left = 0
	obj.right = 0
			
	alert(obj.height)
			
	if (is_ie) {
		dk_account_popupIE(opacwebDLL,self,'AccountAb?XFile=Account&LoginCAb='+LogCode+'&ConsultCAb='+LogCode+'&DataBaseNames='+DataBase,'Consultation du compte',obj.height,obj.width,'r','F',obj.top,obj.left);
	} else {
		dk_account_popupFF(opacwebDLL,self,'AccountAb?XFile=Account&LoginCAb='+LogCode+'&ConsultCAb='+LogCode+'&DataBaseNames='+DataBase,'Consultation du compte',obj.height,obj.width,'r','F',obj.top,obj.left);
	}
}
function encode64(input) {
   var keyStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
   var output = "";
   var chr1, chr2, chr3;
   var enc1, enc2, enc3, enc4;
   var i = 0;

   do {
      chr1 = input.charCodeAt(i++);
      chr2 = input.charCodeAt(i++);
      chr3 = input.charCodeAt(i++);

      enc1 = chr1 >> 2;
      enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);
      enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);
      enc4 = chr3 & 63;

      if (isNaN(chr2)) {
         enc3 = enc4 = 64;
      } else if (isNaN(chr3)) {
         enc4 = 64;
      }

      output = output + keyStr.charAt(enc1) + keyStr.charAt(enc2) + 
         keyStr.charAt(enc3) + keyStr.charAt(enc4);
   } while (i < input.length);
   
   return output;
}

function decode64(input) {
   var keyStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
   var output = "";
   var chr1, chr2, chr3;
   var enc1, enc2, enc3, enc4;
   var i = 0;

   // remove all characters that are not A-Z, a-z, 0-9, +, /, or =
   input = input.replace(/[^A-Za-z0-9\+\/\=]/g, "");

   do {
      enc1 = keyStr.indexOf(input.charAt(i++));
      enc2 = keyStr.indexOf(input.charAt(i++));
      enc3 = keyStr.indexOf(input.charAt(i++));
      enc4 = keyStr.indexOf(input.charAt(i++));

      chr1 = (enc1 << 2) | (enc2 >> 4);
      chr2 = ((enc2 & 15) << 4) | (enc3 >> 2);
      chr3 = ((enc3 & 3) << 6) | enc4;

      output = output + String.fromCharCode(chr1);

      if (enc3 != 64) {
         output = output + String.fromCharCode(chr2);
      }
      if (enc4 != 64) {
         output = output + String.fromCharCode(chr3);
      }
   } while (i < input.length);

   return output;
}
function dk_global_msxml(pType) {	
	switch (pType) {
	case "HTTP":
		try {return new ActiveXObject("Msxml2.XMLHTTP") } catch (e) {
			try {return new ActiveXObject("Microsoft.XMLHTTP") } catch (e) {}
		}
		break;
	case "DOM":
		try {return new ActiveXObject("Msxml2.DomDocument") } catch (e) {
			try {return new ActiveXObject("Msxml.DomDocument") } catch (e) {}
		}
		break;
	default: break;
	}
}
function dk_global_httprequest(pURL) {
	try {
		if (is_ie) var xmlhttp = dk_global_msxml('HTTP')
		else var xmlhttp = new XMLHttpRequest()
	
		xmlhttp.open("GET",pURL,false)	// Synchronous request
		xmlhttp.send(null)
		return xmlhttp.responseText
	} catch (e) {
		return "ERR"+e.description
	}
}

var dk_opacweb_index;
function dk_global_reserve(pId, pNN, pDatabase, pLang) {
	dk_opacweb_index = pId
	var opacwebDLL = dk_account_opacwebURL + "/bin/opacweb.dll/"
	var zTitle = 'Identification abonn&eacute;'
	var zLink = 'GlobalInfo?XFile=LoginAb&Init=T&Action=Reserve&ChooseBase=F&NN='+pNN+'&DataBaseNames='+pDatabase+'&Lang='+pLang
	if (is_ie) {
		//dk_account_popupIE(opacwebDLL,self,zLink,dk_account_encodeUtf8(zTitle),'310','500','r','T');
		dk_account_popupIE(opacwebDLL,self,zLink,zTitle,'310','500','r','T');
	} else {
		dk_account_popupFF(opacwebDLL,self,zLink,dk_account_encodeUtf8(zTitle),'310','500','r','T');
	}
}
function Refresh() {
	// remove the notice content
	zDiv = document.getElementById('dk_opacweb_res'+dk_opacweb_index)
	zA = document.getElementById('dk_opacweb_anchor'+dk_opacweb_index)
	zDiv.style.display='none'
	zA.className = "collapsed"
	zDiv.innerHTML=''
}

// Used in dk_hotlist and dk_openopac
var zObj
function dk_opacweb_toggle(pURL, pId, pLang) {
	var zLang = (pLang) ? pLang : 'FR';
	if (zLang=='') zLang='FR'

    zDiv = document.getElementById('dk_opacweb_res'+pId)
	zA = document.getElementById('dk_opacweb_anchor'+pId)

	zNN = ''
	zDatabase = ''
	zNotice = ''
	zReserveMessage = ''
	
	if (zDiv.style.display=='none') {
		if (zDiv.innerHTML=='') {
			zXML = dk_global_httprequest(pURL)
			if (is_ie) {
				zObj = dk_global_msxml('DOM')
				zObj.async = false
				zObj.loadXML(zXML)
				try {zNotice = zObj.selectSingleNode("/root/notice/span").xml} catch (e) {}
				try {zNN = zObj.selectSingleNode("/root/reserve/nn").text} catch (e) {}
				try {zDatabase = zObj.selectSingleNode("/root/reserve/database").text} catch (e) {}
				// try {zReservedata = zObj.selectSingleNode("/root/reservedata").xml} catch (e) {}
				try {zReserveMessage = zObj.selectSingleNode("/root/reserveMessage").xml} catch (e) {}
			} else {	
			
				zObj = document.createElement("DIV");
				zObj.innerHTML = zXML
				
				zRoot = zObj.childNodes[0]

				for (var i=0; i<zRoot.childNodes.length; i++) {
				  var node = zRoot.childNodes[i]
				  switch (node.nodeName.toUpperCase()) {
				    case 'NOTICE':
				      zNotice = node.firstChild.innerHTML
				      break;
				    case 'RESERVE':
				      zNN = node.getElementsByTagName("NN")[0].innerHTML
				      zDatabase = node.getElementsByTagName("DATABASE")[0].innerHTML
				      break;
				    case 'RESERVEMESSAGE':
				      zReserveMessage = node.firstChild.innerHTML
				      break;
				    default:
				      break;
				  }
				}

			}
			
			// Manually remove the links until there is another way to do this
			zNotice = zNotice.replace(/<a /g, '<span ')
			zNotice = zNotice.replace(/<A /g, '<span ')
			zNotice = zNotice.replace(/onmouse/g, 'xonmouse')
			zNotice = zNotice.replace(/onMouse/g, 'xonmouse')
			zNotice = zNotice.replace(/onclick/g, 'xonclick')
			zNotice = zNotice.replace(/onClick/g, 'xonclick')
			
			zNotice += '<div class="dkopacwebreserve">'
			
			if (zNN!='') {
				var zTitle = (zLang=='FR') ? 'R&eacute;server' : 'Reserve';
				zNotice += '<a class="dkopacwebreserve" href="javascript:dk_global_reserve(\''+pId+'\',\''+zNN+'\',\''+zDatabase+'\',\''+zLang+'\')">'+zTitle+'</a>';
			} else {
				zNotice += '<span>'+zReserveMessage+'</span>'
			}
			zNotice += '</div>'
			zDiv.innerHTML = zNotice
		}
		zDiv.style.display=''
		zA.className = "expanded"
	} else {
		zDiv.style.display='none'
		zA.className = "collapsed"
	}
}


// not used
/*
function dk_opacweb_ajaxsub (pStart, pDatabase, pDocType) {
	var zForm = document.getElementById("dk-opacweb-frmSearch")
	zForm.dk_opacweb_ajaxstart.value = pStart
	zForm.dk_opacweb_ajaxsearch.value = zForm.dk_opacweb_ajaxsearchorig.value
	zForm.submit();
}
*/
// Used in dk_openopac
function dk_openopac_ajaxsub (pStart, pDatabase, pDocType) {
	var zForm = document.getElementById("dk-openopac-frmSearch")
	zForm.dk_openopac_ajaxstart.value = pStart
	zForm.dk_openopac_ajaxsearch.value = zForm.dk_openopac_ajaxsearchorig.value
	zForm.submit();
}