--- rat/lonratedt.pm 2005/06/08 18:49:38 1.71 +++ 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.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 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