--- rat/client/Attic/code.html	2000/06/08 16:19:50	1.4
+++ rat/client/Attic/code.html	2002/05/25 20:32:10	1.58
@@ -3,14 +3,48 @@
 <!--
 The LearningOnline Network
 Resource Assembly Tool
+//
+// $Id: code.html,v 1.58 2002/05/25 20:32:10 www Exp $
+//
+// Copyright Michigan State University Board of Trustees
+//
+// This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+//
+// LON-CAPA is free software; you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 2 of the License, or
+// (at your option) any later version.
+//
+// LON-CAPA is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with LON-CAPA; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+//
+// /home/httpd/html/adm/gpl.txt
+//
+// http://www.lon-capa.org/
+//
+YEAR 2000
 7/23,7/24,7/26,
 8/11,8/14,8/18,8/19,8/20,8/21,8/22,8/25,8/26,8/28,8/30,8/31,
 9/1,9/2,9/4,9/5,9/6,
 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
-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,
+YEAR 2001
+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,06/25,06/27,06/28,06/29,07/04 Gerd Kortemeyer
+07/24,8/6,8/7,10/16 Scott Harrison
+03/01/02 Matthew Hall
 -->
 
 
@@ -21,7 +55,7 @@ var row=new Array();
 var maxrow=-1;
 var col=new Array();
 var maxcol=-1;
-var lastempty=-2;
+
 var colmap=new Array();
 var colmap2=new Array();
 var colmap3=new Array();
@@ -30,6 +64,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();
@@ -47,6 +82,7 @@ var notclear=0;
 var linkmode=0;
 var lastinfo='';
 var graphdef='no';
+var mode='';
 var mainrun=0;
 var tablemode=0;
 var mostrecent=0;
@@ -55,18 +91,56 @@ var zscale=3;
 var disrows=0;
 var discols=0;
 
+var finishdone=0;
+var tim=0;
+var funny='|';
+var reqaction='';
+var canceltim;
+
+var expense=0;
+
 var data1=new Array(1024);
 var data2=new Array(1024);
 var data3=new Array(1024);
 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 copydx;
+var copydxflag=-1; // 1 means currently open
+                 // 0 means closed (but has been open)
+                 // -1 means never yet opened/defined
+var copydxmode='';
+
+var parm;
+var parmflag=-1; // 1 means currently open
+                 // 0 means closed (but has been open)
+                 // -1 means never yet opened/defined
+                 
+var iconpath='/adm/lonIcons/';
+var raticons='/adm/rat/';
 
-// ------------------------------------------------ Insert a row into the table
+function testfunction() {
+   inf.document.forms.resinfo.elements.t.value="ABC";
+}
 
