--- rat/lonuserstate.pm 2002/09/10 20:53:37 1.43 +++ rat/lonuserstate.pm 2002/10/07 19:00:43 1.45 @@ -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.43 2002/09/10 20:53:37 www Exp $ +# $Id: lonuserstate.pm,v 1.45 2002/10/07 19:00:43 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -68,6 +68,11 @@ my @cond; # Array with all of the con my $errtext; # variable with all errors my $retfurl; # variable with the very first URL in the course my %randompick; # randomly picked resources +my %actualversion; # version of resource as loaded now +my %setversion; # forced version of resource +my %lastversion; # version when CC came in last +my $versionmode; # how versioning is handled in this course + # --------------------------------------------------------- Loads map from disk sub loadmap { @@ -480,6 +485,10 @@ sub readmap { &accinit($uri,$short,$fn); &pickrandom(); } +# ------------------------------------------------------------ Version tracking + if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { + &Apache::lonnet::logthis('Will be version tracking'); + } unless ((untie(%hash)) && (untie(%parmhash))) { &Apache::lonnet::logthis("WARNING: ". "Could not untie coursemap $fn for $uri.");