// PC version
// constants polar circle
var previewdir1="http://www.thepolarcircle.com/search/"
var imagedir = "/images/"
var backgrd = "#CCCCCC"
var cgidir = "http://www.thepolarcircle.com/cgi-bin/search/"
var jsdir="/js/"
var who2
//get browser
   var browser = navigator.appName;
   var Nav = (browser == "Netscape");
   var IE = (browser == "Microsoft Internet Explorer");
//----------------------------------------------------------------------------
// Error Handling
window.onerror = myOnError
msgArray = new Array()
urlArray = new Array()
lnoArray = new Array()

function myOnError(msg, url, lno) {
alert(msg)
   msgArray[msgArray.length] = msg
alert(url)
   urlArray[urlArray.length] = url
alert(lno)
   lnoArray[lnoArray.length] = lno
   return true
}

function displayErrors() {
   win2=window.open('','window2','scrollbars=yes')
   win2.document.writeln('<B>Error Report</B><P>')
alert(msgArray.length)
   for (var i=0; i < msgArray.length; i++) {
      win2.document.writeln('<B>Error in file:</B> ' + urlArray[i] + '<BR>')
      win2.document.writeln('<B>Line number:</B> ' + lnoArray[i] + '<BR>')
      win2.document.writeln('<B>Message:</B> ' + msgArray[i] + '<P>')
   }
   win2.document.close()
}

//--------------------------------------------------------------------------------

// name - name of the cookie
// value - value of the cookie
// [expires] - expiration date of the cookie (defaults to end of current session)
// [path] - path for which the cookie is valid (defaults to path of calling document)
// [domain] - domain for which the cookie is valid (defaults to domain of calling document)
// [secure] - Boolean value indicating if the cookie transmission requires a secure transmission
// * an argument defaults when it is assigned null as a placeholder
// * a null placeholder is not required for trailing omitted arguments
function setCookie(name, value, expires, path, domain, secure) { 
   var curCookie = name + "=" + escape(value) + 
      ((expires) ? "; expires=" + expires.toGMTString() : "") + 
      ((path) ? "; path=" + path : "") +
      ((domain) ? "; domain=" + domain : "") +
      ((secure) ? "; secure" : ""); 
   document.cookie = curCookie;
}

// name - name of the desired cookie
// * return string containing value of specified cookie or null if cookie does not exist
function getCookie(name) { 
   var dc = document.cookie; 
   var prefix = name + "="; 
   var begin = dc.indexOf("; " + prefix); 
   if (begin == -1) { 
      begin = dc.indexOf(prefix); 
      if (begin != 0) return null; 
   } else 
      begin += 2; 
   var end = document.cookie.indexOf(";", begin); 
   if (end == -1) 
      end = dc.length;
   return unescape(dc.substring(begin + prefix.length, end));
}

// name - name of the cookie
// [path] - path of the cookie (must be same as path used to create cookie)
// [domain] - domain of the cookie (must be same as domain used to create cookie)
// * path and domain default if assigned null or omitted if no explicit argument proceeds
function deleteCookie(name, path, domain) { 
   if (getCookie(name)) { 
      document.cookie = name + "=" + 
      ((path) ? "; path=" + path : "") + 
      ((domain) ? "; domain=" + domain : "") + 
      "; expires=Thu, 01-Jan-70 00:00:01 GMT"; 
   }
}

// date - any instance of the Date object
// * hand all instances of the Date object to this function for "repairs"
function fixDate(date) { 
   var base = new Date(0); 
   var skew = base.getTime(); 
   if (skew > 0) 
      date.setTime(date.getTime() - skew);
}
var now = new Date();
fixDate(now);
now.setTime(now.getTime() + 365 * 24 * 60 * 60 * 1000);

//---------------End of Cookie code -------------------

//---------------DreamWeaver Functions ----------------

//   MM_swapImgRestore  + version 2 which changes the rollover image
//   preloadImages
//   MM_preloadImages
//   MM_findObj
//   MM_swapImage
//   newImage
//   changeImages

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;
}

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_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;
}

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_swapImage2() { //v3.0
   var i,j=0,x,a=MM_swapImage2.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;
         }
         if (x.src.match("added.gif")) {
         } else {
            x.src=a[i+2];
         }
      }
   }
}

function MM_swapImgRestore2() { //v3.0
   var i,x,a=document.MM_sr; 
   for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) {
      if (x.src.match("added.gif")) {
      } else {
         x.src=x.oSrc;
      }
   }
}

function changeImages() {
	if (document.images && (preloadFlag == true)) {
		for (var i=0; i<changeImages.arguments.length; i+=2) {
			document[changeImages.arguments[i]].src = changeImages.arguments[i+1];
		}
	}
}

var preloadFlag = false;
function preloadImages() {
	if (document.images) {
		menu_08_over = newImage("images/menu_08-over.gif");
		menu_09_over = newImage("images/menu_09-over.gif");
		menu_10_over = newImage("images/menu_10-over.gif");
		menu_11_over = newImage("images/menu_11-over.gif");
		menu_12_over = newImage("images/menu_12-over.gif");
		menu_13_over = newImage("images/menu_13-over.gif");
		menu_14_over = newImage("images/menu_14-over.gif");
		menu_15_over = newImage("images/menu_15-over.gif");
		preloadFlag = true;
	}
}

function newImage(arg) {
	if (document.images) {
		rslt = new Image();
		rslt.src = arg;
		return rslt;
	}
}

function MM_swapImage3() { //v3.0
  var i,j=0,x,a=MM_swapImage3.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];}
   var b =a[2].charAt(13)
   if (b=="n"){
      mapn+=1
      if (mapn==7) {
         mapn = 1
      }
      north="images/index/northmap"+mapn+".jpg"
      MM_preloadImages(north)
   } else {
      maps+=1
      if (maps==14) {
         maps = 1
      }
      south="images/index/southmap"+maps+".jpg"
      MM_preloadImages(south)
   }
}

//------------------------------------------------------------------------------

var id

function start_time(){
//read interval
   var p = getCookie("interval")
   if (!p) {
      var p = 2
      setCookie("interval",p,now,"/")
      p = p*1000
      id=window.setTimeout("change_pic()", p)
   } else if (p < 0) {
      image.b1.value = "Continue"
      p=-p*1000
   } else {
      p = p*1000
      id=window.setTimeout("change_pic()", p)
   }
   image.t1.value=p/1000
}
//-----------------------------------------------------
function pause(){
   var p = getCookie("interval")
   if (image.b1.value=="Pause"){
      window.clearTimeout (id)
      image.b1.value = "Continue"
// set interval negative to pause show
      if (p <= 0 ) {
         alert(" wrong value " + p)
      } else {
         p = -p
         setCookie("interval",p,now,"/")
      }
   } else {
      image.b1.value = "Pause"
      if (p >= 0 ) {
         alert(" wrong value " + p)
      } else {
         p = -p
         setCookie("interval",p,now,"/")
      }
      change_pic()
   }
}
//-----------------------------------------------------
var s = ""
var n
var o = new Array
var ord = getCookie("order")
// ------------------------                 get order
//
if (!ord) {
   for (n=0;n<=7 ;n++){
      o[n]=n+1
   }
   var h = 8
   for (n=0;n<=7 ;n++){
      var m = Math.random()*h
      m = Math.floor(m)
      if (m >= h) {
         alert("too big "+m)
         m = h
      }
      s = o[h-1]
      o[h-1] = o[m]
      o[m] = s
      h = h-1
      s = ""
   }
   var ord = o[0]
   for (n=1;n<=7 ;n++){
      ord += ","+o[n]
   }   
//   alert("setting order "+ord)
   setCookie("order",ord,"","/")
} else {
   o=ord.split(",")
}
//
//--------------------------------------------------------------------------
function member(){
   s += "<tr>\n"
   
   if (n ==1) {
s += "<td width=\"596\" class=\"textmembers\">\n"
s += "<a href=\"02_mem_bas.htm\">British Antarctic Survey (BAS)</a></td>\n"
s += "<td width=\"40\"><a href=\"gallery/bas/bas.htm\"><img src=\"images/members/camera.gif\" width=\"40\" height=\"31\" alt=\"click here to view images\" border=\"0\"></a></td>\n"
s += "<td width=\"40\"><a href=\"02_mem_bas.htm\"><img src=\"images/members/info.gif\" width=\"40\" height=\"31\" alt=\"click here for information\" border=\"0\"></a></td>\n"
   } else if ( n==2) {
s += "<td width=\"596\" class=\"textmembers\">\n"
s += "<a href=\"02_mem_spri.htm\">Scott Polar Research Institute</a></td>\n"
s += "<td width=\"40\"><a href=\"gallery/spri/spri.htm\"><img src=\"images/members/camera.gif\" width=\"40\" height=\"31\" alt=\"click here to view images\" border=\"0\"></a></td>\n"
s += "<td width=\"40\"><a href=\"02_mem_spri.htm\"><img src=\"images/members/info.gif\" width=\"40\" height=\"31\" alt=\"click here for information\" border=\"0\"></a></td>\n"
   } else if ( n==3) {
s += "<td width=\"596\" class=\"textmembers\"><a href=\"02_mem_jh.htm\">\n"
s += "John Hyde</a></td>\n"
s += "<td width=\"40\"><a href=\"gallery/jh/jh.htm\"><img src=\"images/members/camera.gif\" width=\"40\" height=\"31\" alt=\"click here to view images\" border=\"0\"></a></td>\n"
s += "<td width=\"40\"><a href=\"02_mem_jh.htm\"><img src=\"images/members/info.gif\" width=\"40\" height=\"31\" alt=\"click here for information\" border=\"0\"></a></td>\n"
   } else if ( n==4) {
s += "<td width=\"596\" class=\"textmembers\"><a href=\"02_mem_mag.htm\">\n"
s += "Magnus Elander</a></td>\n"
s += "<td width=\"40\"><a href=\"gallery/mag/mag.htm\"><img src=\"images/members/camera.gif\" width=\"40\" height=\"31\" alt=\"click here to view images\" border=\"0\"></a></td>\n"
s += "<td width=\"40\"><a href=\"02_mem_mag.htm\"><img src=\"images/members/info.gif\" width=\"40\" height=\"31\" alt=\"click here for information\" border=\"0\"></a></td>\n"
   } else if ( n==5) {
s += "<td width=\"596\" class=\"textmembers\">\n"
s += "<a href=\"02_mem_sw.htm\">Staffan Widstrand</a></td>\n"
s += "<td width=\"40\"><a href=\"gallery/sw/sw.htm\"><img src=\"images/members/camera.gif\" width=\"40\" height=\"31\" alt=\"click here to view images\" border=\"0\"></a></td>\n"
s += "<td width=\"40\"><a href=\"02_mem_sw.htm\"><img src=\"images/members/info.gif\" width=\"40\" height=\"31\" alt=\"click here for information\" border=\"0\"></a></td>\n"
   } else if ( n==6) {
s += "<td width=\"596\" class=\"textmembers\"><a href=\"02_mem_bc.htm\">\n"
s += "Bryan and Cherry Alexander</a><br>\n"
s += "</td>\n"
s += "<td width=\"40\"><a href=\"gallery/bc/bc.htm\"><img src=\"images/members/camera.gif\" width=\"40\" height=\"31\" alt=\"click here to view images\" border=\"0\"></a></td>\n"
s += "<td width=\"40\"><a href=\"02_mem_bc.htm\"><img src=\"images/members/info.gif\" width=\"40\" height=\"31\" alt=\"click here for information\" border=\"0\"></a></td>\n"
   } else if ( n==7) {
s += "<td width=\"596\" class=\"textmembers\"><a href=\"02_mem_fred.htm\">\n"
s += "Fred Bruemmer</a></td>\n"
s += "<td width=\"40\"><a href=\"gallery/fred/fred.htm\"><img src=\"images/members/camera.gif\" width=\"40\" height=\"31\" alt=\"click here to view images\" border=\"0\"></a></td>\n"
s += "<td width=\"40\"><a href=\"02_mem_fred.htm\"><img src=\"images/members/info.gif\" width=\"40\" height=\"31\" alt=\"click here for information\" border=\"0\"></a></td>\n"
   } else if ( n==8) {
s += "<td width=\"596\" class=\"textmembers\"><a href=\"02_mem_ragnar.htm\">\n"
s += "Ragnar Th Sigur&eth;sson</a></td>\n"
s += "<td width=\"40\"><a href=\"gallery/ragnar/ragnar.htm\"><img src=\"images/members/camera.gif\" width=\"40\" height=\"31\" alt=\"click here to view images\" border=\"0\"></a></td>\n"
s += "<td width=\"40\"><a href=\"02_mem_ragnar.htm\"><img src=\"images/members/info.gif\" width=\"40\" height=\"31\" alt=\"click here for information\" border=\"0\"></a></td>\n"
   }
   s += "<td width=\"12\">&nbsp;</td>\n"
   s += "</tr>\n"
   s += "<tr valign=\"top\">\n" 
   s += "  <td colspan=\"4\" class=\"textmembers\"><img src=\"images/members/line.gif\" width=\"677\" height=\"8\"></td>\n"
   s += "</tr>\n"
}
//--------------------------------------------------------------------------
function profiles(){
   if (n ==1) { 
      s += "<a href=\"../bas/bas-intro.htm\" onMouseOut=\"MM_swapImgRestore()\"\n";
      s += "onMouseOver=\"MM_swapImage('bas','','../graphics/bas2.gif',1)\">\n";
      s += "<img name=\"bas\" border=\"0\"\n";
      s += "src=\"../graphics/bas1.gif\" width=\"218\" height=\"28\"><br></a>\n";
  } else if ( n==2) {
      s += "<a href=\"../spri/spri-intro.htm\" onMouseOut=\"MM_swapImgRestore()\"\n"
      s += "onMouseOver=\"MM_swapImage('spri','','../graphics/spri2.gif',1)\"><img name=\"spri\"\n"
      s += "border=\"0\" src=\"../graphics/spri1.gif\" width=\"218\" height=\"49\"></a><br>\n"
   } else if ( n==3) {
      s += "<a href=\"../hyde/hyde-intro.htm\" onMouseOut=\"MM_swapImgRestore()\"\n";
      s += "onMouseOver=\"MM_swapImage('hyde','','../graphics/hyde2.gif',1)\"><img name=\"hyde\"\n";
      s += "border=\"0\" src=\"../graphics/hyde1.gif\" width=\"218\" height=\"28\"></a><br>\n";
   } else if ( n==4) {
      s += "<a href=\"../magnus/magnus-intro.htm\" onMouseOut=\"MM_swapImgRestore()\"\n"
      s += "onMouseOver=\"MM_swapImage('magnus','','../graphics/magnus2.gif',1)\"><img name=\"magnus\"\n"
      s += "border=\"0\" src=\"../graphics/magnus1.gif\" width=\"218\" height=\"28\"></a><br>\n"
   } else if ( n==5) {
      s += "<a href=\"../staffan/staffan-intro.htm\" onMouseOut=\"MM_swapImgRestore()\"\n"
      s += "onMouseOver=\"MM_swapImage('staffan','','../graphics/staffan2.gif',1)\"><img name=\"staffan\"\n"
      s += "border=\"0\" src=\"../graphics/staffan1.gif\" width=\"218\" height=\"28\"></a><br>\n"
   } else if ( n==6) {
      s += "<a href=\"../bc/bc-intro.htm\" onMouseOut=\"MM_swapImgRestore()\"\n"
      s += "onMouseOver=\"MM_swapImage('bc','','../graphics/bc2.gif',1)\"><img name=\"bc\" border=\"0\"\n"
      s += "src=\"../graphics/bc1.gif\" ></a><br>\n"
   } else if ( n==7) {
      s += "<a href=\"../fred/fred-intro.htm\" onMouseOut=\"MM_swapImgRestore()\"\n"
      s += "onMouseOver=\"MM_swapImage('fred','','../graphics/fred2.gif',1)\"><img name=\"fred\"\n"
      s += "border=\"0\" src=\"../graphics/fred1.gif\" width=\"218\" height=\"28\"></a><br>\n"
   } else if ( n==8) {
      s += "<a href=\"../ragnar/ragnar-intro.htm\" onMouseOut=\"MM_swapImgRestore()\"\n"
      s += "onMouseOver=\"MM_swapImage('ragnar','','../graphics/ragnar1.gif',1)\"><img name=\"ragnar\"\n"
      s += "border=\"0\" src=\"../graphics/ragnar2.gif\" width=\"218\" height=\"28\"></a><br>\n"
   }
}
//--------------------------------------------------------------------------

