// trim right and left
function Trim(txt) {
  return txt.replace(/^\s+|\s+$/g,"");
}

// trim left
function LTrim(txt) {
  return txt.replace(/^\s+/,"");
}

// trim right
function RTrim(txt) {
  return txt.replace(/\s+$/,"");
}

// convret string to array
function StrToArray(txt) {
  return txt.split('');
}

// return length of string
function Len(str) {
  return String(str).length;
}

// return n characters from left of string
function LeftS(str, n) {
  if (n <= 0)
    return "";
  else if (n > String(str).length)
    return str;
  else
    return String(str).substring(0, n);
}

// return n characters from right of string
function RightS(str, n) {
  if (n <= 0)
    return "";
  else if (n > String(str).length)
    return str;
  else {
   var iLen = String(str).length;
   return String(str).substring(iLen, iLen - n);
  }
}

// return n characters from <start>
function MidS(str, start, n) {
  start -= 1;
  if (start < 0 || n <= 0) return "";
  var iEnd,
  iLen = String(str).length;
  if (start + n > iLen)
    iEnd = iLen;
  else
    iEnd = start + n;
  return String(str).substring(start, iEnd);
}

// return all characters from <start> to end of string
function EndS(str, start) {
  start -= 1;
  if (start < 0 || start > String(str).length) return "";
  return String(str).substring(start, String(str).length);
}

// return position of str within txt, 0 if not found, case sensitive
function Pos(str, txt) {
  return txt.indexOf(str) + 1;
}

// return position of str within txt, 0 if not found, case insensitive
function UPos(str, txt) {
  var s1 = str.toLowerCase();
  var s2 = txt.toLowerCase();
  return s2.indexOf(s1) + 1;
}

// return a Landranger grid ref as x,y
function LandrangerToXY(landranger) {
  var LR = landranger.toUpperCase();
  LR = LR.replace(/ /g, "");
  var lets = LeftS(LR, 2); 
  var nums = EndS(LR, 3);
  var lng = Len(nums);
  var mult;
  switch(lng)
  {
  case 2:
    mult = 10000;
    break;    
  case 4:
    mult = 1000;
    break;  
  case 6:
    mult = 100;
    break;  
  case 8:
    mult = 10;
    break;  
  case 10:
    mult = 1;
    break;  
  default:
    return "";
  }
  var LRE = LeftS(nums, lng / 2) * mult;
  var LRN = EndS(nums, 1 + lng / 2) * mult;
  var N = Math.floor((Pos(lets.charAt(1), "VWXYZQRSTULMNOPFGHJKABCDE") - 1) / 5);
  var E = Math.floor((Pos(lets.charAt(1), "AFLQVBGMRWCHNSXDJOTYEKPUZ") - 1) / 5);
  N = N + Math.floor(((Pos(lets.charAt(0), "STUVWNOPQRHJKLMCDEFGXYZAB") - 1) / 5)) * 5;
  E = E + Math.floor(((Pos(lets.charAt(0), "SNHCXTOJDYUPKEZQLFAVRMGBW") - 1) / 5)) * 5;
  N = N * 100000 + LRN;
  E = E * 100000 + LRE;
  return E + ',' + N;
}

function LandrangerToStreetMap(landranger, zoom, arrow) {
  var LR = LandrangerToXY(landranger);
  var A = "N";
  if (LR != "") {
    var arr = new Array();
	arr = LR.split(",");
	if (arrow == true) {
      A = "Y";
	}
	window.open( "http://www.streetmap.co.uk/streetmap.dll?grid2map?" + "X=" + arr[0] + "&Y=" + arr[1] + "&Arrow=" + A + "&Zoom=" + zoom);
  }
  else {
    return "";
  }
}

// add event
function addEvent(elm, evType, fn, useCapture) {
  if (elm.addEventListener) {
    elm.addEventListener(evType, fn, useCapture);
    return true;
  }
  else if (elm.attachEvent) {
    var r = elm.attachEvent('on' + evType, fn);
    EventCache.add(elm, evType, fn);
    return r;
  }
  else {
    elm['on' + evType] = fn;
  }
}

