|
version 1.71, 2005/06/08 18:49:38
|
version 1.72, 2005/06/09 21:40:37
|
|
Line 467 sub getresidx {
|
Line 467 sub getresidx {
|
| sub makezombie { |
sub makezombie { |
| my $idx=shift; |
my $idx=shift; |
| my ($name,$url,$ext)=split(/\:/,$resources[$idx]); |
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 |
# ----------------------------------------------------------- Paste into target |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonratedt.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat