--- rat/lonuserstate.pm	2002/10/07 13:50:36	1.44
+++ 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.44 2002/10/07 13:50:36 www Exp $
+# $Id: lonuserstate.pm,v 1.45 2002/10/07 19:00:43 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -68,11 +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
-my $hasversionpriv # user has versioning privileges
+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 { 
@@ -485,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("<font color=blue>WARNING: ".
                        "Could not untie coursemap $fn for $uri.</font>");