version 1.70, 2005/06/08 17:42:01
|
version 1.72, 2005/06/09 21:40:37
|
Line 33 package Apache::lonratedt;
|
Line 33 package Apache::lonratedt;
|
|
|
=head1 NAME |
=head1 NAME |
|
|
Apache::lonratedt: advanced resource assembly tool |
Apache::lonratedt: simple resource assembly tool |
|
|
=head1 SYNOPSIS |
=head1 SYNOPSIS |
|
|
Line 462 sub getresidx {
|
Line 462 sub getresidx {
|
return $max; |
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 |
# ----------------------------------------------------------- Paste into target |
# modifies @order, @resources |
# modifies @order, @resources |
|
|
Line 913 sub smpedt {
|
Line 924 sub smpedt {
|
foreach (@targetselect) { |
foreach (@targetselect) { |
if ($_-1==$i) { $include=0; } |
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; |
@order=@neworder; |
&storemap(&Apache::lonnet::filelocation('',$url)); |
&storemap(&Apache::lonnet::filelocation('',$url)); |