[LON-CAPA-cvs] cvs: loncom(GCI_3) /interface lonrequestcourse.pm

[raeburn]

raeburn		Sat Jan  2 18:11:47 2010 EDT

  Modified files:              (Branch: GCI_3)
    /loncom/interface	lonrequestcourse.pm 
  Log:
  - Backport 1.42.
  
  
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.41.2.2 loncom/interface/lonrequestcourse.pm:1.41.2.3
--- loncom/interface/lonrequestcourse.pm:1.41.2.2	Sun Dec 20 01:58:48 2009
+++ loncom/interface/lonrequestcourse.pm	Sat Jan  2 18:11:46 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.41.2.2 2009/12/20 01:58:48 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.41.2.3 2010/01/02 18:11:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3156,7 +3156,14 @@
                 @roles = ($ccrole);
             }
             foreach my $role (@roles) {
-                my $start = $now;
+                my $refresh=$env{'user.refresh.time'};
+                if ($refresh eq '') {
+                    $refresh = $env{'user.login.time'};
+                }
+                if ($refresh eq '') {
+                    $refresh = $now;
+                }
+                my $start = $refresh-1;
                 my $end = '0';
                 if ($role eq 'st') {
                     if ($details->{'accessstart'} ne '') {