--- rat/client/Attic/code.html	2001/06/29 21:57:46	1.39
+++ rat/client/Attic/code.html	2001/10/16 17:00:33	1.47
@@ -3,6 +3,7 @@
 <!--
 The LearningOnline Network
 Resource Assembly Tool
+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,
@@ -10,12 +11,14 @@ Resource Assembly Tool
 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,
+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 Gerd Kortemeyer
+06/11,06/25,06/27,06/28,06/29,07/04 Gerd Kortemeyer
+07/24,8/6,8/7,10/16 Scott Harrison
 -->
 
 
@@ -120,7 +123,7 @@ function insertrow(j,ex1,ex2) {
    objects=objects1+':'+objects2;
    data1=objects.split(':');
    for (kj=0;kj<data1.length;kj++) {
-     if ((data1[kj]!='') && (data1[kj]!=undefined)) {
+     if ((data1[kj]!='') && (typeof(data1[kj])!="undefined")) {
        thisisobj=obj[data1[kj]];
        thisobjtype=thisisobj.split('&')[0];
        if (thisobjtype=='v') {
@@ -161,7 +164,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if ((newobj!='') && (newobj!=undefined)) {
+             if ((newobj!='') && (typeof(newobj)!="undefined")) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -187,7 +190,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if ((newobj!='') && (newobj!=undefined)) {
+             if ((newobj!='') && (typeof(newobj)!="undefined")) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -284,7 +287,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]!='') && (rowcont[jid]!=undefined)) {
+ if ((rowcont[jid]!='') && (typeof(rowcont[jid])!="undefined")) {
    data2=rowcont[jid].split(':');
    for (j=0;j<data2.length;j++) {
       data3=obj[data2[j]].split('&');
@@ -454,7 +457,7 @@ function insertport (obj1,d,inout,linkob
 function addobj(kjid,objs) {
    stored=0;
    expense++;
-   if ((rowcont[kjid]!='') && (rowcont[kjid]!=undefined)) { 
+   if ((rowcont[kjid]!='') && (typeof(rowcont[kjid])!="undefined")) { 
       rowcont[kjid]+=':'; 
    }
    rowcont[kjid]+=obj.length;
@@ -510,7 +513,7 @@ function delobj(obj1) {
       rowcont[k]='';
       for (k2=0;k2<data4.length;k2++) {
          if (data4[k2]!=obj1) {
-            if ((rowcont[k]!='') && (rowcont[k]!=undefined)) { 
+            if ((rowcont[k]!='') && (typeof(rowcont[k])!="undefined")) { 
                rowcont[k]+=':'; 
             } 
             rowcont[k]+=data4[k2]; 
@@ -532,7 +535,7 @@ function cleanup () {
    for (kj=0;kj<=maxcol;kj++) { data1[kj]=0; }
    for (kj=0;kj<=maxrow;kj++) {
      rowtype[kj]=0;
-     if ((rowcont[kj]!='') && (rowcont[kj]!=undefined)) {
+     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&') {
@@ -625,7 +628,7 @@ function crecond(obj1,colid,condtext,con
 function dellink (linknr) {
   var k; var obj1; var obj2;
   stored=0;
-  if ((objlinks[linknr]!='') && (objlinks[linknr]!=undefined)) {
+  if ((objlinks[linknr]!='') && (typeof(objlinks[linknr])!="undefined")) {
    data3=objlinks[linknr].split(':');
    obj1=data3[0];
    obj2=data3[1];
@@ -648,7 +651,7 @@ function dellink (linknr) {
       }
    }
    for (k=0;k<obj.length;k++) {
-     if ((obj[k]!='') && (obj[k]!=undefined)) {
+     if ((obj[k]!='') && (typeof(obj[k])!="undefined")) {
        data3=obj[k].split('&');
        if (((data3[0]=='v') || (data3[0]=='h')) && 
            (data3[data3.length-2]==linknr)) {
@@ -860,7 +863,7 @@ function delres (obj1,recon) {
                if (inobjs[k2]==infromobj[k]) {
                   if (inwithcon[k]!=0) {
                      if ((inobjscond[k2]!='') &&
-                         (inobjscond[k2]!=undefined)) { 
+                         (typeof(inobjscond[k2])!="undefined")) { 
                          inobjscond[k2]+='||'; 
                      }
                      inobjscond[k2]+=
@@ -889,7 +892,7 @@ function delres (obj1,recon) {
                if (outobjs[k2]==outtoobj[k]) {
                  if (outwithcon[k]!=0) {
                      if ((outobjscond[k2]!='') &&
-                         (outobjscond[k2]!=undefined)) { 
+                         (typeof(outobjscond[k2])!="undefined")) { 
                          outobjscond[k2]+='||'; 
                      }
                      outobjscond[k2]+=
@@ -913,19 +916,19 @@ function delres (obj1,recon) {
 
       for (k=0;k<inobjs.length;k++) {
           cond='';
-          if ((inobjscond[k]!='') && (inobjscond[k]!=undefined)) { 
+          if ((inobjscond[k]!='') && (typeof(inobjscond[k])!="undefined")) { 
              cond='('+inobjscond[k]+')'; 
           }
           for (k2=0;k2<outobjs.length;k2++) {
               thiscond=cond;
-              if ((outobjscond[k2]!='') && (outobjscond[k2]!=undefined)) {
-                 if ((thiscond!='') && (thiscond!=undefined)) { 
+              if ((outobjscond[k2]!='') && (typeof(outobjscond[k2])!="undefined")) {
+                 if ((thiscond!='') && (typeof(thiscond)!="undefined")) { 
                     thiscond+='&&'; 
                  }
                  thiscond+='('+outobjscond[k2]+')';
               }
               condnr=0;
-              if ((thiscond!='') && (thiscond!=undefined)) { 
+              if ((thiscond!='') && (typeof(thiscond)!="undefined")) { 
                  condnr=newcondition(thiscond,'normal'); 
               }
               save(); 
@@ -941,15 +944,16 @@ function drawcell (rtype,ctype,what,cm,o
  var bgcolor;
  var url='';
  var urlparts=new Array;
- var mimetype;
+ 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!='') && (what!=undefined)) {
-     if ((obj1!='') && (obj1!=undefined)) {
+   if ((what!='') && (typeof(what)!="undefined")) {
+     if ((obj1!='') && (typeof(obj1)!="undefined")) {
        objref="'"+obj1+"'";
        parent.mapout.document.write
         ('<a href="javascript:parent.code.handler('+objref
@@ -958,17 +962,18 @@ function drawcell (rtype,ctype,what,cm,o
      if (what=='r:') {
         mime='';
         objnum=(obj1.split('&'))[1];
-        if (objcont[objnum]!=undefined) {
+        if (typeof(objcont[objnum])!="undefined") {
             urlparts=objcont[objnum].split(':');
             url=urlparts[1];
+            ext=urlparts[2];
             urlparts=url.split('.');
             mime=urlparts[urlparts.length-1];
-            if (mime==undefined) { mime=''; }
+            if (typeof(mime)=="undefined") { mime=''; }
         }
         parent.mapout.document.write
          ('<img border=0 width='+cw[ctype]+' height='+rh[1]
           +' src="resource.gif">');
-        if (mime!='') {
+        if ((mime!='') && (ext!='true')) {
            parent.mapout.document.write
            ('<br><img border=0 src="left.gif"></a><a target="preview" href="'+
            url+'.meta"><img border=0 src="'+iconpath+
@@ -988,14 +993,61 @@ function drawcell (rtype,ctype,what,cm,o
              +' src="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[rtype]
+               ('<img border=0 width='+cw[ctype]+' height='+rh[1]
                +' src="start.gif">');
+        if ((mime!='') && (ext!='true')) {
+           parent.mapout.document.write
+           ('<br><img border=0 src="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="right.gif">');
+        } else {
+           parent.mapout.document.write
+           ('<br><img border=0 src="middle.gif">');
+        }
+        parent.mapout.document.write
+           ('<br><img border=0 src="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[rtype]
+                ('<img border=0 width='+cw[ctype]+' height='+rh[1]
                 +' src="finish.gif">');
+        if ((mime!='') && (ext!='true')) {
+           parent.mapout.document.write
+           ('<br><img border=0 src="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="right.gif">');
+        } else {
+           parent.mapout.document.write
+           ('<br><img border=0 src="middle.gif">');
+        }
+        parent.mapout.document.write
+           ('<br><img border=0 src="bottom.gif">');
              } else {
                 parent.mapout.document.write
                 ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
@@ -1004,7 +1056,7 @@ function drawcell (rtype,ctype,what,cm,o
            }
         }
      }
-     if ((obj1!='') && (obj1!=undefined)) {
+     if ((obj1!='') && (typeof(obj1)!="undefined")) {
        parent.mapout.document.write('</a>');
      }
    } else {
@@ -1061,7 +1113,7 @@ if (rowtype[jid]!=0) {
  }
 
  parent.mapout.document.writeln('<tr height='+rh[rowtype[jid]]+'>');
- if ((rowcont[jid]!='') && (rowcont[jid]!=undefined)) {
+ if ((rowcont[jid]!='') && (typeof(rowcont[jid])!="undefined")) {
    data2=rowcont[jid].split(':');
    for (jk=0;jk<data2.length;jk++) {
       data3=obj[data2[jk]].split('&');
@@ -1118,7 +1170,7 @@ if (rowtype[jid]!=0) {
 
          if (rightin>middle) {
             for (k=middle+1;k<rightin;k++) { 
-               if ((colmap4[k]!='') && (colmap4[k]!=undefined)) {
+               if ((colmap4[k]!='') && (typeof(colmap4[k])!="undefined")) {
                   colmap[k]='rlt'; 
                } else {
                   colmap[k]='rl';
@@ -1128,7 +1180,7 @@ if (rowtype[jid]!=0) {
          }
          if (leftin<middle) {
             for (k=middle-1;k>leftin;k--) { 
-               if ((colmap4[k]!='') && (colmap4[k]!=undefined)) {
+               if ((colmap4[k]!='') && (typeof(colmap4[k])!="undefined")) {
                   colmap[k]='lrt'; 
                } else {
                   colmap[k]='lr';
@@ -1148,7 +1200,7 @@ if (rowtype[jid]!=0) {
             if (rightout<middle)  { colmap2[middle]='tl'; }
             if (rightout==middle) { colmap2[middle]='tdl'; }
             if (rightout>middle)  { 
-              if ((colmap3[middle]!='') && (colmap3[middle]!=undefined)) {
+              if ((colmap3[middle]!='') && (typeof(colmap3[middle])!="undefined")) {
                  colmap2[middle]='rtdl'; 
               } else {
                  colmap2[middle]='rtl';
@@ -1157,7 +1209,7 @@ if (rowtype[jid]!=0) {
          }
          if (leftout<middle) {
             for (k=middle-1;k>leftout;k--) { 
-               if ((colmap3[k]!='') && (colmap3[k]!=undefined)) {
+               if ((colmap3[k]!='') && (typeof(colmap3[k])!="undefined")) {
                   colmap2[k]='rld'; 
                } else {
                   colmap2[k]='rl';
@@ -1167,7 +1219,7 @@ if (rowtype[jid]!=0) {
          }
          if (rightout>middle) {
             for (k=middle+1;k<rightout;k++) { 
-               if ((colmap3[k]!='') && (colmap3[k]!=undefined)) {
+               if ((colmap3[k]!='') && (typeof(colmap3[k])!="undefined")) {
                   colmap2[k]='lrd'; 
                } else {
                   colmap2[k]='lr';
@@ -1371,6 +1423,7 @@ function infcheck() {
 
 function info(infostr) {
  var mime='';
+ var ext;
  var urlparts=new Array;
  var url='';
  if ((editmode!=1) && (infostr!=lastinfo)) {
@@ -1404,9 +1457,11 @@ function info(infostr) {
      if (data1[0]=='r') {
         data2=objcont[data1[1]].split(':');
         url=data2[1];
+        ext=data2[2];
         urlparts=url.split('.');
         mime=urlparts[urlparts.length-1];
-        if (mime==undefined) { mime=''; }
+        if (typeof(mime)=="undefined") { mime=''; }
+        if (ext=='true') { mime=''; }
         if (mime!='') {
            inf.document.write
            ('<br><a target="preview" align="right" href="'+url+
@@ -1583,7 +1638,7 @@ function idxopen(mode) {
    var options="scrollbars=1,resizable=1,menubar=0";
    idxmode=mode;
    idxflag=1;
-   idx=open("/res?catalogmode="+mode,"idxout",options);
+   idx=open("/res/?launch=1&catalogmode="+mode,"idxout",options);
    idx.focus();
 }
 
@@ -1593,7 +1648,7 @@ function srchopen(mode) {
    var options="scrollbars=1,resizable=1,menubar=0";
    srchmode=mode;
    srchflag=1;
-   srch=open("/adm/searchcat?catalogmode=interactive","srchout",options);
+   srch=open("/adm/searchcat?launch=1&catalogmode="+mode,"srchout",options);
    srch.focus();
 }
 
@@ -1607,7 +1662,7 @@ function search() {
 
 function srchcheck(mode) {
    if (!srch || srch.closed || srchmode!=mode) {
-      srchopen();
+      srchopen(mode);
    }
    srch.focus();
 }
@@ -1816,7 +1871,7 @@ function empty(rid,k) {
           +');">Insert resource</a>');
 
   if ((mostrecent!=0) && (objcont[mostrecent]!='') && 
-                         (objcont[mostrecent]!=undefined)) {
+                         (typeof(objcont[mostrecent])!="undefined")) {
 
         inf.document.writeln('<br><a href="javascript:opener.newresource('+
           rid+','+cid+",'','','false','normal');"+
@@ -1945,7 +2000,7 @@ function graphreset() {
 
    objcont[0]='';
    objlinks[0]='';
-   if (((objcont[1]==undefined)&&(objcont[2]==undefined)) ||
+   if (((typeof(objcont[1])=="undefined")&&(typeof(objcont[2])=="undefined")) ||
        ((objcont[1]=='')&&(objcont[2]==''))) { 
       objcont[1]='Start::false:start:res'
       objcont[2]='Finish::false:finish:res';
@@ -1986,10 +2041,11 @@ function tabledraw() {
   var condid;
   var url='';
   var mime='';
+  var ext='';
   var urlparts=new Array;
   var sortstr=sortobjs();
  insrestab(1,-1,-1,'');
- if ((sortstr!='') && (sortstr!=undefined)) {
+ if ((sortstr!='') && (typeof(sortstr)!="undefined")) {
   objsorted=sortstr.split('&');
   for (k=0;k<objsorted.length;k++) {
      i=(objsorted[k].split(':'))[0];
@@ -2007,10 +2063,11 @@ function tabledraw() {
        ck=rescolor(data1[2],data1[3]);
         parent.mapout.document.write('<tr><td bgcolor="'+ck+'">');
         url=data1[1];
+        ext=data1[2];
         urlparts=url.split('.');
         mime=urlparts[urlparts.length-1];
-        if (mime==undefined) { mime=''; }
-        if (mime!='') {
+        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>'+
@@ -2201,9 +2258,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!='') && (sortstr!=undefined)) {
+ if ((sortstr!='') && (typeof(sortstr)!="undefined")) {
   objsorted=sortstr.split('&');
   for (k=0;k<objsorted.length;k++) {
      i=(objsorted[k].split(':'))[0];
@@ -2221,10 +2282,11 @@ function simpletabledraw() {
        ck=rescolor(data1[2],data1[3]);
         parent.mapout.document.write('<tr><td bgcolor="'+ck+'">');
         url=data1[1];
+        ext=data1[2];
         urlparts=url.split('.');
         mime=urlparts[urlparts.length-1];
-        if (mime==undefined) { mime=''; }
-        if (mime!='') {
+        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>'+
@@ -2312,7 +2374,7 @@ function sortobjs() {
    for (k=1;k<objlinks.length;k++) {
      wheelswitch();
      message("Sorting Resources: "+funny);
-     if ((objlinks[k]!=undefined) && (objlinks[k]!='')) {
+     if ((typeof(objlinks[k])!="undefined") && (objlinks[k]!='')) {
       sortthis=1;
       data1=objlinks[k].split(':');
       kj=-1;
@@ -2433,12 +2495,12 @@ function condense() {
    message("Condensing");
    var j;
    for (j=0;j<=maxrow;j++) {
-     if ((rowcont[j]!='') && (rowcont[j]!=undefined)) {
+     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]!=undefined)) { 
+            if ((rowcont[j]!='') && (typeof(rowcont[j])!="undefined")) { 
                rowcont[j]+=':'; 
             }
             rowcont[j]+=data1[k];
@@ -2468,11 +2530,11 @@ function finishload() {
    lastinfo='';
    graphreset();
    var inputstr=parent.server.document.forms.storage.output.value;
-   if ((inputstr!='') && (inputstr!=undefined)) {
+   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]; }
@@ -2480,7 +2542,7 @@ function finishload() {
        if (data2[0]=='objcont') { objcont[data2[1]]=data2[2]; }
        if (data2[0]=='objlinks') { objlinks[data2[1]]=data2[2]; }
        if (data2[0]=='objparms') {
-          if (objparms[data2[1]]==undefined) {
+          if (typeof(objparms[data2[1]])=="undefined") {
              objparms[data2[1]]=data2[2];
           } else {
              objparms[data2[1]]+=':'+data2[2];
@@ -2496,7 +2558,7 @@ function finishload() {
   }
   if (graphdef=='yes') {
      for (k=1;k<=maxrow;k++) {
-        if (rowcont[k]==undefined) { rowcont[k]=''; }
+        if (typeof(rowcont[k])=="undefined") { rowcont[k]=''; }
      }
   }
 }
@@ -2612,7 +2674,7 @@ function schedule(action) {
 // ----------------------------------------------------- launch indexer browser
 
 function groupsearch() {
-   alert('not yet implemented');
+   srchcheck('groupsearch');
 }
 
 function groupimport() {
@@ -2689,17 +2751,24 @@ function leave() {
 </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:groupsearch();">Group Search</a>
-<a href="javascript:groupimport();">Group Import</a>
-<a href="javascript:storechange();">Save Map</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="#ffcccc"><a href="javascript:storechange();"><b>S</b>ave map</a>&nbsp;</td>
+</tr></table>
+</td></tr></table>
+<script>
+main();
+</script>
 </body>
 </html>