--- rat/client/ratcode.js	2004/11/17 18:39:20	1.1
+++ rat/client/ratcode.js	2009/03/25 15:49:57	1.9
@@ -1,6 +1,7 @@
 <!--
 The LearningOnline Network
 Resource Assembly Tool
+// $Id: ratcode.js,v 1.9 2009/03/25 15:49:57 bisitz 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
@@ -850,7 +875,12 @@ function delres (obj1,recon) {
    for (k=0;k<inwithlink.length;k++)  { dellink(inwithlink[k]); }
    for (k=0;k<outwithlink.length;k++) { dellink(outwithlink[k]); }
    delobj(obj1);
-   objcont[obj1]='';
+// turn into a zombie
+   data2=objcont[obj1].split(':');
+   data2[3]='zombie';
+   data2[4]='zombie';
+   objcont[obj1]=data2.join(':');
+// reconnect
    if (recon==1) {
      message("Reconnecting");
       for (k=0;k<inwithlink.length;k++) {
@@ -974,9 +1004,9 @@ function drawcell (rtype,ctype,what,cm,o
         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+
+           url+'.meta"><img border=0 width=20 src="'+iconpath+
            'meta.gif"><a target="preview" href="'+url+
-           '"><img border=0 src="'+iconpath+mime+'.gif">'+
+           '"><img border=0 width=20 src="'+iconpath+mime+'.gif">'+
            '<img border=0 src="'+raticons+'right.gif">');
         } else {
            parent.mapout.document.write
@@ -1014,9 +1044,9 @@ function drawcell (rtype,ctype,what,cm,o
         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+
+           url+'.meta"><img border=0 width=20 src="'+iconpath+
            'meta.gif"><a target="preview" href="'+url+
-           '"><img border=0 src="'+iconpath+mime+'.gif">'+
+           '"><img border=0 width=20 src="'+iconpath+mime+'.gif">'+
            '<img border=0 src="'+raticons+'right.gif">');
         } else {
            parent.mapout.document.write
@@ -1050,9 +1080,9 @@ function drawcell (rtype,ctype,what,cm,o
         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+
+           url+'.meta"><img border=0 width=20 src="'+iconpath+
            'meta.gif"><a target="preview" href="'+url+
-           '"><img border=0 src="'+iconpath+mime+'.gif">'+
+           '"><img border=0 width=20 src="'+iconpath+mime+'.gif">'+
            '<img border=0 src="'+raticons+'right.gif">');
         } else {
            parent.mapout.document.write
@@ -1474,7 +1504,7 @@ function info(infostr) {
         if (mime!='') {
            inf.document.write
            ('<br><a target="preview" align="right" href="'+url+
-           '"><img border=0 src="'+iconpath+mime+'.gif"></a>&nbsp;&nbsp;');
+           '"><img border=0 width=20 src="'+iconpath+mime+'.gif"></a>&nbsp;&nbsp;');
         }
        inf.document.write('<b>');
         if (data2[2]=='true') { inf.document.write('External '); }
@@ -1649,6 +1679,22 @@ 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?mode=rat&recover=1&readfile="+url,"idxout",options);
+   idx.focus();
+}
+// ------------------------------------------------------- Open bookmark window
+function bookmarkopen() {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   idxmode=mode;
+   idxflag=1;
+   idx=open("/adm/groupsort?mode=rat&bookmarks=1","idxout",options);
+   idx.focus();
+}
 // ------------------------------------------------- Open browser to select map
     var editbrowser;
     function openbrowser(formname,elementname,only,omit) {
@@ -2112,9 +2158,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) { '
@@ -2330,9 +2376,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('&');
@@ -2727,15 +2773,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