function getEventSrc(e) {
  if (!e) e = window.event;
  if (e.originalTarget)
  return e.originalTarget;
  else if (e.srcElement)
  return e.srcElement;
}

function addLoadEvent(func) {
  var oldonload = window.onload;
  if (typeof window.onload != 'function') {
    window.onload = func;
  } else {
    window.onload = 
    function() {
      oldonload();
      func();
    }
  }
}

  var EventCache = function() {
  var listEvents = [];
  return {
    listEvents: listEvents,
    add: function(node, sEventName, fHandler, bCapture) {
      listEvents.push(arguments);
    },
   flush: function() {
      var i,
      item;
      for (i = listEvents.length - 1; i >= 0; i = i - 1) {
        item = listEvents[i];
        if (item[0].removeEventListener) {
          item[0].removeEventListener(item[1], item[2], item[3]);
        };
        /* From this point on we need the event names to be prefixed with 'on" */
        if (item[1].substring(0, 2) != "on") {
          item[1] = "on" + item[1];
        };
        if (item[0].detachEvent) {
          item[0].detachEvent(item[1], item[2]);
        };
        item[0][item[1]] = null;
      };
    }
  };
} ();

addEvent(window, 'unload', EventCache.flush, false);

// grab Elements from the DOM by className

function getElementsByClass(searchClass,node,tag) {
  var classElements = new Array();
  if (node == null)
  node = document;
  if (tag == null)
  tag = '*';
  var els = node.getElementsByTagName(tag);
  var elsLen = els.length;
  var pattern = new RegExp("(^|\\s)"+searchClass+"(\\s|$)");
  for (i = 0, j = 0; i < elsLen; i++) {
    if (pattern.test(els[i].className)) {
      classElements[j] = els[i];
      j++;
    }
  }
  return classElements;
}

// toggle an element's display

function Toggle(obj) {
  var el = document.getElementById(obj);
  if (el.style.display != 'none') {
    el.style.display = 'none';
  }
  else {
    el.style.display = '';
  }
}

// insert an element after a particular node

function insertAfter(parent, node, referenceNode) {
  parent.insertBefore(node, referenceNode.nextSibling);
}

// Array prototype, matches value in array: returns bool

Array.prototype.inArray = function (value) {
  var i;
  for (i=0; i < this.length; i++) {
    if (this[i] === value) {
      return true;
    }
  }
  return false;
};

// get, set, and delete cookies

function getCookie(name) {
  var start = document.cookie.indexOf(name + "=");
  var len = start + name.length + 1;
  if ((!start) && (name != document.cookie.substring(0, name.length))) {
    return null;
  }
  if (start == -1) return null;
  var end = document.cookie.indexOf(";", len);
  if (end == -1) end = document.cookie.length;
  return unescape(document.cookie.substring(len, end));
}

function setCookie(name, value, expires, path, domain, secure) {
  var today = new Date();
  today.setTime(today.getTime());
  if (expires) {
    expires = expires * 1000 * 60 * 60 * 24;
  }
  var expires_date = new Date(today.getTime() + (expires));
  document.cookie = name+"="+escape(value) +
  ((expires) ? ";expires="+expires_date.toGMTString() : "") + //expires.toGMTString()
  ((path) ? ";path=" + path : "") +
  ((domain) ? ";domain=" + domain : "") +
  ((secure) ? ";secure" : "");
}

function deleteCookie(name, path, domain) {
  if (getCookie(name)) document.cookie = name + "=" +
  ((path) ? ";path=" + path : "") +
  ((domain) ? ";domain=" + domain : "") +
  ";expires=Thu, 01-Jan-1970 00:00:01 GMT";
}

// quick getElement reference