function images(){
   if (n ==1){
      s += "<td width=\"33%\">\n"
      s += "<div align=\"center\"><a href=\"gallery/bas/bas.htm\" class=\"textmembers\"><img src=\"gallery/bas/h100/10003457s.jpg\" width=\"153\" height=\"100\" border=\"0\">\n"
      s += "British Antarctic Survey (BAS)</a><div></td>\n"
  } else if ( n==2) {
      s += "<td width=\"33%\">\n"
      s += "<div align=\"center\"><a href=\"gallery/spri/spri.htm\" class=\"textmembers\"><img src=\"gallery/spri/h100/bowers1as.jpg\" width=\"140\" height=\"100\" border=\"0\"><br>\n"
      s += "Scott Polar Research Institute</a></div></td>\n"
   } else if ( n==3) {
      s += "<td width=\"33%\">\n"
      s += "<div align=\"center\"><a href=\"gallery/jh/jh.htm\" class=\"textmembers\"><img src=\"gallery/jh/h100/hyde05s.jpg\" width=\"150\" height=\"100\" border=\"0\"><br>\n"
      s += "John Hyde</a></div></td>\n"
   } else if ( n==4) {
      s += "<td width=\"33%\">\n"
      s += "<div align=\"center\"><a href=\"gallery/mag/mag.htm\" class=\"textmembers\"><img src=\"gallery/mag/h100/me2s.jpg\" width=\"151\" height=\"100\" border=\"0\"><br>\n"
      s += "Magnus Elander</a></div></td>\n"
   } else if ( n==5) {
      s += "<td width=\"33%\">\n"
      s += "<div align=\"center\"><a href=\"gallery/sw/sw.htm\" class=\"textmembers\"><img src=\"gallery/sw/h100/img2-66s.jpg\" width=\"152\" height=\"100\" border=\"0\"><br>\n"
      s += "Staffan Widstrand</a></div></td>\n"
   } else if ( n==6) {
      s += "<td width=\"33%\">\n"
      s += "<div align=\"center\"><a href=\"gallery/bc/bc.htm\" class=\"textmembers\"><img src=\"gallery/bc/h100/rws0050-07ms.jpg\" width=\"152\" height=\"100\" border=\"0\"><br>\n"
      s += "Bryan and Cherry Alexander</span></a></div></td>\n"
   } else if ( n==7) {
      s += "<td width=\"33%\">\n" 
      s += "<div align=\"center\"><a href=\"gallery/fred/fred.htm\" class=\"textmembers\"><img src=\"gallery/fred/h100/4571cxs.jpg\" width=\"154\" height=\"100\" class=\"textmembers\" border=\"0\"><br>\n"
      s += "Fred Bruemmer</a></div></td>\n"
   } else if ( n==8) {
      s += "<td width=\"33%\">\n" 
      s += "<div align=\"center\"><a href=\"gallery/ragnar/ragnar.htm\" class=\"textmembers\"><img src=\"gallery/ragnar/h100/12874-157-261s.jpg\" width=\"144\" height=\"100\" class=\"textmembers\" border=\"0\"><br>\n"
      s += "Ragnar Th Sigur&eth;sson</a></div></td>\n"
   }
}
//-------------------------------------------------------------------------------
function gal(){
   if (n ==1) {
      s += "<td><p align=\"center\"><a HREF=\"../gallery/bas/bas.htm\"><img SRC=\"../bas/bas2.jpg\"\n"
      s += "BORDER=\"0\" width=\"114\" height=\"108\"><br>\n"
      s += "British Antarctic Survey</a></td>\n"
   } else if ( n==2) {
      s += "<td align=\"center\"><a HREF=\"../gallery/spri/spri.htm\"><img SRC=\"../spri/spri2.jpg\"\n"
      s += "BORDER=\"0\" width=\"200\" height=\"121\"><br>\n"
      s += "Scott Polar Research Institute</a></td>\n"
   } else if ( n==3) {
      s += "<td><p align=\"center\"><a HREF=\"../gallery/hyde/hyde.htm\"><img SRC=\"../hyde/hyde.jpg\"\n"
      s += "BORDER=\"0\" width=\"88\" height=\"110\"><br>\n"
      s += "John Hyde</a></td>\n"
   } else if ( n==4) {
      s += "<td align=\"center\"><a HREF=\"../gallery/magnus/magnus.htm\"><img SRC=\"../magnus/magnus.jpg\"\n"
      s += "BORDER=\"0\" width=\"168\" height=\"110\"><br>\n"
      s += "Magnus Elander</a></td>\n"
   } else if ( n==5) {
      s += "<td align=\"center\"><a HREF=\"../gallery/staffan/staffan.htm\"><img\n"
      s += "SRC=\"../staffan/staffan.jpg\" BORDER=\"0\" width=\"167\" height=\"110\"><br>\n"
      s += "Staffan Widstrand</a></td>\n"
   } else if ( n==6) {
      s += "<td align=\"center\"><a HREF=\"../gallery/bc/bc.htm\"><img SRC=\"../bc/bc-s.jpg\" BORDER=\"0\"\n"
      s += "width=\"167\" height=\"110\"><br>\n"
      s += "Bryan and Cherry Alexander</a></td>\n"
   } else if ( n==7) {
      s += "<td align=\"center\"><a HREF=\"../gallery/fred/fred.htm\"><img SRC=\"../fred/fred2.jpg\"\n"
      s += "BORDER=\"0\" width=\"150\" height=\"99\" alt=\"Fred Bruemer\"><br>\n"
      s += "Fred Bruemmer</a></td>\n"
   } else if ( n==8) {
      s += "<td align=\"center\"><a HREF=\"../gallery/ragnar/ragnar.htm\"><img SRC=\"../ragnar/ragnar2.jpg\"\n"
      s += "BORDER=\"0\" width=\"150\" height=\"99\" alt=\"Ragnar Th Sigur&eth;sson\"><br>\n"
      s += "Ragnar Th Sigur&eth;sson</a></td>\n"
   }
}
//--------------------------------------------------------------------
function gal_index(){
// Build Index table for Galleries
   s += "<h2>Image<br>Galleries</h2><p>\n";
   var ord = getCookie("order")
   if (!ord) {
      alert("no order")
   } else {
      for (m=0; m <= 7 ; m++) {
         n=o[m]
         images()
      }
   }
   s += "</p>\n";
   s += "<hr size=\"3\" color=\"#0000FF\" width=\"90%\">\n";
   s += "<p><a href=\"../../index2.htm\" onMouseOut=\"MM_swapImgRestore()\"\n"
   s += "onMouseOver=\"MM_swapImage('home','','../../graphics/home2.gif',1)\"><img name=\"home\"\n"
   s += "border=\"0\" src=\"../../graphics/home1.gif\" width=\"218\" height=\"40\"></a>\n"
   document.write(s)
}
//--------------------------------------------------------
function discard(mypic,box) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// box will hold the cookie name with the list of pictures
// for the lightbox
   var saw = getCookie(box);
   var p= saw.split("#");
   var n = p.length;
   var saw2 ="";  
   var gap = "";
   for(var i=0; i < p.length; i++) {
      if (p[i].match(mypic)){
// discards is list of pictures in lightbox
         var t=getCookie("discards");
         if (!t) {
            t=""
            var sep=""
         } else {
            var sep="#";
         }
// need to check if mypic already in list
         if (t.match(mypic)) {
         } else {
            t += sep+p[i]
            setCookie("discards",t,now,"/")
         }
      } else {
         saw2 += gap+p[i];
         gap="#";
      }
   }
  setCookie(box,saw2,now,"/")
  checkwin("discards")
  checkwin("boxman")
  makewin3(box)
}
//--------------------------------------------------------
function undiscard(mypic) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// Restore picture to box in lightbox cookie
   var saw = getCookie("discards");
   var p= saw.split("#");
   var n = p.length;
   var saw2 ="";  
   var gap = "";
   for(var i=0; i < p.length; i++) {
      if (p[i].match(mypic)){
// throw is list of discards
// b will hold the cookie name with the list of pictures for the lightbox
         var box = getCookie("box");
         if (!box) {
            alert ("Lightbox not set")
            box = "main"
         }
         var t=getCookie(box);
         if (!t) {
            t=""
            var sep=""
         } else {
            var sep="#";
         }
         t += sep+p[i]
         setCookie(box,t,now,"/")
      } else {
         saw2 += gap+p[i];
         gap="#";
      }
   }
   setCookie("discards",saw2,now,"/")
   checkwin(box)
   checkwin("boxman")
   makewin3('discards')
}
//---------------------------------------------------------------------------
function winclose(box){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// Change the cookie that keeps track of whether a lightbox is open
   var b = box + "han"
   setCookie(b,"no",now,"/")
}
//---------------------------------------------------------------------------
function movepic(mypic,box){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// box will hold the cookie name with the list of pictures
// for the lightbox
   var saw = getCookie(box);
// p has list of pictures in source box
   var p= saw.split("#");
   var n = p.length;
   var saw2 ="";  
   var gap = "";
// get target box details
   box2=getCookie("box")
   for(var i=0; i < p.length; i++) {
      if (p[i].match(mypic)){
// box2 is list of pictures in lightbox
         var t=getCookie(box2);
         if (!t) {
            t=""
            var sep=""
         } else {
            var sep="#";
         }
// need to check if mypic already in list
         if (t.match(mypic)) {
         } else {
            t += sep+p[i]
            setCookie(box2,t,now,"/")
         }
      } else {
         saw2 += gap+p[i];
         gap="#";
      }
   }
   setCookie(box,saw2,now,"/")
   checkwin(box2)
   checkwin("boxman")
   makewin3(box)
}
//----------------------------------------------------------------
function resetwin(box){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// reset all open windows, box should be name of current window but is
// undefined if called from boxes.htm
   var boxes=getCookie("boxes")
   p = boxes.split("#")
   if (!box){
      for(var i=0; i < p.length; i++) {
         checkwin(p[i])
      }
      if(box != "discards"){
         checkwin("discards")
      }
      checkwin("boxman")
   } else {
      for(var i=0; i < p.length; i++) {
         if (p[i] != box){
            checkwin(p[i])
         }
      }
      if(box != "discards"){
         checkwin("discards")
      }
      checkwin("boxman")
      makewin3(box)
   }
}
//-----------------------------------------------------------------
function checkwin(box){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// check and reset windows
   var b = box + "han"
   var c = getCookie(b)
   if (!c){
   } else {
      if (c == "no"){
      } else {
         if (box == "discards"){
            makewin4('discards')
         } else if(box == "boxman"){
            boxman2()
         } else {
            makewin4(box)
         }
      }
   }
}
//----------------------------------------------------------------
//Add a Lightbox
function newbox(){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   var b = prompt("Please enter the name for the Lightbox. Please use a single short word:", "");
   if (!b) {
   } else {
// check for spaces and brackets
      var nameok="yes"
      var l = b.length
      for (var i =0;i<l;i++){
         var buc = b.substring(i,i+1)
         buc = buc.toLowerCase()
         if ( buc == "(" || buc == ")"){
            buc = "brackets"
            alert("You cannot use "+buc+" in the Lightbox name. You used - \""+b+"\". Please try again just using letters and\/or numbers")
            nameok = "no"
         } else if ( "abcdefghijklmnopqrstuvwxyz1234567890".match(buc) ) {
         } else {
            if (buc == " ") {
               buc = "spaces"
            } else if (buc == "(") {
               buc = "brackets"
            }
            alert("You cannot use "+buc+" in the Lightbox name. You used - \""+b+"\". Please try again just using letters and\/or numbers")
            nameok = "no"
         }
      }
      if (nameok == "yes") {
         b=b.toLowerCase()
         var buc = b.substring(0,1)
         buc = buc.toUpperCase()
         var l = b.length
         buc += b.substring(1,l)
// Check if name in use
         var boxes=getCookie("boxes")
// split boxes into seperate items
         var bo = boxes.split("#")
         l = bo.length
         var nameok="yes"
         for (var i =0;i<l;i++){
            if (bo[i]==b){
// Already in use
               alert("You already have a slde box called "+buc+". Please try again.")
               nameok="no"
            }
         }
      }
      if (nameok == "yes"){
         boxes += "#"+b
         setCookie("boxes",boxes,now,"/")
         setCookie(b,"",now,"/")
         var bhan = b + "han"
         setCookie(bhan,"no",now,"/")
// Check if new box is to be selected box
         if(confirm("Do you want to make the "+buc+" Lightbox the active lightbox to receive pictures?")){
            setCookie("box",b,now,"/")
         } else {
            var box = getCookie("box")
            var buc = box.substring(0,1)
            buc = buc.toUpperCase()
            var l = box.length
            buc += box.substring(1,l)
            alert("Main Lightbox is still "+buc)
         }
         var   box=getCookie("box");
         document.light.D1.options.length=0
         var bo = boxes.split("#")
         var l = bo.length
         for (i=0;i < l;i++){
            if (bo[i]==box){
               var s = i;
            }
// adding selected box
            document.light.D1.options[i] = new Option(bo[i],bo[i]);
         }
         document.light.D1.options[s].selected=true
         resetwin()
         self.focus()
      }
   }
}
//-----------------------------------------------------------------------------
function newbox2(){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   var b = prompt("Please enter the name for the Lightbox. Please use a single short word:", "");
   if (!b) {
   } else {
// check for spaces and brackets
      var nameok="yes"
      var l = b.length
      for (var i =0;i<l;i++){
         var buc = b.substring(i,i+1)
         buc = buc.toLowerCase()
         if ( buc == "(" || buc == ")"){
            buc = "brackets"
            alert("You cannot use "+buc+" in the Lightbox name. You used - \""+b+"\". Please try again just using letters and\/or numbers")
            nameok = "no"
         } else if ( "abcdefghijklmnopqrstuvwxyz1234567890".match(buc) ) {
         } else {
            if (buc == " ") {
               buc = "spaces"
            } else if (buc == "(") {
               buc = "brackets"
            }
            alert("You cannot use "+buc+" in the Lightbox name. You used - \""+b+"\". Please try again just using letters and\/or numbers")
            nameok = "no"
         }
      }
      if (nameok == "yes") {  
         var boxes=getCookie("boxes");
         b=b.toLowerCase();
         var buc = b.substring(0,1)
         buc = buc.toUpperCase()
         var l = b.length
         buc += b.substring(1,l)
// Check if name in use
         var boxes=getCookie("boxes")
// split boxes into seperate items
         var bo = boxes.split("#")
         l = bo.length
         for (var i =0;i<l;i++){
            if (bo[i]==b){
// Already in use
               alert("You already have a slde box called "+buc+". Please try again.")
               nameok="no"
            }
         }
      }
      if (nameok == "yes"){
         boxes += "#"+b;
         setCookie("boxes",boxes,now,"/");
         setCookie(b,"",now,"/");
         var bhan = b + "han"
         setCookie(bhan,"no",now,"/")
         var buc = b.substring(0,1)
         buc = buc.toUpperCase()
         var l = b.length
         buc += b.substring(1,l)
         if(confirm("Do you want to make the "+buc+" Lightbox the active lightbox to receive pictures?")){
            setCookie("box",b,now,"/")
         } else {
            var box = getCookie("box")
            buc = box.substring(0,1)
            buc = buc.toUpperCase()
            var l = box.length
            buc += box.substring(1,l)
            alert("Main Lightbox is still "+buc)
         }
         resetwin()
      }
   }
}
//------------------------------------------------------------------------------
function updatesel(){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// read in boxes and split into seperate items
//var a = document.cookie
var   boxes=getCookie("boxes");
var   box=getCookie("box");
var bo = boxes.split("#")
var l = bo.length
document.light.D1.options.length=0
for (i=0;i < l;i++){
   if (bo[i]==box){
      var s = i;
   }
// adding selected box
   document.light.D1.options[i] = new Option(bo[i],bo[i]);
}
document.light.D1.options[s].selected=true
var   box = getCookie("box");
   if (!box) {
      alert ("Lightbox not set")
      box="main"
   } 
   var buc = box.substring(0,1)
   buc = buc.toUpperCase()
   var l = box.length
   buc += box.substring(1,l)
//   document.light.openbox.value="Open "+buc+" Lightbox"
}
//------------------------------------------------------------------------------
function whichbox(element) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   for (var i = 0 ; i < element.options.length; i++){
      if (element.options[i].selected){
         var b = element.options[i].value
      }
   }
