version 1.80.8.8, 2015/03/23 12:49:10
|
version 1.91, 2016/05/30 02:52:42
|
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 83 sub hash_src {
|
Line 84 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 256 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(); |
|
} |
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
Line 264 sub handler {
|
Line 295 sub handler {
|
my %cachehash=(); |
my %cachehash=(); |
my $multichoice=0; |
my $multichoice=0; |
my %multichoicehash=(); |
my %multichoicehash=(); |
my ($redirecturl,$redirectsymb); |
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 283 sub handler {
|
Line 314 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 404 sub handler {
|
Line 446 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 495 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; |
|
} |
} |
} |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => $url); |
$r->header_out(Location => $url); |
Line 475 sub handler {
|
Line 525 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 516 ENDSTART
|
Line 567 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()); |
|
|