version 1.15, 2022/07/02 19:55:15
|
version 1.17, 2022/10/19 18:09:04
|
Line 118 sub handler {
|
Line 118 sub handler {
|
$realuri .= '?symb='.$symb; |
$realuri .= '?symb='.$symb; |
} |
} |
} |
} |
my $update; |
my ($update,$reinitresult); |
# Check if course needs to be re-initialized |
# Check if course needs to be re-initialized |
if ($newlauncher) { |
if ($newlauncher) { |
$update = 1; |
$update = 1; |
} else { |
} else { |
my $loncaparev = $r->dir_config('lonVersion'); |
my $loncaparev = $r->dir_config('lonVersion'); |
my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev); |
($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev); |
if ($result eq 'update') { |
if (($reinitresult eq 'main') || ($reinitresult eq 'both')) { |
$update = 1; |
$update = 1; |
} elsif (!-e $env{'request.course.fn'}.'.db') { |
} elsif (!-e $env{'request.course.fn'}.'.db') { |
$update = 1; |
$update = 1; |
Line 155 sub handler {
|
Line 155 sub handler {
|
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} |
} |
|
if (($reinitresult eq 'both') || ($reinitresult eq 'supp')) { |
|
my $possdel; |
|
if ($reinitresult eq 'supp') { |
|
$possdel = 1; |
|
} |
|
my ($supplemental,$refs_updated) = &Apache::lonnet::get_supplemental($cnum,$cdom,'',$possdel); |
|
unless ($refs_updated) { |
|
&Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental,$possdel); |
|
} |
|
} |
my $host = $r->headers_in->get('Host'); |
my $host = $r->headers_in->get('Host'); |
if (!$host) { |
if (!$host) { |
$r->internal_redirect($realuri); |
$r->internal_redirect($realuri); |
Line 250 sub handler {
|
Line 260 sub handler {
|
$destination .= '&ttoken='.$env{'form.ttoken'}; |
$destination .= '&ttoken='.$env{'form.ttoken'}; |
} |
} |
&do_redirect($r,$destination,$linkprot); |
&do_redirect($r,$destination,$linkprot); |
} elsif (keys(%possroles) > 1) { |
} elsif (@allposs > 1) { |
if (grep(/^(cc|co)$/,@allposs)) { |
if (grep(/^(cc|co)$/,@allposs)) { |
my $newrole; |
my $newrole; |
if (exists($possroles{'cc'})) { |
if (exists($possroles{'cc'})) { |
Line 270 sub handler {
|
Line 280 sub handler {
|
if (grep(/^cr\//,@allposs)) { |
if (grep(/^cr\//,@allposs)) { |
$hascustom = 1; |
$hascustom = 1; |
} |
} |
&show_roles($r,\%crsenv,\%possroles,$hassection,$hascustom); |
&show_roles($r,\%crsenv,\%active,$hassection,$hascustom); |
} |
} |
} |
} |
return OK; |
return OK; |