//save lightbox name in cookie box
   box = getCookie("box");
   if (!box) {
      alert ("Lightbox not set")
   } else {
      box = b
      setCookie("box",box,now,"/");
   }
//   checkwin("boxman")
   resetwin()
   var buc = box.substring(0,1)
   buc = buc.toUpperCase()
   var l = box.length
   buc += box.substring(1,l)
//   document.light.openbox.value="Open "+buc+" Lightbox"
   self.focus()
}
//------------------------------------------------------------------
function whichbox2(element) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   for (var i = 0 ; i < element.options.length; i++){
      if (element.options[i].selected){
         var b = element.options[i].text
      }
   }
//save lightbox name in cookie box
   box = getCookie("box");
   if (!box) {
      alert ("Lightbox not set")
   } else {
      box = b
      setCookie("box",box,now,"/");
   }
//   resetwin("boxman")
   resetwin()
}
//------------------------------------------------------------------
function whichbox3(element,a) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   for (var i = 0 ; i < element.options.length; i++){
      if (element.options[i].selected){
         var b = element.options[i].text
      }
   }
//save lightbox name in cookie box
   var box = getCookie("box");
   if (!box) {
      alert ("Lightbox not set")
   } else {
      var box2 = box
      box = b
      setCookie("box",box,now,"/");
   }
   resetwin(a)
}
//-----------------------------------------------------------------
function closebox(box){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   winclose(box)
   self.close()
}
//-------------------------------------------------------------
function makewin2(b){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   if (!b) {
      box = getCookie("box");
   } else {
      box = b
   }
   if (!box) {
      alert ("Lightbox not set")
      box = "main"
   }
   var h = getCookie(box+"han")
   if (!h || h != "yes"){
      var a=window.open(jsdir+"patient.htm",box+"bcp","height=450,width=700,menubar=yes,toolbar=no,location=no,scrollbars=yes,resizable=yes")
   } else {
      var a=window.open("",box+"bcp")
      a=window.open("",box+"bcp")
   }
//   a.close
   document.light.target = box+"bcp"
   document.light.thisbox.value=box
   setCookie(box+"han","yes",now,"/")
   a.focus()
   document.light.submit()
}
//-------------------------------------------------------------
function makewin3(box){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// update the current window
   document.light.target = "_self"
   document.light.thisbox.value=box
   document.light.submit()
//   location.reload()
}
//-------------------------------------------------------------
function makewin4(b){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// same as makewin 2 but with focus
   if (!b) {
      box = getCookie("box");
   } else {
      box = b
   }
   if (!box) {
      alert ("Lightbox not set")
      box = "main"
   }
   var h = getCookie(box+"han")
   if (!h || h != "yes"){
      var a=window.open(jsdir+"patient.htm",box+"bcp","height=450,width=700,menubar=yes,toolbar=no,location=no,scrollbars=yes,resizable=yes")
   } else {
      var a=window.open("",box+"bcp")
      a=window.open("",box+"bcp")
   }
//   a.close
   document.light.target = box+"bcp"
   document.light.thisbox.value=box
   setCookie(box+"han","yes",now,"/")
//   a.focus()
   document.light.submit()
}
//-------------------------------------------------------------
function boxman2(){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   var h = getCookie("boxmanhan")
   if (!h || h != "yes"){
      var man=window.open(jsdir+"patient.htm","boxmanagerbcp","height=450,width=700,menubar=yes,toolbar=no,location=no,scrollbars=yes,resizable=yes", statusbar="yes")
   } else {
      var man=window.open("","boxmanagerbcp")
      man=window.open("","boxmanagerbcp")
   }
//   man.close
//   alert("boxman")
   document.light.reset()
   document.light.target = "boxmanagerbcp"
   document.light.thisbox.value="boxmanager"
   man.focus()
   setCookie("boxmanhan","yes",now,"/")
   document.light.submit()
// test reload
//   location.reload()
}
//------------------------------------------------------------
// function preview(mypic,mycap,w,h,who,nums) {
function preview(mypic,mycap3,nums) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// nums added 14-10-2001
// addpic added 23-12-2001, also check for picture in lightbox
   var q=mycap3.split("@")
   var l = q.length
   var w  = q[2] - 0
   var h  = q[3] - 0
   var who = q[4]
   var mycap= q[5]
   var d= "\',\'"+q[0]+"@"+q[1]+"@"+w+","+h+"@"+who+"@"

