rat/map.pm - diff

Return to map.pm CVS log

Up to [LON-CAPA] / rat

version 1.7, 2007/07/12 01:04:32	version 1.9, 2007/12/01 01:59:54
Line 145 sub mapread {	Line 145 sub mapread {
# Call lonsequence::attemptread to read from resource space	# Call lonsequence::attemptread to read from resource space
#	#
sub attemptread {	sub attemptread {
my $fn=shift;	my ($fn,$unsorted)=@_;

my @links;	my @links;
my @theseres;	my @theseres;
Line 166 sub attemptread {	Line 166 sub attemptread {
$links[$number]=$content;	$links[$number]=$content;
}	}
}	}
	if ($unsorted) {
	return @theseres;
	}

# --------------------------------------------------------------- Sort, sort of	# --------------------------------------------------------------- Sort, sort of

Line 284 sub pastetarget {	Line 287 sub pastetarget {
my @insertorder=();	my @insertorder=();
foreach (@which) {	foreach (@which) {
if (defined($_)) {	if (defined($_)) {
my ($name,$url)=split(/\=/,$_);	my ($name,$url,$residx)=split(/\=/,$_);
$name=&unescape($name);	$name=&unescape($name);
$url=&unescape($url);	$url=&unescape($url);
if ($url) {	if ($url) {
my $idx=&getresidx($url);	my $idx=&getresidx($url,$residx);
$insertorder[$#insertorder+1]=$idx;	$insertorder[$#insertorder+1]=$idx;
my $ext='false';	my $ext='false';
if ($url=~/^http\:\/\//) { $ext='true'; }	if ($url=~/^http\:\/\//) { $ext='true'; }