function $() {
  var elements = new Array();
  for (var i = 0; i < arguments.length; i++) {
    var element = arguments[i];
    if (typeof element == 'string')
    element = document.getElementById(element);
    if (arguments.length == 1)
    return element;
    elements.push(element);
  }
  return elements;
}   

// traditional getElement reference
function getElement() {
  var elements = new Array();
  for (var i = 0; i < arguments.length; i++) {
    var element = arguments[i];
    if (typeof element == 'string')
    element = document.getElementById(element);
    if (arguments.length == 1)
    return element;
    elements.push(element);
  }
  return elements;
}  
   
// convert a string to lowercase with 1st letter capitalised
function ucFirst(s)
 {
  var c = s.charAt(0);
  if (parseInt(s.length) == 1) {
    return c.toUpperCase();
  }
  else
  {
    return c.toUpperCase() + s.slice(1).toLowerCase();
  }
}

// A simple routine to strip HTML tags from supplied string
// It's not very clever but it's quite useful.
// Everything between each "<" and the subsequent ">" is ignored
// hence it could get confused with any javascript comparisons
// or comments that contain comparisons.
function stripHTMLTags(str)
 {
  var mystr = "";
  var chr = "";
  var skip = false;
  var skipcancel = false;
  for (x = 0; x < str.length; x++)
  {
    if (skipcancel == true) {
      skip = false;
    }
    chr = str.charAt(x);
    if (chr == "<") {
      skip = true;
      skipcancel = false;
    }
    else if (chr == ">" && skip == true) {
      skipcancel = true;
    }
    if (skip == false) mystr = mystr + chr;
  }
  return mystr;
}

// same as ucFirst, but repeated for all words in a string after
// converting all underscore characters to spaces
function ReadableName(s)
 {
  var formatted = "";
  var c = "";
  var wStart = true;
  for (var i = 0; i < s.length; i++)
  {
    c = s.charAt(i);
    if (c == "_") {
      c = " ";
    }
    if (wStart == true) {
      formatted = formatted + c.toUpperCase();
      wStart = false;
    }
    else {
      formatted = formatted + c.toLowerCase();
    }
    if (c == " ") {
      wStart = true;
    }
  }
  return formatted;
}

// checks whether a field is empty
function isblank(s)
 {
  for (var i = 0; i < s.length; i++) {
    var c = s.charAt(i);
    if ((c != ' ') && (c != '\n') && (c != '\t')) return false;
  }
  return true;
}

// validate an email address
function isValidEmail(e)
 {
  // assume an email address cannot start with an @ or white space, but it
  // must contain the @ character followed by groups of alphanumerics and '-'
  // followed by the dot character '.'
  // It must end with 2 or 3 alphanumerics.
  //
  var alnum = "a-zA-Z0-9";
  exp = "^[^@\\s]+@([" + alnum + "+\\-]+\\.)+[" + alnum + "][" + alnum + "][" + alnum + "]?$";
  emailregexp = new RegExp(exp);
  result = e.match(emailregexp);
  if (result != null)
  {
    return true;
  }
  else
  {
    return false;
  }
}

function isValidTime(strTime) {
  // Checks if time is in HH:MM:SS format.
  // The seconds are optional.
var timePat = /^(\d{1,2}):(\d{2})(:(\d{2}))?$/;
  var matchArray = strTime.match(timePat);
  if (matchArray == null) {
    return false;
  }
  hour = matchArray[1];
  minute = matchArray[2];
  second = matchArray[4];
  if (second == "") {
    second = null;
  }
  if (hour < 0 || hour > 23) {
    return false;
  }
  if (minute < 0 || minute > 59) {
    return false;
  }
  if (second != null && (second < 0 || second > 59)) {
    return false;
  }
  return true;
}

function isValidNumber(numval)
 {
  if (numval == "") {
    return false;
  }
  var myRegExp = new RegExp("^[/+|/-]?[0-9]*[/.]?[0-9]*$");
  return myRegExp.test(numval);
}

