--- loncom/interface/lonrequestcourse.pm 2009/12/20 01:58:48 1.41.2.2 +++ loncom/interface/lonrequestcourse.pm 2010/01/02 18:11:46 1.41.2.3 @@ -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 @@ sub update_requestors_roles { @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 '') {