--- rat/client/Attic/code.html	2000/08/02 15:27:10	1.10
+++ rat/client/Attic/code.html	2001/06/11 21:21:55	1.35
@@ -9,8 +9,13 @@ Resource Assembly Tool
 1/7,1/8,1/10,1/14,1/15,1/16,1/21,1/22,1/29,1/30,1/31,
 2/2,2/3,2/10,2/12,2/13,2/14,2/15,2/17,2/18,2/19,2/20,2/21,2/22,
 5/2,5/3,5/4,5/5,5/6,5/8,5/9,5/13,5/18,5/20,5/22,5/24,5/25,
-6/7,6/8,6/9,6/10,6/12,6/15,7/4,7/26,7/28,7/31
-Gerd Kortemeyer with Scott Harrison
+6/7,6/8,6/9,6/10,6/12,6/15,7/4,7/26,7/28,7/31,8/5,8/19,8/24,
+01/17/01,03/03,03/05 Gerd Kortemeyer with Scott Harrison
+March/April 01 Scott Harrison
+04/20 Gerd Kortemeyer
+04/30 Scott Harrison
+05/31 Scott Harrison
+06/11 Gerd Kortemeyer
 -->
 
 
@@ -30,6 +35,7 @@ var colmap5=new Array();
 var colmap6=new Array();
 var obj=new Array();
 var objcont=new Array();
+var objparms=new Array();
 var objlinks=new Array();
 var rowcont=new Array();
 var rowtype=new Array();
@@ -71,6 +77,26 @@ var data4=new Array(1024);
 var data5=new Array(1024);
 
 var inf;
+var srch;
+var srchflag=-1; // 1 means currently open
+                 // 0 means closed (but has been open)
+                 // -1 means never yet opened/defined
+var srchmode='';
+
+var idx;
+var idxflag=-1; // 1 means currently open
+                 // 0 means closed (but has been open)
+                 // -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";
+}
 
 // ------------------------------------------------ Insert a row into the table
 