function isValidInterval(interval)
 {
  var strIntervals = new Array("yrs", "year", "years", "mos", "month", "months", "day", "days", "week", "weeks", "hrs", "hour", "hours", "mins", "min", "minutes", "secs", "sec", "second", "seconds");
  strArray = interval.split(" ");
  // need at least two items
  if (strArray.length < 2) {
    return false;
  }
  // check all pairs of values to be valid intervals (e.g 2 hrs 5 mins) 
  for (i = 0; i < strArray.length - 1; i = i + 2) {
    if (isNaN(strArray[i])) {
      return false;
    }
    found = false;
    for (var x = 0; x < strIntervals.length; x++) {
      if (strArray[i + 1].toUpperCase() == strIntervals[x].toUpperCase()) {
        found = true;
      }
    }
    if (!found) {
      return false;
    }
  }
  return true;
}

function isValidDate(d, convert) {
  //var strDatestyle = "US"; //United States date style
  var strDatestyle = "EU";
  //European date style
  var strDate;
  var strDateArray;
  var strDay;
  var strMonth;
  var strYear;
  var intDay;
  var intMonth;
  var intYear;
  var booFound = false;
  var strSeparatorArray = new Array("-", " ", "/", ".");
  var intElementNr;
  var err = 0;
  var strMonthArray = new Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
  strDate = d;
  if (strDate.length < 1) {
    return false;
  }
  if (strDate.toLowerCase() == "today" || strDate.toLowerCase() == "now") {
    return true;
  }
  for (intElementNr = 0; intElementNr < strSeparatorArray.length; intElementNr++) {
    if (strDate.indexOf(strSeparatorArray[intElementNr]) != -1) {
      strDateArray = strDate.split(strSeparatorArray[intElementNr]);
      if (strDateArray.length != 3)
      {
        err = 1;
        return false;
      }
      else
      {
        strDay = strDateArray[0];
        strMonth = strDateArray[1];
        strYear = strDateArray[2];
      }
      booFound = true;
    }
  }
  if (booFound == false) {
    if (strDate.length > 5) {
      strDay = strDate.substr(0, 2);
      strMonth = strDate.substr(2, 2);
      strYear = strDate.substr(4);
    }
    else
    return false;
  }
  // verify year part	2 or 4 digits
  if (strYear.length != 2 && strYear.length != 4) {
    return false;
  }
  if (isNaN(strYear)) {
    return false;
  }
  // US style (swap month and day)
  if (strDatestyle == "US") {
    strTemp = strDay;
    strDay = strMonth;
    strMonth = strTemp;
  }
  // verify 1 or 2 digit integer day
  if (strDay.length < 1 || strDay.length > 2) {
    return false;
  }
  if (isNaN(strDay)) {
    return false;
  }
  // month may be digits of characters, hence following check
  intMonth = parseInt(strMonth, 10);
  if (isNaN(intMonth)) {
    for (i = 0; i < 12; i++) {
      if (strMonth.toUpperCase() == strMonthArray[i].toUpperCase()) {
        intMonth = i + 1;
        strMonth = strMonthArray[i];
        i = 12;
      }
    }
    if (isNaN(intMonth)) {
      err = 3;
      return false;
    }
  }
  intDay = parseInt(strDay, 10);
  intYear = parseInt(strYear, 10);
  if (intMonth > 12 || intMonth < 1) {
    err = 5;
    return false;
  }
  // day in month check
  if (intDay < 1 || intDay > 31) {
    return false;
  }
  if ((intMonth == 4 || intMonth == 6 || intMonth == 9 || intMonth == 11) && (intDay > 30)) {
    return false;
  }
  if (intMonth == 2) {
    if (LeapYear(intYear)) {
      if (intDay > 29) {
        return false;
      }
    }
    else
    {
      if (intDay > 28) {
        return false;
      }
    }
  }
  if (!convert)
  return true;
  else
  {
    if (intYear <= 99) {
      intYear = intYear + 2000;
    }
    return intDay + "/" + intMonth + "/" + intYear;
  }
}

