--- rat/client/Attic/code.html	2001/06/02 17:19:53	1.33
+++ rat/client/Attic/code.html	2001/06/11 19:25:12	1.34
@@ -15,6 +15,7 @@ March/April 01 Scott Harrison
 04/20 Gerd Kortemeyer
 04/30 Scott Harrison
 05/31 Scott Harrison
+06/11 Gerd Kortemeyer
 -->
 
 
@@ -88,6 +89,11 @@ var idxflag=-1; // 1 means currently ope
                  // -1 means never yet opened/defined
 var idxmode='';
 
+var parm;
+var parmflag=-1; // 1 means currently open
+                 // 0 means closed (but has been open)
+                 // -1 means never yet opened/defined
+
 function testfunction() {
    inf.document.forms.resinfo.elements.t.value="ABC";
 }
@@ -1306,6 +1312,9 @@ function infoclear() {
   if (idxflag==1) {
     idxclose();
   }
+  if (parmflag==1) {
+    parmclose();
+  }
   parent.top.focus();
   parent.mapout.focus();
   notclear=1;
@@ -1493,6 +1502,12 @@ function srchclear() {
   srch.document.clear();
 }
 
+// --------------------------------------------------------- Clears parm window
+
+function parmclear() {
+  parm.document.clear();
+}
+
 // ------------------------------------------------------ Closes indexer window
 
 function idxclose() {
@@ -1511,6 +1526,15 @@ function srchclose() {
   }
 }
 
+// ------------------------------------------------------- Closes search window
+
+function parmclose() {
+  if (parm && !parm.closed) {
+    parmflag=0;
+    parm.close();
+  }
+}
+
 // -------------------------------------------------------- Open indexer window
 
 function idxopen(mode) {
@@ -2405,7 +2429,11 @@ function finishload() {
 // -------------------------------------------------------------- Parameter set
 
 function setparms(resid) {
-   alert('Called setparms for '+resid);
+   var options="scrollbars=1,resizable=1,menubar=0";
+   parmflag=1;
+   data1=objcont[resid].split(':');
+   parm=open("/adm/ratparms?url="+data1[1],"parmout",options);
+   parm.focus();
 }
 
 // -------------------------------------------------------------- Undo function