@@ -92,7 +118,7 @@ function insertrow(j,ex1,ex2) {
    objects=objects1+':'+objects2;
    data1=objects.split(':');
    for (kj=0;kj<data1.length;kj++) {
-     if (data1[kj]!='') {
+     if ((data1[kj]!='') && (data1[kj]!=undefined)) {
        thisisobj=obj[data1[kj]];
        thisobjtype=thisisobj.split('&')[0];
        if (thisobjtype=='v') {
@@ -133,7 +159,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if (newobj!='') {
+             if ((newobj!='') && (newobj!=undefined)) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -159,7 +185,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if (newobj!='') {
+             if ((newobj!='') && (newobj!=undefined)) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -256,7 +282,7 @@ function maprow (jid,obj1,ign) {
  var j; var k; var left; var right; var middle;
  middle=-1;
  for (j=0;j<=maxcol;j++) { colmap[j]=0; }
- if (rowcont[jid]!='') {
+ if ((rowcont[jid]!='') && (rowcont[jid]!=undefined)) {
    data2=rowcont[jid].split(':');
    for (j=0;j<data2.length;j++) {
       data3=obj[data2[j]].split('&');
@@ -347,7 +373,6 @@ function comingthru (jid,kid,dkid) {
 
 function insertport (obj1,d,inout,linkobj) {
 
-
    var k; var port; var revport;
    stored=0;
    data1=obj[obj1].split('&');
@@ -427,7 +452,9 @@ function insertport (obj1,d,inout,linkob
 function addobj(kjid,objs) {
    stored=0;
    expense++;
-   if (rowcont[kjid]!='') { rowcont[kjid]+=':'; }
+   if ((rowcont[kjid]!='') && (rowcont[kjid]!=undefined)) { 
+      rowcont[kjid]+=':'; 
+   }
    rowcont[kjid]+=obj.length;
    obj[obj.length]=objs;
    return obj.length-1;
@@ -481,11 +508,14 @@ function delobj(obj1) {
       rowcont[k]='';
       for (k2=0;k2<data4.length;k2++) {
          if (data4[k2]!=obj1) {
-            if (rowcont[k]!='') { rowcont[k]+=':'; } 
+            if ((rowcont[k]!='') && (rowcont[k]!=undefined)) { 
+               rowcont[k]+=':'; 
+            } 
             rowcont[k]+=data4[k2]; 
          }
       }
    }
+   obj[obj1]='';
 }
 
 // --------------------------------------------------------- Garbage collection
@@ -500,7 +530,7 @@ function cleanup () {
    for (kj=0;kj<=maxcol;kj++) { data1[kj]=0; }
    for (kj=0;kj<=maxrow;kj++) {
      rowtype[kj]=0;
-     if (rowcont[kj]!='') {
+     if ((rowcont[kj]!='') && (rowcont[kj]!=undefined)) {
        data2=rowcont[kj].split(':');
        for (j=0;j<data2.length;j++) {
          if (obj[data2[j]].substring(0,2)=='e&') {
@@ -593,7 +623,7 @@ function crecond(obj1,colid,condtext,con
 function dellink (linknr) {
   var k; var obj1; var obj2;
   stored=0;
-  if (objlinks[linknr]!='') {
+  if ((objlinks[linknr]!='') && (objlinks[linknr]!=undefined)) {
    data3=objlinks[linknr].split(':');
    obj1=data3[0];
    obj2=data3[1];
@@ -616,7 +646,7 @@ function dellink (linknr) {
       }
    }
    for (k=0;k<obj.length;k++) {
-     if (obj[k]!='') {
+     if ((obj[k]!='') && (obj[k]!=undefined)) {
        data3=obj[k].split('&');
        if (((data3[0]=='v') || (data3[0]=='h')) && 
            (data3[data3.length-2]==linknr)) {
@@ -678,11 +708,12 @@ function joinres (obj1,obj2,cond) {
       finishload();
       tryjoin(obj1,obj2,cond,-1,1);
    }
+
 }
 
 
 function tryjoin(obj1,obj2,cond,d1,d2) {
-   var k; var kr; var outcol; var incol; var d;
+   var k; var kr; var outcol; var incol; var d; var dest;
 
    dest=objlinks.length;
    objlinks[dest]=obj1+':'+obj2+':'+cond;
@@ -826,7 +857,10 @@ function delres (obj1,recon) {
             for (k2=0;k2<inobjs.length;k2++) {
                if (inobjs[k2]==infromobj[k]) {
                   if (inwithcon[k]!=0) {
-                     if (inobjscond[k2]!='') { inobjscond[k2]+='||'; }
+                     if ((inobjscond[k2]!='') &&
+                         (inobjscond[k2]!=undefined)) { 
+                         inobjscond[k2]+='||'; 
+                     }
                      inobjscond[k2]+=
                       '('+(objcont[inwithcon[k]].split(':'))[0]+')';
                    }
@@ -852,7 +886,10 @@ function delres (obj1,recon) {
             for (k2=0;k2<outobjs.length;k2++) {
                if (outobjs[k2]==outtoobj[k]) {
                  if (outwithcon[k]!=0) {
-                     if (outobjscond[k2]!='') { outobjscond[k2]+='||'; }
+                     if ((outobjscond[k2]!='') &&
+                         (outobjscond[k2]!=undefined)) { 
+                         outobjscond[k2]+='||'; 
+                     }
                      outobjscond[k2]+=
                       '('+(objcont[outwithcon[k]].split(':'))[0]+')';
                   }
@@ -874,15 +911,22 @@ function delres (obj1,recon) {
 
       for (k=0;k<inobjs.length;k++) {
           cond='';
-          if (inobjscond[k]!='') { cond='('+inobjscond[k]+')'; }
+          if ((inobjscond[k]!='') && (inobjscond[k]!=undefined)) { 
+             cond='('+inobjscond[k]+')'; 
+          }
           for (k2=0;k2<outobjs.length;k2++) {
               thiscond=cond;
-              if (outobjscond[k2]!='') {
-                 if (thiscond!='') { thiscond+='&&'; }
+              if ((outobjscond[k2]!='') && (outobjscond[k2]!=undefined)) {
+                 if ((thiscond!='') && (thiscond!=undefined)) { 
+                    thiscond+='&&'; 
+                 }
                  thiscond+='('+outobjscond[k2]+')';
               }
               condnr=0;
-              if (thiscond!='') { condnr=newcondition(thiscond,'normal'); } 
+              if ((thiscond!='') && (thiscond!=undefined)) { 
+                 condnr=newcondition(thiscond,'normal'); 
+              }
+              save(); 
               joinres(inobjs[k],outobjs[k2],condnr);
           }
       }
@@ -896,8 +940,8 @@ function drawcell (rtype,ctype,what,cm,o
  if ((what=='') && (ne==0)) { cm="#DDDDDD"; }
  if (ctype!=0) {
    parent.mapout.document.write('<td bgcolor='+cm+' width='+cw[ctype]+'>');
-   if (what!='') {
-     if (obj1!='') {
+   if ((what!='') && (what!=undefined)) {
+     if ((obj1!='') && (obj1!=undefined)) {
        obj1="'"+obj1+"'";
        parent.mapout.document.write
         ('<a href="javascript:parent.code.handler('+obj1
@@ -930,7 +974,7 @@ function drawcell (rtype,ctype,what,cm,o
            }
         }
      }
-     if (obj1!='') {
+     if ((obj1!='') && (obj1!=undefined)) {
        parent.mapout.document.write('</a>');
      }
    } else {
@@ -987,7 +1031,7 @@ if (rowtype[jid]!=0) {
  }
 
  parent.mapout.document.writeln('<tr height='+rh[rowtype[jid]]+'>');
- if (rowcont[jid]!='') {
+ if ((rowcont[jid]!='') && (rowcont[jid]!=undefined)) {
    data2=rowcont[jid].split(':');
    for (jk=0;jk<data2.length;jk++) {
       data3=obj[data2[jk]].split('&');
@@ -1044,7 +1088,7 @@ if (rowtype[jid]!=0) {
 
          if (rightin>middle) {
             for (k=middle+1;k<rightin;k++) { 
-               if (colmap4[k]!='') {
+               if ((colmap4[k]!='') && (colmap4[k]!=undefined)) {
                   colmap[k]='rlt'; 
                } else {
                   colmap[k]='rl';
@@ -1054,7 +1098,7 @@ if (rowtype[jid]!=0) {
          }
          if (leftin<middle) {
             for (k=middle-1;k>leftin;k--) { 
-               if (colmap4[k]!='') {
+               if ((colmap4[k]!='') && (colmap4[k]!=undefined)) {
                   colmap[k]='lrt'; 
                } else {
                   colmap[k]='lr';
@@ -1074,7 +1118,7 @@ if (rowtype[jid]!=0) {
             if (rightout<middle)  { colmap2[middle]='tl'; }
             if (rightout==middle) { colmap2[middle]='tdl'; }
             if (rightout>middle)  { 
-              if (colmap3[middle]!='') {
+              if ((colmap3[middle]!='') && (colmap3[middle]!=undefined)) {
                  colmap2[middle]='rtdl'; 
               } else {
                  colmap2[middle]='rtl';
@@ -1083,7 +1127,7 @@ if (rowtype[jid]!=0) {
          }
          if (leftout<middle) {
             for (k=middle-1;k>leftout;k--) { 
-               if (colmap3[k]!='') {
+               if ((colmap3[k]!='') && (colmap3[k]!=undefined)) {
                   colmap2[k]='rld'; 
                } else {
                   colmap2[k]='rl';
@@ -1093,7 +1137,7 @@ if (rowtype[jid]!=0) {
          }
          if (rightout>middle) {
             for (k=middle+1;k<rightout;k++) { 
-               if (colmap3[k]!='') {
+               if ((colmap3[k]!='') && (colmap3[k]!=undefined)) {
                   colmap2[k]='lrd'; 
                } else {
                   colmap2[k]='lr';
@@ -1262,7 +1306,16 @@ function infoclear() {
   }
   inf.document.writeln('</tr></table></body></html>');
   inf.document.close();
-  parent.focus();
+  if (srchflag==1) {
+    srchclose();
+  }
+  if (idxflag==1) {
+    idxclose();
+  }
+  if (parmflag==1) {
+    parmclose();
+  }
+  parent.top.focus();
   parent.mapout.focus();
   notclear=1;
   lastinfo='';
@@ -1355,7 +1408,7 @@ function info(infostr) {
   }
   inf.document.writeln('</td></tr></table></body></html>');
   inf.document.close();
-  parent.focus();
+  parent.top.focus();
   parent.mapout.focus();
   notclear=0;
   lastinfo=infostr;
@@ -1406,7 +1459,9 @@ function insertreslink(infostr) {
    dellink(lnr);
    newresource(rid,cid,'','','false','normal');
    nobj=obj.length-1;
+   save();
    joinres(fobj,nobj,cobj);
+   save();
    joinres(nobj,tobj,0);
 }
 
@@ -1426,10 +1481,104 @@ function insertcondlink(cid,lnr) {
    dellink(lnr);
    newresource(maxrow,cid,'','','false','normal');
    nobj=obj.length-1;
+   save();
    joinres(fobj,nobj,cobj);
+   save();
    joinres(nobj,tobj,0);
 }
 
+
+
+
+// ------------------------------------------------------ Clears indexer window
+
+function idxclear() {
+  idx.document.clear();
+}
+
+// ------------------------------------------------------- Clears search window
+
+function srchclear() {
+  srch.document.clear();
+}
+
+// --------------------------------------------------------- Clears parm window
+
+function parmclear() {
+  parm.document.clear();
+}
+
+// ------------------------------------------------------ Closes indexer window
+
+function idxclose() {
+  if (idx && !idx.closed) {
+    idxflag=0;
+    idx.close();
+  }
+}
+
+// ------------------------------------------------------- Closes search window
+
+function srchclose() {
+  if (srch && !srch.closed) {
+    srchflag=0;
+    srch.close();
+  }
+}
+
+// ------------------------------------------------------- Closes search window
+
+function parmclose() {
+  if (parm && !parm.closed) {
+    parmflag=0;
+    parm.close();
+  }
+}
+
+// -------------------------------------------------------- Open indexer window
+
+function idxopen(mode) {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   idxmode=mode;
+   idxflag=1;
+   idx=open("/res?catalogmode="+mode,"idxout",options);
+   idx.focus();
+}
+
+// --------------------------------------------------------- Open search window
+
+function srchopen(mode) {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   srchmode=mode;
+   srchflag=1;
+   srch=open("/adm/searchcat?catalogmode=interactive","srchout",options);
+   srch.focus();
+}
+
+// -------------------------------------------- Interface function to searching
+
+function search() {
+   alert("Searching not yet implemented");
+}
+
+// ------------------------------------------------------- Do srch status check
+
+function srchcheck(mode) {
+   if (!srch || srch.closed || srchmode!=mode) {
+      srchopen();
+   }
+   srch.focus();
+}
+
+// -------------------------------------------------------- Do idx status check
+
+function idxcheck(mode) {
+   if (!idx || idx.closed || idxmode!=mode) {
+      idxopen(mode);
+   }
+   idx.focus();
+}
+
 // ---------------------------------------------------- Handles "click to edit"
 
 function handler(infostr) {
@@ -1517,16 +1666,19 @@ function handler(infostr) {
            }
         }
         inf.document.write(
-         '<form name=resinfo><table><tr><td>Title:</td><td>'
+         '<form name=resinfo><table><tr><td>Title:</td><td colspan=2>'
         +'<input type=text name=t size=30 value="'
         +data2[0]+'"><input type=hidden name=h value='+data2[3]+'></td></tr>');
     if ((data2[3]!='start') && (data2[3]!='finish')) {
-           inf.document.write('<tr><td>URL:</td><td>'
+           inf.document.write('<tr><td>URL:</td><td colspan=2>'
         +'<input type=text name=u size=30 value="'+data2[1]+'"></td></tr>'
         +'<tr><td>External:</td><td><input type=checkbox name=e');
         if (data2[2]=='true') { inf.document.write(' checked'); }
-        inf.document.write('></td></tr>'
-        +'<tr><td colspan=2>'
+        inf.document.write('></td><td align=right>'
+        +'<a href="javascript:opener.idxcheck(\'interactive\')">Browse</a> '
+        +'<a href="javascript:opener'
+	+'.srchcheck(\'interactive\')">Search</a></td></tr>'
+        +'<tr><td colspan=3>'
         +'<input type=radio name=y value=normal '+
  'onClick="self.document.forms.resinfo.elements.h.value='+"'normal'"+'"');
      if (data2[3]=='normal') { inf.document.write(' checked'); }
@@ -1545,7 +1697,7 @@ function handler(infostr) {
                +'<input type=hidden name=u value=""></td></tr>');
     }
         inf.document.writeln(
-         '<tr><td colspan=2><a href="javascript:opener.editmode=0;'
+         '<tr><td colspan=3><a href="javascript:opener.editmode=0;'
         +'opener.notclear=0;opener.objcont['+data1[1]
         +']=opener.escape(self.document.forms.resinfo.elements.t.value)+'+"':'"
         +'+opener.escape(self.document.forms.resinfo.elements.u.value)+'+"':'"
@@ -1571,6 +1723,11 @@ function handler(infostr) {
          +'opener.linkmode='+data1[1]+';'
          +'opener.infoclear();">Link Resource</a>');
     }
+        inf.document.writeln(
+          '<br><a href="javascript:'
+         +'opener.setparms('+data1[1]+');'
+         +'opener.infoclear();">Set Parameters</a>');
+    
       }
      } else {
         linkmode=0;
@@ -1620,7 +1777,8 @@ function empty(rid,k) {
          'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
           +');">Insert resource</a>');
 
-  if ((mostrecent!=0) && (objcont[mostrecent]!='')) {
+  if ((mostrecent!=0) && (objcont[mostrecent]!='') && 
+                         (objcont[mostrecent]!=undefined)) {
 
         inf.document.writeln('<br><a href="javascript:opener.newresource('+
           rid+','+cid+",'','','false','normal');"+
@@ -1742,14 +1900,12 @@ function graphreset() {
    insertcol(-1);
 
    objcont[0]='';
+   objlinks[0]='';
    if (((objcont[1]==undefined)&&(objcont[2]==undefined)) ||
        ((objcont[1]=='')&&(objcont[2]==''))) { 
       objcont[1]='Start::false:start:res'
       objcont[2]='Finish::false:finish:res';
-      objlinks[0]='';
-      objlinks[1]='1:2:0';
    }
-
    graphdef='no';
 
 }
@@ -1786,7 +1942,7 @@ function tabledraw() {
   var condid;
   var sortstr=sortobjs();
  insrestab(1,-1,-1,'');
- if (sortstr!='') {
+ if ((sortstr!='') && (sortstr!=undefined)) {
   objsorted=sortstr.split('&');
   for (k=0;k<objsorted.length;k++) {
      i=(objsorted[k].split(':'))[0];
@@ -1873,8 +2029,13 @@ function tabledraw() {
        parent.mapout.document.writeln(
         '<a href="javascript:parent.code.linkmode='+i+
        ';parent.code.notclear=0;parent.code.infoclear();">'+
-       'Link resource</a></td></tr>');
+       'Link resource</a>');
     }
+        parent.mapout.document.writeln(
+          '<br><a href="javascript:'
+         +'parent.code.setparms('+i+');">Set Parameters</a>');
+
+      parent.mapout.document.writeln('</td></tr>');
        parent.mapout.document.writeln('<tr><td colspan=2><table><tr>');
        for (j=2;j<data2.length;j++) {
            data4=data2[j].split(':');
@@ -1942,6 +2103,7 @@ function insrestab(irow,be,af,typ) {
        '<a href="javascript:parent.code.insertrow('
        +irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]
  +",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
+       +"parent.code.save();"
        +'parent.code.joinres('+be+',parent.code.mostrecent,0);'
        +'parent.code.draw();">'
        +'Insert resource linked to from above</a><br>');
@@ -1951,7 +2113,9 @@ function insrestab(irow,be,af,typ) {
        '<a href="javascript:parent.code.insertrow('
        +irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]
  +",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
+       +"parent.code.save();"
        +'parent.code.joinres('+be+',parent.code.mostrecent,0);'
+       +"parent.code.save();"
        +'parent.code.joinres(parent.code.mostrecent,'+af+',0);'
        +'parent.code.draw();">'
        +'Insert resource linked to from above and linking to below</a><br>');
@@ -1961,6 +2125,7 @@ function insrestab(irow,be,af,typ) {
        '<a href="javascript:parent.code.insertrow('
        +irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]
  +",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
+       +"parent.code.save();"
        +'parent.code.joinres(parent.code.mostrecent,'+af+',0);'
        +'parent.code.draw();">'
        +'Insert resource linking to below</a><br>');
@@ -1981,7 +2146,7 @@ function simpletabledraw() {
   var cck;
   var condid;
   var sortstr=sortobjs();
- if (sortstr!='') {
+ if ((sortstr!='') && (sortstr!=undefined)) {
   objsorted=sortstr.split('&');
   for (k=0;k<objsorted.length;k++) {
      i=(objsorted[k].split(':'))[0];
@@ -2079,7 +2244,7 @@ function sortobjs() {
    for (k=1;k<objlinks.length;k++) {
      wheelswitch();
      message("Sorting Resources: "+funny);
-     if (objlinks[k]!='') {
+     if ((objlinks[k]!=undefined) && (objlinks[k]!='')) {
       sortthis=1;
       data1=objlinks[k].split(':');
       kj=-1;
@@ -2168,23 +2333,30 @@ function graphopt() {
       row[k]=k;
    }
    maxrow=rowcont.length-1;
-
    var oldlinks=new Array();
-   for (k=0;k<objlinks.length;k++) { oldlinks[k]=objlinks[k]; }
+   for (k=0;k<objlinks.length;k++) { 
+      oldlinks[k]=objlinks[k]; 
+      objlinks[k]='';
+   }
    objlinks.length=0;
    objlinks[0]='';
+   graphdef='yes';
+   save();
+
    for (k=0;k<objsorted.length;k++) {
-      kj=(objsorted[k].split(':'))[0];
+     wheelswitch();
+     message("Connecting Resources: "+funny);
+     kj=(objsorted[k].split(':'))[0];
       for (ij=1;ij<oldlinks.length;ij++) {
         if (oldlinks[ij]) {
           data1=oldlinks[ij].split(':');
           if (data1[0]==kj) {
              joinres(data1[0],data1[1],data1[2]);
+             save();
           }
          }
       }
    }
-   graphdef='yes';
 }
 
 // ----------------------------------------------------------- Remove e-objects
@@ -2193,12 +2365,14 @@ function condense() {
    message("Condensing");
    var j;
    for (j=0;j<=maxrow;j++) {
-     if (rowcont[j]!='') {
+     if ((rowcont[j]!='') && (rowcont[j]!=undefined)) {
       data1=rowcont[j].split(':');
       rowcont[j]='';
       for (k=0;k<data1.length;k++) {
          if (obj[data1[k]].substring(0,2)!='e&') {
-            if (rowcont[j]!='') { rowcont[j]+=':'; }
+            if ((rowcont[j]!='') && (rowcont[j]!=undefined)) { 
+               rowcont[j]+=':'; 
+            }
             rowcont[j]+=data1[k];
          }
       }
@@ -2211,7 +2385,6 @@ function condense() {
 function load() {
    message("Loading");
    schedule('load');
-   checkdef();
 }
 
 function finishload() {
@@ -2227,7 +2400,7 @@ function finishload() {
    lastinfo='';
    graphreset();
    var inputstr=parent.server.document.forms.storage.output.value;
-   if (inputstr!='') {
+   if ((inputstr!='') && (inputstr!=undefined)) {
    data1=inputstr.split('<&>');
    var k;
    for (k=0;k<data1.length;k++) {
@@ -2253,6 +2426,17 @@ function finishload() {
   }
 }
 
+// -------------------------------------------------------------- Parameter set
+
+function setparms(resid) {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   parmflag=1;
+   data1=objcont[resid].split(':');
+   parm=open("/adm/ratparms?url="+data1[1]+"&parms="+objparms[resid]+
+             "&resid="+resid,"parmout",options);
+   parm.focus();
+}
+
 // -------------------------------------------------------------- Undo function
 
 function undo() {
@@ -2315,8 +2499,8 @@ function wheelswitch() {
 // --------------------------------------------- Checks if server frame defined
 
 function checkdef() {
-   if (parent.server.document.forms.storage.output.value!=undefined) {
-      srvloaded();
+   if (parent.flag==1) {
+     srvloaded();
    }
    if ((finishdone==0) && (tim==0)) { setTimeout('checkdef()',100); }
 }
@@ -2345,14 +2529,26 @@ function schedule(action) {
    reqaction=action;
    tim=0;
    finishdone=0;
-   canceltim=setTimeout('tim=1;',20000)
+   canceltim=setTimeout('tim=1;',20000);
+   checkdef();
    wait();
 }
 
+// ----------------------------------------------------- launch indexer browser
+
+function groupsearch() {
+   alert('not yet implemented');
+}
+
+function groupimport() {
+   idxcheck('groupimport');
+}
+
 // -------------------------------------------------------------- Store changes
 
 function storechange() {
    var k;
+   parent.flag=0;
    parent.server.document.forms.storage.submit();
    schedule('save');
 }
@@ -2401,16 +2597,17 @@ function main() {
 
 }
 
-// ------------------------------------------------------------- Save on leave?
+// ---------------------------------------------------------- Close the window?
 
 function leave() {
    if (!inf.closed) {
       inf.close();
    }
-   if (stored==0) {
-      if (confirm('Store changes?')) {
-         storechange();   
-      }
+   if (srch && !srch.closed) {
+      srchclose();
+   }
+   if (idx && !idx.closed) {
+      srchclose();
    }
 }
 
@@ -2426,6 +2623,8 @@ function leave() {
 <a href="javascript:revert();">Revert</a>
 <a href="javascript:undo();">Undo</a>
 <a href="javascript:redo();">Redo</a>
+<a href="javascript:groupsearch();">Group Search</a>
+<a href="javascript:groupimport();">Group Import</a>
 <a href="javascript:storechange();">Store</a>
 </body>
 </html>