// (c)2000, Compuware Corp
//    Professional Services, E Business / Uniface National Practice
//
function chkSSL(a)
//****************************************************************
// **** ©2000, Compuware Corp (Professional Services, E-Business / Uniface National Practice)
// **** April 24 2000
// **** This function checks to see if this page is opening up under a secure protocol.
// **** If it is not, then the page is opened under a secure protocol.
function chkSSL(obj) {

   var t1 = "https://";
   var t2 = top.location.hostname;
   var t3 = top.location.pathname;
   var t4 = top.location.protocol;

   if (top.location.protocol == "http:") {
	alert ('Opening page :' + t1+t2+t3);
	window.location = t1+t2+t3;
        return;
   }
} // End chkSSL()
// **************************************************************

//****************************************************************
// **** ©2000, Compuware Corp (Professional Services, E-Business / Uniface National Practice)
// **** April 25 2000
// **** This function checks to see if this page is opening up under a secure protocol.
// **** If it is, then the page is opened under a non secure protocol (under http).
function unchkSSL(obj) {

   var t1 = "http://";
   var t2 = top.location.hostname;
   var t3 = top.location.pathname;
   var t4 = top.location.protocol;

   if (top.location.protocol == "https:") {
	alert ('Opening page :' + t1+t2+t3);
	window.location = t1+t2+t3;
        return;
   }
} // End unchkSSL()
// **************************************************************