[LON-CAPA-cvs] cvs: rat / lonratedt.pm

[www]

www		Thu Jun  9 17:40:38 2005 EDT

  Modified files:              
    /rat	lonratedt.pm 
  Log:
  Whodunit?
  
  
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.71 rat/lonratedt.pm:1.72
--- rat/lonratedt.pm:1.71	Wed Jun  8 14:49:38 2005
+++ rat/lonratedt.pm	Thu Jun  9 17:40:37 2005
@@ -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.72 2005/06/09 21:40:37 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -467,7 +467,10 @@
 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