// script written by aleto 
// http://aleto.ch

function setTarget(e){
   if(e) return e.target;
   if(event) return event.srcElement;
}
window.onload=function (e) {
if( document.getElementById && document.getElementsByTagName &&
   ((e && e.target) || (event && typeof event.srcElement=='object')) ){
      var comments;
      if( comments=document.getElementsByTagName('ol')[0] ) {         
         comments.onclick=function (e) {
            var ele=setTarget(e);
            if( (/a/i.test(ele.nodeName) && /commentform/.test(ele.href) ) || (/dfn/i.test(ele.nodeName)) ) {
               var liArr=document.getElementsByTagName('ol')[0].getElementsByTagName('li'), listArr=[], liEle, i=0;
               for(i=0; liEle=liArr[i]; i++ ) if( liEle.parentNode==document.getElementsByTagName('ol')[0] ) listArr.push(liEle);
               ele=ele.parentNode;
               i=0;
               while(listArr[i]!=ele) i++;            
               document.getElementById('nucleus_cf_body').focus();
               document.getElementById('nucleus_cf_body').value+='['+(i+1)+'] ';             
            }
            return true;
         }
      }
   }
}