// allow for low screen res
   if (h <= w) {
// landscape
      var w2 = w+75
      var h2 = h+330
   } else {
      var w2 = w+400
      var h2 = h+140
   }
   var sh = screen.height
   if (sh < 750) {
// small screen
      w2=w2*.9
      h2=h2*.8
      if (h2 >= 620){
         h2=570
      }
   }
   var f = 'height='+h2+',width='+w2+',toolbar=no,location=no,scrollbars=yes,resizable=yes'
   f += ' ,left=10,top=0'
   var mypic2 = mypic.toUpperCase()
   var a=window.open("","reviewbcp",f)
   var b = "<html>\n<head>\n<title>Preview</title>\n"
   b += "<script LANGUAGE=\"JavaScript\" src=\""+jsdir+"polarjavan.js\">\n";
   b += "</script>\n";
   b += "</head><body bgcolor=\""+ backgrd + "\">\n"
   previewdira=previewdir1 +"bc/previews/";
   previewdirb=previewdir1 +"bc/previewss/";
   if (who=="BS"){
      previewdira=previewdir1 +"bas/previews/";
      previewdirb=previewdir1 +"bas/previewss/";
   } else if (who=="SP"){
       previewdira=previewdir1 +"spri/previews/";
       previewdirb=previewdir1 +"spri/previewss/";
   } else if (who=="HH"){
       previewdira=previewdir1 +"hhh/previews/";
       previewdirb=previewdir1 +"hhh/previewss/";
   } else if (who=="JH"){
       previewdira=previewdir1 +"jh/previews/";
       previewdirb=previewdir1 +"jh/previewss/";
   } else if (who=="ME"){
       previewdira=previewdir1 +"me/previews/";
       previewdirb=previewdir1 +"me/previewss/";
   } else if (who=="SW"){
       previewdira=previewdir1 +"sw/previews/";
       previewdirb=previewdir1 +"sw/previewss/";
   } else if (who=="GE"){
       previewdira=previewdir1 +"ge/previews/";
       previewdirb=previewdir1 +"ge/previewss/";
   }

   if (h <= w) {
// landscape
// use small preview on small screen
      b += "<center>\n"
      b += "<script language=\"JavaScript\"><!--\n"
      b += "var h = screen.height\n"
//      b += "alert(h)\n"
      b += "if (h < 750) {\n"
      b += "var s =\"<img src=\\\"" + previewdirb + mypic+"m.jpg\\\" border=\\\"0\\\" >\"\n"
      b += "} else {\n"
      b += "var s =\"<img src=\\\"" + previewdira + mypic+"m.jpg\\\" border=\\\"0\\\">\"\n"
      b += "}\n"
      b += "var whichwindow=\"preview\"\n"
      b += "document.write(s)\n"
      b += "// -->\n"
      b += "</script>\n"
      b += "<table colspan=\"4\" >\n"
      b += "<td width=\"5%\"></td>\n"
      b += "<td align=\"center\" width=\"30%\" valign=\"top\">"+mypic2+":</td>\n"
      b += "<td align=\"left\" width=\"60%\">"+mycap+"</td>\n"
      b += "<td width=\"5%\"></td></tr>\n"
      b += "</table>\n"
// Add rollover button for add image to lightbox
// check for image being in lightbox
      var match=""
      var boxes = getCookie("boxes")
      var bo = boxes.split("#")
      var l = bo.length
      for (i=0;i < l;i++){
         var box = bo[i]
         var c = getCookie(box)
         if (!c) {
         } else {
// split into pictures
            var p= c.split("#");
            var n = p.length;
            for(var j=0; j < p.length; j++) {
               var q=p[j].split("@")
// check if mypic in list of images
               if (q[0] == mypic){
               var buc = box.substr(0,1)
               buc = buc.toUpperCase()
               var l2 = box.length
               buc += box.substr(1,l2-1)
               match=buc
               }
            }
         }
      }
      if (match == 0) {
         b += "<a onMouseOut=\"MM_swapImgRestore2()\"\n"
         b += "onMouseOver=\"MM_swapImage2(\'a"+mypic+"\',\'\',\'/images/addpic2.gif\',1)\"\n"
         b += "href=\"javascript:addpic(\'"+mypic+d+mycap+"\')\">\n"
         b += "<img src=\"/images/addpic1.gif\" alt=\"Click to add picture to light box\"\n"
         b += " border=\"0\" name=\"a"+mypic+"\"\n"
         b += " width=\"141\" height=\"21\"></a>\n"
      } else {
         b += "<img src=\"/images/added.gif\" alt=\"Picture already in "+match+" Light Box\"\n"
         b += " border=\"0\" name=\"a"+mypic+"\" width=\"141\" height=\"21\">\n"
      }
// end of button

      b += "</center>\n"
      b += "<p align=\"center\"><font SIZE=\"-1\">© Copyright \n"
      photograher(who)
      b += who2
      b += "</font></p>\n"
//add form next preview
	b += "<form METHOD=\"GET\" ACTION=\""+cgidir+"another.pl\" name=\"nextprev\" >\n"
// add hidden elements for form elements in next form
	b += "<input type=\"hidden\" name=\"keywords\" size=\"50\" value=\""+keys1+"\">\n";
	b += "<input type=\"hidden\" name=\"type\" value=\""+type1+"\">\n";
	b += "<input type=\"hidden\" name=\"keywords2\" value=\""+keys2+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"type2\" VALUE=\""+type2+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"numf\" VALUE=\""+numf+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"nums\" VALUE=\""+nums+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"nextpic\" VALUE=\"xxxx\">\n";
	if (show == "ON") {
	   b += "<input type=\"hidden\" name=\"show\" value=\"ON\"> \n";
      }
// set variables for photographers
      for (i=1;i < 7;i++){
         if (pset[i] == 1) {
            b += "<input type=\"hidden\" name=\"p"+i+"\" value=\"p"+i+"\"> \n";
         }
      }
// add buttons for slide show, modified to rollover
      b += "<table border=\"0\" align=\"center\"><tr>\n";
      if (nums != 1) {
         b += "<td valign=\"bottom\"><a  href=\"javascript:nextpreview('previous')\"";
         b += " onMouseOut=\"MM_swapImgRestore()\"";
         b += " onMouseOver=\"MM_swapImage('previous','','/images/previous2.gif',1)\">";
         b += "<img name=\"previous\" border=\"0\" src=\"/images/previous1.gif\" ";
         b += "width=\"82\" height=\"21\"></a></td>\n";
      }
      b += "<td valign=\"bottom\">This is picture "+nums+" of "+numf+"</td>\n";
      if (nums != numf) {
         b += "<td valign=\"bottom\"><a  href=\"javascript:nextpreview('next')\"";
         b += " onMouseOut=\"MM_swapImgRestore()\"";
         b += " onMouseOver=\"MM_swapImage('next','','/images/next2.gif',1)\">";
         b += "<img name=\"next\" border=\"0\" src=\"/images/next1.gif\" ";
         b += "width=\"64\" height=\"21\"></a></td>\n";
            }
      b += "</table>\n";
	b += "</form>\n"
      b += "<hr width=\"50%\">\n"
      b += "<form METHOD=\"GET\" ACTION=\""+cgidir+"preview.pl\">\n"
// add hidden elements for form elements in next form
	b += "<input type=\"hidden\" name=\"keywords\" size=\"50\" value=\""+keys1+"\">\n";
	b += "<input type=\"hidden\" name=\"type\" value=\""+type1+"\">\n";
	b += "<input type=\"hidden\" name=\"keywords2\" value=\""+keys2+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"type2\" VALUE=\""+type2+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"numf\" VALUE=\""+numf+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"nums\" VALUE=\""+nums+"\">\n";
	if (show == "ON") {
	   b += "<input type=\"hidden\" name=\"show\" value=\"ON\"> \n";
      }
      b += "<input type=\"hidden\" name=\"picture\" value=\""+mypic2+"\">\n";
// name of photographer
      b += "<input type=\"hidden\" name=\"who\" value=\""+who+"\">\n"
      b += "<div align=\"center\"><center><p>\n"
      b += "<input  type=\"submit\" value=\"Show Keywords for this Picture\" name=\"B1\"></p>\n"
      b += "</center></div><div align=\"center\"><center><p>Use the button above to start a search<br>\n"
      b += "based apon the keywords for this picture</p>\n"
      b += "</center></div>\n"
      b += "</form>\n"
//      b += "</td>\n"
   } else {
      b += "<table colspan=\"2\" cellspacing=\"5\">\n"
      b += "<tr><td>\n"
// use small preview on small screen
      b += "<script language=\"JavaScript\"><!--\n"
      b += "var h = screen.height\n"
//      b += "alert(h)\n"
      b += "if (h < 750) {\n"
      b += "var s =\"<img src=\\\"" + previewdirb + mypic+"m.jpg\\\" border=\\\"0\\\" ></td>\"\n"
      b += "} else {\n"
      b += "var s =\"<img src=\\\"" + previewdira + mypic+"m.jpg\\\" border=\\\"0\\\"></td>\"\n"
      b += "}\n"
      b += "document.write(s)\n"
      b += "var whichwindow=\"preview\"\n"
      b += "// -->\n"
      b += "</script>\n"
// end
      b += "<td><center><p>"+mypic2+":</center></p>\n"
      b += mycap+"\n"
// Add rollover button for add image to lightbox
// check for image being in lightbox
      var match=""
      var boxes = getCookie("boxes")
      var bo = boxes.split("#")
      var l = bo.length
      for (i=0;i < l;i++){
         var box = bo[i]
         var c = getCookie(box)
         if (!c) {
         } else {
// split into pictures
            var p= c.split("#");
            var n = p.length;
            for(var j=0; j < p.length; j++) {
               var q=p[j].split("@")
// check if mypic in list of images
               if (q[0] == mypic){
               var buc = box.substr(0,1)
               buc = buc.toUpperCase()
               var l2 = box.length
               buc += box.substr(1,l2-1)
               match=buc
               }
            }
         }
      }
      b += "<center>\n"
      if (match == 0) {
         b += "<a onMouseOut=\"MM_swapImgRestore2()\"\n"
         b += "onMouseOver=\"MM_swapImage2(\'a"+mypic+"\',\'\',\'/images/addpic2.gif\',1)\"\n"
         b += "href=\"javascript:addpic(\'"+mypic+d+mycap+"\')\">\n"
         b += "<img src=\"/images/addpic1.gif\" alt=\"Click to add picture to light box\"\n"
         b += " border=\"0\" name=\"a"+mypic+"\"\n"
         b += " width=\"141\" height=\"21\"></a>\n"
      } else {
         b += "<img src=\"/images/added.gif\" alt=\"Picture already in "+match+" Light Box\"\n"
         b += " border=\"0\" name=\"a"+mypic+"\" width=\"141\" height=\"21\">\n"
      }
// end of button
      b += "<p align=\"center\"><font SIZE=\"-1\">© Copyright \n"
      photograher(who)
      b += who2
      b += "</font></p>\n"
      b += "</table>\n";
//add form next preview
	b += "<form METHOD=\"GET\" ACTION=\""+cgidir+"another.pl\" name=\"nextprev\" >\n"
// add hidden elements for form elements in next form
	b += "<input type=\"hidden\" name=\"keywords\" size=\"50\" value=\""+keys1+"\">\n";
	b += "<input type=\"hidden\" name=\"type\" value=\""+type1+"\">\n";
	b += "<input type=\"hidden\" name=\"keywords2\" value=\""+keys2+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"type2\" VALUE=\""+type2+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"numf\" VALUE=\""+numf+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"nums\" VALUE=\""+nums+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"nextpic\" VALUE=\"xxxx\">\n";
	if (show == "ON") {
	   b += "<input type=\"hidden\" name=\"show\" value=\"ON\"> \n";
      }
// set variables for photographers
      for (i=1;i < 7;i++){
         if (pset[i] == 1) {
            b += "<input type=\"hidden\" name=\"p"+i+"\" value=\"p"+i+"\"> \n";
         }
      }
// add buttons for slide show, modified to rollover
      b += "<table border=\"0\" align=\"center\"><tr>\n";
      if (nums != 1) {
         b += "<td valign=\"bottom\"><a  href=\"javascript:nextpreview('previous')\"";
         b += " onMouseOut=\"MM_swapImgRestore()\"";
         b += " onMouseOver=\"MM_swapImage('previous','','/images/previous2.gif',1)\">";
         b += "<img name=\"previous\" border=\"0\" src=\"/images/previous1.gif\" ";
         b += "width=\"82\" height=\"21\"></a></td>\n";
      }
      b += "<td valign=\"bottom\">This is picture "+nums+" of "+numf+"</td>\n";
      if (nums != numf) {
         b += "<td valign=\"bottom\"><a  href=\"javascript:nextpreview('next')\"";
         b += " onMouseOut=\"MM_swapImgRestore()\"";
         b += " onMouseOver=\"MM_swapImage('next','','/images/next2.gif',1)\">";
         b += "<img name=\"next\" border=\"0\" src=\"/images/next1.gif\" ";
         b += "width=\"64\" height=\"21\"></a></td>\n";
            }
      b += "</table>\n";
      b += "</form>\n"
      b += "<hr width=\"50%\">\n"
      b += "<form METHOD=\"GET\" ACTION=\""+cgidir+"preview.pl\">\n"
// add hidden elements for form elements in next form
	b += "<input type=\"hidden\" name=\"keywords\" size=\"50\" value=\""+keys1+"\">\n";
	b += "<input type=\"hidden\" name=\"type\" value=\""+type1+"\">\n";
	b += "<input type=\"hidden\" name=\"keywords2\" value=\""+keys2+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"type2\" VALUE=\""+type2+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"numf\" VALUE=\""+numf+"\">\n";
	b += "<input TYPE=\"hidden\" NAME=\"nums\" VALUE=\""+nums+"\">\n";
// name of photographer
      b += "<input type=\"hidden\" name=\"who\" value=\""+who+"\">\n"
	if (show == "ON") {
	   b += "<input type=\"hidden\" name=\"show\" value=\"ON\"> \n";
      }
      b += "<input type=\"hidden\" name=\"picture\" value=\""+mypic2+"\"><div align=\"center\"><center><p>\n"
// name of photographer
      b += "<input  type=\"submit\" value=\"Show Keywords for this Picture\" name=\"B1\"></p>\n"
      b += "</center></div><div align=\"center\"><center><p>Use the button above to start a search<br>\n"
      b += "based apon the keywords for this picture</p>\n"
      b += "</center></div>\n"
      b += "</form>\n"
      b += "</td>\n"
      b += "</tr>\n"
      b += "</table>\n"
   }
   b += "</body>\n"
   a.document.write(b);
   a.document.close();
   a.focus();
   a.resizeTo(w2,h2);
}
//------------------------------------------------------------
function preview2(mypic,mycap,w,h,who,nums,numf,box) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// nums and numf added 28-12-2001
// allow for low screen res
   if (h <= w) {
// landscape
      var w2 = w+75
      var h2 = h+330
   } else {
      var w2 = w+400
      var h2 = h+140
   }
   var sh = screen.height
   if (sh < 750) {
// small screen
      w2=w2*.9
      h2=h2*.8
      if (h2 >= 620){
         h2=570
      }
   }
   var f = 'height='+h2+',width='+w2+',toolbar=no,location=no,scrollbars=yes,resizable=yes'
