--- rat/client/ratcode.js	2005/06/08 19:23:37	1.2
+++ rat/client/ratcode.js	2016/01/15 19:13:08	1.14
@@ -1,6 +1,7 @@
 <!--
 The LearningOnline Network
 Resource Assembly Tool
+// $Id: ratcode.js,v 1.14 2016/01/15 19:13:08 damieng Exp $
 //
 // Copyright Michigan State University Board of Trustees
 //
@@ -40,7 +41,7 @@ YEAR 2001
 -->
 
 
-<script language="JavaScript">
+<script type="text/javascript" language="JavaScript">
 
 var row=new Array();
 var maxrow=-1;
@@ -95,6 +96,7 @@ var data2=new Array(1024);
 var data3=new Array(1024);
 var data4=new Array(1024);
 var data5=new Array(1024);
+var data6=new Array(1024);
 
 var inf;
 var srch;
@@ -242,10 +244,13 @@ function newcondition(content,type) {
 }
 
 // ---------------------------------------------- Creates a new resource object
-function newresource(rid,cid,text,url,ext,type) {
+function newresource(rid,cid,text,url,ext,type,oldidx) {
    stored=0;
-   objcont[addobj(rid,'b&'+rid+'&'+cid+':0:0:0')]=
+   var newidx=addobj(rid,'b&'+rid+'&'+cid+':0:0:0',url,oldidx);
+
+   objcont[newidx]=
     text+':'+url+':'+ext+':'+type+':res';
+   return newidx;
 }
 
 
@@ -464,15 +469,35 @@ 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) {
+function addobj(kjid,objs,url,oldindex) {
    stored=0;
    expense++;
    if ((rowcont[kjid]!='') && (typeof(rowcont[kjid])!="undefined")) { 
       rowcont[kjid]+=':'; 
    }
-   rowcont[kjid]+=obj.length;
-   obj[obj.length]=objs;
-   return obj.length-1;
+   var newindex=obj.length;
+   if ((url!='') && (typeof(url)!="undefined")) {
+// see if we have a zombie with that url and possibly oldindex
+      for (oidx=0;oidx<objcont.length;oidx++) {
+          if (typeof(objcont[oidx])!="undefined") {
+             data6=objcont[oidx].split(':');	
+             if (data6[4]=='zombie') {
+                if (data6[1]==url) {
+		   if (typeof(oldindex) == "undefined") {
+                     newindex=oidx;
+                   } else {
+                     if (oidx == oldindex) {
+                       newindex=oidx;
+                     }
+                   }
+                }
+             }
+         }
+      }
+   }
+   rowcont[kjid]+=newindex;
+   obj[newindex]=objs;
+   return newindex;
 } 
 
 // ---------------------------------------- Make horizontal connection for hrid
@@ -973,32 +998,32 @@ function drawcell (rtype,ctype,what,cm,o
             mime=mime.toLowerCase();
         }
         parent.mapout.document.write
-         ('<img border=0 width='+cw[ctype]+' height='+rh[1]
-          +' src="'+raticons+'resource.gif">');
+         ('<img border="0" width="'+cw[ctype]+'" height="'+rh[1]
+          +'" src="'+raticons+'resource.gif" />');
        if (zscale==3) {
         if ((mime!='') && (ext!='true')) {
            parent.mapout.document.write
-           ('<br><img border=0 src="'+raticons+'left.gif"></a><a target="preview" href="'+
-           url+'.meta"><img border=0 src="'+iconpath+
-           'meta.gif"><a target="preview" href="'+url+
-           '"><img border=0 src="'+iconpath+mime+'.gif">'+
-           '<img border=0 src="'+raticons+'right.gif">');
+           ('<br /><img border="0" src="'+raticons+'left.gif" /></a><a target="preview" href="'+
+           url+'.meta"><img border="0" width="20" src="'+iconpath+
+           'meta.gif" /><a target="preview" href="'+url+
+           '"><img border="0" width="20" src="'+iconpath+mime+'.gif" />'+
+           '<img border="0" src="'+raticons+'right.gif" />');
         } else {
            parent.mapout.document.write
-           ('<br><img border=0 src="'+raticons+'middle.gif">');
+           ('<br /><img border="0" src="'+raticons+'middle.gif" />');
         }
         parent.mapout.document.write
-           ('<br><img border=0 src="'+raticons+'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">');
+           ('<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="'+raticons+'condition.gif">');          
+            ('<img border="0" width="'+cw[ctype]+'" height="'+rh[rtype]
+             +'" src="'+raticons+'condition.gif" />');
         } else {
            if (what=='rs:') {
         mime='';
@@ -1013,26 +1038,26 @@ function drawcell (rtype,ctype,what,cm,o
             mime=mime.toLowerCase();
         }
               parent.mapout.document.write
-               ('<img border=0 width='+cw[ctype]+' height='+rh[1]
-               +' src="'+raticons+'start.gif">');
+               ('<img border="0" width="'+cw[ctype]+'" height="'+rh[1]
+               +'" src="'+raticons+'start.gif" />');
        if (zscale==3) {
         if ((mime!='') && (ext!='true')) {
            parent.mapout.document.write
-           ('<br><img border=0 src="'+raticons+'left.gif"></a><a target="preview" href="'+
-           url+'.meta"><img border=0 src="'+iconpath+
-           'meta.gif"><a target="preview" href="'+url+
-           '"><img border=0 src="'+iconpath+mime+'.gif">'+
-           '<img border=0 src="'+raticons+'right.gif">');
+           ('<br /><img border="0" src="'+raticons+'left.gif" /></a><a target="preview" href="'+
+           url+'.meta"><img border="0" width="20" src="'+iconpath+
+           'meta.gif" /><a target="preview" href="'+url+
+           '"><img border="0" width="20" src="'+iconpath+mime+'.gif" />'+
+           '<img border="0" src="'+raticons+'right.gif" />');
         } else {
            parent.mapout.document.write
-           ('<br><img border=0 src="'+raticons+'middle.gif">');
+           ('<br /><img border="0" src="'+raticons+'middle.gif" />');
         }
         parent.mapout.document.write
-           ('<br><img border=0 src="'+raticons+'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">');
+           ('<br /><img border="0"  width="'+cw[ctype]+'" height="'+rh[1]
+          +'" src="'+raticons+'bottom.gif" />');
        }
 
            } else {
@@ -1049,32 +1074,32 @@ function drawcell (rtype,ctype,what,cm,o
             mime=mime.toLowerCase();
         }
                 parent.mapout.document.write
-                ('<img border=0 width='+cw[ctype]+' height='+rh[1]
-                +' src="'+raticons+'finish.gif">');
+                ('<img border="0" width="'+cw[ctype]+'" height="'+rh[1]
+                +'" src="'+raticons+'finish.gif" />');
        if (zscale==3) {
         if ((mime!='') && (ext!='true')) {
            parent.mapout.document.write
-           ('<br><img border=0 src="'+raticons+'left.gif"></a><a target="preview" href="'+
-           url+'.meta"><img border=0 src="'+iconpath+
-           'meta.gif"><a target="preview" href="'+url+
-           '"><img border=0 src="'+iconpath+mime+'.gif">'+
-           '<img border=0 src="'+raticons+'right.gif">');
+           ('<br /><img border="0" src="'+raticons+'left.gif" /></a><a target="preview" href="'+
+           url+'.meta"><img border="0" width="20" src="'+iconpath+
+           'meta.gif" /><a target="preview" href="'+url+
+           '"><img border="0" width="20" src="'+iconpath+mime+'.gif" />'+
+           '<img border="0" src="'+raticons+'right.gif" />');
         } else {
            parent.mapout.document.write
-           ('<br><img border=0 src="'+raticons+'middle.gif">');
+           ('<br /><img border="0" src="'+raticons+'middle.gif" />');
         }
         parent.mapout.document.write
-           ('<br><img border=0 src="'+raticons+'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">');
+           ('<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="'+raticons+rtype+'.'+ctype+'.'+what+'.gif">');
+                ('<img border="0" width="'+cw[ctype]+'" height="'+rh[rtype]
+                +'" src="'+raticons+rtype+'.'+ctype+'.'+what+'.gif" />');
              }
            }
         }
@@ -1094,8 +1119,8 @@ function drawcell (rtype,ctype,what,cm,o
          ('onMouseOver="parent.code.infoclear();">');
       parent.mapout.document.write
          (
-         '<img border=0 width='+cw[ctype]+' height='+rh[rtype]
-        +' src="'+raticons+rtype+'.'+ctype+'.empty.gif"></a>');
+         '<img border="0" width="'+cw[ctype]+'" height="'+rh[rtype]
+        +'" src="'+raticons+rtype+'.'+ctype+'.empty.gif" /></a>');
    }
    parent.mapout.document.write('</td>');
  }