function ConvertToJscriptDate(mydate)
 {
  if (!isValidDate(mydate)) {
    return "";
  }
  var vdate = isValidDate(mydate, true);
  var dparts = vdate.split("/");
  var JDate = new Date(dparts[2] + "/" + dparts[1] + "/" + dparts[0]);
  return JDate;
}

// check a composite date/time field
// assume date is everything up to first space
// and time is everything after first space
function isValidDateTime(strDateTime)
 {
  var dt = Trim(strDateTime);
  var intMatch;
  var intDateOnly = false;
  if (strDateTime.toLowerCase() == "today" || strDateTime.toLowerCase() == "now") {
    return true;
  }
  intMatch = dt.indexOf(":");
  if (intMatch < 0)
  {
    intDateOnly = true;
    intMatch = dt.length;
  }
  else
  {
    intMatch = dt.indexOf(" ");
  }
  if (intMatch < 0) {
    return false;
  }
  // check date
  if (!isValidDate(dt.substr(0, intMatch))) {
    return false;
  }
  // check time
  if (!intDateOnly) {
    if (!isValidTime(dt.substr(intMatch + 1, dt.length - intMatch))) {
      return false;
    }
  }
  return true;
}

// is it a leap year
function isLeapYear(intYear) {
  if (intYear % 100 == 0) {
    if (intYear % 400 == 0) {
      return true;
    }
  }
  else {
    if ((intYear % 4) == 0) {
      return true;
    }
  }
  return false;
}

function isEarlierOrEqual(start, end)
 {
  // convert dates to dd/mm/yyyy
  var myStart = isValidDate(start, true);
  var myEnd = isValidDate(end, true);
  if (myStart == "" || myEnd == "") return false;
  var startparts = myStart.split("/");
  var endparts = myEnd.split("/");
  if (Date.UTC(startparts[2], startparts[1], startparts[0]) <= Date.UTC(endparts[2], endparts[1], endparts[0]))
  return true;
  else
  return false;
}

function isTimeEarlierOrEqual(start, end)
 {
  // convert times to UTC dates
  if (start == "" || end == "") return false;
  var startparts = start.split(":");
  var endparts = end.split(":");
  if (Date.UTC(2000, 1, 1, startparts[0], startparts[1]) <= Date.UTC(2000, 1, 1, endparts[0], endparts[1]))
  return true;
  else
  return false;
}

