version 1.80.8.8, 2015/03/23 12:49:10
|
version 1.80.8.10, 2018/09/10 19:17:39
|
Line 83 sub hash_src {
|
Line 83 sub hash_src {
|
my ($mapid,$resid)=split(/\./,$id); |
my ($mapid,$resid)=split(/\./,$id); |
my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid}, |
my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid}, |
$resid,$hash{'src_'.$id}); |
$resid,$hash{'src_'.$id}); |
|
my $anchor; |
|
if ($hash{'ext_'.$id} eq 'true:') { |
|
if ($hash{'src_'.$id} =~ /(\#.+)$/) { |
|
$anchor = $1; |
|
} |
|
} |
if ($hash{'encrypted_'.$id}) { |
if ($hash{'encrypted_'.$id}) { |
return (&Apache::lonenc::encrypted($hash{'src_'.$id}), |
return (&Apache::lonenc::encrypted($hash{'src_'.$id}), |
&Apache::lonenc::encrypted($symb)); |
&Apache::lonenc::encrypted($symb), |
|
$hash{'encrypted_'.$id},$anchor); |
} |
} |
return ($hash{'src_'.$id},$symb); |
return ($hash{'src_'.$id},$symb,$hash{'encrypted_'.$id},$anchor); |
} |
} |
|
|
sub move { |
sub move { |
Line 248 sub first_accessible_resource {
|
Line 255 sub first_accessible_resource {
|
} |
} |
} |
} |
|
|
|
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 |
|
|
sub handler { |
sub handler { |
Line 264 sub handler {
|
Line 293 sub handler {
|
my %cachehash=(); |
my %cachehash=(); |
my $multichoice=0; |
my $multichoice=0; |
my %multichoicehash=(); |
my %multichoicehash=(); |
my ($redirecturl,$redirectsymb); |
my %prog_state=(); |
|
my ($redirecturl,$redirectsymb,$enc,$anchor); |
my $next=''; |
my $next=''; |
my @possibilities=(); |
my @possibilities=(); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']); |
Line 304 sub handler {
|
Line 334 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 322 sub handler {
|
Line 364 sub handler {
|
} |
} |
if ($direction eq 'firstres') { |
if ($direction eq 'firstres') { |
my $furl=&first_accessible_resource(); |
my $furl=&first_accessible_resource(); |
&Apache::loncommon::content_type($r,'text/html'); |
$furl=&Apache::lonnet::absolute_url().$furl; |
$r->header_out(Location => |
if ($reinitcheck eq 'update') { |
&Apache::lonnet::absolute_url().$furl); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
$r->print(&reinited_js($furl,$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 => $furl); |
|
return REDIRECT; |
|
} |
} |
} |
if ($direction eq 'return') { |
if ($direction eq 'return') { |
# -------------------------------------------------------- Return to last known |
# -------------------------------------------------------- Return to last known |
Line 345 sub handler {
|
Line 393 sub handler {
|
} else { |
} else { |
$newloc='/adm/navmaps'; |
$newloc='/adm/navmaps'; |
} |
} |
&Apache::loncommon::content_type($r,'text/html'); |
$newloc=&Apache::lonnet::absolute_url().$newloc; |
$r->header_out(Location => |
if ($reinitcheck eq 'update') { |
&Apache::lonnet::absolute_url().$newloc); |
$r->print(&reinited_js($newloc,$env{'request.course.id'},100)); |
|
$r->print(&Apache::loncommon::end_page()); |
return REDIRECT; |
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 363 sub handler {
|
Line 416 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 { |
&Apache::loncommon::content_type($r,'text/html'); |
my $newloc = &Apache::lonnet::absolute_url(). |
$r->header_out(Location => |
'/adm/navmaps'; |
&Apache::lonnet::absolute_url(). |
if ($reinitcheck eq 'update') { |
'/adm/navmaps'); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
return REDIRECT; |
$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; |
|
} |
} |
} |
} |
} |
# ------------------------------------------- Do we have any idea where we are? |
# ------------------------------------------- Do we have any idea where we are? |
Line 404 sub handler {
|
Line 463 sub handler {
|
@possibilities=split(/\,/,$next); |
@possibilities=split(/\,/,$next); |
if ($#possibilities==0) { |
if ($#possibilities==0) { |
# ---------------------------------------------- Only one possibility, redirect |
# ---------------------------------------------- Only one possibility, redirect |
($redirecturl,$redirectsymb)=&hash_src($next); |
($redirecturl,$redirectsymb,$enc,$anchor)=&hash_src($next); |
$cachehash{$endupmap}{$redirecturl}= |
$cachehash{$endupmap}{$redirecturl}= |
[$redirecturl,(split(/\./,$next))[1]]; |
[$redirecturl,(split(/\./,$next))[1]]; |
} else { |
} else { |
Line 453 sub handler {
|
Line 512 sub handler {
|
my ($redirect, $url) = &Apache::loncommon::critical_redirect(300); |
my ($redirect, $url) = &Apache::loncommon::critical_redirect(300); |
unless ($redirect) { |
unless ($redirect) { |
$url=&Apache::lonnet::absolute_url().$redirecturl; |
$url=&Apache::lonnet::absolute_url().$redirecturl; |
|
my $addanchor; |
|
if (($anchor ne '') && (!$enc || $env{'request.role.adv'})) { |
|
$addanchor = 1; |
|
$url =~ s/\#.+$//; |
|
} |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
|
if ($addanchor) { |
|
$url .= $anchor; |
|
} |
|
} |
|
if ($reinitcheck eq 'update') { |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
$r->print(&reinited_js($url,$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 => $url); |
|
return REDIRECT; |
} |
} |
&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 540 ENDSTART
|
Line 614 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 |
$r->internal_redirect('/adm/ambiguous'); |
my $newloc = '/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 { |