//
// File     : pubtable.js
//
// Function : JavaScript functions which change article links from
//            webstore to old, desciptive displays
//
// Implementation :
//
//    <a href="http://webstore.iec.ch/webstore/webstore.nsf/artnum/NNNNNN"
//       onMouseOver="setlinkflag(this);"  onMouseOut="clearlinkflag();">
//       Linked_article_reference</a>
//
//   -- add the onMouseOver and onMouseOut triggers to the webstore link
//
// Written: 2005-01-07 by SWC
//
// Modifications:
// 2006-03-14 SWC - add comments; change domino.iec.ch to webstore.iec.ch
//

var linkflag = null;

if(document.captureEvents) { document.captureEvents(Event.KEYPRESS); }
document.onkeypress = keylink;

function setlinkflag(inlink) {
  linkflag = inlink;
}

function clearlinkflag() {
  linkflag = null;
}

function keylink(e) {

  var evtobj = linkflag;
  if(evtobj == null) { return; }
  if(!e) { var e = window.event; }

  var artnum;
  var keychar;
  var keycode;
  var linkurl;
  var newurl;
  var nqs;
  var pgurl;
  var qsp;
  var san;

  if(e.keyCode) { keycode = e.keyCode; }
  else { keycode = e.which; }
  var keychar = String.fromCharCode(keycode);
  if(keychar == 'd' || keychar == 'D') {
    pgurl = document.URL;
    linkurl = evtobj.href;
    if(linkurl.indexOf('.nsf') == -1) {
      // change link back to webstore
      san = linkurl.lastIndexOf('=');
      artnum = linkurl.substr(san+1);     
      newurl = 'http://webstore.iec.ch/webstore/webstore.nsf/artnum/' + artnum;
    }
    else {
      // change link to cat-det.p
      san = linkurl.lastIndexOf('/');
      artnum = linkurl.substr(san+1);
      qsp = pgurl.indexOf('?');
      if(qsp == -1) { nqs = pgurl; }
      else { nqs = pgurl.substr(0,qsp); }
      newurl = nqs + '?wwwlang=e&wwwprog=cat-det.p&wartnum=' + artnum;
    }
    evtobj.href = newurl;
  }
  ca = 'evtobj = ' + evtobj + "\n";
  ca = ca + 'pgurl = ' + pgurl + "\n";
  ca = ca + 'linkurl = ' + linkurl + "\n";
  ca = ca + 'san = ' + san + "\n";
  ca = ca + 'artnum = ' + artnum + "\n";
  ca = ca + 'qsp = ' + qsp + "\n";
  ca = ca + 'nqs = ' + nqs + "\n";
  ca = ca + 'newurl = ' + newurl + "\n";
//  alert (ca);
  return;
}

// end of wslink