[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm rat lonuserstate.pm

[raeburn]

raeburn		Sat Jul 21 21:09:03 2012 EDT

  Modified files:              
    /rat	lonuserstate.pm 
    /loncom/auth	lonroles.pm 
  Log:
  - Timestamp in user's env for when coursemap was last tied:
    $env{'request.course.tied'}.  
  
  
Index: rat/lonuserstate.pm
diff -u rat/lonuserstate.pm:1.142 rat/lonuserstate.pm:1.143
--- rat/lonuserstate.pm:1.142	Thu Oct 20 17:14:19 2011
+++ rat/lonuserstate.pm	Sat Jul 21 21:08:56 2012
@@ -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.142 2011/10/20 17:14:19 raeburn Exp $
+# $Id: lonuserstate.pm,v 1.143 2012/07/21 21:08:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1220,7 +1220,9 @@
 			    #
 		            &Apache::lonnet::appenv({"request.course.id"  => $short,
 		   			             "request.course.fn"  => $fn,
-					             "request.course.uri" => $uri});
+					             "request.course.uri" => $uri,
+                                                     "request.course.tied" => time});
+                            
 		            $untiedhash = untie(%hash);
 		            $untiedparmhash = untie(%parmhash);
                             $gotstate = 1;
@@ -1376,7 +1378,8 @@
     if (defined($hash{'map_start_'.$uri})) {
         &Apache::lonnet::appenv({"request.course.id"  => $short,
                                  "request.course.fn"  => $fn,
-                                 "request.course.uri" => $uri});
+                                 "request.course.uri" => $uri,
+                                 "request.course.tied" => time});
         $env{'request.course.id'}=$short;
         &traceroute('0',$hash{'map_start_'.$uri},'&');
         &accinit($uri,$short,$fn);
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.268 loncom/auth/lonroles.pm:1.269
--- loncom/auth/lonroles.pm:1.268	Sat Jun 30 23:02:25 2012
+++ loncom/auth/lonroles.pm	Sat Jul 21 21:09:03 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.268 2012/06/30 23:02:25 raeburn Exp $
+# $Id: lonroles.pm,v 1.269 2012/07/21 21:09:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -266,6 +266,7 @@
 			 	 "request.course.fn"   => '',
 				 "request.course.uri"  => '',
 				 "request.course.sec"  => '',
+                                 "request.course.tied" => '',
 				 "request.role"        => 'cm',
                                  "request.role.adv"    => $env{'user.adv'},
 				 "request.role.domain" => $env{'user.domain'}});