--- rat/client/Attic/code.html	2000/08/02 15:27:10	1.10
+++ rat/client/Attic/code.html	2001/03/12 15:35:55	1.17
@@ -9,8 +9,8 @@ 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
 -->
 
 
@@ -30,6 +30,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 +72,7 @@ var data4=new Array(1024);
 var data5=new Array(1024);
 
 var inf;
+var srch;
 
 // ------------------------------------------------ Insert a row into the table
 
@@ -92,7 +94,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 +135,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 +161,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 +258,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 +349,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 +428,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 +484,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 +506,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 +599,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 +622,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 +684,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 +833,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 +862,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 +887,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 +916,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 +950,7 @@ function drawcell (rtype,ctype,what,cm,o
            }
         }
      }
-     if (obj1!='') {
+     if ((obj1!='') && (obj1!=undefined)) {
        parent.mapout.document.write('</a>');
      }
    } else {
@@ -987,7 +1007,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 +1064,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 +1074,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 +1094,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 +1103,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 +1113,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 +1282,7 @@ function infoclear() {
   }
   inf.document.writeln('</tr></table></body></html>');
   inf.document.close();
-  parent.focus();
+  parent.top.focus();
   parent.mapout.focus();
   notclear=1;
   lastinfo='';
@@ -1355,7 +1375,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 +1426,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 +1448,84 @@ 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 search window
+
+function srchclear() {
+  srch.document.clear();
+}
+
+// ------------------------------------------------------- Closes search window
+
+function srchclose() {
+  srch.close();
+}
+
+// --------------------------------------------------------- Open search window
+
+function srchopen() {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   srch=open("","srchout",options);
+   srchclear();
+   srch.document.writeln(
+      '<html><body bgcolor="#AAFFAA"><form>'+
+      '<table width="100%">'+
+      '<tr><td><b>Resource Library Search</b></td>'+
+      '<td align=right><input type=button value="Close"'+
+      ' onClick="javascript:opener.srchclose();"></td>'+
+      '</tr></table>'+
+      '<table bgcolor="#ffffff">'+
+      '<tr><td><b>title</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="title"></td>'+
+      '</tr><tr><td><b>author</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="author"></td>'+
+      '</tr><tr><td><b>subject</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="subject"></td>'+
+      '</tr><tr><td><b>notes</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="notes"></td>'+
+      '</tr><tr><td><b>abstract</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="abstract"></td>'+
+      '</tr><tr><td><b>mime</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="mime"></td>'+
+      '</tr><tr><td><b>language</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="language"></td>'+
+      '</tr><tr><td><b>creationdate</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="creationdate"></td>'+
+      '</tr><tr><td><b>lastrevisiondate</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="lastrevisiondate"></td>'+
+      '</tr><tr><td><b>owner</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="owner"></td>'+
+      '</tr><tr><td><b>copyright</b> </td>'+
+      '<td><INPUT TYPE="TEXT" NAME="copyright"></td>'+
+      '</tr>'+
+      '</table>'+
+      '<input type="button" value="Search the global catalog"'+
+      ' onClick="javascript:opener.search()">'+
+      '</form></body></html>');
+}
+
+// -------------------------------------------- Interface function to searching
+
+function search() {
+   alert("Searching not yet implemented");
+}
+
+// ------------------------------------------------------- Do srch status check
+
+function srchcheck() {
+   if (srch.closed) {
+      srchopen();
+   }
+}
+
 // ---------------------------------------------------- Handles "click to edit"
 
 function handler(infostr) {
@@ -1517,16 +1613,16 @@ 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.srchopen()">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 +1641,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 +1667,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 +1721,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 +1844,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 +1886,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 +1973,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 +2047,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 +2057,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 +2069,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 +2090,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 +2188,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 +2277,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 +2309,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];
          }
       }
@@ -2227,7 +2345,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 +2371,12 @@ function finishload() {
   }
 }
 
+// -------------------------------------------------------------- Parameter set
+
+function setparms(resid) {
+   alert('Called setparms for '+resid);
+}
+
 // -------------------------------------------------------------- Undo function
 
 function undo() {
@@ -2401,16 +2525,14 @@ 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.closed) {
+      srch.close();
    }
 }