--- rat/lonuserstate.pm 2005/06/08 18:49:38 1.92 +++ rat/lonuserstate.pm 2005/06/29 11:57:17 1.93 @@ -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.92 2005/06/08 18:49:38 www Exp $ +# $Id: lonuserstate.pm,v 1.93 2005/06/29 11:57:17 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -73,6 +73,7 @@ sub versiontrack { sub putinversion { my $uri=shift; + my $key=$env{'request.course.id'}.'_'.&Apache::lonnet::clutter($uri); if ($hash{'version_'.$uri}) { my $version=$hash{'version_'.$uri}; if ($version eq 'mostrecent') { return $uri; } @@ -81,6 +82,7 @@ sub putinversion { { return $uri; } $uri=~s/\.(\w+)$/\.$version\.$1/; } + &Apache::lonnet::do_cache_new('courseresversion',$key,&Apache::lonnet::declutter($uri),600); return $uri; }