// This is the function that performs form verification.  It will be invoked
// from the onSubmit() event handler.  The handler should return whatever
// value this function returns.
function frmValidateCommon(f)
 {
  var msg;
  var empty_fields = "";
  var errors = "";
  var mylen = parseInt(f.length);
  var errOne = false;
  // Loop through the elements of the form, looking for all 
  // text and textarea elements that don't have an "optional" property
  // defined.  Then, check for fields that are empty and make a list of them.
  // Also, if any of these elements have a "min" or a "max" property defined,
  // then verify that they are numbers and that they are in the right range.
  // Put together error messages for fields that are wrong.
  for (var i = 0; i < mylen; i++) {
    var e = f.elements[i];
    if (((e.type == "text") || (e.type == "textarea")) && !e.optional)
    {
      // first check if the field is empty
      if ((e.value == null) || (e.value == "") || isblank(e.value))
      {
        empty_fields += "\n      " + ReadableName(e.name);
        if (!errOne)
        {
          errOne = true;
          e.focus();
        }
        continue;
      }
    }
    // now validate email addresses
    if (e.email) {
      if ((e.value == null) || (e.value == "") || isblank(e.value)) continue;
      if (!isValidEmail(e.value)) {
        errors += "\n- The value in field " + ReadableName(e.name) + " does not appear to be a valid email address\n"
        if (!errOne) {
          errOne = true;
          e.focus();
        }
      }
    }
    // now validate date fields
    if (e.date) {
      if ((e.value == null) || (e.value == "") || isblank(e.value)) continue;
      if (!isValidDate(e.value)) {
        errors += "\n- The field " + ReadableName(e.name) + " does not contain a recognised\ndate value (try dd-mmm-yyyy) \n"
        if (!errOne) {
          errOne = true;
          e.focus();
        }
      }
    }
    // now validate time fields
    if (e.time) {
      if ((e.value == null) || (e.value == "") || isblank(e.value)) continue;
      if (!isValidTime(e.value)) {
        errors += "\n- The field " + ReadableName(e.name) + " does not contain a recognised\ntime value (try hh:mm[:ss]) \n"
        if (!errOne) {
          errOne = true;
          e.focus();
        }
      }
    }
    // now validate date/time fields
    if (e.datetime) {
      if ((e.value == null) || (e.value == "") || isblank(e.value)) continue;
      if (!isValidDateTime(e.value)) {
        errors += "\n- The field " + ReadableName(e.name) + " does not contain a recognised\ndate/time value (try dd-mmm-yyyy hh:mm[:ss]) \n"
        if (!errOne) {
          errOne = true;
          e.focus();
        }
      }
    }
    // now validate interval fields
    if (e.interval) {
      if ((e.value == null) || (e.value == "") || isblank(e.value)) continue;
      if (!isValidInterval(e.value)) {
        errors += "\n- The field " + ReadableName(e.name) + " does not contain a recognised\ninterval value (try nn hours or nn days) \n"
        if (!errOne) {
          errOne = true;
          e.focus();
        }
      }
    }
   // Now check for fields that are supposed to be numeric.
    if (e.numeric || (e.min != null) || (e.max != null))
    {
      if ((e.value == null) || (e.value == "") || isblank(e.value)) continue;
      var v = parseFloat(e.value);
      if (isNaN(v) || !isValidNumber(e.value) || ((e.min != null) && (v < e.min)) || ((e.max != null) && (v > e.max)))
      {
        if (!errOne) {
          errOne = true;
          e.focus();
        }
        errors += "\n- The field " + ucFirst(e.name) + " must be a number";
        if (e.min != null)
        errors += " that is greater than " + e.min;
        if (e.max != null && e.min != null)
        errors += " and less than " + e.max;
        else if (e.max != null)
        errors += " that is less than " + e.max;
        errors += ".\n";
      }
    }
  }
  // Now, if there were any errors, then display the messages, and
  // return true to prevent the form from being submitted.  Otherwise
  // return false
  if (!empty_fields && !errors) return true;
  msg = "Sorry, but we cannot process your request because of the\n";
  msg += "following error(s). Please correct the problem and try again\n";
  if (empty_fields) {
    msg += "\n- The following fields are mandatory:"
    + empty_fields + "\n";
    if (errors) msg += "\n";
  }
  msg += errors;
  alert(msg);
  return false;
}

// this function sets the fields in the combo that exist in the values string
// multiple values should be comma delimited
// e.g. SetSelection(myCombo,"fred,harry");
//  will highlight the combo entries that have the value harry and/or fred
function SetSelections(Combo, Values)
 {
  var lvals = Values.split(",");
  var strval = "";
  for (var x = 0; x < Combo.length; x++)
  {
    strval = Combo.options[x].value.toLowerCase();
    for (var i = 0; i < lvals.length; i++)
    if (strval == Trim(lvals[i].toLowerCase()))
    Combo.options[x].selected = true;
  }
}

