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'; } |