//* Utility functions
//*
//* 01/12/04 1.0 js New
//* 09/12/04 1.1 js Chg omoverCmt to position cmt above anchor
//* 11/01/05 1.2 js Add getAllIds() getAllTags() getObjType() (for debugging)
//* 26/01/05 1.3 js Add isInFrames()
//* 13/05/05 1.4 js Mv pic_window() from our_area.html
//* 15/05/05 1.5 js Add resize to pic_window()
//*
//* display a 'comment' just below and right of an 'anchor' enclosing tag (in the example its a span)
//* use with cmtAnch and cmtText style definitions
//*
//* example: "Traditional and modern liturgies
//* set of words, music and actions, but without music.
//*
//* Take the id of the anchor and the comment, and work out the coords of the anchor
//* Position the comment just below and right of the anchor and change 'display' to inline
function omoverCmt(a_id, c_id) {
a=document.all(a_id)
if (a==null)
alert("invalid anchor id ["+a_id+"]")
c=document.all(c_id)
if (c==null)
alert("invalid comment id ["+c_id+"]")
if (a==null || c==null)
return
a_oh=a.offsetTop
a_ol=a.offsetLeft
el=a
// work backwards up enclosing container tree
while (el.tagName != "BODY") {
el = el.offsetParent;
a_ol = a_ol + el.offsetLeft;
a_oh = a_oh + el.offsetTop;
}
//alert("a_oh="+a_oh+" a_ol="+a_ol)
c_oh=c.offsetHeight
c_ol=c.offsetLeft
//alert("c_oh="+c_oh+" c_ol="+c_ol)
//alert("disp="+c.display)
c.style.left=a_ol+10
c.style.top=a_oh+30
c.style.width=100
c.style.display="inline"
}
//* hide comment and ensure text does not take up anyspace in page
function omoutCmt(c_id) {
//c=document.all(c_id)
c.style.display="none"
}
//* convert links from CMS /aspawdcms/opencms to /aspawdcms/export
//* where this is not done by CMS export (in AREA tag under MAP tag)
//*
function conv_link_x(id) {
//
m=document.all(id)
mapname=m.name
// assume 1 childnode of name AREA
area=m.childNodes[0]
anName=area.nodeName // ie AREA
var aa=""
for (var i=0; i< area.attributes.length ; i++) {
if (area.attributes[i].value != "null" && area.attributes[i].value != ""){
an=area.attributes[i].name
av=area.attributes[i].value
if (av.indexOf("/aspawdcms/opencms")>0){
av2=av.replace("/aspawdcms/opencms","/aspawdcms/export")
area.attributes[i].value=av2
// alert("attr="+area.attributes[i].value)
}
// aa=aa+","+an+"="+av
}
}
//alert("all attrs: anname="+anName+" aa"+aa)
}
var win;
function openmsgwin(role){
//win=window.open("","initsesswin","scrollbars,resizeable,menubar,status,width=700");
win=window.open("","openmsgwin","resizeable,status,width=700,height=400");
var win_html="";
win_html=win_html+""
win_html=win_html+"";
win_html=win_html+"";
win.document.write(win_html);
win.document.close(); //close writestream
win.focus();
}