//   var f = 'height='+h2+',width='+w2+',toolbar=no,location=no,scrollbars=no,resizable=yes'
   f += ' ,left=10,top=0'
   var mypic2 = mypic.toUpperCase()
   var a=window.open("","reviewbcp",f)
   var b = "<html>\n<head>\n<title>Preview</title>\n"
   b += "<script LANGUAGE=\"JavaScript\" src=\""+jsdir+"polarjavan.js\">\n";
   b += "</script>\n";
   b += "</head><body bgcolor=\""+ backgrd + "\">\n"
   previewdira=previewdir1 +"bc/previews/";
   previewdirb=previewdir1 +"bc/previewss/";
   if (who=="BS"){
      previewdira=previewdir1 +"bas/previews/";
      previewdirb=previewdir1 +"bas/previewss/";
   } else if (who=="SP"){
       previewdira=previewdir1 +"spri/previews/";
       previewdirb=previewdir1 +"spri/previewss/";
   } else if (who=="HH"){
       previewdira=previewdir1 +"hhh/previews/";
       previewdirb=previewdir1 +"hhh/previewss/";
   } else if (who=="JH"){
       previewdira=previewdir1 +"jh/previews/";
       previewdirb=previewdir1 +"jh/previewss/";
   } else if (who=="ME"){
       previewdira=previewdir1 +"me/previews/";
       previewdirb=previewdir1 +"me/previewss/";
   } else if (who=="SW"){
       previewdira=previewdir1 +"sw/previews/";
       previewdirb=previewdir1 +"sw/previewss/";
   } else if (who=="GE"){
       previewdira=previewdir1 +"ge/previews/";
       previewdirb=previewdir1 +"ge/previewss/";
   }

   if (h <= w) {
// landscape
// use small preview on small screen
      b += "<center>\n"
      b += "<script language=\"JavaScript\"><!--\n"
      b += "var h = screen.height\n"
      b += "if (h < 750) {\n"
      b += "var s =\"<img src=\\\"" + previewdirb + mypic+"m.jpg\\\" border=\\\"0\\\" >\"\n"
      b += "} else {\n"
      b += "var s =\"<img src=\\\"" + previewdira + mypic+"m.jpg\\\" border=\\\"0\\\">\"\n"
      b += "}\n"
      b += "document.write(s)\n"
      b += "// -->\n"
      b += "</script>\n"
      b += "<table colspan=\"4\" >\n"
      b += "<td width=\"5%\"></td>\n"
      b += "<td align=\"center\" width=\"30%\" valign=\"top\">"+mypic2+":</td>\n"
      b += "<td align=\"left\" width=\"60%\">"+mycap+"</td>\n"
      b += "<td width=\"5%\"></td></tr>\n"
      b += "</table></center>\n"
      b += "<p align=\"center\"><font SIZE=\"-1\">© Copyright \n"
      photograher(who)
      b += who2
      b += "</font></p>\n"

//add next preview using Javascript version of another.pl as all info is known
// add buttons for slide show
      nextbutons(nums,nums,numf,box)
      b += who2
// end of slideshow

      b += "<hr width=\"50%\">\n"
//      b += "<tr>\n"
//      b += "<td align=\"center\">\n"
      b += "<form METHOD=\"GET\" ACTION=\""+cgidir+"preview.pl\">\n"
// add hidden elements for form elements in next form
	b += "<input type=\"hidden\" name=\"nonext\" size=\"50\" value=\"1\">\n";
//	b += "<input type=\"hidden\" name=\"keywords\" size=\"50\" value=\""+keys1+"\">\n";
//	b += "<input type=\"hidden\" name=\"type\" value=\""+type1+"\">\n";
//	b += "<input type=\"hidden\" name=\"keywords2\" value=\""+keys2+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"type2\" VALUE=\""+type2+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"numf\" VALUE=\""+numf+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"nums\" VALUE=\""+nums+"\">\n";
//	if (show == "ON") {
//	   b += "<input type=\"hidden\" name=\"show\" value=\"ON\"> \n";
//      }
      b += "<input type=\"hidden\" name=\"picture\" value=\""+mypic2+"\"><div align=\"center\"><center><p>\n"
// name of photographer
      b += "<input type=\"hidden\" name=\"who\" value=\""+who+"\">\n"
      b += "<input  type=\"submit\" value=\"Show Keywords for this Picture\" name=\"B1\"></p>\n"
      b += "</center></div><div align=\"center\"><center><p>Use the button above to start a search<br>\n"
      b += "based apon the keywords for this picture</p>\n"
      b += "</center></div>\n"
      b += "</form>\n"
   } else {
      b += "<table colspan=\"2\" cellspacing=\"5\">\n"
      b += "<tr><td>\n"
// use small preview on small screen
      b += "<script language=\"JavaScript\"><!--\n"
      b += "var h = screen.height\n"
      b += "if (h < 750) {\n"
      b += "var s =\"<img src=\\\"" + previewdirb + mypic+"m.jpg\\\" border=\\\"0\\\" ></td>\"\n"
      b += "} else {\n"
      b += "var s =\"<img src=\\\"" + previewdira + mypic+"m.jpg\\\" border=\\\"0\\\"></td>\"\n"
      b += "}\n"
      b += "document.write(s)\n"
      b += "// -->\n"
      b += "</script>\n"
// end
      b += "<td><center><p>"+mypic2+":</center></p>\n"
      b += mycap+"\n"
      b += "<p align=\"center\"><font SIZE=\"-1\">© Copyright \n"
      photograher(who)
      b += who2
      b += "</font></p>\n"
//      b += "</td></tr>\n"
//      b += "<tr>\n"
//      b += "<td align=\"center\">\n"

//add next preview using Javascript version of another.pl as all info is known
// add buttons for slide show
      nextbutons(nums,nums,numf,box)
	b += who2
// end of slideshow

      b += "<hr width=\"50%\">\n"
      b += "<form METHOD=\"GET\" ACTION=\""+cgidir+"preview.pl\">\n"
// add hidden elements for form elements in next form
	b += "<input type=\"hidden\" name=\"nonext\" size=\"50\" value=\"1\">\n";
//	b += "<input type=\"hidden\" name=\"keywords\" size=\"50\" value=\""+keys1+"\">\n";
//	b += "<input type=\"hidden\" name=\"type\" value=\""+type1+"\">\n";
//	b += "<input type=\"hidden\" name=\"keywords2\" value=\""+keys2+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"type2\" VALUE=\""+type2+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"numf\" VALUE=\""+numf+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"nums\" VALUE=\""+nums+"\">\n";
//	if (show == "ON") {
//	   b += "<input type=\"hidden\" name=\"show\" value=\"ON\"> \n";
//      }
      b += "<input type=\"hidden\" name=\"picture\" value=\""+mypic2+"\"><div align=\"center\"><center><p>\n"
// name of photographer
      b += "<input type=\"hidden\" name=\"who\" value=\""+who+"\">\n"
      b += "<input  type=\"submit\" value=\"Show Keywords for this Picture\" name=\"B1\"></p>\n"
      b += "</center></div><div align=\"center\"><center><p>Use the button above to start a search<br>\n"
      b += "based apon the keywords for this picture</p>\n"
      b += "</center></div>\n"
      b += "</form>\n"
      b += "</td>\n"
      b += "</tr>\n"
      b += "</table>\n"
   }
   b += "</body>\n"
   a.document.write(b);
   a.document.close();
   a.focus();
   a.resizeTo(w2,h2);
}
//------------------------------------------------------------
function nextbutons(np,nums,numf,box){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
//add next preview using Javascript version of another.pl as all info is known
// add buttons for slide show
   if(numf != 1){
	var b = "<form>\n"
      b += "<div align=\"center\"><center><p>\n";
      if (nums != 1) {
         var np=nums-1;
         b += "<input type=\"button\" value=\"Previous\" name=\"previous\" \n";
         b += "onclick=\"another('"+np+"','"+nums+"','"+numf+"','"+box+"')\" >\n";
      } else if (numf != 2) {
         var np=numf;
         b += "<input type=\"button\" value=\"Last Picture\" name=\"previous\" \n";
         b += "onclick=\"another('"+np+"','"+nums+"','"+numf+"','"+box+"')\" >\n";
      }
      b += "\&nbsp\;\&nbsp\;This\&nbsp\;is\&nbsp\;picture\&nbsp\;"+nums+ "\&nbsp\;of\&nbsp\;"+numf+"\&nbsp\;\n";
      if (nums != numf) {
         var np=nums-0+1;
         b += "<input type=\"button\" value=\"Next\" name=\"next\" \n";
         b += "onclick=\"another('"+np+"','"+nums+"','"+numf+"','"+box+"')\" >\n";
      } else  if (numf != 2) {
         var np=1;
         b += "<input type=\"button\" value=\"First Picture\" name=\"previous\" \n";
         b += "onclick=\"another('"+np+"','"+nums+"','"+numf+"','"+box+"')\" >\n";
      }
      b += "</center></div>\n";
	b += "</form>\n"
      who2=b
   } else {
      who2 =""
   }
}
//------------------------------------------------------------
function another(np,nums,numf,box){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// Javascript version of another 28-12-2001
// box will hold the cookie name with the list of pictures
// for the lightbox
   var saw = getCookie(box);
   var p= saw.split("#");
// sort p
   p.sort()
   var n = p.length;
   var c = p[np-1].split("@")
//mypic,mycap,w,h,who,nums,numf,box needed as in preview2
   var mypic = c[0]
   var who = c[4]
   var c2 = c[3].split(",")
   var w = c2[0]-0
   var h = c2[1]-0
   var mycap = c[5]
   nums=np
// allow for low screen res
   if (h <= w) {
// landscape
      var w2 = w+75
      var h2 = h+330
   } else {
      var w2 = w+400
      var h2 = h+140
   }
   var sh = screen.height
   if (sh < 750) {
// small screen
      w2=w2*.9
      h2=h2*.8
      if (h2 >= 620){
         h2=570
      }
   }
   var f = 'height='+h2+',width='+w2+',toolbar=no,location=no,scrollbars=yes,resizable=yes'
//   var f = 'height='+h2+',width='+w2+',toolbar=no,location=no,scrollbars=no,resizable=yes'
   f += ' ,left=10,top=0'
   var mypic2 = mypic.toUpperCase()
   var a=window.open("","reviewbcp",f)
   var b = "<html>\n<head>\n<title>Preview</title>\n"
   b += "<script LANGUAGE=\"JavaScript\" src=\""+jsdir+"polarjavan.js\">\n";
   b += "</script>\n";
   b += "</head><body background=\""+ backgrd + "\">\n"
   previewdira=previewdir1 +"bc/previews/";
   previewdirb=previewdir1 +"bc/previewss/";
   if (who=="BS"){
      previewdira=previewdir1 +"bas/previews/";
      previewdirb=previewdir1 +"bas/previewss/";
   } else if (who=="SP"){
       previewdira=previewdir1 +"spri/previews/";
       previewdirb=previewdir1 +"spri/previewss/";
   } else if (who=="HH"){
       previewdira=previewdir1 +"hhh/previews/";
       previewdirb=previewdir1 +"hhh/previewss/";
   } else if (who=="JH"){
       previewdira=previewdir1 +"jh/previews/";
       previewdirb=previewdir1 +"jh/previewss/";
   } else if (who=="ME"){
       previewdira=previewdir1 +"me/previews/";
       previewdirb=previewdir1 +"me/previewss/";
   } else if (who=="SW"){
       previewdira=previewdir1 +"sw/previews/";
       previewdirb=previewdir1 +"sw/previewss/";
   } else if (who=="GE"){
       previewdira=previewdir1 +"ge/previews/";
       previewdirb=previewdir1 +"ge/previewss/";
   }

   if (h <= w) {
// landscape
// use small preview on small screen
      b += "<center>\n"
      b += "<script language=\"JavaScript\"><!--\n"
      b += "var h = screen.height\n"
      b += "if (h < 750) {\n"
      b += "var s =\"<img src=\\\"" + previewdirb + mypic+"m.jpg\\\" border=\\\"0\\\" >\"\n"
      b += "} else {\n"
      b += "var s =\"<img src=\\\"" + previewdira + mypic+"m.jpg\\\" border=\\\"0\\\">\"\n"
      b += "}\n"
      b += "document.write(s)\n"
      b += "// -->\n"
      b += "</script>\n"
      b += "<table colspan=\"4\" >\n"
      b += "<td width=\"5%\"></td>\n"
      b += "<td align=\"center\" width=\"30%\" valign=\"top\">"+mypic2+":</td>\n"
      b += "<td align=\"left\" width=\"60%\">"+mycap+"</td>\n"
      b += "<td width=\"5%\"></td></tr>\n"
      b += "</table></center>\n"
      b += "<p align=\"center\"><font SIZE=\"-1\">© Copyright \n"
      photograher(who)
      b += who2
      b += "</font></p>\n"

//add next preview using Javascript version of another.pl as all info is known
// add buttons for slide show
      nextbutons(np,nums,numf,box)
	b += who2
// end of slideshow

      b += "<hr width=\"50%\">\n"
//      b += "<tr>\n"
//      b += "<td align=\"center\">\n"
      b += "<form METHOD=\"GET\" ACTION=\""+cgidir+"preview.pl\">\n"
// add hidden elements for form elements in next form
	b += "<input type=\"hidden\" name=\"nonext\" size=\"50\" value=\"1\">\n";
//	b += "<input type=\"hidden\" name=\"keywords\" size=\"50\" value=\""+keys1+"\">\n";
//	b += "<input type=\"hidden\" name=\"type\" value=\""+type1+"\">\n";
//	b += "<input type=\"hidden\" name=\"keywords2\" value=\""+keys2+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"type2\" VALUE=\""+type2+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"numf\" VALUE=\""+numf+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"nums\" VALUE=\""+nums+"\">\n";
//	if (show == "ON") {
//	   b += "<input type=\"hidden\" name=\"show\" value=\"ON\"> \n";
//      }
      b += "<input type=\"hidden\" name=\"picture\" value=\""+mypic2+"\"><div align=\"center\"><center><p>\n"
// name of photographer
      b += "<input type=\"hidden\" name=\"who\" value=\""+who+"\">\n"
      b += "<input  type=\"submit\" value=\"Show Keywords for this Picture\" name=\"B1\"></p>\n"
      b += "</center></div><div align=\"center\"><center><p>Use the button above to start a search<br>\n"
      b += "based apon the keywords for this picture</p>\n"
      b += "</center></div>\n"
      b += "</form>\n"
//      b += "</td>\n"
   } else {
      b += "<table colspan=\"2\" cellspacing=\"5\">\n"
      b += "<tr><td>\n"
//      b += "<img src=\""+previewdir+mypic+"m.jpg\"></td>\n"
// use small preview on small screen
      b += "<script language=\"JavaScript\"><!--\n"
      b += "var h = screen.height\n"
      b += "if (h < 750) {\n"
      b += "var s =\"<img src=\\\"" + previewdirb + mypic+"m.jpg\\\" border=\\\"0\\\" ></td>\"\n"
      b += "} else {\n"
      b += "var s =\"<img src=\\\"" + previewdira + mypic+"m.jpg\\\" border=\\\"0\\\"></td>\"\n"
      b += "}\n"
      b += "document.write(s)\n"
      b += "// -->\n"
      b += "</script>\n"
// end
      b += "<td><center><p>"+mypic2+":</center></p>\n"
      b += mycap+"\n"
      b += "<p align=\"center\"><font SIZE=\"-1\">© Copyright \n"
      photograher(who)
      b += who2
      b += "</font></p>\n"
//      b += "</td></tr>\n"
//      b += "<tr>\n"
//      b += "<td align=\"center\">\n"
//add form next preview
//      b += "</table>\n"
//add next preview using Javascript version of another.pl as all info is known
// add buttons for slide show
      nextbutons(np,nums,numf,box)
      b += who2
// end of slideshow

      b += "<hr width=\"50%\">\n"
      b += "<form METHOD=\"GET\" ACTION=\""+cgidir+"preview.pl\">\n"
// add hidden elements for form elements in next form
	b += "<input type=\"hidden\" name=\"nonext\" size=\"50\" value=\"1\">\n";
//	b += "<input type=\"hidden\" name=\"keywords\" size=\"50\" value=\""+keys1+"\">\n";
//	b += "<input type=\"hidden\" name=\"type\" value=\""+type1+"\">\n";
//	b += "<input type=\"hidden\" name=\"keywords2\" value=\""+keys2+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"type2\" VALUE=\""+type2+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"numf\" VALUE=\""+numf+"\">\n";
//	b += "<input TYPE=\"hidden\" NAME=\"nums\" VALUE=\""+nums+"\">\n";
//	if (show == "ON") {
//	   b += "<input type=\"hidden\" name=\"show\" value=\"ON\"> \n";
//      }
      b += "<input type=\"hidden\" name=\"picture\" value=\""+mypic2+"\"><div align=\"center\"><center><p>\n"
// name of photographer
      b += "<input type=\"hidden\" name=\"who\" value=\""+who+"\">\n"
      b += "<input  type=\"submit\" value=\"Show Keywords for this Picture\" name=\"B1\"></p>\n"
      b += "</center></div><div align=\"center\"><center><p>Use the button above to start a search<br>\n"
      b += "based apon the keywords for this picture</p>\n"
      b += "</center></div>\n"
      b += "</form>\n"
      b += "</td>\n"
      b += "</tr>\n"
      b += "</table>\n"
   }
   b += "</body>\n"
   a.document.write(b);
   a.document.close();
   a.focus();
   a.resizeTo(w2,h2);

}
//------------------------------------------------------------
function photograher(who){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   if (who=="BC" || who == "CA" || who == "BA"){
      who2 = "Bryan &amp; Cherry Alexander Photography\n"
   } else if (who=="AH"){
      who2 = "Ann Hawthorne\n"
   } else if (who=="BW"){
      who2 = "Bob Wilson\n"
   } else if (who=="DR"){
      who2 = "David Rootes\n"
   } else if (who=="DS"){
      who2 = "Dave Saunders\n"
   } else if (who=="EP"){
      who2 = "Dr Eckart Pott\n"
   } else if (who=="FI"){
      who2 = "Fiona Hall\n"
   } else if (who=="HJ"){
      who2 = "Hans Jensen\n"
   } else if (who=="HR"){
      who2 = "Hans Reinhard\n"
   } else if (who=="IC"){
      who2 = "Ian Cumming\n"
   } else if (who=="JH"){
      who2 = "John Hyde\n"
   } else if (who=="JD"){
      who2 = "Julian Dowdeswell\n"
   } else if (who=="KR"){
      who2 = "Keith Robinson\n"
   } else if (who=="LC"){
      who2 = "Louise Crossley\n"
   } else if (who=="MJ"){
      who2 = "Mike Jaques\n"
   } else if (who=="PD"){
      who2 = "Paul Drummend\n"
//   } else if (who=="SP"){
//      who2 = "Steve Pinfield\n"
   } else if (who=="WE"){
      who2 = "Wendy Else\n"
   } else if (who=="WL"){
      who2 = "Wayne Lynch\n"
// polar circle members
   } else if (who=="BS"){
       who2 = "British Antarctic Survey\n"
   } else if (who=="SP"){
       who2 = "Scott Polar Research Institute\n"
   } else if (who=="HH"){
       who2 = "Colin Monteath/Hedgehog House New Zealand\n"
   } else if (who=="JH"){
       who2 = "John Hyde\n"
   } else if (who=="ME"){
       who2 = "Magnus Elander\n"
   } else if (who=="SW"){
       who2 = "Staffan Widstrand\n"
   } else if (who=="GE"){
       who2 = "Goran Ehlme\n"
   }
}
//------------------------------------------------------------
function register(mypic,mycap3,ns){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// has to pass on ns to server
// addpic added 23-12-2001, also check for picture in lightbox
   var q=mycap3.split("@")
   var l = q.length
   var w  = q[2] - 0
   var h  = q[3] - 0
   var who = q[4]
   var mycap= q[5]
//
   var c = mypic+"@"+mycap+"@"+w+"@"+h+"@"+who
   var p = getCookie("preview")
   if (p=="Yes") {
      preview(mypic,mycap3,ns)
   } else {
      setCookie("previewpic",c,now,"/")
      if (h <= w) {
         var w2 = w+50
         var h2 = h+300
      } else {
         var w2 = w+350
         var h2 = h+75
      }
      var f = 'height='+h2+',width='+w2+',toolbar=no,location=no,scrollbars=yes,resizable=yes'
      f += ' ,left=10,top=10'
      var a=window.open("" + jsdir + "register.htm","reviewbcp",f)
      var a=window.open("" + jsdir + "register.htm","reviewbcp",f)
   }
}
//------------------------------------------------------------
function addpic(mypic,mycap) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   var i = 0
   if ((c=MM_findObj("a"+mypic))!=null){
   } else {
      alert("object not found")
   }
