--- rat/lonuserstate.pm 2006/05/05 15:50:20 1.109 +++ rat/lonuserstate.pm 2006/05/11 23:54:06 1.110 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construct and maintain state and binary representation of course for user # -# $Id: lonuserstate.pm,v 1.109 2006/05/05 15:50:20 albertel Exp $ +# $Id: lonuserstate.pm,v 1.110 2006/05/11 23:54:06 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -592,8 +592,14 @@ sub readmap { } # ------------------------------------------------------- Put versions into src foreach my $key (keys(%hash)) { - if ($key=~/^src\_/) { + if ($key=~/^src_/) { $hash{$key}=&putinversion($hash{$key}); + } elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) { + &Apache::lonnet::logthis($key); + my ($type, $url) = ($1,$2); + my $value = $hash{$key}; + delete($hash{$key}); + $hash{$type.&putinversion($url)}=$value; } } # ---------------------------------------------------------------- Encrypt URLs