@@ -1348,8 +1373,8 @@ function draw () {
       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+'>');
+       '<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]); 
@@ -1378,33 +1403,37 @@ function draw () {
 function infoclear() {
  if (notclear!=1) {
   infcheck();
-  inf.document.clear();
+  inf.document.open();
   inf.document.writeln
-   ('<html><body bgcolor="#FFFFFF"><table><tr><td>'+
-    '<img src="/adm/lonIcons/lonlogos.gif"></td>');
+   ('<html><body style="background-color:white; margin: 0"><table style="font-size: 90%;"><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>'+
+      '<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>');
+      '</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>'+
+'<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>'
+        '<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();
+  inf.opener = window;
+  var infout = parent.document.getElementById('infout')
+  infout.style.width = '500px';
+  infout.style.width = inf.document.body.firstChild.offsetWidth + 10 + 'px';
   if (srchflag==1) {
     srchclose();
   }
@@ -1423,13 +1452,14 @@ function infoclear() {
 
 // ------------------------------------------------------------ Open inf window
 function infopen() {
-   var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
-   inf=open("","infout",options);
+  var iframe = parent.document.getElementById('infout');
+  inf = iframe.contentWindow;
 }
 
 // -------------------------------------------------------- Do inf status check
 function infcheck() {
-   if (inf.closed) {
+   var iframe = parent.document.getElementById('infout');
+   if (iframe.style.display == 'none') {
       infopen();
    }
 }
@@ -1443,10 +1473,10 @@ function info(infostr) {
  if ((editmode!=1) && (infostr!=lastinfo)) {
   notclear=1;
   infcheck();
-  inf.document.clear();
+  inf.document.open();
   inf.document.writeln(
-   '<html><body bgcolor="#FFFFFF">'+
-   '<table><tr><td width=32><img src="'+raticons+'info.gif"></td><td bgcolor="#AAFFAA">');
+   '<html><body style="background-color:white; margin: 0">'+
+   '<table style="font-size: 90%;"><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 (');
@@ -1465,8 +1495,8 @@ function info(infostr) {
            }
        }
      }   
-     inf.document.writeln(')</b><hr>From <b>'+objcont[data3[0]].split(':')[0]+
-                 '</b><br>to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
+     inf.document.writeln(')</b><hr />From <b>'+objcont[data3[0]].split(':')[0]+
+                 '</b><br />to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
   } else {
      if (data1[0]=='r') {
         data2=objcont[data1[1]].split(':');
@@ -1478,8 +1508,8 @@ function info(infostr) {
         if (ext=='true') { mime=''; }
         if (mime!='') {
            inf.document.write
-           ('<br><a target="preview" align="right" href="'+url+
-           '"><img border=0 src="'+iconpath+mime+'.gif"></a>&nbsp;&nbsp;');
+           ('<br /><a target="preview" align="right" href="'+url+
+           '"><img border="0" width="20" src="'+iconpath+mime+'.gif" /></a>&nbsp;&nbsp;');
         }
        inf.document.write('<b>');
         if (data2[2]=='true') { inf.document.write('External '); }
@@ -1498,14 +1528,14 @@ function info(infostr) {
         if (data2[3]=='optional') {
            inf.document.write(' (Optional)');
         }
-        inf.document.writeln('</b><hr><b>'+data2[0]+'</b><br>');
+        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>');
+        inf.document.writeln('<b>Link</b><hr />');
         data2=obj[data1[0]].split('&');
         data3=objlinks[data2[data2.length-2]].split(':');
         inf.document.writeln('From <b>'+objcont[data3[0]].split(':')[0]+
-                 '</b><br>to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
+                 '</b><br />to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
      }
   }
   if (linkmode==0) {
@@ -1519,6 +1549,10 @@ function info(infostr) {
   }
   inf.document.writeln('</td></tr></table></body></html>');
   inf.document.close();
+  inf.opener = window;
+  var infout = parent.document.getElementById('infout')
+  infout.style.width = '500px';
+  infout.style.width = inf.document.body.firstChild.offsetWidth + 10 + 'px';
   parent.top.focus();
   parent.mapout.focus();
   notclear=0;
@@ -1597,21 +1631,25 @@ function insertcondlink(cid,lnr) {
 
 // ------------------------------------------------------ Clears indexer window
 function idxclear() {
-  idx.document.clear();
+  idx.document.open();
+  idx.document.close();
 }
 
 // --------------------------------------------------------- Clears copy window
 function copydxclear() {
-  copydx.document.clear();
+  copydx.document.open();
+  copydx.document.close();
 }
 // ------------------------------------------------------- Clears search window
 function srchclear() {
-  srch.document.clear();
+  srch.document.open();
+  srch.document.close();
 }
 
 // --------------------------------------------------------- Clears parm window
 function parmclear() {
-  parm.document.clear();
+  parm.document.open();
+  parm.document.close();
 }
 
 // ------------------------------------------------------ Closes indexer window
@@ -1654,6 +1692,14 @@ function idxopen(mode) {
    idx=open("/res/?launch=1&mode=rat&catalogmode="+mode,"idxout",options);
    idx.focus();
 }
+// -------------------------------------------------------- Open zombie window
+function groupopen(url) {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   idxmode=mode;
+   idxflag=1;
+   idx=open("/adm/groupsort?inhibitmenu=yes&mode=rat&recover=1&readfile="+url,"idxout",options);
+   idx.focus();
+}
 // ------------------------------------------------- Open browser to select map
     var editbrowser;
     function openbrowser(formname,elementname,only,omit) {
@@ -1683,13 +1729,13 @@ function copydxopen(mode) {
    copydxmode=mode;
    copydxflag=1;
    copydx=open("",'copydxout',options);
-   copydx.document.clear('');
+   copydx.document.open('');
    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'+
+ '<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" '+
+ '" value="Browse"><input type="button" value="Load Map" '+
  'onClick="window.location=document.mapload.importmap.value+'+
  "'?launch=1&forceselect=1'"+'"></form>');
 
@@ -1741,13 +1787,13 @@ function handler(infostr) {
   editmode=1;
   notclear=1;
   infcheck();
-  inf.document.clear();
+  inf.document.open();
   inf.document.writeln(
-   '<html><body bgcolor="#FFFFFF">'+
-   '<table><tr><td width=32><img src="'+raticons+'edit.gif"></td><td bgcolor="#AAFFAA">');
+   '<html><body style="background-color:white; margin: 0">'+
+   '<table style="font-size: 90%;"><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>');
+     inf.document.writeln('<b>Condition</b><hr />');
      linkmode=0;
      if (data1[4]=='-') {
         data2[0]=''; data2[1]='normal';
@@ -1755,20 +1801,20 @@ function handler(infostr) {
         data2=objcont[data1[4]].split(':');
      }
      inf.document.writeln(
-         '<form name=condinfo><textarea name=c cols=30 rows=3>'
-         +data2[0]+'</textarea><br><input type=radio name=s value=normal '+
+         '<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'); }
      inf.document.write(
-      '> Recommendation if true<br><input type=radio name=s value=stop '+
+      '> Recommendation if true<br /><input type="radio" name="s" value="stop" '+
       'onClick="self.document.forms.condinfo.elements.h.value='+"'stop'"+'"');
      if (data2[1]=='stop') { inf.document.write(' checked'); }
      inf.document.write(
-      '> Blocking this link if false<br><input type=radio name=s value=force '+
+      '> Blocking this link if false<br /><input type="radio" name="s" value="force" '+
       'onClick="self.document.forms.condinfo.elements.h.value='+"'force'"+'"');
      if (data2[1]=='force') { inf.document.write(' checked'); }
      inf.document.write(
-   '> Blocking other links if true<br><a href="javascript:opener.editmode=0;'
+   '> Blocking other links if true<br /><a href="javascript:opener.editmode=0;'
       +'opener.notclear=0;');
      if (data1[4]=='-') {
         inf.document.write('opener.crecond('+data1[2]+','+data1[1]+','
@@ -1782,19 +1828,19 @@ function handler(infostr) {
      inf.document.writeln(
       'opener.infoclear();opener.editmode=0;opener.draw('
       +');"><b>Save Changes</b></a>&nbsp;&nbsp;'
-    +' <a href="javascript:self.document.forms.condinfo.reset()">Reset</a><br>'
-      +'<input type=hidden name=h value='+data2[1]+'>');
+    +' <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('
-         +');">Delete Condition</a><br>');
+         +');">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:'+
+        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>');
@@ -1819,34 +1865,34 @@ 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="'
-+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');
-        if (data2[2]=='true') { inf.document.write(' checked'); }
-        inf.document.write('></td><td align=right>'
+         '<form name="resinfo"><table><tr><td>Title:</td><td colspan="2">'
+        +'<input type="text" name="t" size="30" value="'
++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"');
+        if (data2[2]=='true') { inf.document.write(' checked="checked"'); }
+        inf.document.write('></td><td align="right">'
         +'<a href="javascript:opener.idxcheck(\'interactive\')">Browse</a> '
         +'<a href="javascript:opener'
 	+'.srchcheck(\'interactive\')">Search</a></td></tr>');
     if ((data2[3]!='start') && (data2[3]!='finish')) {
-        inf.document.write('<tr><td colspan=3>'
-        +'<input type=radio name=y value=normal '+
+        inf.document.write('<tr><td colspan="3">'
+        +'<input type="radio" name="y" value="normal" '+
  'onClick="self.document.forms.resinfo.elements.h.value='+"'normal'"+'"');
-     if (data2[3]=='normal') { inf.document.write(' checked'); }
+     if (data2[3]=='normal') { inf.document.write(' checked="checked"'); }
      inf.document.write(
-      '> Regular&nbsp;&nbsp;<input type=radio name=y value=mandatory '+
+      '> 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'); }
+     if (data2[3]=='mandatory') { inf.document.write(' checked="checked"'); }
      inf.document.write(
-      '> Mandatory&nbsp;&nbsp;<input type=radio name=y value=optional '+
+      '> 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'); }
+     if (data2[3]=='optional') { inf.document.write(' checked="checked"'); }
      inf.document.write('> Optional</td></tr>');
     } 
         inf.document.writeln(
-         '<tr><td colspan=3><a href="javascript:opener.editmode=0;'
+         '<tr><td colspan="3"><a href="javascript:opener.editmode=0;'
         +'opener.notclear=0;opener.objcont['+data1[1]
         +']=opener.escape(self.document.forms.resinfo.elements.t.value)+'+"':'"
         +'+opener.escape(self.document.forms.resinfo.elements.u.value)+'+"':'"
@@ -1862,44 +1908,48 @@ function handler(infostr) {
          +'opener.delres('+data1[1]+',0);opener.editmode=0;opener.draw('
          +');">Delete Resource (cutting links)</a>');
         inf.document.writeln(
-          '<br><a href="javascript:opener.notclear=0;opener.infoclear();'
+          '<br /><a href="javascript:opener.notclear=0;opener.infoclear();'
          +'opener.delres('+data1[1]+',1);opener.editmode=0;opener.draw('
          +');">Delete Resource (preserving links)</a>');
     }
     if (data2[3]!='finish') {
         inf.document.writeln(
-          '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
+          '<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:'
+          '<br /><a href="javascript:'
          +'opener.setparms('+data1[1]+');'
          +'opener.infoclear();">Set Parameters</a>');
     
       }
      } else {
         linkmode=0;
-        inf.document.writeln('<b>Link</b><hr><form>');
+        inf.document.writeln('<b>Link</b><hr /><form>');
         data2=obj[data1[0]].split('&');
         k=data2[data2.length-2];
         data3=objlinks[k].split(':');
         inf.document.writeln('From <b>'+objcont[data3[0]].split(':')[0]+
-              '</b><br>to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
-        inf.document.writeln('<br><a href="javascript:opener.dellink('+
+              '</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('
                               +');">Delete Link</a>');
-        inf.document.writeln('<br><a href="javascript:'+
+        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;'
+     '<br /><a href="javascript:opener.editmode=0;opener.notclear=0;'
      +'opener.infoclear();">Cancel</a>');
   inf.document.writeln('</form></td></tr></table></body></html>');
   inf.document.close();
+  inf.opener = window;
+  var infout = parent.document.getElementById('infout')
+  infout.style.width = '500px';
+  infout.style.width = inf.document.body.firstChild.offsetWidth + 10 + 'px';
   inf.focus();
 }
 
@@ -1913,13 +1963,13 @@ function empty(rid,k) {
   notclear=1;
   linkmode=0;
   infcheck();
-  inf.document.clear();
+  inf.document.open();
   inf.document.writeln(
-   '<html><body bgcolor="#FFFFFF">'+
-   '<table><tr><td width=32><img src="'+raticons+'edit.gif"></td><td bgcolor="#AAFFAA">'+
-   '<b>Empty Field</b><hr>');
+   '<html><body style="background-color:white; margin: 0">'+
+   '<table style="font-size: 90%;"><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('+
+        inf.document.writeln('<br /><a href="javascript:opener.newresource('+
           rid+','+cid+",'','','false','normal');"+
          'opener.mostrecent=opener.obj.length-1;'+
          'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
@@ -1928,14 +1978,14 @@ function empty(rid,k) {
   if ((mostrecent!=0) && (objcont[mostrecent]!='') && 
                          (typeof(objcont[mostrecent])!="undefined")) {
 
-        inf.document.writeln('<br><a href="javascript:opener.newresource('+
+        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('
           +');">Insert resource linked to from most recent one</a>');
 
-        inf.document.writeln('<br><a href="javascript:opener.newresource('+
+        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);'+
@@ -1944,7 +1994,7 @@ function empty(rid,k) {
   }
 
 
-  inf.document.writeln('<hr>Insert column:');
+  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('
@@ -1953,7 +2003,7 @@ function empty(rid,k) {
         k+');opener.addobj('+rid+",'e&'+opener.maxcol);"
        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                               +');">right</a> ');
-   inf.document.writeln('<br>Insert row:');
+   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('
@@ -1965,10 +2015,14 @@ function empty(rid,k) {
 
 
   inf.document.writeln(
-   '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
+   '<br /><a href="javascript:opener.editmode=0;opener.notclear=0;'
   +'opener.infoclear();">Cancel</a>');
   inf.document.writeln('</td></tr></table></body></html>');
   inf.document.close();
+  inf.opener = window;
+  var infout = parent.document.getElementById('infout')
+  infout.style.width = '500px';
+  infout.style.width = inf.document.body.firstChild.offsetWidth + 10 + 'px';
   inf.focus();
 }
 
@@ -2117,9 +2171,9 @@ function tabledraw() {
         if ((mime!='') && (ext!='true')) {
            parent.mapout.document.write
            ('<a target="preview" align="right" href="'+url+'.meta'+
-           '"><img src="'+iconpath+'meta.gif"></a><p>'+
+           '"><img width="20" src="'+iconpath+'meta.gif" /></a><p>'+
            '<a target="preview" align="right"href="'+url+
-           '"><img src="'+iconpath+mime+'.gif"></a><p>');
+           '"><img width="20" src="'+iconpath+mime+'.gif" /></a><p>');
         }
          parent.mapout.document.write(
          '<b><a href="javascript:if (parent.code.linkmode!=0) { '
@@ -2127,7 +2181,7 @@ function tabledraw() {
         +'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>');
+        +'"><form name="r'+i+'" method="post">');
       data2=obj[i].split('&');
       parent.mapout.document.write('<table bgcolor="#CCCCCC">');
 
@@ -2138,35 +2192,35 @@ function tabledraw() {
          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>');
+       '<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>');
       parent.mapout.document.write(
-       '<tr><td>URL:</td><td><input type=text name=u size=50 value="'
+       '<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'); }
+          +'<tr><td>External:</td><td><input type="checkbox" name="e"');
+        if (data1[2]=='true') { parent.mapout.document.write(' checked="checked"'); }
         parent.mapout.document.write('></td></tr>');
     if ((data1[3]!='start') && (data1[3]!='finish')) {
         parent.mapout.document.write(
-        '<tr><td colspan=2><input type=radio name=y value=normal '+
+        '<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'); }
+     if (data1[3]=='normal') { parent.mapout.document.write(' checked="checked"'); }
      parent.mapout.document.write(
-      '> Regular&nbsp;&nbsp;<input type=radio name=y value=mandatory '+
+      '> 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'); }
+     if (data1[3]=='mandatory') { parent.mapout.document.write(' checked="checked"'); }
      parent.mapout.document.write(
-      '> Mandatory&nbsp;&nbsp;<input type=radio name=y value=optional '+
+      '> 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'); }
+     if (data1[3]=='optional') { parent.mapout.document.write(' checked="checked"'); }
      parent.mapout.document.write('> Optional</td></tr>');
     } 
      parent.mapout.document.write(
-         '<tr><td colspan=2><a href="javascript:parent.code.objcont['+i        
+         '<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
@@ -2176,15 +2230,15 @@ function tabledraw() {
         +';parent.code.draw();">'
         +'<b>Save Changes</b></a>&nbsp;&nbsp;'
         +' <a href="javascript:parent.mapout.document.forms.r'+i
-        +'.reset()">Reset</a></td></tr><tr><td colspan=2>');
+        +'.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();'
+ '<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();'
++'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>');
++'Delete Resource (preserving links)</a><br />');
     }
     if (data1[3]!='finish') {
        parent.mapout.document.writeln(
@@ -2193,11 +2247,11 @@ function tabledraw() {
        'Link resource</a>');
     }
         parent.mapout.document.writeln(
-          '<br><a href="javascript:'
+          '<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>');
+       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(':');
@@ -2211,7 +2265,7 @@ function tabledraw() {
                    condid='-';
                  }                 
                  parent.mapout.document.writeln(
-                  '<td bgcolor='+cck+'>Next<br>');
+                  '<td bgcolor="'+cck+'">Next<br />');
                  parent.mapout.document.writeln(
                   '<a href="javascript:parent.code.handler('+
                   "'c&"+data4[0]+'&'+i+'&'+data4[2]+'&'+condid+"');"
@@ -2233,7 +2287,7 @@ function tabledraw() {
                    condid='-';
                  }
                  parent.mapout.document.writeln(
-                  '<td bgcolor='+cck+'>To: '+robjs[data3[1]]+'<br>');
+                  '<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+"');"
@@ -2252,7 +2306,7 @@ function tabledraw() {
 
 // ----------------------------------------------------- Insert Resource Output
 function insrestab(irow,be,af,typ) {
-  parent.mapout.document.writeln('<tr><td colspan=2>'+
+  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;"
@@ -2266,7 +2320,7 @@ function insrestab(irow,be,af,typ) {
        +"parent.code.save();"
        +'parent.code.joinres('+be+',parent.code.mostrecent,0);'
        +'parent.code.draw();">'
-       +'Insert resource linked to from above</a><br>');
+       +'Insert resource linked to from above</a><br />');
   }
   if ((be!=-1) && (af!=-1) && (typ!='finish')) {
      parent.mapout.document.writeln(
@@ -2278,7 +2332,7 @@ function insrestab(irow,be,af,typ) {
        +"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>');
+       +'Insert resource linked to from above and linking to below</a><br />');
   }
   if (af!=-1) {
      parent.mapout.document.writeln(
@@ -2288,7 +2342,7 @@ function insrestab(irow,be,af,typ) {
        +"parent.code.save();"
        +'parent.code.joinres(parent.code.mostrecent,'+af+',0);'
        +'parent.code.draw();">'
-       +'Insert resource linking to below</a><br>');
+       +'Insert resource linking to below</a><br />');
   }
   parent.mapout.document.writeln('</td></tr></table></tr>');
 }
@@ -2335,9 +2389,9 @@ function simpletabledraw() {
         if ((mime!='') && (ext!='true')) {
            parent.mapout.document.write
            ('<a target="preview" align="right" href="'+url+'.meta'+
-           '"><img src="'+iconpath+'meta.gif"></a><p>'+
+           '"><img width="20" src="'+iconpath+'meta.gif" /></a><p>'+
            '<a target="preview" align="right"href="'+url+
-           '"><img src="'+iconpath+mime+'.gif"></a><p>');
+           '"><img width="20" src="'+iconpath+mime+'.gif" /></a><p>');
         }        
       parent.mapout.document.write('<b>'+k+'</b></td><td bgcolor="'+ck+'">');
       data2=obj[i].split('&');
@@ -2353,7 +2407,7 @@ function simpletabledraw() {
        '<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>');
+      +'<tr><td colspan="2"><table><tr>');
        for (j=2;j<data2.length;j++) {
            data4=data2[j].split(':');
            data3=objlinks[data4[2]].split(':');
@@ -2367,7 +2421,7 @@ function simpletabledraw() {
                    condid='-';
                  }                 
                  parent.mapout.document.writeln(
-                  '<td bgcolor='+cck+'>Next<br>');
+                  '<td bgcolor='+cck+'>Next<br />');
                   parent.mapout.document.writeln('</td>');
               }
            }
@@ -2385,7 +2439,7 @@ function simpletabledraw() {
                    condid='-';
                  }
                  parent.mapout.document.writeln(
-                  '<td bgcolor='+cck+'>To: '+robjs[data3[1]]+'<br>');
+                  '<td bgcolor="'+cck+'">To: '+robjs[data3[1]]+'<br />');
                  parent.mapout.document.writeln('</td>');
               }
            }
@@ -2732,15 +2786,15 @@ function schedule(action) {
 
 // ----------------------------------------------------- launch indexer browser
 function groupsearch() {
-   srchcheck('groupsearch');
+   srchcheck('import');
 }
 
 function groupimport() {
-   idxcheck('groupimport');
+   idxcheck('import');
 }
 
 function groupcopy() {
-   copydxcheck('groupsec');
+   copydxcheck('import');
 }
 
 // -------------------------------------------------------------- Store changes
@@ -2792,9 +2846,6 @@ function main() {
 
 // ---------------------------------------------------------- Close the window?
 function leave() {
-   if (!inf.closed) {
-      inf.close();
-   }
    if (srch && !srch.closed) {
       srchclose();
    }