version 1.80.8.13, 2021/12/14 21:34:45
|
version 1.92, 2017/02/18 23:39:24
|
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 231 sub first_accessible_resource {
|
Line 232 sub first_accessible_resource {
|
if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
$furl=$hash{'first_url'}; |
$furl=$hash{'first_url'}; |
my (%args,$url,$argstr); |
my %args; |
if ($furl =~ m{^/enc/}) { |
my ($url,$args) = split(/\?/,$furl); |
($url,$argstr) = split(/\?/,&Apache::lonenc::unencrypted($furl)); |
foreach my $pair (split(/\&/,$args)) { |
} else { |
|
($url,$argstr) = split(/\?/,$furl); |
|
} |
|
foreach my $pair (split(/\&/,$argstr)) { |
|
my ($name,$value) = split(/=/,$pair); |
my ($name,$value) = split(/=/,$pair); |
$args{&unescape($name)} = &unescape($value); |
$args{&unescape($name)} = &unescape($value); |
} |
} |
Line 245 sub first_accessible_resource {
|
Line 242 sub first_accessible_resource {
|
# 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'); |
# Build the new URL |
# Build the new URL |
if ($newrid eq '') { |
my ($newmapid,$newresid)=split(/\./,$newrid); |
$furl = '/adm/navmaps'; |
my $symb=&Apache::lonnet::encode_symb($newmap,$newresid,$hash{'src_'.$newrid}); |
} else { |
$furl=&add_get_param($hash{'src_'.$newrid},{ 'symb' => $symb }); |
my ($newmapid,$newresid)=split(/\./,$newrid); |
&check_for_syllabus(\$furl); |
my $symb=&Apache::lonnet::encode_symb($newmap,$newresid,$hash{'src_'.$newrid}); |
if ($hash{'encrypted_'.$newrid}) { |
$furl=&add_get_param($hash{'src_'.$newrid},{ 'symb' => $symb }); |
$furl=&Apache::lonenc::encrypted($furl); |
if ($hash{'encrypted_'.$newrid}) { |
|
$furl=&Apache::lonenc::encrypted($furl); |
|
} |
|
} |
} |
} |
} |
untie(%hash); |
untie(%hash); |
return $furl; |
return $furl; |
} else { |
} else { |
Line 263 sub first_accessible_resource {
|
Line 257 sub first_accessible_resource {
|
} |
} |
} |
} |
|
|
sub check_http_req { |
sub first_answerable_ressymb { |
my ($srcref,$hostname) = @_; |
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_for_syllabus { |
|
my ($srcref) = @_; |
return unless (ref($srcref) eq 'SCALAR'); |
return unless (ref($srcref) eq 'SCALAR'); |
my $usehttp; |
|
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
if (($$srcref =~ m{^\Q/public/$cdom/$cnum/syllabus\E($|\?)}) && |
if (($$srcref =~ m{^\Q/public/$cdom/$cnum/syllabus\E($|\?)}) && |
($ENV{'SERVER_PORT'} == 443) && |
($ENV{'SERVER_PORT'} == 443) && |
($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) { |
($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) { |
unless ((&Apache::lonnet::uses_sts()) || |
$$srcref .= (($$srcref =~/\?/)? '&':'?') . 'usehttp=1'; |
(&Apache::lonnet::waf_allssl($hostname))) { |
|
$$srcref .= (($$srcref =~/\?/)? '&':'?') . 'usehttp=1'; |
|
$usehttp = 1; |
|
} |
|
} elsif (($$srcref =~ m{^\Q/adm/wrapper/ext/\E(?!https:)}) && |
|
($ENV{'SERVER_PORT'} == 443)) { |
|
unless ((&Apache::lonnet::uses_sts()) || |
|
(&Apache::lonnet::waf_allssl($hostname))) { |
|
my ($url,$anchor) = ($$srcref =~ /^([^\#]+)(?:|(\#[^\#]+))$/); |
|
$$srcref = $url . (($$srcref =~/\?/)? '&':'?') . 'usehttp=1' .$anchor; |
|
$usehttp = 1; |
|
} |
|
} |
} |
} |
} |
return $usehttp; |
|
} |
|
|
|
sub reinited_js { |
|
my ($url,$cid,$timeout) = @_; |
|
if (!$timeout) { |
|
$timeout = 0; |
|
} |
|
return <<"END"; |
|
<script type="text/javascript"> |
|
// <![CDATA[ |
|
setTimeout(function() { |
|
var newurl = '$url'; |
|
if (document.getElementById('LC_update_$cid')) { |
|
document.getElementById('LC_update_$cid').style.display = 'none'; |
|
} |
|
if ((newurl !== null) && (newurl !== '') && (newurl !== 'undefined')) { |
|
window.location.href = "$url"; |
|
} |
|
}, $timeout); |
|
// ]]> |
|
</script> |
|
END |
|
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
Line 329 sub handler {
|
Line 310 sub handler {
|
my %cachehash=(); |
my %cachehash=(); |
my $multichoice=0; |
my $multichoice=0; |
my %multichoicehash=(); |
my %multichoicehash=(); |
my %prog_state=(); |
|
my ($redirecturl,$redirectsymb,$enc,$anchor); |
my ($redirecturl,$redirectsymb,$enc,$anchor); |
my $next=''; |
my $next=''; |
my $hostname = $r->hostname(); |
|
my @possibilities=(); |
my @possibilities=(); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']); |
if (($env{'form.postdata'})&&($env{'request.course.fn'})) { |
if (($env{'form.postdata'})&&($env{'request.course.fn'})) { |
Line 350 sub handler {
|
Line 329 sub handler {
|
$last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
untie(%hash); |
untie(%hash); |
} |
} |
|
} elsif ($direction eq 'firstanswerable') { |
|
my $furl = &first_answerable_ressymb(); |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => |
|
&Apache::lonnet::absolute_url().$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 371 sub handler {
|
Line 361 sub handler {
|
untie(%hash); |
untie(%hash); |
} |
} |
} |
} |
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
$r->print(&Apache::loncommon::start_page('Content Changed')); |
|
my $preamble = '<div id="LC_update_'.$env{'request.course.id'}.'" class="LC_info">'. |
|
'<br />'. |
|
&mt('Your course session is being updated because of recent changes by course personnel.'). |
|
' '.&mt('Please be patient').'.<br /></div>'. |
|
'<div style="padding:0;clear:both;margin:0;border:0"></div>'; |
|
%prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble); |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Updating course')); |
|
my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum"); |
my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum"); |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished!')); |
|
if ($ferr) { |
if ($ferr) { |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
my $requrl = $r->uri; |
my $requrl = $r->uri; |
$env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized"; |
$env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized"; |
$env{'user.reinit'} = 1; |
$env{'user.reinit'} = 1; |
Line 401 sub handler {
|
Line 379 sub handler {
|
} |
} |
if ($direction eq 'firstres') { |
if ($direction eq 'firstres') { |
my $furl=&first_accessible_resource(); |
my $furl=&first_accessible_resource(); |
my $usehttp = &check_http_req(\$furl,$hostname); |
&Apache::loncommon::content_type($r,'text/html'); |
if (($usehttp) && ($hostname ne '')) { |
$r->header_out(Location => |
$furl='http://'.$hostname.$furl; |
&Apache::lonnet::absolute_url().$furl); |
} else { |
|
$furl=&Apache::lonnet::absolute_url().$furl; |
return REDIRECT; |
} |
|
if ($reinitcheck eq 'update') { |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
$r->print(&reinited_js($furl,$env{'request.course.id'},100)); |
|
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
|
} else { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => $furl); |
|
return REDIRECT; |
|
} |
|
} |
} |
if ($direction eq 'return') { |
if ($direction eq 'return') { |
# -------------------------------------------------------- Return to last known |
# -------------------------------------------------------- Return to last known |
my ($newloc,$usehttp); |
my $newloc; |
if (($last) && (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
if (($last) && (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
&GDBM_READER(),0640))) { |
&GDBM_READER(),0640))) { |
my ($murl,$id,$fn)=&Apache::lonnet::decode_symb($last); |
my ($murl,$id,$fn)=&Apache::lonnet::decode_symb($last); |
$id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id; |
$id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id; |
$newloc=$hash{'src_'.$id}; |
$newloc=$hash{'src_'.$id}; |
if ($newloc) { |
if ($newloc) { |
$usehttp = &check_http_req(\$newloc,$hostname); |
&check_for_syllabus(\$newloc); |
if ($hash{'encrypted_'.$id}) { |
if ($hash{'encrypted_'.$id}) { |
$newloc=&Apache::lonenc::encrypted($newloc); |
$newloc=&Apache::lonenc::encrypted($newloc); |
} |
} elsif ($newloc =~ m{^(/adm/wrapper/ext/[^\#]+)\#([^\#]+)$}) { |
if ($newloc =~ m{^(/adm/wrapper/ext/[^\#]+)(?:|(\#[^\#]+))$}) { |
$newloc = $1.&escape('#').$2; |
my ($url,$anchor) = ($1,$2); |
|
if ($anchor) { |
|
$newloc = $url.(($url=~/\?/)?'&':'?').'symb='.&escape($last).$anchor; |
|
} |
|
} |
} |
} else { |
} else { |
$newloc='/adm/navmaps'; |
$newloc='/adm/navmaps'; |
Line 444 sub handler {
|
Line 407 sub handler {
|
} else { |
} else { |
$newloc='/adm/navmaps'; |
$newloc='/adm/navmaps'; |
} |
} |
if (($usehttp) && ($hostname ne '')) { |
&Apache::loncommon::content_type($r,'text/html'); |
$newloc='http://'.$hostname.$newloc; |
$r->header_out(Location => |
} else { |
&Apache::lonnet::absolute_url().$newloc); |
$newloc=&Apache::lonnet::absolute_url().$newloc |
|
} |
return REDIRECT; |
if ($reinitcheck eq 'update') { |
|
$r->print(&reinited_js($newloc,$env{'request.course.id'},100)); |
|
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
|
} else { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => $newloc); |
|
return REDIRECT; |
|
} |
|
} |
} |
# |
# |
# Is the current URL on the map? If not, start with last known URL |
# Is the current URL on the map? If not, start with last known URL |
Line 471 sub handler {
|
Line 425 sub handler {
|
$last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
untie(%hash); |
untie(%hash); |
} |
} |
|
my $newloc; |
if ($last) { |
if ($last) { |
$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(). |
&Apache::loncommon::content_type($r,'text/html'); |
'/adm/navmaps'; |
$r->header_out(Location => |
if ($reinitcheck eq 'update') { |
&Apache::lonnet::absolute_url(). |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
'/adm/navmaps'); |
$r->print(&reinited_js($newloc,$env{'request.course.id'},100)); |
return REDIRECT; |
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
|
} else { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => $newloc); |
|
return REDIRECT; |
|
} |
|
} |
} |
} |
} |
# ------------------------------------------- Do we have any idea where we are? |
# ------------------------------------------- Do we have any idea where we are? |
Line 566 sub handler {
|
Line 514 sub handler {
|
# ------------------------------------- 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); |
unless ($redirect) { |
unless ($redirect) { |
my $usehttp = &check_http_req(\$redirecturl,$hostname); |
&check_for_syllabus(\$redirecturl); |
if (($usehttp) && ($hostname ne '')) { |
$url=&Apache::lonnet::absolute_url().$redirecturl; |
$url='http://'.$hostname.$redirecturl; |
|
} else { |
|
$url=&Apache::lonnet::absolute_url().$redirecturl; |
|
} |
|
my $addanchor; |
my $addanchor; |
if (($anchor ne '') && (!$enc || $env{'request.role.adv'})) { |
if (($anchor ne '') && (!$enc || $env{'request.role.adv'})) { |
$addanchor = 1; |
$addanchor = 1; |
Line 582 sub handler {
|
Line 526 sub handler {
|
$url .= $anchor; |
$url .= $anchor; |
} |
} |
} |
} |
if ($reinitcheck eq 'update') { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
$r->header_out(Location => $url); |
$r->print(&reinited_js($url,$env{'request.course.id'},100)); |
return REDIRECT; |
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
|
} else { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => $url); |
|
return REDIRECT; |
|
} |
|
} else { |
} else { |
# --------------------------------------------------------- There was a problem |
# --------------------------------------------------------- There was a problem |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
Line 609 sub handler {
|
Line 546 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 627 $lt{'pick'}:
|
Line 565 $lt{'pick'}:
|
ENDSTART |
ENDSTART |
foreach my $id (@possibilities) { |
foreach my $id (@possibilities) { |
my $src = $multichoicehash{'src_'.$id}; |
my $src = $multichoicehash{'src_'.$id}; |
my $usehttp = &check_http_req(\$src,$hostname); |
&check_for_syllabus(\$src); |
if (($usehttp) && ($hostname ne '')) { |
|
$src = 'http://'.$hostname.$src; |
|
} |
|
$r->print( |
$r->print( |
'<tr><td><a href="'. |
'<tr><td><a href="'. |
&add_get_param($src, |
&add_get_param($src, |
Line 655 ENDSTART
|
Line 590 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') |
|
.'<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 ((!@possibilities) && ($reinitcheck)) { |
['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>' |
$r->print( |
])); |
&Apache::lonhtmlcommon::actionbox( |
} else { |
['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>' |
$r->print( |
])); |
&Apache::lonhtmlcommon::actionbox( |
} else { |
['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>', |
$r->print( |
'<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>' |
&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 679 ENDSTART
|
Line 628 ENDSTART
|
} |
} |
} else { |
} else { |
# ------------------------------------------------- Problem, could not tie hash |
# ------------------------------------------------- Problem, could not tie hash |
if ($reinitcheck eq 'update') { |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
$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; |
} |
} |
} else { |
} else { |
# ---------------------------------------- No, could not determine where we are |
# ---------------------------------------- No, could not determine where we are |
my $newloc = '/adm/ambiguous'; |
$r->internal_redirect('/adm/ambiguous'); |
if ($reinitcheck eq 'update') { |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
$r->print(&reinited_js($newloc,$env{'request.course.id'},100)); |
|
$r->print(&Apache::loncommon::end_page()); |
|
} else { |
|
$r->internal_redirect($newloc); |
|
} |
|
return OK; |
return OK; |
} |
} |
} else { |
} else { |