--- rat/client/Attic/code.html	2000/02/22 21:14:59	1.1
+++ rat/client/Attic/code.html	2001/05/28 19:22:45	1.31
@@ -6,10 +6,14 @@ Resource Assembly Tool
 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 Gerd Kortemeyer with Scott Harrison
+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,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
 -->
 
 
@@ -20,6 +24,7 @@ var row=new Array();
 var maxrow=-1;
 var col=new Array();
 var maxcol=-1;
+
 var colmap=new Array();
 var colmap2=new Array();
 var colmap3=new Array();
@@ -28,6 +33,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();
@@ -37,12 +43,30 @@ var rrow=new Array();
 var cw=new Array();
 var rh=new Array();
 
+var undostack=new Array();
+var undopointer=0;
+var stored=0;
 var editmode=0;
 var notclear=0;
 var linkmode=0;
 var lastinfo='';
 var graphdef='no';
+var mode='';
 var mainrun=0;
+var tablemode=0;
+var mostrecent=0;
+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);
@@ -50,11 +74,22 @@ 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
+
+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++) {
@@ -69,7 +104,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') {
@@ -110,7 +145,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if (newobj!='') {
+             if ((newobj!='') && (newobj!=undefined)) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -136,7 +171,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if (newobj!='') {
+             if ((newobj!='') && (newobj!=undefined)) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -158,6 +193,7 @@ function insertrow(j,ex1,ex2) {
 
 function newcondition(content,type) {
    var ko;
+   stored=0;
    ko=obj.length;
    obj[ko]='c';
    objcont[ko]=content+':'+type+':cond';
@@ -166,8 +202,10 @@ function newcondition(content,type) {
 
 // ---------------------------------------------- Creates a new resource object
 
-function newresource(rid,cid,text,url) {
-   objcont[addobj(rid,'b&'+rid+'&'+cid+':0:0:0')]=text+':'+url+':res';
+function newresource(rid,cid,text,url,ext,type) {
+   stored=0;
+   objcont[addobj(rid,'b&'+rid+'&'+cid+':0:0:0')]=
+    text+':'+url+':'+ext+':'+type+':res';
 }
 
 
@@ -175,6 +213,7 @@ function newresource(rid,cid,text,url) {
 
 function insertcond(obj1,portnr,cond) {
    var k;
+   stored=0;
    data1=obj[obj1].split('&');
    for (k=2;k<data1.length;k++) {
        data2=data1[k].split(':');
@@ -191,10 +230,12 @@ function insertcond(obj1,portnr,cond) {
 
 function insertcol(j) {
    var kj;
+   stored=0;
    for (kj=0;kj<=maxcol;kj++) {
       if ( col[kj]>j ) { col[kj]++; } 
    }
    maxcol++;
+   expense++; expense++;
    col[maxcol]=j+1;
 }
      
@@ -227,7 +268,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('&');
@@ -318,8 +359,8 @@ function comingthru (jid,kid,dkid) {
 
 function insertport (obj1,d,inout,linkobj) {
 
-
    var k; var port; var revport;
+   stored=0;
    data1=obj[obj1].split('&');
    middle=maprow(data1[1],obj1,0);
    if (inout==1) {
@@ -395,7 +436,11 @@ function insertport (obj1,d,inout,linkob
 // returns object number of generated object
  
 function addobj(kjid,objs) {
-   if (rowcont[kjid]!='') { rowcont[kjid]+=':'; }
+   stored=0;
+   expense++;
+   if ((rowcont[kjid]!='') && (rowcont[kjid]!=undefined)) { 
+      rowcont[kjid]+=':'; 
+   }
    rowcont[kjid]+=obj.length;
    obj[obj.length]=objs;
    return obj.length-1;
@@ -443,29 +488,35 @@ function horizontal(hrid,hoffs,hfcol,htc
 
 function delobj(obj1) {
    var k;
+   stored=0;
    for (k=0;k<rowcont.length;k++) {
       data4=rowcont[k].split(':');
       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
 
 function cleanup () {
+   message("Garbage Collection");
    var j,kj,i;
-   insertrow(maxrow);
-   insertcol(maxcol);
-   addobj(maxrow,'e&'+maxcol);
+   disrows=0;
+   discols=0;
+   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]!='') && (rowcont[kj]!=undefined)) {
        data2=rowcont[kj].split(':');
        for (j=0;j<data2.length;j++) {
          if (obj[data2[j]].substring(0,2)=='e&') {
@@ -484,6 +535,7 @@ function cleanup () {
               }
               if (obj[colmap[j]].substring(0,2)=='b&') { 
                  data1[j]=2;
+                 if (colmap[maxcol]==0) { emptyspots++; }
                  rowtype[kj]=2;
               }  
            }
@@ -491,25 +543,45 @@ function cleanup () {
      }
    }
    for (j=0;j<=maxcol;j++) { 
-      coltype[j]=data1[col[j]]; 
+      coltype[j]=data1[col[j]];
+      if (coltype[j]!=0) { discols+=1; } 
+   }
+   for (j=0;j<=maxrow;j++) {
+       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;
    data3=obj[obj1].split('&');
    obj[obj1]=data3[0]+'&'+data3[1];
    for (k=2;k<data3.length;k++) {
       data4=data3[k].split(':');
-      if (data4[0]==colid) { data4[3]=0; }
+      if (data4[0]==colid) { 
+         data4[3]=0; 
+         objlinks[data4[2]]=(objlinks[data4[2]].split(':'))[0]+':'+
+                            (objlinks[data4[2]].split(':'))[1]+':0';
+      }
       if ((data4[1]!=0) || (data4[2]!=0) || (data3.length==3)) {
          obj[obj1]+='&'+data4[0]+':'+data4[1]+':'+data4[2]+':'+data4[3];
       }
    }
 }
-
+    
 // ----------------------------------------- Creates a new condition in a block
 
 function crecond(obj1,colid,condtext,condtype) {
@@ -536,7 +608,8 @@ function crecond(obj1,colid,condtext,con
 
 function dellink (linknr) {
   var k; var obj1; var obj2;
-  if (objlinks[linknr]!='') {
+  stored=0;
+  if ((objlinks[linknr]!='') && (objlinks[linknr]!=undefined)) {
    data3=objlinks[linknr].split(':');
    obj1=data3[0];
    obj2=data3[1];
@@ -559,7 +632,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)) {
@@ -575,21 +648,65 @@ function dellink (linknr) {
 // 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);
    }
@@ -694,6 +811,8 @@ function delres (obj1,recon) {
 
    var k; var k1; var k2; var found;
 
+   stored=0;
+
    data1=obj[obj1].split('&');
    for (k=2;k<data1.length;k++) {
       data2=data1[k].split(':');
@@ -715,15 +834,19 @@ function delres (obj1,recon) {
    for (k=0;k<inwithlink.length;k++)  { dellink(inwithlink[k]); }
    for (k=0;k<outwithlink.length;k++) { dellink(outwithlink[k]); }
    delobj(obj1);
+   objcont[obj1]='';
    if (recon==1) {
-
+     message("Reconnecting");
       for (k=0;k<inwithlink.length;k++) {
          if (infromobj[k]!=obj1) {
             found=0;
             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]+')';
                    }
@@ -749,7 +872,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]+')';
                   }
@@ -771,15 +897,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);
           }
       }
@@ -788,12 +921,13 @@ function delres (obj1,recon) {
 
 // -------------------------------------------------------------- Draw an entry
 
-function drawcell (rtype,ctype,what,cm,obj1,mode2,ej,ek,ne) {
+function drawcell (rtype,ctype,what,cm,obj1,ej,ek,ne) {
  var bgcolor;
+ 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
@@ -801,17 +935,32 @@ function drawcell (rtype,ctype,what,cm,o
      } 
      if (what=='r:') {
         parent.mapout.document.write
-         ('<img border=0 src="resource.gif">');
+         ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
+          +' src="resource.gif">');
      } else {
         if (what=='c:') {
            parent.mapout.document.write
-            ('<img border=0 src="condition.gif">');          
+            ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
+             +' src="condition.gif">');          
         } else {
-           parent.mapout.document.write
-            ('<img border=0 src="'+rtype+'.'+ctype+'.'+what+'.gif">');
+           if (what=='rs:') {
+              parent.mapout.document.write
+               ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
+               +' src="start.gif">');
+           } else {
+             if (what=='rf:') {
+                parent.mapout.document.write
+                ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
+                +' src="finish.gif">');
+             } else {
+                parent.mapout.document.write
+                ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
+                +' src="'+rtype+'.'+ctype+'.'+what+'.gif">');
+             }
+           }
         }
      }
-     if (obj1!='') {
+     if ((obj1!='') && (obj1!=undefined)) {
        parent.mapout.document.write('</a>');
      }
    } else {
@@ -825,16 +974,37 @@ function drawcell (rtype,ctype,what,cm,o
       parent.mapout.document.write
          ('onMouseOver="parent.code.infoclear();">');
       parent.mapout.document.write
-         ('<img border=0 src="'+rtype+'.'+ctype+'.empty.gif"></a>');
+         (
+         '<img border=0 width='+cw[ctype]+' height='+rh[rtype]
+        +' src="'+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=='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'; }
+   return '#EEEEAA';
+}
+
 // ----------------------------------------------------------------- Draw a row
 
-function drawrow (jid,mode2) {
-var j; var jk; var k; var rc; var gc; var bc; var ck;
+function drawrow (jid) {
+var j; var jk; var k;  var ck; var rtype;
 var objd1=new Array();
 var objd2=new Array();
 var notempty=new Array();
@@ -842,19 +1012,19 @@ var condtype;
 if (rowtype[jid]!=0) {
  for (j=0;j<=maxcol;j++) { 
     colmap[j]=''; colmap2[j]=''; colmap3[j]=''; colmap4[j]=''; 
-    colmap5[j]='#FFFFFF'; colmap6[j]='#FFFFFF';
+    colmap5[j]='#CCCCCC'; colmap6[j]='#CCCCCC';
     objd1[j]=''; objd2[j]=''; notempty[j]=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('&');
       if (data3[0]=='b') {
-         rc=(data2[jk]+'F').substr(0,2);
-         gc=('9'+data2[jk]).substr(0,2);
-         bc=(data2[jk]+data2[jk]).substr(0,2);
-         ck='#'+rc+gc+bc;
+         data1=objcont[data2[jk]].split(':');
+         rtype=data1[3];
+         ck=rescolor(data1[2],data1[3]);
          left=maxcol;
          leftin=maxcol;
          leftout=maxcol;
@@ -878,9 +1048,7 @@ if (rowtype[jid]!=0) {
                if (data1[3]!=0) {
                   colmap3[thiscol]='c:';
                   condtype=(objcont[data1[3]].split(':'))[1];
-                  colmap6[thiscol]='#FFFFAA';
-                  if (condtype=='stop')  { colmap6[thiscol]='#FFAAAA'; }
-                  if (condtype=='force') { colmap6[thiscol]='#AAAAFF'; }
+                  colmap6[thiscol]=condcolor(condtype);
                   objd2[thiscol]='c&'
                        +data1[0]+'&'+data2[jk]+'&'+data1[2]+'&'+data1[3];
                } else {
@@ -893,12 +1061,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]!='') && (colmap4[k]!=undefined)) {
                   colmap[k]='rlt'; 
                } else {
                   colmap[k]='rl';
@@ -908,7 +1084,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';
@@ -928,7 +1104,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';
@@ -937,7 +1113,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';
@@ -947,7 +1123,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';
@@ -972,7 +1148,10 @@ if (rowtype[jid]!=0) {
          } else {
             colmap[left]='rd'; colmap2[left]='utd'; colmap3[left]='utd';   
          }
+         notempty[left]=1;
+         notempty[right]=1;
          for (k=left+1;k<right;k++) { 
+            notempty[k]=1;
             if (colmap[k]=='') {
                colmap[k]=thisarrow; 
                objd1[k]=data2[jk];
@@ -993,7 +1172,7 @@ if (rowtype[jid]!=0) {
          left=col[data3[1]];
          if (colmap[left]=='') {
             if (data3[3]==1) { colmap[left]='dt'; } else { colmap[left]='td'; }
-            objd1[left]=data2[jk];
+            objd1[left]=data2[jk]+'&'+jid;
             objd2[left]=objd1[left];
          } else {
             colmap[left]='tdrl';
@@ -1004,19 +1183,21 @@ if (rowtype[jid]!=0) {
    }
    rtype=rowtype[jid];
    for (k=0;k<=maxcol;k++) {
-    drawcell(rtype,coltype[rcol[k]],colmap[k],colmap5[k],objd1[k],mode2,jid,k,
+    drawcell(rtype,coltype[rcol[k]],colmap[k],colmap5[k],objd1[k],jid,k,
              notempty[k]);
    }
    if (rowtype[jid]==2) {
-      parent.mapout.document.writeln('</tr><tr>');
+      parent.mapout.document.writeln('</tr>');
+      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],mode2,jid,k,
-                1);
+       drawcell(1,coltype[rcol[k]],colmap2[k],colmap5[k],objd2[k],jid,k,
+                notempty[k]);
       }
-      parent.mapout.document.writeln('</tr><tr>');
+      parent.mapout.document.writeln('</tr>');
+      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],mode2,jid,k,
-                1);
+       drawcell(1,coltype[rcol[k]],colmap3[k],colmap6[k],objd2[k],jid,k,
+                notempty[k]);
       }
    }     
  }
@@ -1024,48 +1205,53 @@ if (rowtype[jid]!=0) {
 }
 }
 
+// -------------------------------------------------------------- Print message
+
+function message(txt) {
+   parent.window.status=txt;
+}
+
 // ------------------------------------------------------------- Draw the table
          
-function draw (mode,mode2) {
+function draw () {
    var k; var kr;
 
-
    cleanup();
+   save();
 
-
-   if (mode=='debug') {  
-      var options="scrollbars=1,resizable=1,menubar=0,width=500,height=300";
-      deb=open("","debout",options);
-      deb.document.clear();
-      deb.document.writeln('<html><body bgcolor="#FFFFFF">');
-
-for (k=0;k<obj.length;k++) { deb.document.writeln(k+' - '+obj[k]+'<br>'); }
-      deb.document.writeln('<hr>Cols: '+col+'<hr>Rows: '+row+'<hr>');
-      deb.document.writeln(objcont+'<hr>'+objlinks+'<hr>');
-      for (kr=0;kr<=maxrow;kr++) {
-         kid=findrow(kr);
-         maprow(kid,-1,0);
-         deb.document.writeln(kid+' : '+colmap+' '+rowcont[kid]+"<br>");
-      }
-      deb.document.writeln('<hr>Rowtype: '+rowtype+'<hr>Coltype: '+coltype);
-      deb.document.writeln('<hr>maxcol: '+maxcol+'<hr>maxrow: '+maxrow);
-      deb.document.writeln('</body></html>');
-      deb.document.close();
-   }
-   for (k=0;k<=maxrow;k++) { rrow[row[k]]=k; }
-   for (k=0;k<=maxcol;k++) { rcol[col[k]]=k; }
    rh[0]=0;
-   rh[1]=30;
-   rh[2]=60;
+   rh[1]=zscale*10;
+   rh[2]=zscale*20;
    cw[0]=0;
-   cw[1]=30;
-   cw[2]=60;
+   cw[1]=zscale*10;
+   cw[2]=zscale*20;
+
    parent.mapout.document.open('text/html','replace');
    parent.mapout.document.writeln('<html><body bgcolor="#FFFFFF">');
-   parent.mapout.document.writeln(
-      '<table cellpadding=0 cellspacing=0 border=0>');
-
-   for (kr=0;kr<=maxrow;kr++) { drawrow(rrow[kr],mode2); } 
+   
+   if (tablemode==0) {
+      if (graphdef=='no') { graphopt(); cleanup(); }
+      for (k=0;k<=maxrow;k++) { rrow[row[k]]=k; }
+      for (k=0;k<=maxcol;k++) { rcol[col[k]]=k; }
+      parent.mapout.document.writeln(
+       '<table cellpadding=0 cellspacing=0 border=0 rows='
+       +disrows+' cols='+discols+'>');
+      for (kr=0;kr<=maxrow;kr++) {
+        message("Generating Output Row "+kr); 
+        drawrow(rrow[kr]); 
+      }
+   } else {
+      message("Generating Table Output");
+      for (k=0;k<=maxrow;k++) { rrow[row[k]]=k; }
+      for (k=0;k<=maxcol;k++) { rcol[col[k]]=k; }
+
+      parent.mapout.document.writeln( '<table>');
+      if (tablemode==1) {
+         tabledraw();
+      } else {
+         simpletabledraw();
+      }
+   } 
 
    parent.mapout.document.writeln('</table>');
    parent.mapout.document.writeln('</body></html>');
@@ -1078,34 +1264,65 @@ for (k=0;k<obj.length;k++) { deb.documen
 
 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>'+
     '<img src="/adm/lonIcons/lonlogos.gif"></td>');
   if (linkmode!=0) {
+   if (tablemode==0) {
      inf.document.writeln(
       '<td><b>Link Mode</b><hr>Click on a resource to link it with<br><b>'+
       (objcont[linkmode].split(':'))[0]+
       '</b><br>click anywhere else to cancel.</td>');
+   } else {
+     inf.document.writeln(
+'<td><b>Link Mode</b><hr>Click on a resource number to link it with<br><b>'+
+     (objcont[linkmode].split(':'))[0]+'</b><br>'+
+'<a href="javascript:opener.linkmode=0;opener.notclear=0;opener.infoclear();">'
+   +'Cancel</a></td>');
+   }
+  } else {
+   if (tablemode==0) {
+      inf.document.writeln(
+        '<td><b>Click to Edit</b><hr>Click in a light gray area<br>'
+       +'to insert resources, columns and rows</td>'
+      );
+   }
   }
   inf.document.writeln('</tr></table></body></html>');
   inf.document.close();
-  parent.focus();
+  if (srchflag==1) {
+    srchclose();
+  }
+  parent.top.focus();
   parent.mapout.focus();
   notclear=1;
   lastinfo='';
  }
 }
 
+// ------------------------------------------------------------ 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) {
  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">'+
@@ -1132,9 +1349,25 @@ function info(infostr) {
                  '</b><br>to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
   } else {
      if (data1[0]=='r') {
-        inf.document.writeln('<b>Resource</b><hr>');
         data2=objcont[data1[1]].split(':');
-        inf.document.writeln('<b>'+data2[0]+'</b><br>');
+        inf.document.write('<b>');
+        if (data2[2]=='true') { inf.document.write('External '); }
+        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)');
+        }
+        if (data2[3]=='optional') {
+           inf.document.write(' (Optional)');
+        }
+        inf.document.writeln('</b><hr><b>'+data2[0]+'</b><br>');
         inf.document.writeln((data2[1].split('/')).join(' / '));
      } else {
         inf.document.writeln('<b>Link</b><hr>');
@@ -1155,7 +1388,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;
@@ -1179,14 +1412,110 @@ function escape(instring) {
    return outstring;
 }
 
+// -------------------------------------------------- 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];
+   data3=objlinks[lnr].split(':');
+   fobj=data3[0];
+   tobj=data3[1];
+   cobj=data3[2];
+   if (data2[0]=='v') {
+      rid=data1[1];
+      cid=data2[1];
+   } else {
+      rid=data2[1];
+      cid=(data2[2].split(':'))[0];
+   }
+   dellink(lnr);
+   newresource(rid,cid,'','','false','normal');
+   nobj=obj.length-1;
+   save();
+   joinres(fobj,nobj,cobj);
+   save();
+   joinres(nobj,tobj,0);
+}
+
+// -------------------------------------------- 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 search window
+
+function srchclear() {
+  srch.document.clear();
+}
+
+// ------------------------------------------------------- Closes search window
+
+function srchclose() {
+  if (srch && !srch.closed) {
+    srchflag=0;
+    srch.close();
+  }
+}
+
+// --------------------------------------------------------- Open search window
+
+function srchopen() {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   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() {
+   if (!srch || srch.closed) {
+      srchopen();
+   }
+   srch.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">'+
@@ -1201,7 +1530,7 @@ function handler(infostr) {
         data2=objcont[data1[4]].split(':');
      }
      inf.document.writeln(
-         '<form name=condinfo><textarea name=c cols=40 rows=4>'
+         '<form name=condinfo><textarea name=c cols=30 rows=3>'
          +data2[0]+'</textarea><br><input type=radio name=s value=normal '+
     'onClick="self.document.forms.condinfo.elements.h.value='+"'normal'"+'"');
      if (data2[1]=='normal') { inf.document.write(' checked'); }
@@ -1227,16 +1556,26 @@ function handler(infostr) {
      }
      inf.document.writeln(
       'opener.infoclear();opener.editmode=0;opener.draw('
-      +"'debug','edit'"+');">Change to above values</a>&nbsp;&nbsp;'
-      +' <a href="javascript:self.document.forms.condinfo.reset()">Reset</a>'
-      +'<input type=hidden name=h value='+data2[1]
-      +'></form>');
+      +');"><b>Change to above values</b></a>&nbsp;&nbsp;'
+    +' <a href="javascript:self.document.forms.condinfo.reset()">Reset</a><br>'
+      +'<input type=hidden name=h value='+data2[1]+'>');
 
         inf.document.writeln(
            '<a href="javascript:opener.notclear=0;opener.infoclear();'
    +'opener.delcond('+data1[2]+','+data1[1]+');opener.editmode=0;opener.draw('
-         +"'debug','edit'"+');">Delete Condition</a>');
-  } else {
+         +');">Delete Condition</a><br>');
+          inf.document.writeln(
+           '<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) {
         joinres(linkmode,data1[1],0);
@@ -1244,43 +1583,82 @@ function handler(infostr) {
         notclear=0;
         linkmode=0;
         inf.document.writeln('<b>Linked Resources</b>');
-        draw('debug','edit');
+        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>'
-        +'<input type=text name=t size=40 value="'
-        +data2[0]+'"></td></tr><tr><td>URL:</td><td>'
-        +'<input type=text name=u size=40 value="'+data2[1]+'"></td></tr>'
+         '<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 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.writeln('></td></tr>'
-        +'<tr><td colspan=2><a href="javascript:opener.editmode=0;'
+        inf.document.write('></td><td align=right><a href="javascript:opener.srchcheck()">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'); }
+     inf.document.write(
+      '> Regular&nbsp;&nbsp;<input type=radio name=y value=mandatory '+
+ 'onClick="self.document.forms.resinfo.elements.h.value='+"'mandatory'"+'"');
+     if (data2[3]=='mandatory') { inf.document.write(' checked'); }
+     inf.document.write(
+      '> 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>');
+    } else {
+     inf.document.write(
+        '<tr><td><input type=hidden name=e value=false>'
+               +'<input type=hidden name=u value=""></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+'+"':res'"
-        +';opener.infoclear();">'
-        +'Change to above values</a>&nbsp;&nbsp;'
+        +'+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;'
         +' <a href="javascript:self.document.forms.resinfo.reset()">Reset</a>'
-        +'</td></tr></table></form>');
+        +'</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('
-         +"'debug','edit'"+');">Delete Resource (cutting links)</a>');
+         +');">Delete Resource (cutting links)</a>');
         inf.document.writeln(
           '<br><a href="javascript:opener.notclear=0;opener.infoclear();'
          +'opener.delres('+data1[1]+',1);opener.editmode=0;opener.draw('
-         +"'debug','edit'"+');">Delete Resource (preserving links)</a>');
+         +');">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;
-        inf.document.writeln('<b>Link</b><hr>');
+        inf.document.writeln('<b>Link</b><hr><form>');
         data2=obj[data1[0]].split('&');
         k=data2[data2.length-2];
         data3=objlinks[k].split(':');
@@ -1288,13 +1666,17 @@ function handler(infostr) {
               '</b><br>to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
         inf.document.writeln('<br><a href="javascript:opener.dellink('+
      k+');opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">Delete Link</a>');
+                              +');">Delete Link</a>');
+        inf.document.writeln('<br><a href="javascript:'+
+         "opener.insertreslink('"+infostr+"');"+
+         'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
+                              +');">Insert Resource Into Link</a>');
      }
   }
   inf.document.writeln(
      '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
      +'opener.infoclear();">Done</a>');
-  inf.document.writeln('</td></tr></table></body></html>');
+  inf.document.writeln('</form></td></tr></table></body></html>');
   inf.document.close();
   inf.focus();
 }
@@ -1309,8 +1691,7 @@ 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">'+
@@ -1318,27 +1699,48 @@ function empty(rid,k) {
    '<b>Empty Field</b><hr>');
 
         inf.document.writeln('<br><a href="javascript:opener.newresource('+
-          rid+','+cid+",'','');"+
+          rid+','+cid+",'','','false','normal');"+
+         'opener.mostrecent=opener.obj.length-1;'+
+         'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
+          +');">Insert resource</a>');
+
+  if ((mostrecent!=0) && (objcont[mostrecent]!='') && 
+                         (objcont[mostrecent]!=undefined)) {
+
+        inf.document.writeln('<br><a href="javascript:opener.newresource('+
+          rid+','+cid+",'','','false','normal');"+
+         'opener.mostrecent=opener.obj.length-1;'+
+        'opener.joinres('+mostrecent+',opener.obj.length-1,0);'+
   'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-          +"'debug','edit'"+');">Insert Resource</a>');
+          +');">Insert resource linked to from most recent one</a>');
+
+        inf.document.writeln('<br><a href="javascript:opener.newresource('+
+          rid+','+cid+",'','','false','normal');"+
+         'opener.mostrecent=opener.obj.length-1;'+
+        'opener.joinres(opener.obj.length-1,'+mostrecent+',0);'+
+  'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
+          +');">Insert resource linking to most recent one</a>');
+  }
+
+
   inf.document.writeln('<hr>Insert column:');
         inf.document.writeln('<a href="javascript:opener.insertcol('+
         lcol+');opener.addobj('+rid+",'e&'+opener.maxcol);"
        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">left</a>');
+                              +');">left</a>');
         inf.document.writeln('<a href="javascript:opener.insertcol('+
         k+');opener.addobj('+rid+",'e&'+opener.maxcol);"
        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">right</a> ');
+                              +');">right</a> ');
    inf.document.writeln('<br>Insert row:');
         inf.document.writeln('<a href="javascript:opener.insertrow('+
         trow+');opener.addobj(opener.maxrow'+",'e&"+cid+"');"
        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">below</a>');
+                              +');">below</a>');
         inf.document.writeln('<a href="javascript:opener.insertrow('+
         lrow+');opener.addobj(opener.maxrow'+",'e&"+cid+"');"
        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">above</a> ');
+                              +');">above</a> ');
 
 
   inf.document.writeln(
@@ -1352,67 +1754,85 @@ function empty(rid,k) {
 // ---------------------------------------------------- Save into hidden fields
 
 function save() {
-   var k;
-   self.document.forms.storage.output.value='graphdef<:>yes';
-   for (k=0;k<obj.length;k++) {
-         self.document.forms.storage.output.value+=
+  var k;
+  if (graphdef=='yes') {
+   parent.server.document.forms.storage.output.value='graphdef<:>yes';
+   for (k=1;k<obj.length;k++) {
+         parent.server.document.forms.storage.output.value+=
           '<&>obj<:>'+k+'<:>'+obj[k];
    }
    for (k=0;k<row.length;k++) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>row<:>'+k+'<:>'+row[k];
    }
    for (k=0;k<col.length;k++) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>col<:>'+k+'<:>'+col[k];
    }
    for (k=0;k<rowcont.length;k++) {
       if (rowcont[k]) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>rowcont<:>'+k+'<:>'+rowcont[k];
       }
    }
-   self.document.forms.storage.output.value+=
+   parent.server.document.forms.storage.output.value+=
       '<&>maxcol<:>'+maxcol; 
-   self.document.forms.storage.output.value+=
+   parent.server.document.forms.storage.output.value+=
       '<&>maxrow<:>'+maxrow;
-
+    parent.server.document.forms.storage.output.value+=
+      '<&>zscale<:>'+zscale;
+} else {
+   parent.server.document.forms.storage.output.value='graphdef<:>no';
+ }
+ parent.server.document.forms.storage.output.value+=
+   '<&>tablemode<:>'+tablemode;
+   
    for (k=0;k<objcont.length;k++) {
       if (objcont[k]) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>objcont<:>'+k+'<:>'+objcont[k];
       }
    }
    for (k=0;k<objlinks.length;k++) {
       if (objlinks[k]) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>objlinks<:>'+k+'<:>'+objlinks[k];
       }
    }
+   undopointer++;
+   undostack[undopointer]=
+    parent.server.document.forms.storage.output.value;
 }
 
 // ----------------------------------------------- Reset all layout information
 
 function graphreset() {
 
+   var k;
+
+   for (k=0;k<obj.length;k++) { obj[k]=''; }
    obj.length=0;
    obj[0]='';
-   obj[1]='e&1';
 
    rowcont.length=0;
    rowcont[0]='';
-   rowcont[1]='1';
+
    row.length=0;
    row[0]=0;
-   row[1]=1;
-   maxrow=1;
+   maxrow=0;
 
    col.length=0;
    colmap.length=0;
    maxcol=-1;
    insertcol(-1);
-   insertcol(0);
 
+   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';
+   }
    graphdef='no';
 
 }
@@ -1431,20 +1851,314 @@ function rescompare(a,b) {
       if (data2[k]==data1[0]) { rvalue++; }
    }
    if (rvalue==0) { rvalue=data2.length-data1.length; }
-
    return rvalue;
 }
 
-// ------------------------------------------- Sort objects to straighten graph
+// -------------------------------------------- Draw the table instead of graph
 
-function graphopt() {
+function tabledraw() {
+  var objsorted=new Array();
+  var robjs=new Array();
+  var iobjs=new Array();
+  var k;
+  var i;
+  var j;
+  var nr;
+  var ck;
+  var cck;
+  var condid;
+  var sortstr=sortobjs();
+ insrestab(1,-1,-1,'');
+ if ((sortstr!='') && (sortstr!=undefined)) {
+  objsorted=sortstr.split('&');
+  for (k=0;k<objsorted.length;k++) {
+     i=(objsorted[k].split(':'))[0];
+     iobjs[k]=i;
+     robjs[i]=k;
+  }
+  for (k=0;k<iobjs.length;k++) {
+       i=iobjs[k];
+       if (k<objsorted.length-1) {
+          nr=iobjs[k+1];
+       } else {
+          nr=-1;
+       }
+       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.code.joinres(parent.code.linkmode,'+i+',0);'
+        +'parent.code.linkmode=0;parent.code.editmode=0;'
+        +'parent.code.notclear=0;parent.code.infoclear();'
+        +'parent.code.draw(); }">'+k+'</a></b></td><td bgcolor="'+ck
+        +'"><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]+'"><input type=hidden name=h value='+data1[3]
+            +'></td></tr>');
+    if ((data1[3]!='start') && (data1[3]!='finish')) {
+      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=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'); }
+     parent.mapout.document.write(
+      '> Regular&nbsp;&nbsp;<input type=radio name=y value=mandatory '+
+ 'onClick="parent.mapout.document.forms.r'+i+'.elements.h.value='+
+     "'mandatory'"+'"');
+     if (data1[3]=='mandatory') { parent.mapout.document.write(' checked'); }
+     parent.mapout.document.write(
+      '> Mandatory&nbsp;&nbsp;<input type=radio name=y value=optional '+
+ '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>');
+    } else {
+     parent.mapout.document.write(
+       '<tr><td><input type=hidden name=u value="">'
+              +'<input type=hidden name=e value=false></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
+        +'.elements.u.value)+'+"':'"
+        +'+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;'
+        +' <a href="javascript:parent.mapout.document.forms.r'+i
+        +'.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>');
+    }
+    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>');
+    }
+        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(':');
+           data3=objlinks[data4[2]].split(':');
+           if (data3.length>1) {
+              if (data3[1]==nr) {
+                 cck='#AAAAAA';
+                 if (data3[2]!=0) { 
+                   cck=condcolor((objcont[data3[2]].split(':'))[1]);
+                   condid=data3[2];
+                 } else {
+                   condid='-';
+                 }                 
+                 parent.mapout.document.writeln(
+                  '<td bgcolor='+cck+'>Next<br>');
+                 parent.mapout.document.writeln(
+                  '<a href="javascript:parent.code.handler('+
+                  "'c&"+data4[0]+'&'+i+'&'+data4[2]+'&'+condid+"');"
+                  +'">Edit</a>');
+                 parent.mapout.document.writeln('</td>');
+              }
+           }
+       }
+       for (j=2;j<data2.length;j++) {
+           data4=data2[j].split(':');
+           data3=objlinks[data4[2]].split(':');
+           if (data3.length>1) {
+              if ((data3[1]!=nr) && (data3[1]!=0)) {
+                 cck='#AAAAAA';
+                 if (data3[2]!=0) { 
+                   cck=condcolor((objcont[data3[2]].split(':'))[1]);
+                   condid=data3[2];
+                 } else {
+                   condid='-';
+                 }
+                 parent.mapout.document.writeln(
+                  '<td bgcolor='+cck+'>To: '+robjs[data3[1]]+'<br>');
+                 parent.mapout.document.writeln(
+                  '<a href="javascript:parent.code.handler('+
+                  "'c&"+data4[0]+'&'+i+'&'+data4[2]+'&'+condid+"');"
+                  +'">Edit</a>');
+                 parent.mapout.document.writeln('</td>');
+              }
+           }
+       }
+       parent.mapout.document.writeln(
+        '</tr></table></td></tr></table></form>');
+       insrestab(rrow[data2[1]],i,nr,data1[3]);
+
+   }
+  }
+}
+
+// ----------------------------------------------------- Insert Resource Output
+
+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) && (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) && (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>');
+  }
+  if (af!=-1) {
+     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(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
+
+function simpletabledraw() {
+  var objsorted=new Array();
+  var robjs=new Array();
+  var iobjs=new Array();
+  var k;
+  var i;
+  var j;
+  var nr;
+  var ck;
+  var cck;
+  var condid;
+  var sortstr=sortobjs();
+ if ((sortstr!='') && (sortstr!=undefined)) {
+  objsorted=sortstr.split('&');
+  for (k=0;k<objsorted.length;k++) {
+     i=(objsorted[k].split(':'))[0];
+     iobjs[k]=i;
+     robjs[i]=k;
+  }
+  for (k=0;k<iobjs.length;k++) {
+       i=iobjs[k];
+       if (k<objsorted.length-1) {
+          nr=iobjs[k+1];
+       } else {
+          nr=-1;
+       }
+       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
+        +'">');
+      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(
+       '<tr><td>URL:</td><td>'+data1[1]+'</td></tr>'
+      +'<tr><td colspan=2><table><tr>');
+       for (j=2;j<data2.length;j++) {
+           data4=data2[j].split(':');
+           data3=objlinks[data4[2]].split(':');
+           if (data3.length>1) {
+              if (data3[1]==nr) {
+                 cck='#AAAAAA';
+                 if (data3[2]!=0) { 
+                   cck=condcolor((objcont[data3[2]].split(':'))[1]);
+                   condid=data3[2];
+                 } else {
+                   condid='-';
+                 }                 
+                 parent.mapout.document.writeln(
+                  '<td bgcolor='+cck+'>Next<br>');
+                  parent.mapout.document.writeln('</td>');
+              }
+           }
+       }
+       for (j=2;j<data2.length;j++) {
+           data4=data2[j].split(':');
+           data3=objlinks[data4[2]].split(':');
+           if (data3.length>1) {
+              if ((data3[1]!=nr) && (data3[1]!=0)) {
+                 cck='#AAAAAA';
+                 if (data3[2]!=0) { 
+                   cck=condcolor((objcont[data3[2]].split(':'))[1]);
+                   condid=data3[2];
+                 } else {
+                   condid='-';
+                 }
+                 parent.mapout.document.writeln(
+                  '<td bgcolor='+cck+'>To: '+robjs[data3[1]]+'<br>');
+                 parent.mapout.document.writeln('</td>');
+              }
+           }
+       }
+       parent.mapout.document.writeln('</tr></table></td></tr></table></tr>');
+   }
+  } else {
+    parent.mapout.document.writeln('<tr><td>No Resources</td></tr>');
+  }
+}
+
+// ---------------------------------- Sort objects to straighten graph or table
+
+function sortobjs() {
+   message("Sorting Resources: "+funny);
    var k;
    var ij;
+   var dol;
+   var dtl;
    var kj;
+   var sortthis=0;
    var objsort=new Array();
-   var objsorted=new Array();
-   condense();
-   graphreset();
    for (k=1;k<objcont.length;k++) {
       if (objcont[k]) {
          data1=objcont[k].split(':');
@@ -1453,7 +2167,12 @@ function graphopt() {
          }
       }
    }
+   if (objsort.length==0) { return ''; }
    for (k=1;k<objlinks.length;k++) {
+     wheelswitch();
+     message("Sorting Resources: "+funny);
+     if ((objlinks[k]!=undefined) && (objlinks[k]!='')) {
+      sortthis=1;
       data1=objlinks[k].split(':');
       kj=-1;
       for (j=0;j<objsort.length;j++) {
@@ -1461,9 +2180,60 @@ function graphopt() {
             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;
+          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++) {
+             if (data2[kj]==data1[0]) {
+                 for (ij=1;ij<dol;ij++) {
+                    data2[data2.length]=data1[ij];
+                 }
+             }
+           }
+           objsort[k]=data1.join(':');
+           objsort[j]=data2.join(':');
+          }
+         }
+      } 
    }
-   objsorted=objsort.sort(rescompare);
+   message("Sorting Resources: finishing up.");
+   return objsort.sort(rescompare).join('&');
+  } else {
+   return objsort.join('&');
+  }
+}
+
+// ----------------------------------------------------------- Straighten graph
+
+function graphopt() {
+  var k;
+  var kj;
+  var ij;
+
+  var objsorted=new Array();
+  condense(); 
+  graphreset();
+  objsorted=(sortobjs()).split('&');
+  if (objsorted.length==0) { return; }
+   message("Creating Optimized Graph");
    var thisnewobj=''+(objsorted[0].split(':'))[0];
    rowcont[1]=thisnewobj;
    var thiscolmax=1;
@@ -1476,11 +2246,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]=''; }
@@ -1490,18 +2260,26 @@ 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();
           }
          }
       }
@@ -1511,14 +2289,17 @@ function graphopt() {
 // ----------------------------------------------------------- Remove e-objects
 
 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];
          }
       }
@@ -1529,7 +2310,15 @@ function condense() {
 // ---------------------------------------------------- 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;
+   for (k=0;k<objlinks.length;k++) { objlinks[k]=''; }
    objlinks.length=0;
    objlinks[0]='';
    objcont[0]='';
@@ -1537,7 +2326,8 @@ function load() {
    notclear=0;
    lastinfo='';
    graphreset();
-   var inputstr=self.document.forms.storage.output.value;
+   var inputstr=parent.server.document.forms.storage.output.value;
+   if ((inputstr!='') && (inputstr!=undefined)) {
    data1=inputstr.split('<&>');
    var k;
    for (k=0;k<data1.length;k++) {
@@ -1551,7 +2341,158 @@ function load() {
        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 (rowcont[k]==undefined) { rowcont[k]=''; }
+     }
+  }
+}
+
+// -------------------------------------------------------------- Parameter set
+
+function setparms(resid) {
+   alert('Called setparms for '+resid);
+}
+
+// -------------------------------------------------------------- Undo function
+
+function undo() {
+   if (undopointer>1) {
+      undopointer--;
+      parent.server.document.forms.storage.output.value
+       =undostack[undopointer];
+      finishload();
+      undopointer--;
+      draw();
+      stored=0;
+   } else {
+      alert("Cannot undo: reached beginning of edit session");
+   }
+}
+
+// -------------------------------------------------------------- Redo function
+
+function redo() {
+   if (undopointer<undostack.length-1) {
+      undopointer++;
+      parent.server.document.forms.storage.output.value
+       =undostack[undopointer];
+      finishload();
+      undopointer--;
+      draw();
+      stored=0;
+   } else {
+      alert("Cannot redo: reached end of edit session");
+   }
+}
+ 
+// ------------------------------------------------------------ Revert function
+
+function revert() {
+   if (confirm("Revert to beginning of edit session?")) {
+      undopointer=2;
+      undo();
+   }
+}
+
+// ---------------------------------------------------------------- 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();
+}
+
+// -------------------------------------------------------------- Store changes
+
+function storechange() {
+   var k;
+   parent.flag=0;
+   parent.server.document.forms.storage.submit();
+   schedule('save');
+}
+
+function finishsave() {
+   finishload();
+   draw();
+   stored=1;
+}
+
+// --------------------------------------- Gets called when submission finished
+
+function srvloaded() {
+   finishdone=1;
+   message("Server replied.");
+}
+
+// ---------------------------------------------------------------- Toggle Mode
+
+function togglemode() {
+   if (tablemode==0) { 
+      tablemode=1; 
+   } else {
+      if (tablemode==1) { 
+         tablemode=2; 
+      } else {
+         tablemode=0; 
+      } 
+   } 
+   notclear=0;
+   infoclear();
+   draw();
 }
 
 // -------------------------------------------------------- Main program onLoad
@@ -1559,21 +2500,43 @@ function load() {
 function main() {
 
    if (mainrun==0) {
+      infopen();
+      infoclear();
       load();
-      draw('debug','edit');
+      stored=1;
       mainrun=1;
    }
 
 }
 
+// ---------------------------------------------------------- Close the window?
+
+function leave() {
+   if (!inf.closed) {
+      inf.close();
+   }
+   if (srch && !srch.closed) {
+      srchclose();
+   }
+}
+
 </script>
 </head>
 
-<body bgcolor="#FFFFFF" onLoad="main();">
-<a href="javascript:condense();draw('debug','edit');">Condense</a>
-<a href="javascript:graphopt();draw('debug','edit');">Straighten</a>
-<form name=storage method=post>
-<input type=hidden name=output>
-</form>
+<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>
-</html>
\ No newline at end of file
+</html>
+
+
+
+
+