+// ------------------------------------------------ Insert a row into the table
 function insertrow(j,ex1,ex2) {
    var kj;
    stored=0;
+   expense++; expense++;
    objects1='';
    objects2='';
    for (kj=0;kj<=maxrow;kj++) {
@@ -81,7 +155,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]!='') && (typeof(data1[kj])!="undefined")) {
        thisisobj=obj[data1[kj]];
        thisobjtype=thisisobj.split('&')[0];
        if (thisobjtype=='v') {
@@ -122,7 +196,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if (newobj!='') {
+             if ((newobj!='') && (typeof(newobj)!="undefined")) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -148,7 +222,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if (newobj!='') {
+             if ((newobj!='') && (typeof(newobj)!="undefined")) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -167,7 +241,6 @@ function insertrow(j,ex1,ex2) {
 }
 
 // --------------------------------------------- Creates a new condition object
-
 function newcondition(content,type) {
    var ko;
    stored=0;
@@ -178,7 +251,6 @@ function newcondition(content,type) {
 }
 
 // ---------------------------------------------- Creates a new resource object
-
 function newresource(rid,cid,text,url,ext,type) {
    stored=0;
    objcont[addobj(rid,'b&'+rid+'&'+cid+':0:0:0')]=
@@ -187,7 +259,6 @@ function newresource(rid,cid,text,url,ex
 
 
 // -------------------------------- Insert a condition into a port of an object
-
 function insertcond(obj1,portnr,cond) {
    var k;
    stored=0;
@@ -204,7 +275,6 @@ function insertcond(obj1,portnr,cond) {
  
 // --------------------------------------------- Insert a column into the table
 // Inserts a new table column after table column j
-
 function insertcol(j) {
    var kj;
    stored=0;
@@ -212,11 +282,11 @@ function insertcol(j) {
       if ( col[kj]>j ) { col[kj]++; } 
    }
    maxcol++;
+   expense++; expense++;
    col[maxcol]=j+1;
 }
      
 // --------------------------------------------------------------- Find the row
-
 function findrow(jid) {
    var j;
    for (j=0;j<=maxrow;j++) { if (row[j]==jid) { return j; } }
@@ -224,7 +294,6 @@ function findrow(jid) {
 }
 
 // --------------------------------------------------------------- Find the col
-
 function findcol(jid) {
    var j;
    for (j=0;j<=maxcol;j++) { if (col[j]==jid) { return j; } }
@@ -239,12 +308,11 @@ function findcol(jid) {
 //
 // returns middle (col number of middle of obj1)
 // sets colmap (map of cols with object numbers)
-
 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]!='') && (typeof(rowcont[jid])!="undefined")) {
    data2=rowcont[jid].split(':');
    for (j=0;j<data2.length;j++) {
       data3=obj[data2[j]].split('&');
@@ -285,7 +353,6 @@ function maprow (jid,obj1,ign) {
 // kid: colID, find point close to this
 // dkid: destination colID
 // returns colID
-
 function comingthru (jid,kid,dkid) {
    var k;
    maprow(jid,-1,1);
@@ -331,11 +398,7 @@ function comingthru (jid,kid,dkid) {
 // linkobj: object that the link goes to/comes from
 // sets inrow or outrow
 // return column
-
-
 function insertport (obj1,d,inout,linkobj) {
-
-
    var k; var port; var revport;
    stored=0;
    data1=obj[obj1].split('&');
@@ -364,7 +427,6 @@ function insertport (obj1,d,inout,linkob
          if ((data3[k]==0) && (colmap[k]==obj1) && (port==-1)) { port=k; } 
       }
    }
-
    if (port==-1) {
       if (colmap[k]==0) {
          revport=findcol(k);
@@ -411,10 +473,12 @@ function insertport (obj1,d,inout,linkob
 
 // ---------------------------- Make a new object and add it to the row content
 // returns object number of generated object
- 
 function addobj(kjid,objs) {
    stored=0;
-   if (rowcont[kjid]!='') { rowcont[kjid]+=':'; }
+   expense++;
+   if ((rowcont[kjid]!='') && (typeof(rowcont[kjid])!="undefined")) { 
+      rowcont[kjid]+=':'; 
+   }
    rowcont[kjid]+=obj.length;
    obj[obj.length]=objs;
    return obj.length-1;
@@ -422,7 +486,6 @@ function addobj(kjid,objs) {
 
 // ---------------------------------------- Make horizontal connection for hrid
 // hoffs=-1: this line goes on top of hrid
-
 function horizontal(hrid,hoffs,hfcol,htcol,hdest,hends) {
    hcrid=-1;
    if (hoffs==-1) {
@@ -449,7 +512,6 @@ function horizontal(hrid,hoffs,hfcol,htc
          }
       }
    }
-
    if (hcrid==-1) {
       insertrow(row[hrid]+hoffs,hfcol,htcol);
       addobj(maxrow,'h&'+maxrow+'&'+hfcol+':'+htcol+'&'+hdest+'&'+hends);
@@ -459,7 +521,6 @@ function horizontal(hrid,hoffs,hfcol,htc
 }
 
 // --------------------------------------- Deletes all references to object obj
-
 function delobj(obj1) {
    var k;
    stored=0;
@@ -468,32 +529,28 @@ function delobj(obj1) {
       rowcont[k]='';
       for (k2=0;k2<data4.length;k2++) {
          if (data4[k2]!=obj1) {
-            if (rowcont[k]!='') { rowcont[k]+=':'; } 
+            if ((rowcont[k]!='') && (typeof(rowcont[k])!="undefined")) { 
+               rowcont[k]+=':'; 
+            } 
             rowcont[k]+=data4[k2]; 
          }
       }
    }
+   obj[obj1]='';
 }
 
 // --------------------------------------------------------- Garbage collection
-
 function cleanup () {
    message("Garbage Collection");
    var j,kj,i;
    disrows=0;
    discols=0;
-
-   if (lastempty!=obj.length) {
-      insertrow(maxrow);
-      insertcol(maxcol);
-      addobj(maxrow,'e&'+maxcol);
-      lastempty=obj.length;
-   }
+   var emptyspots=0;
 
    for (kj=0;kj<=maxcol;kj++) { data1[kj]=0; }
    for (kj=0;kj<=maxrow;kj++) {
      rowtype[kj]=0;
-     if (rowcont[kj]!='') {
+     if ((rowcont[kj]!='') && (typeof(rowcont[kj])!="undefined")) {
        data2=rowcont[kj].split(':');
        for (j=0;j<data2.length;j++) {
          if (obj[data2[j]].substring(0,2)=='e&') {
@@ -512,6 +569,7 @@ function cleanup () {
               }
               if (obj[colmap[j]].substring(0,2)=='b&') { 
                  data1[j]=2;
+                 if (colmap[maxcol]==0) { emptyspots++; }
                  rowtype[kj]=2;
               }  
            }
@@ -526,10 +584,18 @@ function cleanup () {
        if (rowtype[j]==2) { disrows+=3; }
        if (rowtype[j]==1) { disrows+=1; }
    }
+   if (emptyspots==0) {
+      insertrow(maxrow);
+      insertcol(maxcol);
+      addobj(maxrow,'e&'+maxcol);
+      discols++;
+      disrows++;
+      rowtype[maxrow]=2;
+      coltype[maxcol]=2;
+   }
 }
 
 // -------------------------------------------- Delete a condition from a block
-
 function delcond(obj1,colid) {
    var k;
    stored=0;
@@ -549,7 +615,6 @@ function delcond(obj1,colid) {
 }
     
 // ----------------------------------------- Creates a new condition in a block
-
 function crecond(obj1,colid,condtext,condtype) {
    var k;
    data3=obj[obj1].split('&');
@@ -571,11 +636,10 @@ function crecond(obj1,colid,condtext,con
 // deletes the link linknr
 // h&rowID&incolID:outcolID&inObj:outObj&inupdown:outupdown
 // v&colID&inObj:outObj&updown
-
 function dellink (linknr) {
   var k; var obj1; var obj2;
   stored=0;
-  if (objlinks[linknr]!='') {
+  if ((objlinks[linknr]!='') && (typeof(objlinks[linknr])!="undefined")) {
    data3=objlinks[linknr].split(':');
    obj1=data3[0];
    obj2=data3[1];
@@ -598,7 +662,7 @@ function dellink (linknr) {
       }
    }
    for (k=0;k<obj.length;k++) {
-     if (obj[k]!='') {
+     if ((obj[k]!='') && (typeof(obj[k])!="undefined")) {
        data3=obj[k].split('&');
        if (((data3[0]=='v') || (data3[0]=='h')) && 
            (data3[data3.length-2]==linknr)) {
@@ -612,24 +676,63 @@ function dellink (linknr) {
 
 // ----------------------------------------------------------- Join two objects
 // Links obj1 with obj2, creates new objlink, marks all elements with number
-
 function joinres (obj1,obj2,cond) {
-   var k; var kr; var outcol; var incol; var d;
    stored=0;
+   var minexpense;
+   var best;
+
+   expense=0;
+   tryjoin(obj1,obj2,cond,1,1);
+   minexpense=expense;
+   best=0;
+   finishload();
+
+   expense=0;
+   tryjoin(obj1,obj2,cond,1,-1);
+   if (expense<minexpense) {
+      best=1;
+      minexpense=expense;
+   }
+   finishload();
+
+   expense=0;
+   tryjoin(obj1,obj2,cond,-1,1);
+   if (expense<minexpense) {
+      best=2;
+      minexpense=expense;
+   }
+   finishload();
+
+   expense=0;
+   tryjoin(obj1,obj2,cond,-1,-1);
+   if (expense<minexpense) {
+      best=3;
+      minexpense=expense;
+   }
+
+   if (best==0) {
+      finishload();
+      tryjoin(obj1,obj2,cond,1,1);
+   }
+   if (best==1) {
+      finishload();
+      tryjoin(obj1,obj2,cond,1,-1);
+   }
+   if (best==2) {
+      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 dest;
+
    dest=objlinks.length;
    objlinks[dest]=obj1+':'+obj2+':'+cond;
-   data3=obj[obj1].split('&');
-   sum=0;
-   for (k=2;k<data3.length;k++) { sum+=col[data3[k].split(':')[0]]; }
-   outmiddle=sum/(data3.length-2);
-   data3=obj[obj2].split('&');
-   sum=0;
-   for (k=2;k<data3.length;k++) { sum+=col[data3[k].split(':')[0]]; }
-   inmiddle=sum/(data3.length-2);
-   d=inmiddle-outmiddle;
-   outcol=insertport(obj1,d,2,dest);
+
+   outcol=insertport(obj1,d1,2,dest);
    insertcond(obj1,outcol,cond);
-   incol=insertport(obj2,-d,1,dest);
+   incol=insertport(obj2,d2,1,dest);
    if (row[inrow]==(row[outrow]+1)) {
       insertrow(row[outrow],-1,-1);
    }
@@ -719,7 +822,6 @@ function joinres (obj1,obj2,cond) {
 // ---------------------------------------------------------- Delete a resource
 // Deletes resource obj1
 // Reconnects resources going thru this one if recon=1
-
 function delres (obj1,recon) {
    var infromobj=new Array();
    var inwithcon=new Array();
@@ -766,7 +868,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]!='') &&
+                         (typeof(inobjscond[k2])!="undefined")) { 
+                         inobjscond[k2]+='||'; 
+                     }
                      inobjscond[k2]+=
                       '('+(objcont[inwithcon[k]].split(':'))[0]+')';
                    }
@@ -792,7 +897,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]!='') &&
+                         (typeof(outobjscond[k2])!="undefined")) { 
+                         outobjscond[k2]+='||'; 
+                     }
                      outobjscond[k2]+=
                       '('+(objcont[outwithcon[k]].split(':'))[0]+')';
                   }
@@ -814,15 +922,22 @@ function delres (obj1,recon) {
 
       for (k=0;k<inobjs.length;k++) {
           cond='';
-          if (inobjscond[k]!='') { cond='('+inobjscond[k]+')'; }
+          if ((inobjscond[k]!='') && (typeof(inobjscond[k])!="undefined")) { 
+             cond='('+inobjscond[k]+')'; 
+          }
           for (k2=0;k2<outobjs.length;k2++) {
               thiscond=cond;
-              if (outobjscond[k2]!='') {
-                 if (thiscond!='') { thiscond+='&&'; }
+              if ((outobjscond[k2]!='') && (typeof(outobjscond[k2])!="undefined")) {
+                 if ((thiscond!='') && (typeof(thiscond)!="undefined")) { 
+                    thiscond+='&&'; 
+                 }
                  thiscond+='('+outobjscond[k2]+')';
               }
               condnr=0;
-              if (thiscond!='') { condnr=newcondition(thiscond,'normal'); } 
+              if ((thiscond!='') && (typeof(thiscond)!="undefined")) { 
+                 condnr=newcondition(thiscond,'normal'); 
+              }
+              save(); 
               joinres(inobjs[k],outobjs[k2],condnr);
           }
       }
@@ -830,35 +945,123 @@ function delres (obj1,recon) {
 }
 
 // -------------------------------------------------------------- Draw an entry
-
 function drawcell (rtype,ctype,what,cm,obj1,ej,ek,ne) {
  var bgcolor;
+ var url='';
+ var urlparts=new Array;
+ var mime;
+ var ext;
+ var objref;
+ var objnum;
+
  if ((what=='') && (ne==0)) { cm="#DDDDDD"; }
  if (ctype!=0) {
    parent.mapout.document.write('<td bgcolor='+cm+' width='+cw[ctype]+'>');
-   if (what!='') {
-     if (obj1!='') {
-       obj1="'"+obj1+"'";
+   if ((what!='') && (typeof(what)!="undefined")) {
+     if ((obj1!='') && (typeof(obj1)!="undefined")) {
+       objref="'"+obj1+"'";
        parent.mapout.document.write
-        ('<a href="javascript:parent.code.handler('+obj1
-         +');" onMouseOver="parent.code.info('+obj1+');">');
+        ('<a href="javascript:parent.code.handler('+objref
+         +');" onMouseOver="parent.code.info('+objref+');">');
      } 
      if (what=='r:') {
+        mime='';
+        objnum=(obj1.split('&'))[1];
+        if (typeof(objcont[objnum])!="undefined") {
+            urlparts=objcont[objnum].split(':');
+            url=urlparts[1];
+            ext=urlparts[2];
+            urlparts=url.split('.');
+            mime=urlparts[urlparts.length-1];
+            if (typeof(mime)=="undefined") { mime=''; }
+        }
         parent.mapout.document.write
-         ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
-          +' src="resource.gif">');
+         ('<img border=0 width='+cw[ctype]+' height='+rh[1]
+          +' src="'+raticons+'resource.gif">');
+        if ((mime!='') && (ext!='true')) {
+           parent.mapout.document.write
+           ('<br><img border=0 src="'+raticons+'left.gif"></a><a target="preview" href="'+
+           url+'.meta"><img border=0 src="'+iconpath+
+           'meta.gif"><a target="preview" href="'+url+
+           '"><img border=0 src="'+iconpath+mime+'.gif">'+
+           '<img border=0 src="'+raticons+'right.gif">');
+        } else {
+           parent.mapout.document.write
+           ('<br><img border=0 src="'+raticons+'middle.gif">');
+        }
+        parent.mapout.document.write
+           ('<br><img border=0 src="'+raticons+'bottom.gif">');
      } else {
         if (what=='c:') {
            parent.mapout.document.write
             ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
-             +' src="condition.gif">');          
+             +' src="'+raticons+'condition.gif">');          
+        } else {
+           if (what=='rs:') {
+        mime='';
+        objnum=(obj1.split('&'))[1];
+        if (typeof(objcont[objnum])!="undefined") {
+            urlparts=objcont[objnum].split(':');
+            url=urlparts[1];
+            ext=urlparts[2];
+            urlparts=url.split('.');
+            mime=urlparts[urlparts.length-1];
+            if (typeof(mime)=="undefined") { mime=''; }
+        }
+              parent.mapout.document.write
+               ('<img border=0 width='+cw[ctype]+' height='+rh[1]
+               +' src="'+raticons+'start.gif">');
+        if ((mime!='') && (ext!='true')) {
+           parent.mapout.document.write
+           ('<br><img border=0 src="'+raticons+'left.gif"></a><a target="preview" href="'+
+           url+'.meta"><img border=0 src="'+iconpath+
+           'meta.gif"><a target="preview" href="'+url+
+           '"><img border=0 src="'+iconpath+mime+'.gif">'+
+           '<img border=0 src="'+raticons+'right.gif">');
+        } else {
+           parent.mapout.document.write
+           ('<br><img border=0 src="'+raticons+'middle.gif">');
+        }
+        parent.mapout.document.write
+           ('<br><img border=0 src="'+raticons+'bottom.gif">');
+
+           } else {
+             if (what=='rf:') {
+        mime='';
+        objnum=(obj1.split('&'))[1];
+        if (typeof(objcont[objnum])!="undefined") {
+            urlparts=objcont[objnum].split(':');
+            url=urlparts[1];
+            ext=urlparts[2];
+            urlparts=url.split('.');
+            mime=urlparts[urlparts.length-1];
+            if (typeof(mime)=="undefined") { mime=''; }
+        }
+                parent.mapout.document.write
+                ('<img border=0 width='+cw[ctype]+' height='+rh[1]
+                +' src="'+raticons+'finish.gif">');
+        if ((mime!='') && (ext!='true')) {
+           parent.mapout.document.write
+           ('<br><img border=0 src="'+raticons+'left.gif"></a><a target="preview" href="'+
+           url+'.meta"><img border=0 src="'+iconpath+
+           'meta.gif"><a target="preview" href="'+url+
+           '"><img border=0 src="'+iconpath+mime+'.gif">'+
+           '<img border=0 src="'+raticons+'right.gif">');
         } else {
            parent.mapout.document.write
-            ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]+' src="'
-             +rtype+'.'+ctype+'.'+what+'.gif">');
+           ('<br><img border=0 src="'+raticons+'middle.gif">');
+        }
+        parent.mapout.document.write
+           ('<br><img border=0 src="'+raticons+'bottom.gif">');
+             } else {
+                parent.mapout.document.write
+                ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
+                +' src="'+raticons+rtype+'.'+ctype+'.'+what+'.gif">');
+             }
+           }
         }
      }
-     if (obj1!='') {
+     if ((obj1!='') && (typeof(obj1)!="undefined")) {
        parent.mapout.document.write('</a>');
      }
    } else {
@@ -874,25 +1077,23 @@ function drawcell (rtype,ctype,what,cm,o
       parent.mapout.document.write
          (
          '<img border=0 width='+cw[ctype]+' height='+rh[rtype]
-        +' src="'+rtype+'.'+ctype+'.empty.gif"></a>');
+        +' src="'+raticons+rtype+'.'+ctype+'.empty.gif"></a>');
    }
    parent.mapout.document.write('</td>');
  }
 }
 
 // --------------------------------------------------------- Color of resources
-
 function rescolor (ext,typ) {
    var rc; var gc; var bc;
    if (ext=='true') { bc='55'; } else { bc='99'; }
    if (typ=='mandatory') { rc='FF'; } else { rc='BB'; }
    if (typ=='optional') { gc='BB'; } else { gc='FF'; }
-   if ((typ=='start') || (typ=='end')) { rc='AA'; gc='AA'; bc='FF'; }
+   if ((typ=='start') || (typ=='finish')) { rc='AA'; gc='AA'; bc='FF'; }
    return '#'+rc+gc+bc;
 }
 
 // -------------------------------------------------------- Color of conditions
-
 function condcolor(typ) {
    if (typ=='stop')  { return '#EEAAAA'; }
    if (typ=='force') { return '#AAAAEE'; }
@@ -900,9 +1101,8 @@ function condcolor(typ) {
 }
 
 // ----------------------------------------------------------------- Draw a row
-
 function drawrow (jid) {
-var j; var jk; var k;  var ck;
+var j; var jk; var k;  var ck; var rtype;
 var objd1=new Array();
 var objd2=new Array();
 var notempty=new Array();
@@ -915,12 +1115,13 @@ if (rowtype[jid]!=0) {
  }
 
  parent.mapout.document.writeln('<tr height='+rh[rowtype[jid]]+'>');
- if (rowcont[jid]!='') {
+ if ((rowcont[jid]!='') && (typeof(rowcont[jid])!="undefined")) {
    data2=rowcont[jid].split(':');
    for (jk=0;jk<data2.length;jk++) {
       data3=obj[data2[jk]].split('&');
       if (data3[0]=='b') {
          data1=objcont[data2[jk]].split(':');
+         rtype=data1[3];
          ck=rescolor(data1[2],data1[3]);
          left=maxcol;
          leftin=maxcol;
@@ -958,12 +1159,20 @@ if (rowtype[jid]!=0) {
          }
          for (k=left;k<=right;k++) { notempty[k]=1; colmap5[k]=ck; }
          middle=Math.round((left+right)/2);
-         colmap[middle]='r:';
+         if (rtype=='start') {
+            colmap[middle]='rs:';
+         } else {
+            if (rtype=='finish') {
+               colmap[middle]='rf:';
+            } else {
+               colmap[middle]='r:';
+            }
+         }
          objd1[middle]+='r&'+data2[jk];
 
          if (rightin>middle) {
             for (k=middle+1;k<rightin;k++) { 
-               if (colmap4[k]!='') {
+               if ((colmap4[k]!='') && (typeof(colmap4[k])!="undefined")) {
                   colmap[k]='rlt'; 
                } else {
                   colmap[k]='rl';
@@ -973,7 +1182,7 @@ if (rowtype[jid]!=0) {
          }
          if (leftin<middle) {
             for (k=middle-1;k>leftin;k--) { 
-               if (colmap4[k]!='') {
+               if ((colmap4[k]!='') && (typeof(colmap4[k])!="undefined")) {
                   colmap[k]='lrt'; 
                } else {
                   colmap[k]='lr';
@@ -993,7 +1202,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]!='') && (typeof(colmap3[middle])!="undefined")) {
                  colmap2[middle]='rtdl'; 
               } else {
                  colmap2[middle]='rtl';
@@ -1002,7 +1211,7 @@ if (rowtype[jid]!=0) {
          }
          if (leftout<middle) {
             for (k=middle-1;k>leftout;k--) { 
-               if (colmap3[k]!='') {
+               if ((colmap3[k]!='') && (typeof(colmap3[k])!="undefined")) {
                   colmap2[k]='rld'; 
                } else {
                   colmap2[k]='rl';
@@ -1012,7 +1221,7 @@ if (rowtype[jid]!=0) {
          }
          if (rightout>middle) {
             for (k=middle+1;k<rightout;k++) { 
-               if (colmap3[k]!='') {
+               if ((colmap3[k]!='') && (typeof(colmap3[k])!="undefined")) {
                   colmap2[k]='lrd'; 
                } else {
                   colmap2[k]='lr';
@@ -1077,13 +1286,13 @@ if (rowtype[jid]!=0) {
    }
    if (rowtype[jid]==2) {
       parent.mapout.document.writeln('</tr>');
-      parent.mapout.document.writeln('<tr height=30>');
+      parent.mapout.document.writeln('<tr height='+rh[1]+'>');
       for (k=0;k<=maxcol;k++) {
        drawcell(1,coltype[rcol[k]],colmap2[k],colmap5[k],objd2[k],jid,k,
                 notempty[k]);
       }
       parent.mapout.document.writeln('</tr>');
-      parent.mapout.document.writeln('<tr height=30>');
+      parent.mapout.document.writeln('<tr height='+rh[1]+'>');
       for (k=0;k<=maxcol;k++) {
        drawcell(1,coltype[rcol[k]],colmap3[k],colmap6[k],objd2[k],jid,k,
                 notempty[k]);
@@ -1095,13 +1304,11 @@ if (rowtype[jid]!=0) {
 }
 
 // -------------------------------------------------------------- Print message
-
 function message(txt) {
    parent.window.status=txt;
 }
 
 // ------------------------------------------------------------- Draw the table
-         
 function draw () {
    var k; var kr;
 
@@ -1125,7 +1332,7 @@ function draw () {
       parent.mapout.document.writeln(
        '<table cellpadding=0 cellspacing=0 border=0 rows='
        +disrows+' cols='+discols+'>');
-      for (kr=0;kr<=maxrow;kr++) { 
+      for (kr=0;kr<=maxrow;kr++) {
         message("Generating Output Row "+kr); 
         drawrow(rrow[kr]); 
       }
@@ -1150,11 +1357,9 @@ function draw () {
 }
 
 // --------------------------------------------------------- Clears info window
-
 function infoclear() {
  if (notclear!=1) {
-  var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
-  var inf=open("","infout",options);
+  infcheck();
   inf.document.clear();
   inf.document.writeln
    ('<html><body bgcolor="#FFFFFF"><table><tr><td>'+
@@ -1182,24 +1387,48 @@ 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='';
  }
 }
 
-// --------------------------------------------------- Prints out resource info
+// ------------------------------------------------------------ Open inf window
+function infopen() {
+   var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
+   inf=open("","infout",options);
+}
 
+// -------------------------------------------------------- Do inf status check
+function infcheck() {
+   if (inf.closed) {
+      infopen();
+   }
+}
+
+// --------------------------------------------------- Prints out resource info
 function info(infostr) {
+ var mime='';
+ var ext;
+ var urlparts=new Array;
+ var url='';
  if ((editmode!=1) && (infostr!=lastinfo)) {
   notclear=1;
-  var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
-  var inf=open("","infout",options);
+  infcheck();
   inf.document.clear();
   inf.document.writeln(
    '<html><body bgcolor="#FFFFFF">'+
-   '<table><tr><td width=32><img src="info.gif"></td><td bgcolor="#AAFFAA">');
+   '<table><tr><td width=32><img src="'+raticons+'info.gif"></td><td bgcolor="#AAFFAA">');
   data1=infostr.split('&');
   if (data1[0]=='c') {
      inf.document.write('<b>Condition (');
@@ -1223,9 +1452,28 @@ function info(infostr) {
   } else {
      if (data1[0]=='r') {
         data2=objcont[data1[1]].split(':');
-        inf.document.write('<b>');
+        url=data2[1];
+        ext=data2[2];
+        urlparts=url.split('.');
+        mime=urlparts[urlparts.length-1];
+        if (typeof(mime)=="undefined") { mime=''; }
+        if (ext=='true') { mime=''; }
+        if (mime!='') {
+           inf.document.write
+           ('<br><a target="preview" align="right" href="'+url+
+           '"><img border=0 src="'+iconpath+mime+'.gif"></a>&nbsp;&nbsp;');
+        }
+       inf.document.write('<b>');
         if (data2[2]=='true') { inf.document.write('External '); }
-        inf.document.write('Resource');
+        if (data2[3]=='start') {
+           inf.document.writeln('<b>Start</b>');
+        } else {
+           if (data2[3]=='finish') {
+              inf.document.writeln('<b>Finish</b>');
+           } else {
+              inf.document.writeln('<b>Resource</b>');
+           }
+        }
         if (data2[3]=='mandatory') {
            inf.document.write(' (Mandatory)');
         }
@@ -1253,7 +1501,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;
@@ -1261,7 +1509,6 @@ function info(infostr) {
 }
 
 // ------------------------------------------------ "Escapes" out special chars
-
 function escape(instring) {
    var outstring='';
    var thischar;
@@ -1269,7 +1516,7 @@ function escape(instring) {
    for (k=0;k<instring.length;k++) {
       thischar=instring.charAt(k);
       if (thischar==':') { thischar='&#58;'; }
-      if (thischar=='"') { thischar='&#34;'; }
+      if (thischar=='"') { thischar='&#34;'; }// "
       if (thischar=="'") { thischar='&#39;'; }
       if (thischar==',') { thischar='&#44;'; }
       outstring+=thischar;
@@ -1278,13 +1525,14 @@ function escape(instring) {
 }
 
 // -------------------------------------------------- Insert resource into link
-
 function insertreslink(infostr) {
    var lnr;
    var fobj;
    var tobj;
    var nobj;
    var cobj;
+   var cid;
+   var rid;
    data1=infostr.split('&');
    data2=obj[data1[0]].split('&');
    lnr=data2[data2.length-2];
@@ -1302,22 +1550,183 @@ function insertreslink(infostr) {
    dellink(lnr);
    newresource(rid,cid,'','','false','normal');
    nobj=obj.length-1;
+   save();
    joinres(fobj,nobj,cobj);
+   save();
    joinres(nobj,tobj,0);
 }
 
-// ---------------------------------------------------- Handles "click to edit"
+// -------------------------------------------- Insert resource after condition
+function insertcondlink(cid,lnr) {
+   var fobj;
+   var tobj;
+   var nobj;
+   var cobj;
+   data3=objlinks[lnr].split(':');
+   fobj=data3[0];
+   tobj=data3[1];
+   cobj=data3[2];
+   rid=(obj[fobj].split('&'))[1];
+   insertrow(row[rid]);
+   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 copy window
+function copydxclear() {
+  copydx.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 copy window
+function copydxclose() {
+  if (copydx && !copydx.closed) {
+    copydxflag=0;
+    copydx.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/?launch=1&mode=rat&catalogmode="+mode,"idxout",options);
+   idx.focus();
+}
+// ------------------------------------------------- Open browser to select map
+    var editbrowser;
+    function openbrowser(formname,elementname,only,omit) {
+        var url = '/res/?';
+        if (editbrowser == null) {
+            url += 'launch=1&';
+        }
+        url += 'catalogmode=interactive&';
+        url += 'mode=edit&';
+        url += 'form=' + formname + '&';
+        if (only != null) {
+            url += 'only=' + only + '&';
+        } 
+        if (omit != null) {
+            url += 'omit=' + omit + '&';
+        }
+        url += 'element=' + elementname + '';
+        var title = 'Browser';
+        var options = 'scrollbars=1,resizable=1,menubar=0';
+        options += ',width=700,height=600';
+        editbrowser = copydx.open(url,title,options,'1');
+        editbrowser.focus();
+    }
+// ----------------------------------------------------------- Open copy window
+function copydxopen(mode) {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   copydxmode=mode;
+   copydxflag=1;
+   copydx=open("",'copydxout',options);
+   copydx.document.clear('');
+   copydx.document.writeln(
+ '<html><body bgcolor="#FFFFFF"><h1>Group Copy from Map</h1>'+
+ '<form name="mapload"><input type=text size=40 name=importmap>'+
+ '<input type=button onClick="javascript:opener.openbrowser'+
+ "('mapload','importmap','sequence,page','')"+
+ '" value="Browse"><input type=button value="Load Map" '+
+ 'onClick="window.location=document.mapload.importmap.value+'+
+ "'?launch=1&forceselect=1'"+'"></form>');
+
+   copydx.document.writeln('</body></html>');
+   copydx.focus();
+}
+
+// --------------------------------------------------------- Open search window
+function srchopen(mode) {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   srchmode=mode;
+   srchflag=1;
+   srch=open("/adm/searchcat?launch=1&mode=rat&catalogmode="+mode,"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(mode);
+   }
+   srch.focus();
+}
+
+// -------------------------------------------------------- Do idx status check
+function idxcheck(mode) {
+   if (!idx || idx.closed || idxmode!=mode) {
+      idxopen(mode);
+   }
+   idx.focus();
+}
+
+// -------------------------------------------------------- Do idx status check
+function copydxcheck(mode) {
+   if (!copydx || copydx.closed || copydxmode!=mode) {
+      copydxopen(mode);
+   }
+   copydx.focus();
+}
+
+// ---------------------------------------------------- Handles "click to edit"
 function handler(infostr) {
   var k;
   editmode=1;
   notclear=1;
-  var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
-  var inf=open("","infout",options);
+  infcheck();
   inf.document.clear();
   inf.document.writeln(
    '<html><body bgcolor="#FFFFFF">'+
-   '<table><tr><td width=32><img src="edit.gif"></td><td bgcolor="#AAFFAA">');
+   '<table><tr><td width=32><img src="'+raticons+'edit.gif"></td><td bgcolor="#AAFFAA">');
   data1=infostr.split('&');
   if (data1[0]=='c') {
      inf.document.writeln('<b>Condition</b><hr>');
@@ -1354,7 +1763,7 @@ function handler(infostr) {
      }
      inf.document.writeln(
       'opener.infoclear();opener.editmode=0;opener.draw('
-      +');"><b>Change to above values</b></a>&nbsp;&nbsp;'
+      +');"><b>Save Changes</b></a>&nbsp;&nbsp;'
     +' <a href="javascript:self.document.forms.condinfo.reset()">Reset</a><br>'
       +'<input type=hidden name=h value='+data2[1]+'>');
 
@@ -1366,6 +1775,11 @@ function handler(infostr) {
            '<a href="javascript:opener.notclear=0;opener.infoclear();'
    +'opener.dellink('+data1[3]+');opener.editmode=0;opener.draw('
          +');">Delete Link</a>');
+
+        inf.document.writeln('<br><a href="javascript:'+
+         'opener.insertcondlink('+data1[1]+','+data1[3]+');'+
+         'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
+                              +');">Insert Resource Into Link</a>');
 } else {
      if (data1[0]=='r') {
        if (linkmode!=0) {
@@ -1376,18 +1790,31 @@ function handler(infostr) {
         inf.document.writeln('<b>Linked Resources</b>');
         draw();
        } else {
-        inf.document.writeln('<b>Resource</b>');
         data2=objcont[data1[1]].split(':');
+        if (data2[3]=='start') {
+           inf.document.writeln('<b>Start</b>');
+        } else {
+           if (data2[3]=='finish') {
+              inf.document.writeln('<b>Finish</b>');
+           } else {
+              inf.document.writeln('<b>Resource</b>');
+           }
+        }
         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]+'"></td></tr><tr><td>URL:</td><td>'
+        +data2[0]+'"><input type=hidden name=h value='+data2[3]+'></td></tr>');
+           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><input type=hidden name=h value='+data2[3]
-        +'><input type=radio name=y value=normal '+
+        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>');
+    if ((data2[3]!='start') && (data2[3]!='finish')) {
+        inf.document.write('<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'); }
      inf.document.write(
@@ -1398,17 +1825,20 @@ function handler(infostr) {
       '> Mandatory&nbsp;&nbsp;<input type=radio name=y value=optional '+
  'onClick="self.document.forms.resinfo.elements.h.value='+"'optional'"+'"');
      if (data2[3]=='optional') { inf.document.write(' checked'); }
-     inf.document.write('> Optional</td></tr>'
-        +'<tr><td colspan=2><a href="javascript:opener.editmode=0;'
+     inf.document.write('> Optional</td></tr>');
+    } 
+        inf.document.writeln(
+         '<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)+'+"':'"
         +'+self.document.forms.resinfo.elements.e.checked+'+"':'"
         +'+self.document.forms.resinfo.elements.h.value+'+"':res'"
         +';opener.infoclear();opener.editmode=0;opener.draw();">'
-        +'<b>Change to above values</b></a>&nbsp;&nbsp;'
+        +'<b>Save Changes</b></a>&nbsp;&nbsp;'
         +' <a href="javascript:self.document.forms.resinfo.reset()">Reset</a>'
         +'</td></tr></table>');
+    if ((data2[3]!='start') && (data2[3]!='finish')) {
         inf.document.writeln(
            '<a href="javascript:opener.notclear=0;opener.infoclear();'
          +'opener.delres('+data1[1]+',0);opener.editmode=0;opener.draw('
@@ -1417,10 +1847,18 @@ function handler(infostr) {
           '<br><a href="javascript:opener.notclear=0;opener.infoclear();'
          +'opener.delres('+data1[1]+',1);opener.editmode=0;opener.draw('
          +');">Delete Resource (preserving links)</a>');
+    }
+    if (data2[3]!='finish') {
         inf.document.writeln(
           '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
          +'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;
@@ -1441,14 +1879,13 @@ function handler(infostr) {
   }
   inf.document.writeln(
      '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
-     +'opener.infoclear();">Done</a>');
+     +'opener.infoclear();">Cancel</a>');
   inf.document.writeln('</form></td></tr></table></body></html>');
   inf.document.close();
   inf.focus();
 }
 
 // ----------------------------------------------------- Clicks on empty fields
-
 function empty(rid,k) {
   var cid=findcol(k);
   var lcol=k-1;
@@ -1457,12 +1894,11 @@ function empty(rid,k) {
   editmode=1;
   notclear=1;
   linkmode=0;
-  var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
-  var inf=open("","infout",options);
+  infcheck();
   inf.document.clear();
   inf.document.writeln(
    '<html><body bgcolor="#FFFFFF">'+
-   '<table><tr><td width=32><img src="edit.gif"></td><td bgcolor="#AAFFAA">'+
+   '<table><tr><td width=32><img src="'+raticons+'edit.gif"></td><td bgcolor="#AAFFAA">'+
    '<b>Empty Field</b><hr>');
 
         inf.document.writeln('<br><a href="javascript:opener.newresource('+
@@ -1471,7 +1907,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]!='') && 
+                         (typeof(objcont[mostrecent])!="undefined")) {
 
         inf.document.writeln('<br><a href="javascript:opener.newresource('+
           rid+','+cid+",'','','false','normal');"+
@@ -1511,19 +1948,18 @@ function empty(rid,k) {
 
   inf.document.writeln(
    '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
-  +'opener.infoclear();">Done</a>');
+  +'opener.infoclear();">Cancel</a>');
   inf.document.writeln('</td></tr></table></body></html>');
   inf.document.close();
   inf.focus();
 }
 
 // ---------------------------------------------------- Save into hidden fields
-
 function save() {
   var k;
   if (graphdef=='yes') {
    parent.server.document.forms.storage.output.value='graphdef<:>yes';
-   for (k=0;k<obj.length;k++) {
+   for (k=1;k<obj.length;k++) {
          parent.server.document.forms.storage.output.value+=
           '<&>obj<:>'+k+'<:>'+obj[k];
    }
@@ -1552,7 +1988,13 @@ function save() {
  }
  parent.server.document.forms.storage.output.value+=
    '<&>tablemode<:>'+tablemode;
-   
+      
+   for (k=0;k<objparms.length;k++) {
+      if (objparms[k]) {
+         parent.server.document.forms.storage.output.value+=
+          '<&>objparms<:>'+k+'<:>'+objparms[k];
+      }
+   }  
    for (k=0;k<objcont.length;k++) {
       if (objcont[k]) {
          parent.server.document.forms.storage.output.value+=
@@ -1571,7 +2013,6 @@ function save() {
 }
 
 // ----------------------------------------------- Reset all layout information
-
 function graphreset() {
 
    var k;
@@ -1593,17 +2034,13 @@ function graphreset() {
    insertcol(-1);
 
    objcont[0]='';
-   objcont[1]='Start::false:start:res'
-   objcont[2]='Finish::false:end:res';
    objlinks[0]='';
-   objlinks[1]='1:2:0';
 
    graphdef='no';
 
 }
 
 // --------------------- Compare two resources with each other for "straighten"
-
 function rescompare(a,b) {
    data1=a.split(':');
    data2=b.split(':');
@@ -1612,7 +2049,7 @@ function rescompare(a,b) {
    for (k=1;k<data1.length;k++) {
       if (data1[k]==data2[0]) { rvalue--; }
    }
-   for (k=1;k<data3.length;k++) {
+   for (k=1;k<data2.length;k++) {
       if (data2[k]==data1[0]) { rvalue++; }
    }
    if (rvalue==0) { rvalue=data2.length-data1.length; }
@@ -1620,7 +2057,6 @@ function rescompare(a,b) {
 }
 
 // -------------------------------------------- Draw the table instead of graph
-
 function tabledraw() {
   var objsorted=new Array();
   var robjs=new Array();
@@ -1632,9 +2068,13 @@ function tabledraw() {
   var ck;
   var cck;
   var condid;
+  var url='';
+  var mime='';
+  var ext='';
+  var urlparts=new Array;
   var sortstr=sortobjs();
- insrestab(1,-1,-1);
- if (sortstr!='') {
+ insrestab(1,-1,-1,'');
+ if ((sortstr!='') && (typeof(sortstr)!="undefined")) {
   objsorted=sortstr.split('&');
   for (k=0;k<objsorted.length;k++) {
      i=(objsorted[k].split(':'))[0];
@@ -1650,8 +2090,21 @@ function tabledraw() {
        }
        data1=objcont[i].split(':');
        ck=rescolor(data1[2],data1[3]);
-        parent.mapout.document.write('<tr><td bgcolor="'+ck
-        +'"><b><a href="javascript:if (parent.code.linkmode!=0) { '
+        parent.mapout.document.write('<tr><td bgcolor="'+ck+'">');
+        url=data1[1];
+        ext=data1[2];
+        urlparts=url.split('.');
+        mime=urlparts[urlparts.length-1];
+        if (typeof(mime)=="undefined") { mime=''; }
+        if ((mime!='') && (ext!='true')) {
+           parent.mapout.document.write
+           ('<a target="preview" align="right" href="'+url+'.meta'+
+           '"><img src="'+iconpath+'meta.gif"></a><p>'+
+           '<a target="preview" align="right"href="'+url+
+           '"><img src="'+iconpath+mime+'.gif"></a><p>');
+        }
+         parent.mapout.document.write(
+         '<b><a href="javascript:if (parent.code.linkmode!=0) { '
         +'parent.code.joinres(parent.code.linkmode,'+i+',0);'
         +'parent.code.linkmode=0;parent.code.editmode=0;'
         +'parent.code.notclear=0;parent.code.infoclear();'
@@ -1659,17 +2112,26 @@ function tabledraw() {
         +'"><form name=r'+i+' method=post>');
       data2=obj[i].split('&');
       parent.mapout.document.write('<table bgcolor="#CCCCCC">');
+
+      if (data1[3]=='start') { 
+         parent.mapout.document.writeln('<tr><td><b>Start</b></td></tr>');
+      }
+      if (data1[3]=='finish') { 
+         parent.mapout.document.writeln('<tr><td><b>Finish</b></td></tr>');
+      }
       parent.mapout.document.write(
        '<tr><td>Title:</td><td><input type=text name=t size=50 value="'
-                                   +data1[0]+'"></td></tr>');
+            +data1[0]+'"><input type=hidden name=h value='+data1[3]
+            +'></td></tr>');
       parent.mapout.document.write(
        '<tr><td>URL:</td><td><input type=text name=u size=50 value="'
                                   +data1[1]+'"></td></tr>'
           +'<tr><td>External:</td><td><input type=checkbox name=e');
         if (data1[2]=='true') { parent.mapout.document.write(' checked'); }
-        parent.mapout.document.write('></td></tr>'
-        +'<tr><td colspan=2><input type=hidden name=h value='+data1[3]
-        +'><input type=radio name=y value=normal '+
+        parent.mapout.document.write('></td></tr>');
+    if ((data1[3]!='start') && (data1[3]!='finish')) {
+        parent.mapout.document.write(
+        '<tr><td colspan=2><input type=radio name=y value=normal '+
  'onClick="parent.mapout.document.forms.r'+i+'.elements.h.value='+
      "'normal'"+'"');
      if (data1[3]=='normal') { parent.mapout.document.write(' checked'); }
@@ -1683,8 +2145,10 @@ function tabledraw() {
  'onClick="parent.mapout.document.forms.r'+i+'.elements.h.value='+
      "'optional'"+'"');
      if (data1[3]=='optional') { parent.mapout.document.write(' checked'); }
-     parent.mapout.document.write('> Optional</td></tr>'
-        +'<tr><td colspan=2><a href="javascript:parent.code.objcont['+i        
+     parent.mapout.document.write('> Optional</td></tr>');
+    } 
+     parent.mapout.document.write(
+         '<tr><td colspan=2><a href="javascript:parent.code.objcont['+i        
         +']=parent.code.escape(parent.mapout.document.forms.r'+i
         +'.elements.t.value)+'+"':'"
         +'+parent.code.escape(parent.mapout.document.forms.r'+i
@@ -1692,19 +2156,29 @@ function tabledraw() {
         +'+parent.mapout.document.forms.r'+i+'.elements.e.checked+'+"':'"
         +'+parent.mapout.document.forms.r'+i+'.elements.h.value+'+"':res'"
         +';parent.code.draw();">'
-        +'<b>Change to above values</b></a>&nbsp;&nbsp;'
+        +'<b>Save Changes</b></a>&nbsp;&nbsp;'
         +' <a href="javascript:parent.mapout.document.forms.r'+i
-        +'.reset()">Reset</a></td></tr><tr><td colspan=2>'
-+'<A href="javascript:parent.code.notclear=0;parent.code.infoclear();'
+        +'.reset()">Reset</a></td></tr><tr><td colspan=2>');
+    if ((data1[3]!='start') && (data1[3]!='finish')) {
+     parent.mapout.document.writeln(
+ '<A href="javascript:parent.code.notclear=0;parent.code.infoclear();'
 +'parent.code.delres('+i+',0);parent.code.editmode=0;parent.code.draw();">'
 +'Delete Resource (cutting links)</A><br>'
 +'<A href="javascript:parent.code.notclear=0;parent.code.infoclear();'
 +'parent.code.delres('+i+',1);parent.code.editmode=0;parent.code.draw();">'
-+'Delete Resource (preserving links)</A><br>'
-       +'<a href="javascript:parent.code.linkmode='+i+
++'Delete Resource (preserving links)</A><br>');
+    }
+    if (data1[3]!='finish') {
+       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(':');
@@ -1752,36 +2226,38 @@ function tabledraw() {
        }
        parent.mapout.document.writeln(
         '</tr></table></td></tr></table></form>');
-       insrestab(rrow[data2[1]],i,nr);
+       insrestab(rrow[data2[1]],i,nr,data1[3]);
 
    }
   }
 }
 
 // ----------------------------------------------------- Insert Resource Output
-
-function insrestab(irow,be,af) {
+function insrestab(irow,be,af,typ) {
   parent.mapout.document.writeln('<tr><td colspan=2>'+
        '<table><tr><td><a href="javascript:parent.code.insertrow('
        +irow+');parent.code.newresource(parent.code.maxrow,'+rcol[1]
  +",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
        +'parent.code.draw();">'
        +'Insert resource</a></td><td>');
-  if (be!=-1) {
+  if ((be!=-1) && (typ!='finish')) {
    parent.mapout.document.writeln(
        '<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>');
   }
-  if ((be!=-1) && (af!=-1)) {
+  if ((be!=-1) && (af!=-1) && (typ!='finish')) {
      parent.mapout.document.writeln(
        '<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>');
@@ -1791,14 +2267,15 @@ function insrestab(irow,be,af) {
        '<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>');
   }
   parent.mapout.document.writeln('</td></tr></table></tr>');
 }
-// ---------------------------------------- Draw simple table instead of graph
 
+// ---------------------------------------- Draw simple table instead of graph
 function simpletabledraw() {
   var objsorted=new Array();
   var robjs=new Array();
@@ -1809,9 +2286,13 @@ function simpletabledraw() {
   var nr;
   var ck;
   var cck;
+  var mime;
+  var ext;
+  var url;
+  var urlparts=new Array;
   var condid;
   var sortstr=sortobjs();
- if (sortstr!='') {
+ if ((sortstr!='') && (typeof(sortstr)!="undefined")) {
   objsorted=sortstr.split('&');
   for (k=0;k<objsorted.length;k++) {
      i=(objsorted[k].split(':'))[0];
@@ -1827,11 +2308,29 @@ function simpletabledraw() {
        }
        data1=objcont[i].split(':');
        ck=rescolor(data1[2],data1[3]);
-        parent.mapout.document.write('<tr><td bgcolor="'+ck
-        +'"><b>'+k+'</b></td><td bgcolor="'+ck
-        +'">');
+        parent.mapout.document.write('<tr><td bgcolor="'+ck+'">');
+        url=data1[1];
+        ext=data1[2];
+        urlparts=url.split('.');
+        mime=urlparts[urlparts.length-1];
+        if (typeof(mime)=="undefined") { mime=''; }
+        if ((mime!='') && (ext!='true')) {
+           parent.mapout.document.write
+           ('<a target="preview" align="right" href="'+url+'.meta'+
+           '"><img src="'+iconpath+'meta.gif"></a><p>'+
+           '<a target="preview" align="right"href="'+url+
+           '"><img src="'+iconpath+mime+'.gif"></a><p>');
+        }        
+      parent.mapout.document.write('<b>'+k+'</b></td><td bgcolor="'+ck+'">');
       data2=obj[i].split('&');
       parent.mapout.document.write('<table>');
+
+      if (data1[3]=='start') { 
+         parent.mapout.document.writeln('<tr><td><b>Start</b></td></tr>');
+      }
+      if (data1[3]=='finish') { 
+         parent.mapout.document.writeln('<tr><td><b>Finish</b></td></tr>');
+      }
       parent.mapout.document.write(
        '<tr><td>Title:</td><td>'+data1[0]+'</td></tr>');
       parent.mapout.document.write(
@@ -1881,9 +2380,8 @@ function simpletabledraw() {
 }
 
 // ---------------------------------- Sort objects to straighten graph or table
-
 function sortobjs() {
-   message("Sorting Resources");
+   message("Sorting Resources: "+funny);
    var k;
    var ij;
    var dol;
@@ -1901,7 +2399,9 @@ function sortobjs() {
    }
    if (objsort.length==0) { return ''; }
    for (k=1;k<objlinks.length;k++) {
-     if (objlinks[k]!='') {
+     wheelswitch();
+     message("Sorting Resources: "+funny);
+     if ((typeof(objlinks[k])!="undefined") && (objlinks[k]!='')) {
       sortthis=1;
       data1=objlinks[k].split(':');
       kj=-1;
@@ -1910,36 +2410,41 @@ function sortobjs() {
             kj=j;
          }
       }
-      objsort[kj]+=':'+data1[1];
+      if (kj!=-1) { objsort[kj]+=':'+data1[1]; }
      }
    }
    if (sortthis!=0) {
     for (k=0;k<objsort.length;k++) {
+      wheelswitch();
+      message("Sorting Resources: "+funny);
       for (j=0;j<objsort.length;j++) {
         if (k!=j) {
           data1=objsort[k].split(':');
           data2=objsort[j].split(':');
           dol=data1.length;
           dtl=data2.length;
-          for (kj=1;kj<dol;kj++) {
+          if (dol+dtl<200) {
+           for (kj=1;kj<dol;kj++) {
              if (data1[kj]==data2[0]) {
                 for (ij=1;ij<dtl;ij++) {
                    data1[data1.length]=data2[ij];
                 }
              }
-          }
-          for (kj=1;kj<dtl;kj++) {
+           }
+           for (kj=1;kj<dtl;kj++) {
              if (data2[kj]==data1[0]) {
                  for (ij=1;ij<dol;ij++) {
-                   data2[data2.length]=data1[ij];
-                }
-            }
+                    data2[data2.length]=data1[ij];
+                 }
+             }
+           }
+           objsort[k]=data1.join(':');
+           objsort[j]=data2.join(':');
           }
-          objsort[k]=data1.join(':');
-          objsort[j]=data2.join(':');
          }
       } 
    }
+   message("Sorting Resources: finishing up.");
    return objsort.sort(rescompare).join('&');
   } else {
    return objsort.join('&');
@@ -1947,12 +2452,10 @@ function sortobjs() {
 }
 
 // ----------------------------------------------------------- Straighten graph
-
 function graphopt() {
   var k;
   var kj;
   var ij;
-
   var objsorted=new Array();
   condense(); 
   graphreset();
@@ -1971,11 +2474,11 @@ function graphopt() {
          thiscolmax++;
       } else {
          rowcont[rowcont.length]=thisnewobj;
-         if (thiscolmax>allcolmax) { allcolmax=thiscolmax; }
          thiscolmax=1;
       }
       kj=rowcont.length-1;
-      obj[thisnewobj]='b&'+kj+'&'+thiscolmax+':0:0:0';   
+      obj[thisnewobj]='b&'+kj+'&'+thiscolmax+':0:0:0';
+      if (thiscolmax>allcolmax) { allcolmax=thiscolmax; }
    }
    for (k=0;k<obj.length;k++) {
        if (!obj[k]) { obj[k]=''; }
@@ -1985,49 +2488,59 @@ 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
-
 function condense() {
    message("Condensing");
    var j;
    for (j=0;j<=maxrow;j++) {
-     if (rowcont[j]!='') {
+     if ((rowcont[j]!='') && (typeof(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]!='') && (typeof(rowcont[j])!="undefined")) { 
+               rowcont[j]+=':'; 
+            }
             rowcont[j]+=data1[k];
          }
       }
      }
    }
-   lastempty=-2;
 }
 
 // ---------------------------------------------------- Load from hidden fields
-
 function load() {
    message("Loading");
+   schedule('load');
+}
+
+function finishload() {
    var k;
    for (k=0;k<objcont.length;k++) { objcont[k]=''; }
    objcont.length=0;
@@ -2040,34 +2553,76 @@ function load() {
    lastinfo='';
    graphreset();
    var inputstr=parent.server.document.forms.storage.output.value;
-   if (inputstr!='') {
+   if ((inputstr!='') && (typeof(inputstr)!="undefined")) {
    data1=inputstr.split('<&>');
    var k;
    for (k=0;k<data1.length;k++) {
-       data2=data1[k].split('<:>');
+       data2=data1[k].split('&colon;').join('&#58;').split('<:>');
        if (data2[0]=='graphdef') { graphdef=data2[1]; }
        if (data2[0]=='maxcol') { maxcol=1*data2[1]; }
        if (data2[0]=='maxrow') { maxrow=1*data2[1]; }
        if (data2[0]=='obj') { obj[data2[1]]=data2[2]; }
        if (data2[0]=='objcont') { objcont[data2[1]]=data2[2]; }
        if (data2[0]=='objlinks') { objlinks[data2[1]]=data2[2]; }
+       if (data2[0]=='objparms') {
+          if (typeof(objparms[data2[1]])=="undefined") {
+             objparms[data2[1]]=data2[2];
+          } else {
+             objparms[data2[1]]+=':'+data2[2];
+          }
+       }
        if (data2[0]=='rowcont') { rowcont[data2[1]]=data2[2]; }
        if (data2[0]=='row') { row[data2[1]]=1*data2[2]; }
        if (data2[0]=='col') { col[data2[1]]=1*data2[2]; }
+       if (data2[0]=='mode') { mode=data2[1]; }
        if (data2[0]=='tablemode') { tablemode=1*data2[1]; }
        if (data2[0]=='zscale') { zscale=1*data2[1]; }
    }
   }
+  if (graphdef=='yes') {
+     for (k=1;k<=maxrow;k++) {
+        if (typeof(rowcont[k])=="undefined") { rowcont[k]=''; }
+     }
+  } else {
+   var hasstart=0;
+   var hasfinish=0;
+   for (k=0;k<objcont.length;k++) {
+       if (typeof(objcont[k])!="undefined") {
+          var objfunctype=(objcont[k].split(':'))[3];
+          if (objfunctype=='start') { hasstart=1; }
+          if (objfunctype=='finish') { hasfinish=1; }
+       }       
+   }
+   if (!hasstart) {
+      if ((typeof(objcont[1])=="undefined") || (objcont[1]=='')) {
+         objcont[1]='Start::false:start:res';
+      }
+   } 
+   if (!hasfinish) {
+      if ((typeof(objcont[2])=="undefined") || (objcont[2]=='')) {
+         objcont[2]='Finish::false:finish:res';
+      }
+   }
+  }
 }
 
-// -------------------------------------------------------------- Undo function
+// -------------------------------------------------------------- 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() {
    if (undopointer>1) {
       undopointer--;
       parent.server.document.forms.storage.output.value
        =undostack[undopointer];
-      load();
+      finishload();
       undopointer--;
       draw();
       stored=0;
@@ -2077,13 +2632,12 @@ function undo() {
 }
 
 // -------------------------------------------------------------- Redo function
-
 function redo() {
    if (undopointer<undostack.length-1) {
       undopointer++;
       parent.server.document.forms.storage.output.value
        =undostack[undopointer];
-      load();
+      finishload();
       undopointer--;
       draw();
       stored=0;
@@ -2093,7 +2647,6 @@ function redo() {
 }
  
 // ------------------------------------------------------------ Revert function
-
 function revert() {
    if (confirm("Revert to beginning of edit session?")) {
       undopointer=2;
@@ -2101,16 +2654,92 @@ function revert() {
    }
 }
 
-// -------------------------------------------------------------- Store changes
+// ---------------------------------------------------------------- Wheelswitch
+function wheelswitch() {
+   if (funny=='|') { 
+      funny='/'; 
+   } else {
+      if (funny=='/') {
+         funny='-';
+      } else {
+         if (funny=='-') { 
+            funny='\\'; 
+         } else {
+            if (funny=='\\') { funny='|'; }
+         }
+      }
+   } 
+}
+
+// --------------------------------------------- Checks if server frame defined
+function checkdef() {
+   if (parent.flag==1) {
+     srvloaded();
+   }
+   if ((finishdone==0) && (tim==0)) { setTimeout('checkdef()',100); }
+}
+
+// ---------------------------------------------------------- The wait function
+function wait() {
+   if ((finishdone==1) || (tim==1)) {
+      if (tim==0) {
+         clearTimeout(canceltim);
+         if (reqaction=='save') { finishsave(); }
+         if (reqaction=='load') { finishload(); draw(); }
+      } else {
+         alert("Server Communication Timed Out.");
+      }
+   } else {
+      wheelswitch();
+      message('Waiting for server reply: '+funny);
+      setTimeout('wait();',100);
+   }
+}
+
+// ---------------------------------------------------------- Schedule function
+function schedule(action) {
+   reqaction=action;
+   tim=0;
+   finishdone=0;
+   canceltim=setTimeout('tim=1;',20000);
+   checkdef();
+   wait();
+}
+
+// ----------------------------------------------------- launch indexer browser
+function groupsearch() {
+   srchcheck('groupsearch');
+}
+
+function groupimport() {
+   idxcheck('groupimport');
+}
+
+function groupcopy() {
+   copydxcheck('groupsec');
+}
 
+// -------------------------------------------------------------- Store changes
 function storechange() {
+   var k;
+   parent.flag=0;
    parent.server.document.forms.storage.submit();
+   schedule('save');
+}
+
+function finishsave() {
+   finishload();
+   draw();
    stored=1;
-   alert("Stored changes");   
 }
 
-// ---------------------------------------------------------------- Toggle Mode
+// --------------------------------------- Gets called when submission finished
+function srvloaded() {
+   finishdone=1;
+   message("Server replied.");
+}
 
+// ---------------------------------------------------------------- Toggle Mode
 function togglemode() {
    if (tablemode==0) { 
       tablemode=1; 
@@ -2127,45 +2756,55 @@ function togglemode() {
 }
 
 // -------------------------------------------------------- Main program onLoad
-
 function main() {
-
    if (mainrun==0) {
+      infopen();
+      infoclear();
       load();
-      draw();
       stored=1;
       mainrun=1;
    }
-
 }
 
-// ------------------------------------------------------------- Save on leave?
-
+// ---------------------------------------------------------- Close the window?
 function leave() {
-   if (stored==0) {
-      if (confirm('Store changes?')) {
-         storechange();   
-      }
+   if (!inf.closed) {
+      inf.close();
+   }
+   if (srch && !srch.closed) {
+      srchclose();
+   }
+   if (idx && !idx.closed) {
+      idxclose();
+   }
+   if (copydx && !copydx.closed) {
+      copydxclose();
    }
 }
 
 </script>
 </head>
 
-<body bgcolor="#FFFFFF" onLoad="main();" onUnload="leave();">
-<a href="javascript:togglemode();">Toggle Display Mode</a>
-<a href="javascript:if (zscale>1) { zscale--; draw();}">Zoom Out</a>
-<a href="javascript:if (zscale<3) { zscale++; draw();}">Zoom In</a>
-<a href="javascript:condense();draw();">Condense</a>
-<a href="javascript:graphopt();draw();">Straighten</a>
-<a href="javascript:revert();">Revert</a>
-<a href="javascript:undo();">Undo</a>
-<a href="javascript:redo();">Redo</a>
-<a href="javascript:storechange();">Store</a>
+<body bgcolor="#FFFFFF" onUnload="leave();">
+<table border=0><tr><td bgcolor="#aaaaaa">
+<table border=0><tr>
+<td bgcolor="#ffffcc"><a href="javascript:togglemode();"><b>T</b>oggle display</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><b>Z</b>oom out</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:if (zscale<3) { zscale++; draw();}"><b>Z</b>oom in</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:condense();draw();"><b>C</b>ondense</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:graphopt();draw();"><b>S</b>traighten</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:revert();"><b>R</b>evert</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:undo();"><b>U</b>ndo</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:redo();"><b>R</b>edo</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:groupsearch();"><b>G</b>roup search</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:groupimport();"><b>G</b>roup import</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:groupcopy();"><b>G</b>roup copy</a>&nbsp;</td>
+<td bgcolor="#ffffcc"><a href="javascript:graphdef='no';save();storechange();"><b>S</b>ave map</a>&nbsp;</td>
+<td bgcolor="#ccffcc"><a href="javascript:storechange();"><b>S</b>ave map and layout</a>&nbsp;</td>
+</tr></table>
+</td></tr></table>
+<script>
+main();
+</script>
 </body>
 </html>
-
-
-
-
-