--- rat/client/ratcode.js	2004/11/17 18:39:20	1.1
+++ rat/client/ratcode.js	2005/06/11 01:06:54	1.4
@@ -1,6 +1,7 @@
 <!--
 The LearningOnline Network
 Resource Assembly Tool
+// $Id: ratcode.js,v 1.4 2005/06/11 01:06:54 www Exp $
 //
 // Copyright Michigan State University Board of Trustees
 //
@@ -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;
@@ -244,8 +246,10 @@ 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')]=
+   var newidx=addobj(rid,'b&'+rid+'&'+cid+':0:0:0',url);
+   objcont[newidx]=
     text+':'+url+':'+ext+':'+type+':res';
+   return newidx;
 }
 
 
@@ -464,15 +468,29 @@ 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) {
    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
+      for (oidx=0;oidx<objcont.length;oidx++) {
+          if (typeof(objcont[oidx])!="undefined") {
+             data6=objcont[oidx].split(':');	
+             if (data6[4]=='zombie') {
+                if (data6[1]==url) {
+                   newindex=oidx;
+                }
+             }
+         }
+      }
+   }
+   rowcont[kjid]+=newindex;
+   obj[newindex]=objs;
+   return newindex;
 } 
 
 // ---------------------------------------- Make horizontal connection for hrid
@@ -850,7 +868,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++) {
@@ -1649,6 +1672,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?mode=rat&recover=1&readfile="+url,"idxout",options);
+   idx.focus();
+}
 // ------------------------------------------------- Open browser to select map
     var editbrowser;
     function openbrowser(formname,elementname,only,omit) {