// b will hold the cookie name with the list of pictures for the lightbox
   var cook = document.cookie
   var csize = cook.length
   var savecap = getCookie("savecap")
   if (!savecap) {
      savecap = "yes"
   }
   if (csize >= 3900) {
      if (savecap=="yes") {
         var msg = "You have reached the limit of the numbers of pictures"
         msg += " you can have have in your lightboxes. You have the choice of"
         msg += " switching to working without picture captions which will allow"
         msg += " you to have many more pictures."
         alert(msg)
         msg = "Do you wish to switch?"
         if(confirm(msg)){
	   removecap()
         } else {
           alert("You will not be able to add new pictures untill you have removed")
         }
      } else { 
         var msg = "You have reached the limit of the numbers of pictures"
         msg += " you can have have in your lightboxes. Even without saving captions"
         msg += " you have now reached a point where adding further pictures will"
         msg += " cause you to loose others you have selected. Before you can add"
         msg += " any more pictures you will have to discards some others and then empty"
         msg += " the Discards Lightbox."
         alert(msg)
      }
   } else {
      var box = getCookie("box");
      if (!box) {
         alert ("Lightbox not set")
         box = "main"
      }
      saw = getCookie(box);
      if (!saw) {
	 saw="";
	 var sep=""
      } else {
         var sep= "#";
      }
// need to check if mypic already in list, need to check list in cookie
//      if (c.src.match("added.gif")) {
      var match=""
      var mboxes = getCookie("boxes")
      var mbo = mboxes.split("#")
      var ml = mbo.length
      mbo[ml]="discards"
      ml += 1
      for (mi=0;mi < ml;mi++){
         var mbox = mbo[mi]
         var mc = getCookie(mbox)
         if (!mc) {
         } else {
// split into pictures
            var mp= mc.split("#");
            var mn = mp.length;
            for(var mj=0; mj < mn; mj++) {
               var mq=mp[mj].split("@")
// check if mypic in list of images
               if (mq[0] == mypic){
               var mbuc = mbox.substr(0,1)
               mbuc = mbuc.toUpperCase()
               var ml2 = mbox.length
               mbuc += mbox.substr(1,ml2-1)
               match=mbuc
               }
            }
         }
      }
      if (match != ""){
         alert("The picture has already been added to the "+match+" lightbox")
         c.src =imagedir+"added.gif"
         c.alt ="Picture already in "+match+ " Lightbox"
      } else {
         if (savecap=="no") {
// still need to keep the size information
            var q=mycap.split("@")
            var l = q.length
            saw=saw+sep+mypic+"@"
            for (var j = 0;j< q.length-1;j++){
               saw += q[j]+"@"
            }
         } else {
            saw=saw+sep+mypic+"@"+mycap
         }
         setCookie(box,saw,now,"/");
         var a = c.alt
// Change button to show lightbox
         box = getCookie("box");
         if (!box) {
            alert ("Lightbox not set")
         } else {
            var buc = box.substr(0,1)
            buc = buc.toUpperCase()
            var l = box.length
            buc += box.substr(1,l-1)
            c.alt ="Added to "+buc+ " Lightbox"
            c.src =imagedir+"added.gif"
         }
//PC Version
         if (whichwindow == "boxes"){
            checkwin(box)
            checkwin("boxman")
         }
//-----------
      } 
      window.focus()
   }
}
//--------------------------------------------------------------------
function addpic2(mypic,mycap) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// b will hold the cookie name with the list of pictures for the lightbox
   var box = getCookie("box");
   var savecap = getCookie("savecap")
   if (!savecap) {
      savecap = "yes"
   }
   if (!box) {
      alert ("Lightbox not set")
      box = "main"
   }
   saw = getCookie(box);
   if (!saw) {
		saw="";
		var sep=""
   } else {
		var sep= "#";
   }
