version 1.5, 2019/01/20 02:42:41
|
version 1.6, 2019/01/27 15:44:18
|
Line 44 sub handler {
|
Line 44 sub handler {
|
my $r = shift; |
my $r = shift; |
my %user; |
my %user; |
my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user); |
my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user); |
if ($handle ne '') { |
if ($handle ne '') { |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
if ($r->uri =~ m{^/tiny/($match_domain)/(\w+)$}) { |
if ($r->uri =~ m{^/tiny/($match_domain)/(\w+)$}) { |
Line 97 sub handler {
|
Line 97 sub handler {
|
my $update; |
my $update; |
# Check if course needs to be re-initialized |
# Check if course needs to be re-initialized |
my $loncaparev = $r->dir_config('lonVersion'); |
my $loncaparev = $r->dir_config('lonVersion'); |
my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev,20); |
my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev); |
if ($result eq 'update') { |
if ($result eq 'update') { |
$update = 1; |
$update = 1; |
} elsif (!-e $env{'request.course.fn'}.'.db') { |
} elsif (!-e $env{'request.course.fn'}.'.db') { |