--- rat/lonratedt.pm	2005/06/08 18:49:38	1.71
+++ rat/lonratedt.pm	2005/06/10 16:56:08	1.73
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.71 2005/06/08 18:49:38 www Exp $
+# $Id: lonratedt.pm,v 1.73 2005/06/10 16:56:08 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -467,7 +467,10 @@ sub getresidx {
 sub makezombie {
     my $idx=shift;
     my ($name,$url,$ext)=split(/\:/,$resources[$idx]);
-    $zombies[$idx]=$name.':'.$url.':'.$ext.':zombie';
+    my $now=time;
+    $zombies[$idx]=$name.
+	' [('.$now.','.$env{'user.name'}.','.$env{'user.domain'}.')]:'.
+	$url.':'.$ext.':zombie';
 }
 
 # ----------------------------------------------------------- Paste into target
@@ -686,6 +689,14 @@ function idxopen(mode) {
    idx.focus();
 }
 
+// ------------------------------------------------------ Open groupsort window
+function groupopen(url,recover) {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   idxflag=1;
+   idx=open("/adm/groupsort?mode=$mode&recover="+recover+"&readfile="+url,"idxout",options);
+   idx.focus();
+}
+
 // --------------------------------------------------------- Open search window
 function srchopen(mode) {
    var options="scrollbars=1,resizable=1,menubar=0";
@@ -702,6 +713,7 @@ function groupsearch() {
 function groupimport() {
    idxcheck('groupimport');
 }
+
 // ------------------------------------------------------- Do srch status check
 function srchcheck(mode) {
    if (!srch || srch.closed || srchmode!=mode) {