// need to check if mypic already in list, need to check list in cookie
// if (c.src.match("added.gif")) {
   var match=""
   var mboxes = getCookie("boxes")
   var mbo = mboxes.split("#")
   var ml = mbo.length
   mbo[ml]="discards"
   ml += 1
   for (mi=0;mi < ml;mi++){
      var mbox = mbo[mi]
      var mc = getCookie(mbox)
      if (!mc) {
      } else {
// split into pictures
         var mp= mc.split("#");
         var mn = mp.length;
         for(var mj=0; mj < mn; mj++) {
            var mq=mp[mj].split("@")
// check if mypic in list of images
            if (mq[0] == mypic){
            var mbuc = mbox.substr(0,1)
            mbuc = mbuc.toUpperCase()
            var ml2 = mbox.length
            mbuc += mbox.substr(1,ml2-1)
            match=mbuc
            }
         }
      }
   }
   if (match != ""){
      alert("The picture has already been added to a lightbox")
      c.src =imagedir+"added.gif"
      c.alt ="Picture already in "+match+ " Lightbox"
   } else {
      if (savecap=="no"){
// replace caption by single blank
         var q=mycap.split("@")
         var nq = q.length
         newp = q[0]+"@"
// replace caption by a single blank
         q[nq-1]=" "
         for ( var jp = 1; jp < nq;jp++){
            newp += q[jp]+"@"
         }
         saw=saw+sep+mypic+"@"+newp
      } else {
         saw=saw+sep+mypic+"@"+mycap
      }
      setCookie(box,saw,now,"/");
      var a = c.value
// Change button to show lightbox
      box = getCookie("box");
      if (!box) {
         alert ("Lightbox not set")
      } else {
         var buc = box.substr(0,1)
         buc = buc.toUpperCase()
         var l = box.length
         buc += box.substr(1,l-1)
         c.alt ="Added to "+buc+ " Lightbox"
         c.src =imagedir+"added.gif"
     }
//PC Version
     checkwin(box)
//-----------
   } 
   window.focus()
}
//---------------------------------------------------------------------
function chkbut(){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
var x = 1
if (x==1) {
   } else {
// get list of boxes
   var boxes=getCookie("boxes")
   if (!boxes) {
   } else {
   var bo = boxes.split("#")
   l = bo.length   
   bo[l]="discards"
   var sets = new Array()
   var labs = new Array()
   var s = -1
   for (var i = 0;i< bo.length;i++){
// read in pictures in lightbox
      var c = getCookie(bo[i])
      if (!c) {
      } else {
         s += 1
         var p= c.split("#");
         var n = p.length;
         for (var j=0;j<n;j++){
            var pic=p[j].split("@")
            var x=pic[0].replace(/-/g,"")
// add picture to array
            if (!sets[s]) {
               sets[s] = x+"#"
               buc = bo[i].substring(0,1)
               buc = buc.toUpperCase()
               var m = bo[i].length
               buc += bo[i].substr(1,m)
               labs[s] = "Picture in "+buc +" Box"
            } else {
               sets[s] += x+"#"
            }
         }
      }
   }
   s = sets.length
   var a = document.images.length
   for (var i = 0 ;i<a;i++){
      var b = document.images[i].src
      var b1 = document.images[i].name
      var b3 = /added.gif/i
      var b4 = /addpic.jpg/i
      if (b3.test(b) || b4.test(b)){
         for (j=0;j<s;j++){
            if (sets[j].match(b1)){
               document.images[i].alt=labs[j]
               document.images[i].src=imagedir+"added.gif" 
            }
         }
      }
   }
   }
}
}
//--------------------------------------------------------------
function removecap(){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   setCookie("savecap","no",now,"/")   
   var boxes = getCookie("boxes")
   var bo = boxes.split("#")
   var l = bo.length
   for (i=0;i < l;i++){
      var box = bo[i]
      var c = getCookie(box)
      var newc = ""
      sep =""
      if (!c) {
         alert("No Pictures in "+box+" Lightbox")
      } else {
// split into pictures
         var p= c.split("#");
// sort p 
         p.sort()
         var n = p.length;
         for(var j=0; j < p.length; j++) {
            var q=p[j].split("@")
// check for missing thumbnail
            if (q[1]=="x"){
               newc += sep+p[j]
               sep = "#"
            } else {
// check for thumbnail size
               var nq = q.length
               newp = q[0]+"@"
// replace caption by a single blank
               q[nq-1]=" "
               for ( var jp = 1; jp < nq;jp++){
                  newp += q[jp]+"@"
               }
               newc += sep + newp
               sep = "#"
            }   
         }
         var msg = box +"\nbefore \n"+c
         msg += "\nafter \n"+newc
         setCookie(box,newc,now,"/")
      } 
   }
}
//---------------------------------------------------------------
function empty_box(box){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   var quest = "Click OK to empty the lightbox. All the "
   quest += "pictures will be removed. Click Cancel to stop this operation"
   if(confirm(quest)){
      if (box == "discards") {
         setCookie(box,"",now,"/");
         checkwin("boxman")
         checkwin(box)
      } else {
         quest = "You have the choice of moving all the pictures to "
         quest += "the Discards Lightbox or throwing the selection away."
         quest += "Click OK to move all the pictures to the "
         quest += "Discards Lighbox. Click Cancel for NO - I want "
         quest += "to throw away this selection."
         if(confirm(quest)){
            var saw = getCookie(box);
            var p= saw.split("#");
            var n = p.length;
            var saw2 ="";  
            var gap = "";
// discards is list of pictures in lightbox
            var t=getCookie("discards");
            if (!t) {
               t=""
               var sep=""
            } else {
               var sep="#";
            }
            for(var i=0; i < n; i++) {
// need to check if mypic already in list
               if (t.match(p[i])) {
               } else {
                  t += sep+p[i]
                  sep="#"
               }
            }
            setCookie("discards",t,now,"/")
            setCookie(box,"",now,"/");
//PC Version
            checkwin("discards")
            checkwin("boxman")
            makewin3(box)
         } else {
            setCookie(box,"",now,"/");
            checkwin("boxman")
            checkwin(box)
         }
      }
   }
}

//------------------------------------------------------------------------

