--- rat/lonratedt.pm	2005/06/08 17:42:01	1.70
+++ rat/lonratedt.pm	2005/06/09 21:40:37	1.72
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.70 2005/06/08 17:42:01 www Exp $
+# $Id: lonratedt.pm,v 1.72 2005/06/09 21:40:37 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,7 +33,7 @@ package Apache::lonratedt;
 
 =head1 NAME
 
-Apache::lonratedt: advanced resource assembly tool
+Apache::lonratedt: simple resource assembly tool
 
 =head1 SYNOPSIS
 
@@ -462,6 +462,17 @@ sub getresidx {
     return $max;
 }
 
+# --------------------------------------------------------------- Make a zombie
+
+sub makezombie {
+    my $idx=shift;
+    my ($name,$url,$ext)=split(/\:/,$resources[$idx]);
+    my $now=time;
+    $zombies[$idx]=$name.
+	' [('.$now.','.$env{'user.name'}.','.$env{'user.domain'}.')]:'.
+	$url.':'.$ext.':zombie';
+}
+
 # ----------------------------------------------------------- Paste into target
 # modifies @order, @resources
 
@@ -913,7 +924,11 @@ sub smpedt {
                foreach (@targetselect) {
 		   if ($_-1==$i) { $include=0; }
                }
-               if ($include) { $neworder[$#neworder+1]=$order[$i]; }
+               if ($include) { 
+		   $neworder[$#neworder+1]=$order[$i]; 
+	       } else {
+		   &makezombie($order[$i]);
+	       }
            }
            @order=@neworder;
            &storemap(&Apache::lonnet::filelocation('',$url));