// Insert new item into a combo in alhpabetcial order or at specified pos
function InsertIntoList(Combo, itemText, itemVal, Pos)
 {
  var inserted = false;
  var insertpos = -1;
  // add blank row
  Combo.length++;
  if (Pos == -1)
  {
    // find alpha pos for insert
    for (var x = 0; x < Combo.length - 1; x++)
    {
      if (Combo.options[x].text.toLowerCase() > itemText.toLowerCase())
      {
        insertpos = x;
        break;
      }
    }
  }
  else
  {
    insertpos = Pos;
  }
  // shift part of array down one then insert new row	
  if (insertpos != -1)
  {
    for (var y = Combo.length - 1; y > insertpos; y--)
    {
      Combo.options[y].value = Combo.options[y - 1].value;
      Combo.options[y].text = Combo.options[y - 1].text;
    }
    Combo.options[insertpos].text = itemText;
    Combo.options[insertpos].value = itemVal;
  }
  else
  // append new row
  {
    insertpos = Combo.length - 1;
    Combo.options[insertpos].text = itemText;
    Combo.options[insertpos].value = itemVal;
  }
  return insertpos;
}

// Append a new item into a combo (assume no ordering)
function AppendToList(Combo, itemText, itemVal)
 {
  // add blank row
  Combo.length++;
  Combo.options[Combo.length - 1].text = itemText;
  Combo.options[Combo.length - 1].value = itemVal;
  return true;
}

// Move selected items up or down one pos in combo list
function ShiftListSelections(Combo, Down)
 {
  var prevtext = "";
  var prevval = ""
  var swappos;
  if (!Down == true) Down = false;
  if (Down == true)
  {
    for (var x = Combo.length - 1; x >= 0; x--)
    {
      if (Combo[x].selected == true)
      {
        if (x < Combo.length - 1 && Combo[x + 1].selected == false)
        {
          //swap cur entry for previous entry
          prevtext = Combo[x + 1].text;
          prevval = Combo[x + 1].value;
          Combo[x + 1].text = Combo[x].text;
          Combo[x + 1].value = Combo[x].value;
          Combo[x + 1].selected = true;
          Combo[x].text = prevtext;
          Combo[x].value = prevval;
          Combo[x].selected = false;
        }
      }
    }
  }
  else
  {
    for (var x = 0; x < Combo.length; x++)
    {
      if (Combo[x].selected == true)
      {
        if (x > 0 && Combo[x - 1].selected == false)
        {
          //swap cur entry for previous entry
          prevtext = Combo[x - 1].text;
          prevval = Combo[x - 1].value;
          Combo[x - 1].text = Combo[x].text;
          Combo[x - 1].value = Combo[x].value;
          Combo[x - 1].selected = true;
          Combo[x].text = prevtext;
          Combo[x].value = prevval;
          Combo[x].selected = false;
        }
      }
    }
  }
}

function DeleteFromList(Combo, Pos)
 {
  if (Pos >= 0 && Pos <= Combo.length)
  {
    Combo[Pos] = null;
  }
}

// function to do a bulk move from one list to another
// quicker than doing individual inserts/appends etc
function MoveSelectedListItems(srcCombo, destCombo, doSort, intSort, useVals)
 {
  var numItems = 0;
  var curPos = destCombo.options.length;
  var srcLen = srcCombo.options.length;
  for (var x = 0; x < srcCombo.options.length; x++)
  if (srcCombo.options[x].selected) numItems++;
  destCombo.options.length += numItems;
  for (var x = 0; x < srcCombo.options.length; x++)
  if (srcCombo.options[x].selected == true)
  {
    destCombo.options[curPos].text = srcCombo.options[x].text;
    destCombo.options[curPos].value = srcCombo.options[x].value;
    curPos++;
  }
  if (doSort) SortList(destCombo, intSort, useVals);
  // now remove the selected items from the source listbox
  // This can be very slow for big lists
  for (var x = srcLen - 1; x >= 0; x--)
  if (srcCombo.options[x].selected) srcCombo.options[x] = null;
}

// Compare functions used internally by the SortList routine,
function ListCompareNums(a, b)
 {
  var la = parseInt(a.split("{")[0]);
  var lb = parseInt(b.split("{")[0]);
  if (la < lb) return - 1;
  if (la > lb) return 1
  return 0;
}

