version 1.2, 2018/04/14 02:29:44
|
version 1.8.2.2, 2022/05/27 18:10:44
|
Line 35 use Apache::lonnet;
|
Line 35 use Apache::lonnet;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonroles; |
use Apache::lonroles; |
|
use Apache::lonuserstate; |
|
use Apache::lonnavmaps; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
Line 42 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'); |
|
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
if ($r->uri =~ m{^/tiny/($match_domain)/(\w+)$}) { |
if ($r->uri =~ m{^/tiny/($match_domain)/(\w+)$}) { |
my ($cdom,$key) = ($1,$2); |
my ($cdom,$key) = ($1,$2); |
if (&Apache::lonnet::domain($cdom) ne '') { |
if (&Apache::lonnet::domain($cdom) ne '') { |
Line 63 sub handler {
|
Line 67 sub handler {
|
if ($cnum =~ /^$match_courseid$/) { |
if ($cnum =~ /^$match_courseid$/) { |
my $chome = &Apache::lonnet::homeserver($cnum,$cdom); |
my $chome = &Apache::lonnet::homeserver($cnum,$cdom); |
if ($chome ne 'no_host') { |
if ($chome ne 'no_host') { |
my %crsenv = &Apache::lonnet::coursedescription("$cdom/$cnum"); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['ttoken']); |
my @possroles = ('in','ta','ep','st','cr','ad'); |
if ($env{'request.course.id'} eq $cdom.'_'.$cnum) { |
if ($crsenv{'type'} eq 'Community') { |
# Check for ttoken |
unshift(@possroles,'co'); |
my $newlauncher = &launch_check($r->uri,$symb); |
} else { |
my ($map,$resid,$url) = &Apache::lonnet::decode_symb($symb); |
unshift(@possroles,'cc'); |
if (&Apache::lonnet::is_on_map($url)) { |
} |
my $realuri; |
my %roleshash = &Apache::lonnet::get_my_roles($env{'user.uname'}, |
if ((&Apache::lonnet::EXT('resource.0.hiddenresource',$symb) =~ /^yes$/i) && |
$env{'user.domain'}, |
(!$env{'request.role.adv'})) { |
'userroles',undef, |
$env{'user.error.msg'}=$r->uri.':bre:1:1:Access to resource denied'; |
\@possroles,[$cdom],1); |
return HTTP_NOT_ACCEPTABLE; |
my (%possroles,$hassection); |
} |
if (keys(%roleshash)) { |
if ((&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i) && |
foreach my $entry (keys(%roleshash)) { |
(!$env{'request.role.adv'})) { |
if ($entry =~ /^\Q$cnum:$cdom:\E([^:]+):([^:]*)$/) { |
$realuri = &Apache::lonenc::encrypted(&Apache::lonnet::clutter($url)); |
$possroles{$1} = $2; |
if (($url =~ /\.sequence$/) && |
if ($2 ne '') { |
($env{'course.'.$env{'request.course.id'}.'.type'} ne 'Placement')) { |
$hassection = 1; |
$realuri .= '?navmap=1'; |
|
} else { |
|
$realuri .= '?symb='.&Apache::lonenc::encrypted($symb); |
|
} |
|
} else { |
|
$realuri = &Apache::lonnet::clutter($url); |
|
if (($url =~ /\.sequence$/) && |
|
($env{'course.'.$env{'request.course.id'}.'.type'} ne 'Placement')) { |
|
$realuri .= '?navmap=1'; |
|
} else { |
|
$realuri .= '?symb='.$symb; |
|
} |
|
} |
|
my $update; |
|
# Check if course needs to be re-initialized |
|
if ($newlauncher) { |
|
$update = 1; |
|
} else { |
|
my $loncaparev = $r->dir_config('lonVersion'); |
|
my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev); |
|
if ($result eq 'update') { |
|
$update = 1; |
|
} elsif (!-e $env{'request.course.fn'}.'.db') { |
|
$update = 1; |
|
} elsif (!$env{'request.role.adv'}) { |
|
my $navmap = Apache::lonnavmaps::navmap->new(); |
|
if (ref($navmap)) { |
|
my $res = $navmap->getBySymb($symb); |
|
if (ref($res)) { |
|
my ($enc_in_bighash,$enc_in_parm); |
|
$enc_in_bighash = $res->encrypted(); |
|
if (&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i) { |
|
$enc_in_parm = 1; |
|
} |
|
if ($enc_in_bighash ne $enc_in_parm) { |
|
$update = 1; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
if ($update) { |
|
my ($furl,$ferr)= |
|
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
|
if ($ferr) { |
|
$env{'user.error.msg'}=$r->uri.':bre:0:0:Course not initialized'; |
|
$env{'user.reinit'} = 1; |
|
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} |
} |
|
my $host = $r->headers_in->get('Host'); |
|
if (!$host) { |
|
$r->internal_redirect($realuri); |
|
return OK; |
|
} else { |
|
my $protocol = 'http'; |
|
if ($r->get_server_port == 443) { |
|
$protocol = 'https'; |
|
} |
|
my $location = $protocol.'://'.$host.$realuri; |
|
$r->headers_out->set(Location => $location); |
|
return REDIRECT; |
|
} |
} |
} |
} |
} else { |
my @allposs = keys(%possroles); |
my %crsenv = &Apache::lonnet::coursedescription("$cdom/$cnum"); |
if (@allposs == 0) { |
my @possroles = ('in','ta','ep','st','cr','ad'); |
&show_roles($r,\%crsenv,\%possroles) |
if ($crsenv{'type'} eq 'Community') { |
} elsif (@allposs == 1) { |
unshift(@possroles,'co'); |
my $newrole = "$allposs[0]./$cdom/$cnum"; |
} else { |
$newrole = "$allposs[0]./$cdom/$cnum"; |
unshift(@possroles,'cc'); |
if ($possroles{$allposs[0]} ne '') { |
|
$newrole .= "/$possroles{$allposs[0]}"; |
|
} |
} |
my $destination .= '/adm/roles?selectrole=1&'.$newrole.'=1'. |
my %roleshash = &Apache::lonnet::get_my_roles($env{'user.uname'}, |
'&destinationurl='.&HTML::Entities::encode($r->uri); |
$env{'user.domain'}, |
&do_redirect($r,$destination); |
'userroles',undef, |
} elsif (keys(%possroles) > 1) { |
\@possroles,[$cdom],1); |
if (grep(/^(cc|co)$/,@allposs)) { |
my (%possroles,$hassection); |
my $newrole; |
if (keys(%roleshash)) { |
if (exists($possroles{'cc'})) { |
foreach my $entry (keys(%roleshash)) { |
$newrole = 'cc'; |
if ($entry =~ /^\Q$cnum:$cdom:\E([^:]+):([^:]*)$/) { |
} else { |
$possroles{$1} = $2; |
$newrole = 'co'; |
if ($2 ne '') { |
|
$hassection = 1; |
|
} |
|
} |
|
} |
|
} |
|
my @allposs = keys(%possroles); |
|
if (@allposs == 0) { |
|
&show_roles($r,\%crsenv,\%possroles); |
|
} elsif (@allposs == 1) { |
|
my $newrole = "$allposs[0]./$cdom/$cnum"; |
|
$newrole = "$allposs[0]./$cdom/$cnum"; |
|
if ($possroles{$allposs[0]} ne '') { |
|
$newrole .= "/$possroles{$allposs[0]}"; |
} |
} |
$newrole .= "./$cdom/$cnum"; |
|
my $destination .= '/adm/roles?selectrole=1&'.$newrole.'=1'. |
my $destination .= '/adm/roles?selectrole=1&'.$newrole.'=1'. |
'&destinationurl='.&HTML::Entities::encode($r->uri); |
'&destinationurl='.&HTML::Entities::encode($r->uri); |
|
if ($env{'form.ttoken'}) { |
|
$destination .= '&ttoken='.$env{'form.ttoken'}; |
|
} |
&do_redirect($r,$destination); |
&do_redirect($r,$destination); |
} else { |
} elsif (keys(%possroles) > 1) { |
my $hascustom; |
if (grep(/^(cc|co)$/,@allposs)) { |
if (grep(/^cr\//,@allposs)) { |
my $newrole; |
$hascustom = 1; |
if (exists($possroles{'cc'})) { |
|
$newrole = 'cc'; |
|
} else { |
|
$newrole = 'co'; |
|
} |
|
$newrole .= "./$cdom/$cnum"; |
|
my $destination .= '/adm/roles?selectrole=1&'.$newrole.'=1'. |
|
'&destinationurl='.&HTML::Entities::encode($r->uri); |
|
if ($env{'form.ttoken'}) { |
|
$destination .= '&ttoken='.$env{'form.ttoken'}; |
|
} |
|
&do_redirect($r,$destination); |
|
} else { |
|
my $hascustom; |
|
if (grep(/^cr\//,@allposs)) { |
|
$hascustom = 1; |
|
} |
|
&show_roles($r,\%crsenv,\%possroles,$hassection,$hascustom); |
} |
} |
&show_roles($r,\%crsenv,\%possroles,$hassection,$hascustom); |
|
} |
} |
|
return OK; |
} |
} |
return OK; |
|
} |
} |
} |
} |
} |
} |
Line 130 sub handler {
|
Line 223 sub handler {
|
} |
} |
} |
} |
|
|
|
sub launch_check { |
|
my ($linkuri,$symb) = @_; |
|
my ($linkprotector,$linkproturi,$linkkey,$newlauncher); |
|
if ($env{'form.ttoken'}) { |
|
my %link_info = &Apache::lonnet::tmpget($env{'form.ttoken'}); |
|
&Apache::lonnet::tmpdel($env{'form.ttoken'}); |
|
delete($env{'form.ttoken'}); |
|
if ($link_info{'ltoken'}) { |
|
unless (($link_info{'linkprot'}) || ($link_info{'linkkey'} ne '')) { |
|
my %ltoken_info = &Apache::lonnet::tmpget($link_info{'ltoken'}); |
|
if ($ltoken_info{'linkprot'}) { |
|
$link_info{'linkprot'} = $ltoken_info{'linkprot'}; |
|
} elsif ($ltoken_info{'linkkey'} ne '') { |
|
$link_info{'linkkey'} = $ltoken_info{'linkkey'}; |
|
} |
|
} |
|
&Apache::lonnet::tmpdel($env{'form.ltoken'}); |
|
delete($env{'form.ltoken'}); |
|
} |
|
if ($link_info{'linkprot'}) { |
|
($linkprotector,$linkproturi) = split(/:/,$link_info{'linkprot'},2); |
|
if ($env{'user.linkprotector'}) { |
|
my @protectors = split(/,/,$env{'user.linkprotector'}); |
|
unless (grep(/^\Q$linkprotector\E$/,@protectors)) { |
|
push(@protectors,$linkprotector); |
|
@protectors = sort { $a <=> $b } @protectors; |
|
&Apache::lonnet::appenv({'user.linkprotector' => join(',',@protectors)}); |
|
} |
|
} else { |
|
&Apache::lonnet::appenv({'user.linkprotector' => $linkprotector }); |
|
} |
|
if ($env{'user.linkproturi'}) { |
|
my @proturis = split(/,/,$env{'user.linkproturi'}); |
|
unless(grep(/^\Q$linkproturi\E$/,@proturis)) { |
|
push(@proturis,$linkproturi); |
|
@proturis = sort(@proturis); |
|
&Apache::lonnet::appenv({'user.linkproturi' => join(',',@proturis)}); |
|
} |
|
} else { |
|
&Apache::lonnet::appenv({'user.linkproturi' => $linkproturi}); |
|
} |
|
} elsif ($link_info{'linkkey'} ne '') { |
|
$linkkey = $link_info{'linkkey'}; |
|
my $keyedlinkuri = $linkuri; |
|
if ($env{'user.deeplinkkey'} ne '') { |
|
my @linkkeys = split(/,/,$env{'user.deeplinkkey'}); |
|
unless (grep(/^\Q$linkkey\E$/,@linkkeys)) { |
|
push(@linkkeys,$linkkey); |
|
&Apache::lonnet::appenv({'user.deeplinkkey' => join(',',sort(@linkkeys))}); |
|
} |
|
} else { |
|
&Apache::lonnet::appenv({'user.deeplinkkey' => $linkkey}); |
|
} |
|
if ($env{'user.keyedlinkuri'}) { |
|
my @keyeduris = split(/,/,$env{'user.keyedlinkuri'}); |
|
unless (grep(/^\Q$keyedlinkuri\E$/,@keyeduris)) { |
|
push(@keyeduris,$keyedlinkuri); |
|
&Apache::lonnet::appenv({'user.keyedlinkuri' => join(',',sort(@keyeduris))}); |
|
} |
|
} else { |
|
&Apache::lonnet::appenv({'user.keyedlinkuri' => $keyedlinkuri}); |
|
} |
|
} |
|
if ($link_info{'checklaunch'}) { |
|
$newlauncher = 1; |
|
} |
|
} |
|
my $currdeeplinklogin = $env{'request.deeplink.login'}; |
|
my $deeplink; |
|
if ($symb =~ /\.(page|sequence)$/) { |
|
my $mapname = &Apache::lonnet::deversion((&Apache::lonnet::decode_symb($symb))[2]); |
|
my $navmap = Apache::lonnavmaps::navmap->new(); |
|
if (ref($navmap)) { |
|
$deeplink = $navmap->get_mapparam(undef,$mapname,'0.deeplink'); |
|
} |
|
} else { |
|
$deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$symb); |
|
} |
|
if ($deeplink ne '') { |
|
my $disallow; |
|
my ($state,$others,$listed,$scope,$protect,$display,$target) = split(/,/,$deeplink); |
|
if (($protect ne 'none') && ($protect ne '')) { |
|
my ($acctype,$item) = split(/:/,$protect); |
|
if ($acctype =~ /lti(c|d)$/) { |
|
my $ltitype = $1; |
|
if ($linkprotector) { |
|
unless ($linkprotector.':'.$linkproturi eq $item.$ltitype.':'.$linkuri) { |
|
$disallow = 1; |
|
} |
|
} else { |
|
$disallow = 1; |
|
} |
|
} elsif ($acctype eq 'key') { |
|
if ($linkkey ne '') { |
|
unless ($linkkey eq $item) { |
|
$disallow = 1; |
|
} |
|
} else { |
|
$disallow = 1; |
|
} |
|
} |
|
} |
|
if ($disallow) { |
|
if ($currdeeplinklogin eq $linkuri) { |
|
&Apache::lonnet::delenv('request.deeplink.login'); |
|
if ($env{'request.deeplink.target'} ne '') { |
|
&Apache::lonnet::delenv('request.deeplink.target'); |
|
} |
|
} |
|
} else { |
|
unless ($currdeeplinklogin eq $linkuri) { |
|
if (($linkprotector) || ($linkkey ne '')) { |
|
if ($linkprotector) { |
|
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
|
} elsif ($env{'request.linkprot'}) { |
|
&Apache::lonnet::delenv({'request.linkprot'}); |
|
} |
|
if ($linkkey ne '') { |
|
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
|
} elsif ($env{'request.linkkey'} ne '') { |
|
&Apache::lonnet::delenv({'request.linkkey'}); |
|
} |
|
$newlauncher = 1; |
|
} |
|
} |
|
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
|
if ($target ne '') { |
|
&Apache::lonnet::appenv({'request.deeplink.target' => $target}); |
|
} elsif ($env{'request.deeplink.target'} ne '') { |
|
&Apache::lonnet::delenv('request.deeplink.target'); |
|
} |
|
} |
|
} else { |
|
if ($linkprotector) { |
|
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
|
} elsif ($env{'request.linkprot'}) { |
|
&Apache::lonnet::delenv({'request.linkprot'}); |
|
} |
|
if ($linkkey ne '') { |
|
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
|
} else { |
|
&Apache::lonnet::delenv({'request.linkkey'}); |
|
} |
|
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
|
if ($env{'request.deeplink.target'} ne '') { |
|
&Apache::lonnet::delenv('request.deeplink.target'); |
|
} |
|
} |
|
return $newlauncher; |
|
} |
|
|
sub do_redirect { |
sub do_redirect { |
my ($r,$destination) = @_; |
my ($r,$destination) = @_; |
my $windowname = 'loncapaclient'; |
my $windowname = 'loncapaclient'; |
if ($env{'request.lti.login'}) { |
|
$windowname .= 'lti'; |
|
} |
|
my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />'; |
my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />'; |
my $args = {'bread_crumbs' => [{'href' => '','text' => 'Role initialization'},],}; |
my $args = {'bread_crumbs' => [{'href' => '','text' => 'Role initialization'},],}; |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
Line 178 sub show_roles {
|
Line 419 sub show_roles {
|
$preamble = &mt('You have the following active roles in this course:'); |
$preamble = &mt('You have the following active roles in this course:'); |
} |
} |
$datatable = '<form name="" action="/adm/roles">'. |
$datatable = '<form name="" action="/adm/roles">'. |
'<input type="hidden" name="newrole" value="" />'. |
'<input type="hidden" name="newrole" value="" />'."\n". |
'<input type="hidden" name="selectrole" value="1" />'. |
'<input type="hidden" name="selectrole" value="1" />'."\n". |
'<input type="hidden" name="destinationurl" value="'.$r->uri.'" />'. |
'<input type="hidden" name="destinationurl" value="'.$r->uri.'" />'."\n"; |
&Apache::loncommon::start_data_table(). |
if ($env{'form.ttoken'}) { |
&Apache::loncommon::start_data_table_header_row(). |
$datatable .= '<input type="hidden" name="ttoken" value="'.$env{'form.ttoken'}.'" />'."\n"; |
'<th></th><th>'.&mt('User role').'</th>'; |
} |
|
$datatable .= &Apache::loncommon::start_data_table(). |
|
&Apache::loncommon::start_data_table_header_row(). |
|
'<th></th><th>'.&mt('User role').'</th>'; |
if ($hassection) { |
if ($hassection) { |
$datatable .= '<th>'.&mt('Section').'</th>'; |
$datatable .= '<th>'.&mt('Section').'</th>'; |
} |
} |
Line 276 ENDJS
|
Line 520 ENDJS
|
|
|
sub generic_error { |
sub generic_error { |
my ($r) = @_; |
my ($r) = @_; |
|
my $continuelink; |
my $linktext; |
my $linktext; |
if ($env{'user.adv'}) { |
if ($env{'user.adv'}) { |
$linktext = &mt('Continue to your roles page'); |
$linktext = &mt('Continue to your roles page'); |
} else { |
} else { |
$linktext = &mt('Continue to your courses page'); |
$linktext = &mt('Continue to your courses page'); |
} |
} |
my $continuelink='<a href="/adm/roles">'.$linktext.'</a>'; |
$continuelink='<a href="/adm/roles">'.$linktext.'</a>'; |
my $msg = &mt('The page you requested does not exist.'); |
my $msg = &mt('The page you requested does not exist.'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |