version 1.80.8.13, 2021/12/14 21:34:45
|
version 1.105, 2021/07/19 14:26:40
|
Line 36 use LONCAPA;
|
Line 36 use LONCAPA;
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::lonnavmaps(); |
use Apache::lonuserstate; |
use Apache::lonuserstate; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use HTML::TokeParser; |
use HTML::TokeParser; |
Line 98 sub hash_src {
|
Line 99 sub hash_src {
|
} |
} |
|
|
sub move { |
sub move { |
my ($next,$endupmap,$direction) = @_; |
my ($next,$endupmap,$direction,$firstres) = @_; |
my $safecount=0; |
my $safecount=0; |
my $allowed=0; |
my $allowed=0; |
|
my $deeplinkonly=0; |
|
my $prev=$next; |
|
my ($prevmapid)=split(/\./,$next); |
do { |
do { |
($next,$endupmap)=&get_next_possible_move($next,$endupmap,$direction); |
($next,$endupmap)=&get_next_possible_move($next,$endupmap,$direction); |
|
|
Line 112 sub move {
|
Line 116 sub move {
|
$allowed = 0; |
$allowed = 0; |
} else { |
} else { |
my $priv = &Apache::lonnet::allowed('bre',$url,$symb); |
my $priv = &Apache::lonnet::allowed('bre',$url,$symb); |
$allowed = (($priv eq 'F') || ($priv eq '2')); |
$allowed = (($priv eq 'F') || ($priv eq '2') || ($priv eq 'A')); |
} |
} |
|
$deeplinkonly = 0; |
|
if ($hash{'deeplinkonly_'.$next}) { |
|
my ($value,$level) = split(/:/,$hash{'deeplinkonly_'.$next}); |
|
if ($level eq 'resource') { |
|
$deeplinkonly = 1; |
|
} elsif ($level eq 'map') { |
|
if ($mapid != $prevmapid) { |
|
$deeplinkonly = 1; |
|
} |
|
} |
|
} elsif (($hash{'deeplinkonly_'.$prev}) && (!$firstres)) { |
|
my ($value,$level) = split(/:/,$hash{'deeplinkonly_'.$prev}); |
|
if ($level eq 'resource') { |
|
$deeplinkonly = 1; |
|
} elsif ($level eq 'map') { |
|
if ($mapid != $prevmapid) { |
|
$deeplinkonly = 1; |
|
} |
|
} |
|
} |
$safecount++; |
$safecount++; |
} while ( ($next) |
} while ( ($next) |
&& ($next!~/\,/) |
&& ($next!~/\,/) |
&& ( |
&& ( |
(!$hash{'src_'.$next}) |
(!$hash{'src_'.$next}) |
|| ( |
|| ( |
(!$env{'request.role.adv'}) |
(!$env{'request.role.adv'}) |
&& $hash{'randomout_'.$next} |
&& (($hash{'randomout_'.$next}) |
|
|| ($deeplinkonly)) |
) |
) |
|| (!$allowed) |
|| (!$allowed) |
) |
) |
Line 241 sub first_accessible_resource {
|
Line 266 sub first_accessible_resource {
|
my ($name,$value) = split(/=/,$pair); |
my ($name,$value) = split(/=/,$pair); |
$args{&unescape($name)} = &unescape($value); |
$args{&unescape($name)} = &unescape($value); |
} |
} |
if (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) { |
my $priv = &Apache::lonnet::allowed('bre',$url,$args{'symb'}); |
|
my $allowed = (($priv eq 'F') || ($priv eq '2') || ($priv eq 'A')); |
|
if (!$allowed) { |
# Wow, we cannot see this ... move forward to the next one that we can see |
# Wow, we cannot see this ... move forward to the next one that we can see |
my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward'); |
my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward',1); |
# Build the new URL |
# Build the new URL |
if ($newrid eq '') { |
if ($newrid eq '') { |
$furl = '/adm/navmaps'; |
$furl = '/adm/navmaps'; |
Line 263 sub first_accessible_resource {
|
Line 290 sub first_accessible_resource {
|
} |
} |
} |
} |
|
|
|
sub first_answerable_ressymb { |
|
my $navmap = Apache::lonnavmaps::navmap->new; |
|
return unless (ref($navmap)); |
|
my $iterator = $navmap->getIterator(undef,undef,undef,1); |
|
return unless (ref($iterator)); |
|
my ($curRes,$result); |
|
while ($curRes = $iterator->next()) { |
|
if (ref($curRes) && $curRes->is_problem()) { |
|
foreach my $part (@{$curRes->parts()}) { |
|
if ($curRes->tries($part) < $curRes->maxtries($part)) { |
|
$result = $curRes->link().'?symb='.$curRes->shown_symb(); |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
if ($result) { |
|
return $result; |
|
} else { |
|
return &first_accessible_resource(); |
|
} |
|
} |
|
|
sub check_http_req { |
sub check_http_req { |
my ($srcref,$hostname) = @_; |
my ($srcref,$hostname) = @_; |
return unless (ref($srcref) eq 'SCALAR'); |
return unless (ref($srcref) eq 'SCALAR'); |
Line 283 sub check_http_req {
|
Line 333 sub check_http_req {
|
unless ((&Apache::lonnet::uses_sts()) || |
unless ((&Apache::lonnet::uses_sts()) || |
(&Apache::lonnet::waf_allssl($hostname))) { |
(&Apache::lonnet::waf_allssl($hostname))) { |
my ($url,$anchor) = ($$srcref =~ /^([^\#]+)(?:|(\#[^\#]+))$/); |
my ($url,$anchor) = ($$srcref =~ /^([^\#]+)(?:|(\#[^\#]+))$/); |
$$srcref = $url . (($$srcref =~/\?/)? '&':'?') . 'usehttp=1' .$anchor; |
$$srcref = $url . (($$srcref =~/\?/)? '&':'?') . 'usehttp=1' .$anchor; |
$usehttp = 1; |
$usehttp = 1; |
} |
} |
} |
} |
Line 329 sub handler {
|
Line 379 sub handler {
|
my %cachehash=(); |
my %cachehash=(); |
my $multichoice=0; |
my $multichoice=0; |
my %multichoicehash=(); |
my %multichoicehash=(); |
my %prog_state=(); |
my %prog_state=(); |
my ($redirecturl,$redirectsymb,$enc,$anchor); |
my ($redirecturl,$redirectsymb,$enc,$anchor,$deeplinklevel); |
my $next=''; |
my $next=''; |
my $hostname = $r->hostname(); |
my $hostname = $r->hostname(); |
my @possibilities=(); |
my @possibilities=(); |
Line 350 sub handler {
|
Line 400 sub handler {
|
$last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
untie(%hash); |
untie(%hash); |
} |
} |
|
} elsif ($direction eq 'firstanswerable') { |
|
my $furl = &first_answerable_ressymb(); |
|
my $usehttp = &check_http_req(\$furl,$hostname); |
|
if (($usehttp) && ($hostname ne '')) { |
|
$furl='http://'.$hostname.$furl; |
|
} else { |
|
$furl=&Apache::lonnet::absolute_url().$furl; |
|
} |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => $furl); |
|
return REDIRECT; |
|
} elsif ($direction eq 'endplacement') { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
$r->print(&Apache::lonplacementtest::showresult()); |
|
return OK; |
} |
} |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
# Check if course needs to be re-initialized |
# Check if course needs to be re-initialized |
Line 428 sub handler {
|
Line 494 sub handler {
|
$newloc=$hash{'src_'.$id}; |
$newloc=$hash{'src_'.$id}; |
if ($newloc) { |
if ($newloc) { |
$usehttp = &check_http_req(\$newloc,$hostname); |
$usehttp = &check_http_req(\$newloc,$hostname); |
if ($hash{'encrypted_'.$id}) { |
if ($hash{'encrypted_'.$id}) { |
$newloc=&Apache::lonenc::encrypted($newloc); |
$newloc=&Apache::lonenc::encrypted($newloc); |
} |
} |
if ($newloc =~ m{^(/adm/wrapper/ext/[^\#]+)(?:|(\#[^\#]+))$}) { |
if ($newloc =~ m{^(/adm/wrapper/ext/[^\#]+)(?:|(\#[^\#]+))$}) { |
Line 454 sub handler {
|
Line 520 sub handler {
|
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => $newloc); |
$r->header_out(Location => $newloc); |
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
# |
# |
Line 475 sub handler {
|
Line 541 sub handler {
|
$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]); |
$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]); |
} else { |
} else { |
my $newloc = &Apache::lonnet::absolute_url(). |
my $newloc = &Apache::lonnet::absolute_url(). |
'/adm/navmaps'; |
'/adm/navmaps'; |
if ($reinitcheck eq 'update') { |
if ($reinitcheck eq 'update') { |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
$r->print(&reinited_js($newloc,$env{'request.course.id'},100)); |
$r->print(&reinited_js($newloc,$env{'request.course.id'},100)); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => $newloc); |
$r->header_out(Location => $newloc); |
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
Line 543 sub handler {
|
Line 609 sub handler {
|
} else { |
} else { |
# -------------------------------------------------------------- No place to go |
# -------------------------------------------------------------- No place to go |
$multichoice=-1; |
$multichoice=-1; |
|
if ($hash{'deeplinkonly_'.$rid}) { |
|
(my $value,$deeplinklevel) = split(/:/,$hash{'deeplinkonly_'.$rid}); |
|
} |
} |
} |
# ----------------- The program must come past this point to untie the big hash |
# ----------------- The program must come past this point to untie the big hash |
untie(%hash); |
untie(%hash); |
Line 564 sub handler {
|
Line 633 sub handler {
|
&Apache::lonnet::linklog($redirecturl,$currenturl); |
&Apache::lonnet::linklog($redirecturl,$currenturl); |
} |
} |
# ------------------------------------- Check for and display critical messages |
# ------------------------------------- Check for and display critical messages |
my ($redirect, $url) = &Apache::loncommon::critical_redirect(300); |
my ($redirect, $url) = &Apache::loncommon::critical_redirect(300,'flip'); |
unless ($redirect) { |
unless ($redirect) { |
my $usehttp = &check_http_req(\$redirecturl,$hostname); |
my $usehttp = &check_http_req(\$redirecturl,$hostname); |
if (($usehttp) && ($hostname ne '')) { |
if (($usehttp) && ($hostname ne '')) { |
Line 584 sub handler {
|
Line 653 sub handler {
|
} |
} |
if ($reinitcheck eq 'update') { |
if ($reinitcheck eq 'update') { |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
$r->print(&reinited_js($url,$env{'request.course.id'},100)); |
$r->print(&reinited_js($url,$env{'request.course.id'},100)); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} else { |
} else { |
Line 597 sub handler {
|
Line 666 sub handler {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
my %lt=&Apache::lonlocal::texthash('title' => 'End of Sequence', |
my %lt=&Apache::lonlocal::texthash('title' => 'End of Sequence', |
|
'deeplink' => 'No link available', |
|
'deeplinkres' => |
|
'Navigation to other content is unavailable when accessing content via deep-linking', |
|
'deeplinkmap' => |
|
'You have reached the end of the sequence of available materials for access via deep-linking', |
'explain' => |
'explain' => |
'You have reached the end of the sequence of materials.', |
'You have reached the end of the sequence of materials.', |
'back' => 'Go Back', |
'back' => 'Go Back', |
Line 609 sub handler {
|
Line 683 sub handler {
|
'type' => 'Type', |
'type' => 'Type', |
'update' => 'Content updated', |
'update' => 'Content updated', |
'expupdate' => 'As a result of a recent update to the sequence of materials, it is not possible to complete the page flip.', |
'expupdate' => 'As a result of a recent update to the sequence of materials, it is not possible to complete the page flip.', |
'gonav' => 'Go to the Contents page to select a resource to display.'); |
'gonav' => 'Go to the Contents page to select a resource to display.', |
|
); |
if (&Apache::loncommon::course_type() eq 'Community') { |
if (&Apache::loncommon::course_type() eq 'Community') { |
$lt{'nav'} = &mt('Community Contents'); |
$lt{'nav'} = &mt('Community Contents'); |
} |
} |
Line 655 ENDSTART
|
Line 730 ENDSTART
|
.'<p>'.$lt{'expupdate'}.'<br />' |
.'<p>'.$lt{'expupdate'}.'<br />' |
.$lt{'gonav'}.'</p>'); |
.$lt{'gonav'}.'</p>'); |
} else { |
} else { |
$r->print( |
if (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') && |
&Apache::loncommon::start_page('No Resource') |
(!$env{'request.role.adv'})) { |
.'<h2>'.$lt{'title'}.'</h2>' |
my ($score,$incomplete) = &Apache::lonplacementtest::check_completion(undef,undef,1); |
.'<p>'.$lt{'explain'}.'</p>'); |
if ($incomplete) { |
|
$r->print(&Apache::lonplacementtest::showincomplete($incomplete)); |
|
} else { |
|
$r->print(&Apache::lonplacementtest::showresult(1)); |
|
} |
|
} else { |
|
$r->print( |
|
&Apache::loncommon::start_page('No Resource')); |
|
if ($deeplinklevel eq 'resource') { |
|
$r->print('<h2>'.$lt{'deeplink'}.'</h2>' |
|
.'<p>'.$lt{'deeplinkres'}.'</p>'); |
|
} elsif ($deeplinklevel eq 'map') { |
|
$r->print('<h2>'.$lt{'title'}.'</h2>' |
|
.'<p>'.$lt{'deeplinkmap'}.'</p>'); |
|
} else { |
|
$r->print('<h2>'.$lt{'title'}.'</h2>' |
|
.'<p>'.$lt{'explain'}.'</p>'); |
|
} |
|
} |
} |
} |
} |
} |
if ((!@possibilities) && ($reinitcheck)) { |
unless (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') || |
$r->print( |
($env{'request.role.adv'})) { |
&Apache::lonhtmlcommon::actionbox( |
if ($deeplinklevel) { |
['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>' |
$r->print( |
])); |
&Apache::lonhtmlcommon::actionbox( |
} else { |
['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a>'])); |
$r->print( |
} elsif ((!@possibilities) && ($reinitcheck)) { |
&Apache::lonhtmlcommon::actionbox( |
$r->print( |
['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>', |
&Apache::lonhtmlcommon::actionbox( |
'<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>' |
['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>' |
])); |
])); |
|
} else { |
|
$r->print( |
|
&Apache::lonhtmlcommon::actionbox( |
|
['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>', |
|
'<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>' |
|
])); |
|
} |
|
|
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
|
|
Line 682 ENDSTART
|
Line 783 ENDSTART
|
if ($reinitcheck eq 'update') { |
if ($reinitcheck eq 'update') { |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
$env{'user.error.msg'}="/adm/flip:bre:0:1:Course Data Missing"; |
$env{'user.error.msg'}="/adm/flip:bre:0:1:Course Data Missing"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |