

/***********************************************
* AnyLink Drop Down Menu- © Dynamic Drive (www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit http://www.dynamicdrive.com/ for full source code
*
* This script was modified by Alexander Mayers to pass additional variables into this script
* Modified Jan-2004
***********************************************/
	
var menuwidth='75px' //default menu width
var menubgcolor='#F8F8F8'  //menu bgcolor
var disappeardelay=250  //menu disappear speed onMouseout (in miliseconds)
var hidemenu_onclick="yes" //hide menu when user clicks within menu?
var ie4=document.all
var ns6=document.getElementById&&!document.all

if (ie4||ns6)
document.write('<div id="dropmenudiv" style="visibility:hidden;width:'+menuwidth+';background-color:'+menubgcolor+'" onMouseover="clearhidemenu()" onMouseout="dynamichide(event)"></div>')

function getposOffset(what, offsettype){
var totaloffset=(offsettype=="left")? what.offsetLeft : what.offsetTop;
var parentEl=what.offsetParent;
while (parentEl!=null){
totaloffset=(offsettype=="left")? totaloffset+parentEl.offsetLeft : totaloffset+parentEl.offsetTop;
parentEl=parentEl.offsetParent;
}
return totaloffset;
}


function showhide(obj, e, visible, hidden, menuwidth, menuVar){
if (ie4||ns6)
dropmenuobj.style.left=dropmenuobj.style.top=-500
if (menuwidth!=""){
dropmenuobj.widthobj=dropmenuobj.style
dropmenuobj.widthobj.width=menuwidth
}
if (e.type=="click" && obj.visibility==hidden || e.type=="mouseover")
obj.visibility=visible
else if (e.type=="click")
obj.visibility=hidden
}

function iecompattest(){
return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}

function clearbrowseredge(obj, whichedge){
var edgeoffset=0
if (whichedge=="rightedge"){
var windowedge=ie4 && !window.opera? iecompattest().scrollLeft+iecompattest().clientWidth-15 : window.pageXOffset+window.innerWidth-15
dropmenuobj.contentmeasure=dropmenuobj.offsetWidth
if (windowedge-dropmenuobj.x < dropmenuobj.contentmeasure)
edgeoffset=dropmenuobj.contentmeasure-obj.offsetWidth
}
else{
var windowedge=ie4 && !window.opera? iecompattest().scrollTop+iecompattest().clientHeight-15 : window.pageYOffset+window.innerHeight-18
dropmenuobj.contentmeasure=dropmenuobj.offsetHeight
if (windowedge-dropmenuobj.y < dropmenuobj.contentmeasure)
edgeoffset=dropmenuobj.contentmeasure+obj.offsetHeight
}
return edgeoffset
}

function populatemenu(what){
if (ie4||ns6)
dropmenuobj.innerHTML=what.join("")
}


function dropdownmenu(obj, e, menuwidth, menuVar, menuNumber){

var menucontents=new Array()

//___________________________________________________
if (menuNumber=='1')
{
//Contents for menu 1 SOP LINKS
menucontents[0]='<div align="right"><h2>Resources for ' + menuVar + '&nbsp;&nbsp;</h2></div>'
menucontents[1]='<img src="include/image/line_fade_grey5.gif"><br>'
menucontents[2]='&nbsp;<a href="http://insidepra/pramanagementsystem/SOPs/link.asp?doc=' + menuVar + '">SOP</a><br>'
menucontents[3]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/?DB=ProcessList.mdb&tbl=webSOP_Information&q=&#34;' + menuVar + '&#34;&op=AND&r=20&f=rpt&p=">SOP Status</a><br>'
menucontents[4]='&nbsp;<a href="http://insidepra/pramanagementsystem/SOPs/linkAll.asp?doc=' + menuVar + '">Associated Documents</a><br>'
//FEEDBACK VIEW
menucontents[5]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/?DB=feedback.mdb&tbl=webPRA_Management_System_Feedback&fld=Process&w=' + menuVar + '&f=srpt&col=ID&o=1&z=2&r=10">Feedback: View</a><br>'

//FEEDBACK SUBMIT
menucontents[6]='&nbsp;<a href="http://insidepra/pramanagementsystem/feedbackSOP.asp?doc=' + menuVar + '">Feedback: Submit</a><br>'

//METRICS
menucontents[7]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/?DB=MonthlyReports.mdb&tbl=webPRA_Management_System_Metrics&fld=SOP&w=' + menuVar + '&r=10&f=srpt&col=ID&o=1&z=2">Metrics</a><br>'

//NONCONFORMITY REPORTS
menucontents[8]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/?DB=NonconformityReports.mdb&tbl=webNonconformity_Reports&fld=SOP%20Requirements&w=' + menuVar + '&r=10&f=srpt&col=Nonconformity%20Report%20ID&o=0&z=1">Nonconformity Reports</a><br>'

//PROBLEM RESOLUTION REPORTS
//menucontents[9]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/myTableDisplay.asp?DB=ProcessList.mdb&tbl=webProblem_Resolution_Reports&fld=Affected%20Process%20or%20System&w=' + menuVar + '&r=10&f=srpt&col=Problem%20ID&o=1&z=2">Problem Resolution Reports</a><br>'

//JOB AND ROLE REQUIREMENTS
menucontents[9]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/?DB=ProcessList.mdb&tbl=webSOP_BY_ROLE&fld=SOP&w=' + menuVar + '">Job and Role Requirements</a><br>'

//menucontents[5]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/myTableDisplay.asp?DB=feedback.mdb&tbl=webPRA_Management_System_Feedback&q=&#34;' + menuVar + '&#34;&op=AND&r=20&f=srpt&col=ID&o=1&z=2">Feedback: View</a><br>'
//menucontents[7]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/myTableDisplay.asp?DB=MonthlyReports.mdb&tbl=webPRA_Management_System_Metrics&q=&#34;' + menuVar + '&#34;&op=AND&r=10&f=srpt&col=ID&o=1&z=2">Metrics</a><br>'
//menucontents[8]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/myTableDisplay.asp?DB=NonconformityReports.mdb&tbl=webNonconformity_Reports&q=&#34;' + menuVar + '&#34;&op=AND&r=10&f=srpt&col=Nonconformity%20Report%20ID&o=0&z=1">Nonconformity Reports</a><br>'
//menucontents[9]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/myTableDisplay.asp?DB=ProcessList.mdb&tbl=webProblem_Resolution_Reports&q=&#34;' + menuVar + '&#34;&op=AND&r=10&f=srpt&col=Problem%20ID&o=1&z=2">Problem Resolution Reports</a><br>'
//menucontents[10]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/myTableDisplay.asp?DB=ProcessList.mdb&tbl=webRoles_by_SOP&q=&#34;' + menuVar + '&#34;&op=AND&r=40&f=tbl&col=Description&o=1&z=1">Job and Role Requirements</a><br>'
}


if (menuNumber=='2')
{
//Contents for menu 2 ID RELATED EXPORT
//var menucontents2=new Array()
menucontents[0]='<div align="right"><h2>Export Options&nbsp;&nbsp;</h2></div>'
menucontents[1]='<img src="include/image/line_fade_grey5.gif"><br>'
//menucontents[2]='&nbsp;<a href="mailto:?&Subject=PRA Management System Record&body=http://insidepra/pramanagementsystem/dbv/myTableDisplay.asp' + menuVar + '">Send this record by email</a><br>'
menucontents[2]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/ExportWord.asp' + menuVar + '&f=srpt">Export this record to Word</a><br>'
menucontents[3]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/ExportExcel.asp' + menuVar + '">Export this record to Excel</a><br>'
menucontents[4]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/myTableDisplay.asp' + menuVar + '&f=srpt" target="_blank">View this record in new window</a><br>'
}


if (menuNumber=='3')
{
//Contents for menu 3 PRA INSTITUTE JOB TITLES
menucontents[0]='<div align="right"><h2>Resources for ' + menuVar + '&nbsp;&nbsp;</h2></div>'
menucontents[1]='<img src="include/image/line_fade_grey5.gif"><br>'
menucontents[2]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/?DB=ProcessList.mdb&tbl=webSOP_BY_ROLE&fld=Job%20Title&w=' + menuVar + '">SOP Requirements</a><br>'
menucontents[3]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/?DB=skillsinventory.mdb&tbl=webJob_Skills_and_Training&fld=Skills&w=' + menuVar + '&f=stbl">Skills and Associated Training</a><br>'
menucontents[4]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/?DB=feedback.mdb&tbl=webPRA_Management_System_Feedback&fld=Subject&w=Job%20Title&q=%22' + menuVar + '%22&r=10&f=srpt&col=ID">Feedback: View</a><br>'
//menucontents[4]='&nbsp;<a href="http://insidepra/pramanagementsystem/dbv/myTableDisplay.asp?DB=skillsinventory_feedback.mdb&tbl=webJob_Skills_Feedback&q=%22' + menuVar + '%22&op=AND&r=20&f=srpt&col=ID&o=1&z=2">Feedback: View</a><br>'
menucontents[5]='&nbsp;<a href="http://insidepra/pramanagementsystem/feedback_form.asp?subject=job&title=' + menuVar + '">Feedback: Submit</a><br>'
}
//__________________________________________________


if (window.event) event.cancelBubble=true
else if (e.stopPropagation) e.stopPropagation()
clearhidemenu()
dropmenuobj=document.getElementById? document.getElementById("dropmenudiv") : dropmenudiv
populatemenu(menucontents)

if (ie4||ns6){
showhide(dropmenuobj.style, e, "visible", "hidden", menuwidth)
dropmenuobj.x=getposOffset(obj, "left")
dropmenuobj.y=getposOffset(obj, "top")
dropmenuobj.style.left=dropmenuobj.x-clearbrowseredge(obj, "rightedge")+"px"
dropmenuobj.style.top=dropmenuobj.y-clearbrowseredge(obj, "bottomedge")+obj.offsetHeight+"px"
}

return clickreturnvalue()
}

function clickreturnvalue(){
if (ie4||ns6) return false
else return true
}

function contains_ns6(a, b) {
while (b.parentNode)
if ((b = b.parentNode) == a)
return true;
return false;
}

function dynamichide(e){
if (ie4&&!dropmenuobj.contains(e.toElement))
delayhidemenu()
else if (ns6&&e.currentTarget!= e.relatedTarget&& !contains_ns6(e.currentTarget, e.relatedTarget))
delayhidemenu()
}

function hidemenu(e){
if (typeof dropmenuobj!="undefined"){
if (ie4||ns6)
dropmenuobj.style.visibility="hidden"
}
}

function delayhidemenu(){
if (ie4||ns6)
delayhide=setTimeout("hidemenu()",disappeardelay)
}

function clearhidemenu(){
if (typeof delayhide!="undefined")
clearTimeout(delayhide)
}

if (hidemenu_onclick=="yes")
document.onclick=hidemenu