function ListCompareText(a, b)
 {
  var la = a.toLowerCase();
  var lb = b.toLowerCase();
  if (la < lb) return - 1;
  if (la > lb) return 1
  return 0;
}

// Quite Fast way of sorting big option lists
function SortList(Combo, IntSort, UseVals)
 {
  var cmbText = new Array(Combo.options.length);
  var cmbItems;
  // get copy of	
  for (x = 0; x < cmbText.length; x++)
  cmbText[x] = (UseVals) ? Combo.options[x].value + "{" + Combo.options[x].text: Combo.options[x].text + "{" + Combo.options[x].value;
  if (IntSort)
  cmbText.sort(ListCompareNums);
  else
  cmbText.sort(ListCompareText);
  //rebuild main list, but don't redimension it
  for (x = 0; x < cmbText.length; x++) {
    cmbItems = cmbText[x].split("{");
    Combo.options[x].text = (UseVals) ? cmbItems[1] : cmbItems[0];
    Combo.options[x].value = (UseVals) ? cmbItems[0] : cmbItems[1];
  }
}

function newWindow(url, title, w, h, scroll, resize) {
  if (scroll == true || scroll == 'yes') scroll = 'yes';
  else scroll = 'no';
  if (resize == true || resize == 'yes') resize = ', resizable';
  else resize = '';
  var winl = (screen.width - w) / 2;
  var wint = (screen.height - h) / 2;
  winprops = 'height=' + h + ',width=' + w + ',top=' + wint + ',left=' + winl + ',scrollbars=' + scroll + resize
  win = window.open(url, title, winprops)
}

// Function that displays status bar messages.
function MM_displayStatusMsg(msgStr) {
  //v3.0
  status = msgStr;
  document.MM_returnValue = true;
}

function MM_findObj(n, d) {
  //v3.0
  var p,
  i,
  x;
  if (!d) d = document;
  if ((p = n.indexOf("?")) > 0 && parent.frames.length) {
    d = parent.frames[n.substring(p + 1)].document;
    n = n.substring(0, p);
  }
  if (! (x = d[n]) && d.all) x = d.all[n];
  for (i = 0; ! x && i < d.forms.length; i++) x = d.forms[i][n];
  for (i = 0; ! x && d.layers && i < d.layers.length; i++) x = MM_findObj(n, d.layers[i].document);
  return x;
}

// Functions that swaps images.
function MM_swapImage() {
  //v3.0
  var i,
  j = 0,
  x,
  a = MM_swapImage.arguments;
  document.MM_sr = new Array;
  for (i = 0; i < (a.length - 2); i += 3)
  if ((x = MM_findObj(a[i])) != null) {
    document.MM_sr[j++] = x;
    if (!x.oSrc) x.oSrc = x.src;
    x.src = a[i + 2];
  }
}

function MM_swapImgRestore() {
  //v3.0
  var i,
  x,
  a = document.MM_sr;
  for (i = 0; a && i < a.length && (x = a[i]) && x.oSrc; i++) x.src = x.oSrc;
}

// Functions that handle preload
function MM_preloadImages() {
  //v3.0
  var d = document;
  if (d.images) {
    if (!d.MM_p) d.MM_p = new Array();
    var i,
    j = d.MM_p.length,
    a = MM_preloadImages.arguments;
    for (i = 0; i < a.length; i++)
    if (a[i].indexOf("#") != 0) {
      d.MM_p[j] = new Image;
      d.MM_p[j++].src = a[i];
    }
  }
}

function MM_showHideLayers() {
  //v3.0
  var i,
  p,
  v,
  obj,
  args = MM_showHideLayers.arguments;
  for (i = 0; i < (args.length - 2); i += 3) if ((obj = MM_findObj(args[i])) != null) {
    v = args[i + 2];
    if (obj.style) {
      obj = obj.style;
      v = (v == 'show') ? 'visible': (v = 'hide') ? 'hidden': v;
    }
    obj.visibility = v;
  }
}