--- rat/map.pm 2007/07/12 01:04:32 1.7 +++ rat/map.pm 2007/12/01 01:59:54 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # routines for modyfing .sequence and .page files # -# $Id: map.pm,v 1.7 2007/07/12 01:04:32 albertel Exp $ +# $Id: map.pm,v 1.9 2007/12/01 01:59:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -145,7 +145,7 @@ sub mapread { # Call lonsequence::attemptread to read from resource space # sub attemptread { - my $fn=shift; + my ($fn,$unsorted)=@_; my @links; my @theseres; @@ -166,6 +166,9 @@ sub attemptread { $links[$number]=$content; } } + if ($unsorted) { + return @theseres; + } # --------------------------------------------------------------- Sort, sort of @@ -284,11 +287,11 @@ sub pastetarget { my @insertorder=(); foreach (@which) { if (defined($_)) { - my ($name,$url)=split(/\=/,$_); + my ($name,$url,$residx)=split(/\=/,$_); $name=&unescape($name); $url=&unescape($url); if ($url) { - my $idx=&getresidx($url); + my $idx=&getresidx($url,$residx); $insertorder[$#insertorder+1]=$idx; my $ext='false'; if ($url=~/^http\:\/\//) { $ext='true'; }