--- rat/client/Attic/code.html	2001/11/29 19:15:37	1.48
+++ rat/client/Attic/code.html	2003/01/23 20:23:07	1.62
@@ -4,7 +4,7 @@
 The LearningOnline Network
 Resource Assembly Tool
 //
-// $Id: code.html,v 1.48 2001/11/29 19:15:37 www Exp $
+// $Id: code.html,v 1.62 2003/01/23 20:23:07 www Exp $
 //
 // Copyright Michigan State University Board of Trustees
 //
@@ -44,6 +44,7 @@ March/April 01 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
 -->
 
 
@@ -117,19 +118,25 @@ var idxflag=-1; // 1 means currently ope
                  // -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/';
 
 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;
@@ -234,7 +241,6 @@ function insertrow(j,ex1,ex2) {
 }
 
 // --------------------------------------------- Creates a new condition object
-
 function newcondition(content,type) {
    var ko;
    stored=0;
@@ -245,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')]=
@@ -254,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;
@@ -271,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;
@@ -284,7 +287,6 @@ function insertcol(j) {
 }
      
 // --------------------------------------------------------------- Find the row
-
 function findrow(jid) {
    var j;
    for (j=0;j<=maxrow;j++) { if (row[j]==jid) { return j; } }
@@ -292,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; } }
@@ -307,7 +308,6 @@ 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;
@@ -353,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);
@@ -399,10 +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('&');
@@ -431,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);
@@ -478,7 +473,6 @@ 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;
    expense++;
@@ -492,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) {
@@ -519,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);
@@ -529,7 +521,6 @@ function horizontal(hrid,hoffs,hfcol,htc
 }
 
 // --------------------------------------- Deletes all references to object obj
