version 1.8, 2007/08/02 01:47:42
|
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 |
|
|