rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

version 1.70, 2005/06/08 17:42:01	version 1.71, 2005/06/08 18:49:38
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]);
	$zombies[$idx]=$name.':'.$url.':'.$ext.':zombie';
	}

# ----------------------------------------------------------- Paste into target	# ----------------------------------------------------------- Paste into target
# modifies @order, @resources	# modifies @order, @resources

Line 913 sub smpedt {	Line 921 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));