-
 function delobj(obj1) {
    var k;
    stored=0;
@@ -549,7 +540,6 @@ function delobj(obj1) {
 }
 
 // --------------------------------------------------------- Garbage collection
-
 function cleanup () {
    message("Garbage Collection");
    var j,kj,i;
@@ -603,11 +593,9 @@ function cleanup () {
       rowtype[maxrow]=2;
       coltype[maxcol]=2;
    }
-
 }
 
 // -------------------------------------------- Delete a condition from a block
-
 function delcond(obj1,colid) {
    var k;
    stored=0;
@@ -627,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('&');
@@ -649,7 +636,6 @@ 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;
@@ -690,7 +676,6 @@ function dellink (linknr) {
 
 // ----------------------------------------------------------- Join two objects
 // Links obj1 with obj2, creates new objlink, marks all elements with number
-
 function joinres (obj1,obj2,cond) {
    stored=0;
    var minexpense;
@@ -725,7 +710,6 @@ function joinres (obj1,obj2,cond) {
       minexpense=expense;
    }
 
-
    if (best==0) {
       finishload();
       tryjoin(obj1,obj2,cond,1,1);
@@ -738,10 +722,8 @@ function joinres (obj1,obj2,cond) {
       finishload();
       tryjoin(obj1,obj2,cond,-1,1);
    }
-
 }
 
-
 function tryjoin(obj1,obj2,cond,d1,d2) {
    var k; var kr; var outcol; var incol; var d; var dest;
 
@@ -840,7 +822,6 @@ function tryjoin(obj1,obj2,cond,d1,d2) {
 // ---------------------------------------------------------- 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();
@@ -964,7 +945,6 @@ function delres (obj1,recon) {
 }
 
 // -------------------------------------------------------------- Draw an entry
-
 function drawcell (rtype,ctype,what,cm,obj1,ej,ek,ne) {
  var bgcolor;
  var url='';
@@ -994,28 +974,35 @@ function drawcell (rtype,ctype,what,cm,o
             urlparts=url.split('.');
             mime=urlparts[urlparts.length-1];
             if (typeof(mime)=="undefined") { mime=''; }
+            mime=mime.toLowerCase();
         }
         parent.mapout.document.write
          ('<img border=0 width='+cw[ctype]+' height='+rh[1]
-          +' src="resource.gif">');
+          +' src="'+raticons+'resource.gif">');
+       if (zscale==3) {
         if ((mime!='') && (ext!='true')) {
            parent.mapout.document.write
-           ('<br><img border=0 src="left.gif"></a><a target="preview" href="'+
+           ('<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="right.gif">');
+           '<img border=0 src="'+raticons+'right.gif">');
         } else {
            parent.mapout.document.write
-           ('<br><img border=0 src="middle.gif">');
+           ('<br><img border=0 src="'+raticons+'middle.gif">');
         }
         parent.mapout.document.write
-           ('<br><img border=0 src="bottom.gif">');
+           ('<br><img border=0 src="'+raticons+'bottom.gif">');
+       } else {
+        parent.mapout.document.write
+           ('<br><img border=0  width='+cw[ctype]+' height='+rh[1]
+          +' 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='';
@@ -1027,23 +1014,30 @@ function drawcell (rtype,ctype,what,cm,o
             urlparts=url.split('.');
             mime=urlparts[urlparts.length-1];
             if (typeof(mime)=="undefined") { mime=''; }
+            mime=mime.toLowerCase();
         }
               parent.mapout.document.write
                ('<img border=0 width='+cw[ctype]+' height='+rh[1]
-               +' src="start.gif">');
+               +' src="'+raticons+'start.gif">');
+       if (zscale==3) {
         if ((mime!='') && (ext!='true')) {
            parent.mapout.document.write
-           ('<br><img border=0 src="left.gif"></a><a target="preview" href="'+
+           ('<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="right.gif">');
+           '<img border=0 src="'+raticons+'right.gif">');
         } else {
            parent.mapout.document.write
-           ('<br><img border=0 src="middle.gif">');
+           ('<br><img border=0 src="'+raticons+'middle.gif">');
         }
         parent.mapout.document.write
-           ('<br><img border=0 src="bottom.gif">');
+           ('<br><img border=0 src="'+raticons+'bottom.gif">');
+       } else {
+        parent.mapout.document.write
+           ('<br><img border=0  width='+cw[ctype]+' height='+rh[1]
+          +' src="'+raticons+'bottom.gif">');
+       }
 
            } else {
              if (what=='rf:') {
@@ -1056,27 +1050,35 @@ function drawcell (rtype,ctype,what,cm,o
             urlparts=url.split('.');
             mime=urlparts[urlparts.length-1];
             if (typeof(mime)=="undefined") { mime=''; }
+            mime=mime.toLowerCase();
         }
                 parent.mapout.document.write
                 ('<img border=0 width='+cw[ctype]+' height='+rh[1]
-                +' src="finish.gif">');
+                +' src="'+raticons+'finish.gif">');
+       if (zscale==3) {
         if ((mime!='') && (ext!='true')) {
            parent.mapout.document.write
-           ('<br><img border=0 src="left.gif"></a><a target="preview" href="'+
+           ('<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="right.gif">');
+           '<img border=0 src="'+raticons+'right.gif">');
         } else {
            parent.mapout.document.write
-           ('<br><img border=0 src="middle.gif">');
+           ('<br><img border=0 src="'+raticons+'middle.gif">');
         }
         parent.mapout.document.write
-           ('<br><img border=0 src="bottom.gif">');
+           ('<br><img border=0 src="'+raticons+'bottom.gif">');
+       } else {
+        parent.mapout.document.write
+           ('<br><img border=0  width='+cw[ctype]+' height='+rh[1]
+          +' src="'+raticons+'bottom.gif">');
+       }
+
              } else {
                 parent.mapout.document.write
                 ('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
-                +' src="'+rtype+'.'+ctype+'.'+what+'.gif">');
+                +' src="'+raticons+rtype+'.'+ctype+'.'+what+'.gif">');
              }
            }
         }
@@ -1097,14 +1099,13 @@ 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'; }
@@ -1115,7 +1116,6 @@ function rescolor (ext,typ) {
 }
 
 // -------------------------------------------------------- Color of conditions
-
 function condcolor(typ) {
    if (typ=='stop')  { return '#EEAAAA'; }
    if (typ=='force') { return '#AAAAEE'; }
@@ -1123,7 +1123,6 @@ function condcolor(typ) {
 }
 
 // ----------------------------------------------------------------- Draw a row
-
 function drawrow (jid) {
 var j; var jk; var k;  var ck; var rtype;
 var objd1=new Array();
@@ -1327,13 +1326,11 @@ if (rowtype[jid]!=0) {
 }
 
 // -------------------------------------------------------------- Print message
-
 function message(txt) {
    parent.window.status=txt;
 }
 
 // ------------------------------------------------------------- Draw the table
-         
 function draw () {
    var k; var kr;
 
@@ -1382,7 +1379,6 @@ function draw () {
 }
 
 // --------------------------------------------------------- Clears info window
-
 function infoclear() {
  if (notclear!=1) {
   infcheck();
@@ -1430,14 +1426,12 @@ function infoclear() {
 }
 
 // ------------------------------------------------------------ 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();
@@ -1445,7 +1439,6 @@ function infcheck() {
 }
 
 // --------------------------------------------------- Prints out resource info
-
 function info(infostr) {
  var mime='';
  var ext;
@@ -1457,7 +1450,7 @@ function info(infostr) {
   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 (');
@@ -1538,7 +1531,6 @@ function info(infostr) {
 }
 
 // ------------------------------------------------ "Escapes" out special chars
-
 function escape(instring) {
    var outstring='';
    var thischar;
@@ -1546,7 +1538,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;
@@ -1555,7 +1547,6 @@ function escape(instring) {
 }
 
 // -------------------------------------------------- Insert resource into link
-
 function insertreslink(infostr) {
    var lnr;
    var fobj;
@@ -1588,7 +1579,6 @@ function insertreslink(infostr) {
 }
 
 // -------------------------------------------- Insert resource after condition
-
 function insertcondlink(cid,lnr) {
    var fobj;
    var tobj;
@@ -1609,29 +1599,26 @@ function insertcondlink(cid,lnr) {
    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;
@@ -1639,8 +1626,15 @@ function idxclose() {
   }
 }
 
-// ------------------------------------------------------- Closes search window
+// --------------------------------------------------------- Closes copy window
+function copydxclose() {
+  if (copydx && !copydx.closed) {
+    copydxflag=0;
+    copydx.close();
+  }
+}
 
+// ------------------------------------------------------- Closes search window
 function srchclose() {
   if (srch && !srch.closed) {
     srchflag=0;
@@ -1649,7 +1643,6 @@ function srchclose() {
 }
 
 // ------------------------------------------------------- Closes search window
-
 function parmclose() {
   if (parm && !parm.closed) {
     parmflag=0;
@@ -1658,33 +1651,71 @@ function parmclose() {
 }
 
 // -------------------------------------------------------- Open indexer window
-
 function idxopen(mode) {
    var options="scrollbars=1,resizable=1,menubar=0";
    idxmode=mode;
    idxflag=1;
-   idx=open("/res/?launch=1&catalogmode="+mode,"idxout",options);
+   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>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&catalogmode="+mode,"srchout",options);
+   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);
@@ -1693,7 +1724,6 @@ function srchcheck(mode) {
 }
 
 // -------------------------------------------------------- Do idx status check
-
 function idxcheck(mode) {
    if (!idx || idx.closed || idxmode!=mode) {
       idxopen(mode);
@@ -1701,8 +1731,15 @@ function idxcheck(mode) {
    idx.focus();
 }
 
-// ---------------------------------------------------- Handles "click to edit"
+// -------------------------------------------------------- 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;
@@ -1711,7 +1748,7 @@ function handler(infostr) {
   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>');
@@ -1765,8 +1802,6 @@ function handler(infostr) {
          '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) {
@@ -1790,7 +1825,7 @@ function handler(infostr) {
         inf.document.write(
          '<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>');
++escape(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');
@@ -1873,7 +1908,6 @@ function handler(infostr) {
 }
 
 // ----------------------------------------------------- Clicks on empty fields
-
 function empty(rid,k) {
   var cid=findcol(k);
   var lcol=k-1;
@@ -1886,7 +1920,7 @@ function empty(rid,k) {
   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('+
@@ -1943,7 +1977,6 @@ function empty(rid,k) {
 }
 
 // ---------------------------------------------------- Save into hidden fields
-
 function save() {
   var k;
   if (graphdef=='yes') {
@@ -2002,7 +2035,6 @@ function save() {
 }
 
 // ----------------------------------------------- Reset all layout information
-
 function graphreset() {
 
    var k;
@@ -2025,17 +2057,12 @@ function graphreset() {
 
    objcont[0]='';
    objlinks[0]='';
-   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';
-   }
+
    graphdef='no';
 
 }
 
 // --------------------- Compare two resources with each other for "straighten"
-
 function rescompare(a,b) {
    data1=a.split(':');
    data2=b.split(':');
@@ -2044,7 +2071,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; }
@@ -2052,7 +2079,6 @@ function rescompare(a,b) {
 }
 
 // -------------------------------------------- Draw the table instead of graph
-
 function tabledraw() {
   var objsorted=new Array();
   var robjs=new Array();
@@ -2229,7 +2255,6 @@ function tabledraw() {
 }
 
 // ----------------------------------------------------- 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('
@@ -2271,8 +2296,8 @@ function insrestab(irow,be,af,typ) {
   }
   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();
@@ -2377,7 +2402,6 @@ function simpletabledraw() {
 }
 
 // ---------------------------------- Sort objects to straighten graph or table
-
 function sortobjs() {
    message("Sorting Resources: "+funny);
    var k;
@@ -2450,12 +2474,10 @@ function sortobjs() {
 }
 
 // ----------------------------------------------------------- Straighten graph
-
 function graphopt() {
   var k;
   var kj;
   var ij;
-
   var objsorted=new Array();
   condense(); 
   graphreset();
@@ -2515,7 +2537,6 @@ function graphopt() {
 }
 
 // ----------------------------------------------------------- Remove e-objects
-
 function condense() {
    message("Condensing");
    var j;
@@ -2536,7 +2557,6 @@ function condense() {
 }
 
 // ---------------------------------------------------- Load from hidden fields
-
 function load() {
    message("Loading");
    schedule('load');
@@ -2585,11 +2605,30 @@ function finishload() {
      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';
+      }
+   }
   }
 }
 
 // -------------------------------------------------------------- Parameter set
-
 function setparms(resid) {
    var options="scrollbars=1,resizable=1,menubar=0";
    parmflag=1;
@@ -2600,7 +2639,6 @@ function setparms(resid) {
 }
 
 // -------------------------------------------------------------- Undo function
-
 function undo() {
    if (undopointer>1) {
       undopointer--;
@@ -2616,7 +2654,6 @@ function undo() {
 }
 
 // -------------------------------------------------------------- Redo function
-
 function redo() {
    if (undopointer<undostack.length-1) {
       undopointer++;
@@ -2632,7 +2669,6 @@ function redo() {
 }
  
 // ------------------------------------------------------------ Revert function
-
 function revert() {
    if (confirm("Revert to beginning of edit session?")) {
       undopointer=2;
@@ -2641,7 +2677,6 @@ function revert() {
 }
 
 // ---------------------------------------------------------------- Wheelswitch
-
 function wheelswitch() {
    if (funny=='|') { 
       funny='/'; 
@@ -2659,7 +2694,6 @@ function wheelswitch() {
 }
 
 // --------------------------------------------- Checks if server frame defined
-
 function checkdef() {
    if (parent.flag==1) {
      srvloaded();
@@ -2668,7 +2702,6 @@ function checkdef() {
 }
 
 // ---------------------------------------------------------- The wait function
-
 function wait() {
    if ((finishdone==1) || (tim==1)) {
       if (tim==0) {
@@ -2686,7 +2719,6 @@ function wait() {
 }
 
 // ---------------------------------------------------------- Schedule function
-
 function schedule(action) {
    reqaction=action;
    tim=0;
@@ -2697,7 +2729,6 @@ function schedule(action) {
 }
 
 // ----------------------------------------------------- launch indexer browser
-
 function groupsearch() {
    srchcheck('groupsearch');
 }
@@ -2706,8 +2737,11 @@ function groupimport() {
    idxcheck('groupimport');
 }
 
-// -------------------------------------------------------------- Store changes
+function groupcopy() {
+   copydxcheck('groupsec');
+}
 
+// -------------------------------------------------------------- Store changes
 function storechange() {
    var k;
    parent.flag=0;
@@ -2722,14 +2756,12 @@ function finishsave() {
 }
 
 // --------------------------------------- Gets called when submission finished
-
 function srvloaded() {
    finishdone=1;
    message("Server replied.");
 }
 
 // ---------------------------------------------------------------- Toggle Mode
-
 function togglemode() {
    if (tablemode==0) { 
       tablemode=1; 
@@ -2746,9 +2778,7 @@ function togglemode() {
 }
 
 // -------------------------------------------------------- Main program onLoad
-
 function main() {
-
    if (mainrun==0) {
       infopen();
       infoclear();
@@ -2756,11 +2786,9 @@ function main() {
       stored=1;
       mainrun=1;
    }
-
 }
 
 // ---------------------------------------------------------- Close the window?
-
 function leave() {
    if (!inf.closed) {
       inf.close();
@@ -2769,7 +2797,10 @@ function leave() {
       srchclose();
    }
    if (idx && !idx.closed) {
-      srchclose();
+      idxclose();
+   }
+   if (copydx && !copydx.closed) {
+      copydxclose();
    }
 }
 
@@ -2779,17 +2810,19 @@ function leave() {
 <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>
+<td bgcolor="#ffffcc"><a href="javascript:togglemode();"><font size="-2">Toggle display</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><font size="-2">Zoom out</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:if (zscale<3) { zscale++; draw();}"><font size="-2">Zoom in</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:condense();draw();"><font size="-2">Condense</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:graphopt();draw();"><font size="-2">Straighten</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:revert();"><font size="-2">Revert</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:undo();"><font size="-2">Undo</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:redo();"><font size="-2">Redo</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:groupsearch();"><font size="-2">Search</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:groupimport();"><font size="-2">Import</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:groupcopy();"><font size="-2">Copy</font></a></td>
+<td bgcolor="#ffffcc"><a href="javascript:graphdef='no';save();storechange();"><font size="-2">Save map</font></a></td>
+<td bgcolor="#ccffcc"><a href="javascript:storechange();"><font size="-2">Save map and layout</font></a></td>
 </tr></table>
 </td></tr></table>
 <script>