--- rat/map.pm 2007/08/02 01:47:42 1.8 +++ 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.8 2007/08/02 01:47:42 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