function deletebox(bb){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
var c =getCookie("boxmanhan")
   var box = bb
   var b = box + "han"
   var c = getCookie(b)
   if (c == "yes") {
      kill_window(box)
   } 
// window closed - ok to carry on
      var quest = "Click OK to delete the lightbox. All the "
      quest += "pictures will be removed and the lightbox removed from "
      quest += "your set of lightboxes. Click Cancel to stop this "
      quest += "operation and keep the lightbox."
      if(confirm(quest)){
// Check if there are any pictures
      	var c = getCookie(box)
      	if (!c) {
// No pictures to worry about so box can just be deleted
        } else {
            quest = "You have the choice of moving all the pictures to "
            quest += "the Discards Lightbox or throwing the selection away. "
            quest += "Click OK to move all the pictures to the "
            quest += "Discards Lighbox. Click Cancel for NO - I want "
            quest += "to throw away this selection."
            if(confirm(quest)){
               var saw = getCookie(box);
               var p= saw.split("#");
               var n = p.length;
               var saw2 ="";  
               var gap = "";
// discards is list of pictures in lightbox
               var t=getCookie("discards");
               if (!t) {
                  t=""
                  var sep=""
               } else {
                  var sep="#";
               }
               for(var i=0; i < n; i++) {
// need to check if mypic already in list
                  if (t.match(p[i])) {
                  } else {
                     t += sep+p[i]
                     sep="#"
                  }
               }
               setCookie("discards",t,now,"/")
//PC Version
               checkwin("discards")
               setCookie(box,"",now,"/");
            } else {
               setCookie(box,"",now,"/");
            }
         }
         deleteCookie(box,"/")
         var active = getCookie("box")
         if (active == box) {
            alert("Active Lightbox is now Main")
            setCookie("box","main",now,"/")
         }
         var boxes = getCookie("boxes")
         var bo = boxes.split("#")
         var l = bo.length
         var sep = ""
         boxes = ""
         for (i=0;i < l;i++){
            if (bo[i] == box) {
            } else {
               boxes += sep+bo[i];
               sep="#"
            }
         }
         setCookie("boxes",boxes,now,"/");
//PC Version
         resetwin("boxman")
      }
}

//------------------------------------------------------------------

function kill_window(bb){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   box = bb
   var buc = box.substring(0,1)
   buc = buc.toUpperCase()
   var l = box.length
   buc += box.substr(1,l)
// Create a back that will self distruct
      var b = "<html>\n<head>\n<title>"+buc+" Lightbox Closing</title>\n"
// add cookie stuff
      b += "</head><body onUnload=\"winclose('"+box+"')\" background=\""+ backgrd + "\" >\n"
      b += "<p>Window Closing</p>\n"
      b += "<p><script language=\"JavaScript\"><!--\n"
      b += "self.close()\n"
      b += "// --></script></p>\n"
      b += "</body></html>\n"
      var a=window.open("",box+"bcp","height=450,width=700,toolbar=no,location=no,scrollbars=yes,resizable=yes")
      if(a != null) {
         a.document.write(b);
//         a.document.close();
//         a.focus();
      }  
      var b = box + "han"
      setCookie(b,"no",now,"/")
}
//---------------------------------------------------------------
function request(b){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   box = b
   setCookie("requestpics",box,now,"/")
   var a=window.open(jsdir+"request.htm")
}
//---------------------------------------------------------------
function resize1() {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk

alert("resize 1")
}
//---------------------------------------------------------------
function resize2() {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk

alert("resize 2")
}
//---------------------------------------------------------------
function qwikstart(){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   var keywords=document.qwikstart.keywords.value
   setCookie("keywords",keywords,now,"/")
   deleteCookie("firsttimer")
// which type, always use 1
   setCookie("type","type1",now,"/")
// use correct platform
   var plat= navigator.platform;
   var mac= (plat=="MacPPC")
   if (mac || Nav) {
      a=window.open("/qindex2m.htm","_self")
   } else {
     a=window.open("/qindex2n.htm","_self")
   } 
}
//----------------------------------------------------------
function qwikstart2(){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   var keywords=document.gallery.keywords.value
   setCookie("keywords",keywords,now,"/")
   deleteCookie("firsttimer")
   var backgal=document.gallery.backgal.value
   setCookie("backgal",backgal,now,"/")
   var type=document.gallery.type.value
   if (!type) {
      setCookie("type","type1",now,"/")
   } else {
      setCookie("type",type,now,"/")
   }
// use correct platform
   var plat= navigator.platform;
   var mac= (plat=="MacPPC")
   if (mac || Nav) {
      a=window.open("/qindex2m.htm","_self")
   } else {
     a=window.open("/qindex2n.htm","_self")
   } 
}
//----------------------------------------------------------
function addkey(S) {
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   var i = S.options.length
   for (var i = 0 ; i < S.options.length; i++){
      if ( S.options[i].selected){
         var b =  S.options[i].value
      }
   }
   if (b != S.options[0].value) {
      var a = document.form1.keywords.value
      l = a.length
      if (a.match(b)){
         alert ("All ready there")
      } else {
         if (b.match(" ")){
            b = "\""+b+"\""
         }
         if (l==0) {
            a = b
         } else {
            a = a+" "+b
         }
         document.form1.keywords.value=a
      }
   }
}
//------------------------------------------------------------------
function addkeysmenu(){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
// get back gallery cookie
   var backgal=getCookie("backgal")
   if (!backgal) {
      var s = ""
   } else {
      var s = "<p><a href=\"/"+backgal+"\" target=\"_top\">Back to Galleries</a></p>\n"
   }
   s += "<form name=\"form2\">\n"
   s += "<div align=\"center\"><center><table border=\"0\" width=\"630\">\n"
   s += "<tr>\n"
   s += "<td colspan=\"4\">Suggested Keywords - use the drop-down menus to add words to the your keyword list above</td>\n"
   s += "</tr><tr>\n"
   s += "<td width=\"25%\"><select name=\"S1\" onChange=\"addkey(S1)\" size=\"1\">\n"
   s += "<option value=\"Wildlife\" selected>Wildlife</option>\n"
   s += "<option value=\"Polar Bear\">Polar Bear</option>\n"
   s += "<option value=\"Wolf\">Wolf</option>\n"
   s += "<option value=\"Caribou\">Caribou</option>\n"
   s += "<option value=\"Seal\">Seal</option>\n"
   s += "<option value=\"Walrus\">Walrus</option>\n"
   s += "<option value=\"Whale\">Whale</option>\n"
   s += "<option value=\"Bird\">Bird</option>\n"
   s += "<option value=\"Penguin\">Penguin</option>\n"
   s += "<option value=\"Albatross\">Albatross</option>\n"
   s += "</select></td>\n"
   document.writeln(s)
   s = "<td width=\"25%\"><select name=\"S2\" onChange=\"addkey(S2)\" size=\"1\">\n"
   s += "<option value=\"Native Peoples\" selected>Native Peoples</option>\n"
   s += "<option value=\"Inuit\">Inuit - (Eskimo)</option>\n"
   s += "<option value=\"Khanty\">Khanty</option>\n"
   s += "<option value=\"Evenk\">Evenk</option>\n"
   s += "<option value=\"Even\">Even</option>\n"
   s += "<option value=\"Koryak\">Koryak</option>\n"
   s += "<option value=\"Yakut\">Yakut</option>\n"
   s += "<option value=\"Tuvans\">Tuvans</option>\n"
   s += "<option value=\"Cree\">Cree</option>\n"
   s += "<option value=\"Innu\">Innu</option>\n"
   s += "<option value=\"Nenets\">Nenets</option>\n"
   s += "<option value=\"Chukchi\">Chukchi</option>\n"
   s += "<option value=\"Sami\">Sami - (Lapps)</option>\n"
   s += "</select></td>\n"
   s += "<td width=\"25%\"><select name=\"S3\" onChange=\"addkey(S3)\" size=\"1\">\n"
   s += "<option value=\"Native People\" selected>Arctic Regions</option>\n"
   s += "<option value=\"Greenland\">Greenland</option>\n"
   s += "<option value=\"Canada\">Canada</option>\n"
   s += "<option value=\"Scandinavia\">Scandinavia</option>\n"
   s += "<option value=\"Alaska\">Alaska</option>\n"
   s += "<option value=\"Siberia\">Siberia</option>\n"
   s += "<option value=\"North Pole\">North Pole</option>\n"
   s += "</select></td>\n"
   s += "<td width=\"25%\"><select name=\"S4\" onChange=\"addkey(S4)\" size=\"1\">\n"
   s += "<option value=\"Antarctica\" selected>Antarctica</option>\n"
   s += "<option value=\"Antarctic Peninsula\">Antarctic Peninsula</option>\n"
   s += "<option value=\"Ross Sea\">Ross Sea</option>\n"
   s += "<option value=\"Weddell Sea\">Weddell Sea</option>\n"
   s += "<option value=\"East Antarctica\">East Antarctica</option>\n"
   s += "<option value=\"South Pole\">South Pole</option>\n"
   s += "<option value=\"Sub Antarctic Islands\">Sub Antarctic Is</option>\n"
   s += "</select></td></tr><tr>\n"
   s += "<td width=\"25%\"><select name=\"S5\" onChange=\"addkey(S5)\" size=\"1\">\n"
   s += "<option value=\"Landscapes\" selected>Landscapes</option>\n"
   s += "<option value=\"Mountains\">Mountains</option>\n"
   s += "<option value=\"Sunset\">Sunset</option>\n"
   s += "<option value=\"Tundra\">Tundra</option>\n"
   s += "<option value=\"Boreal Forest\">Boreal Forest</option>\n"
   s += "</select></td>\n"
   s += "<td width=\"25%\"><select name=\"S6\" onChange=\"addkey(S6)\" size=\"1\">\n"
   s += "<option value=\"Ice\" selected>Ice</option>\n"
   s += "<option value=\"Icecap\">Icecap</option>\n"
   s += "<option value=\"Polar Plateau\">Polar Plateau</option>\n"
   s += "<option value=\"Glacier\">Glacier</option>\n"
   s += "<option value=\"Iceberg\">Iceberg</option>\n"
   s += "<option value=\"Sea Ice\">Sea Ice</option>\n"
   s += "<option value=\"Pack Ice\">Pack Ice</option>\n"
   s += "<option value=\"Ice Flower\">Ice Flower</option>\n"
   s += "</select></td>\n"
   s += "<td width=\"25%\"><select name=\"S7\" onChange=\"addkey(S7)\" size=\"1\">\n"
   s += "<option value=\"Modern Arctic\" selected>Modern Arctic</option>\n"
   s += "<option value=\"Industry\">Industry</option>\n"
   s += "<option value=\"Petro-chemical\">Petro-chemical</option>\n"
   s += "<option value=\"Mining\">Mining</option>\n"
   s += "<option value=\"Communications\">Communications</option>\n"
   s += "<option value=\"Education\">Education</option>\n"
   s += "<option value=\"Scientific research\">Scientific research</option>\n"
   s += "<option value=\"Pollution\">Pollution</option>\n"
   s += "</select></td>\n"
   s += "<td width=\"25%\"><select name=\"S8\" onChange=\"addkey(S8)\" size=\"1\">\n"
   s += "<option value=\"Weather\" selected>Weather</option>\n"
   s += "<option value=\"Snow\">Snow</option>\n"
   s += "<option value=\"Storm\">Storm</option>\n"
   s += "<option value=\"Wind\">Wind</option>\n"
   s += "<option value=\"Clouds\">Clouds</option>\n"
   s += "<option value=\"Rain\">Rain</option>\n"
   s += "<option value=\"Rainbow\">Rainbow</option>\n"
   s += "<option value=\"Polar Phenomena\">Polar Phenomena</option>\n"
   s += "</select></td></tr></table>\n"
   s += "</center></div>\n"
   s += "</form>\n"
   document.writeln(s)
}
//--------------------------------------------------------------------
function nextpreview(nxpic){
// Copyright Keith Robinson ccaakwr@ucl.ac.uk
   document.nextprev.nextpic.value=nxpic
   document.nextprev.submit()
}
//--------------------------------------------------------------------