--- rat/lonuserstate.pm 2010/03/25 17:38:52 1.135 +++ rat/lonuserstate.pm 2010/06/16 23:42:52 1.136 @@ -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.135 2010/03/25 17:38:52 raeburn Exp $ +# $Id: lonuserstate.pm,v 1.136 2010/06/16 23:42:52 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -126,6 +126,15 @@ sub loadmap { my $lpc=$pc; $hash{'map_pc_'.$uri}=$lpc; $hash{'map_id_'.$lpc}=$uri; + if ($parent_rid =~ /^(\d+)\.\d+$/) { + my $parent_pc = $1; + if (defined($hash{'map_hierarchy_'.$parent_pc})) { + $hash{'map_hierarchy_'.$lpc}=$hash{'map_hierarchy_'.$parent_pc}.','. + $parent_pc; + } else { + $hash{'map_hierarchy_'.$lpc}=$parent_pc; + } + } # Determine and check filename my $fn=&Apache::lonnet::filelocation('',&putinversion($uri));