version 1.63, 2006/02/07 19:46:08
|
version 1.78, 2008/12/19 14:12:55
|
Line 27
|
Line 27
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
|
|
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
use strict; |
use strict; |
|
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 HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 85 sub hash_src {
|
Line 89 sub hash_src {
|
} |
} |
|
|
sub move { |
sub move { |
|
my ($next,$endupmap,$direction) = @_; |
|
my $safecount=0; |
|
my $allowed=0; |
|
do { |
|
($next,$endupmap)=&get_next_possible_move($next,$endupmap,$direction); |
|
|
|
my $url = $hash{'src_'.$next}; |
|
my ($mapid,$resid)=split(/\./,$next); |
|
my $symb = &Apache::lonnet::encode_symb($hash{'map_id_'.$mapid}, |
|
$resid,$url); |
|
if ($url eq '' || $symb eq '') { |
|
$allowed = 0; |
|
} else { |
|
my $priv = &Apache::lonnet::allowed('bre',$url,$symb); |
|
$allowed = (($priv eq 'F') || ($priv eq '2')); |
|
} |
|
$safecount++; |
|
} while ( ($next) |
|
&& ($next!~/\,/) |
|
&& ( |
|
(!$hash{'src_'.$next}) |
|
|| ( |
|
(!$env{'request.role.adv'}) |
|
&& $hash{'randomout_'.$next} |
|
) |
|
|| (!$allowed) |
|
) |
|
&& ($safecount<10000)); |
|
|
|
return ($next,$endupmap); |
|
} |
|
|
|
sub get_next_possible_move { |
my ($rid,$mapurl,$direction)=@_; |
my ($rid,$mapurl,$direction)=@_; |
my $startoutrid=$rid; |
my $startoutrid=$rid; |
|
|
Line 98 sub move {
|
Line 135 sub move {
|
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
foreach my $id (split(/\,/,$hash{'to_'.$rid})) { |
foreach my $id (split(/\,/,$hash{'to_'.$rid})) { |
my $thiscond= |
my $condition= $hash{'conditions_'.$hash{'goesto_'.$id}}; |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
my $rescond = &Apache::lonnet::docondval($condition); |
if ($thiscond>=$mincond) { |
my $linkcond = &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
|
my $thiscond = ($rescond<$linkcond)?$rescond:$linkcond; |
|
if ($thiscond>=$mincond) { |
if ($posnext) { |
if ($posnext) { |
$posnext.=','.$id.':'.$thiscond; |
$posnext.=','.$id.':'.$thiscond; |
} else { |
} else { |
Line 138 sub move {
|
Line 177 sub move {
|
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
foreach my $id (split(/\,/,$hash{'from_'.$rid})) { |
foreach my $id (split(/\,/,$hash{'from_'.$rid})) { |
my $thiscond= |
my $condition= $hash{'conditions_'.$hash{'comesfrom_'.$id}}; |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
my $rescond = &Apache::lonnet::docondval($condition); |
|
my $linkcond = &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
|
my $thiscond = ($rescond<$linkcond)?$rescond:$linkcond; |
if ($thiscond>=$mincond) { |
if ($thiscond>=$mincond) { |
if ($posnext) { |
if ($posnext) { |
$posnext.=','.$id.':'.$thiscond; |
$posnext.=','.$id.':'.$thiscond; |
Line 181 sub navlaunch {
|
Line 222 sub navlaunch {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(&Apache::loncommon::start_page('Launched')); |
$r->print("$html<head>\n"); |
|
$r->print('</head>'. |
|
&Apache::loncommon::bodytag('Launched')); |
|
$r->print(<<ENDNAV); |
$r->print(<<ENDNAV); |
<p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p> |
<p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p> |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 196 sub navlaunch {
|
Line 234 sub navlaunch {
|
</script> |
</script> |
<p><a href="javascript:collapse();">Collapse external navigation window</a></p> |
<p><a href="javascript:collapse();">Collapse external navigation window</a></p> |
ENDNAV |
ENDNAV |
$r->print(&Apache::loncommon::endbodytag().'</html>'); |
$r->print(&Apache::loncommon::end_page()); |
|
} |
|
|
|
sub first_accessible_resource { |
|
my $furl; |
|
if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
|
&GDBM_READER(),0640)) { |
|
$furl=$hash{'first_url'}; |
|
my %args; |
|
my ($url,$args) = split(/\?/,$furl); |
|
foreach my $pair (split(/\&/,$args)) { |
|
my ($name,$value) = split(/=/,$pair); |
|
$args{&unescape($name)} = &unescape($value); |
|
} |
|
if (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) { |
|
# 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'); |
|
# Build the new URL |
|
my ($newmapid,$newresid)=split(/\./,$newrid); |
|
my $symb=&Apache::lonnet::encode_symb($newmap,$newresid,$hash{'src_'.$newrid}); |
|
$furl=&add_get_param($hash{'src_'.$newrid},{ 'symb' => $symb }); |
|
if ($hash{'encrypted_'.$newrid}) { |
|
$furl=&Apache::lonenc::encrypted($furl); |
|
} |
|
} |
|
untie(%hash); |
|
return $furl; |
|
} else { |
|
return '/adm/navmaps'; |
|
} |
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
Line 227 sub handler {
|
Line 295 sub handler {
|
} |
} |
$currenturl=~s/\.\d+\.(\w+)$/\.$1/; |
$currenturl=~s/\.\d+\.(\w+)$/\.$1/; |
if ($direction eq 'firstres') { |
if ($direction eq 'firstres') { |
my $furl; |
my $furl=&first_accessible_resource(); |
if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
|
&GDBM_READER(),0640)) { |
|
$furl=$bighash{'first_url'}; |
|
untie(%bighash); |
|
} |
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$furl); |
&Apache::lonnet::absolute_url().$furl); |
|
|
return REDIRECT; |
return REDIRECT; |
} |
} |
Line 269 sub handler {
|
Line 332 sub handler {
|
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$newloc); |
&Apache::lonnet::absolute_url().$newloc); |
|
|
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^https?\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
# |
# |
# 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 292 sub handler {
|
Line 355 sub handler {
|
if ($direction eq 'return') { |
if ($direction eq 'return') { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.'/adm/noidea.html'); |
&Apache::lonnet::absolute_url(). |
|
'/adm/noidea.html'); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
&navlaunch($r); |
&navlaunch($r); |
Line 319 sub handler {
|
Line 383 sub handler {
|
my $endupmap; |
my $endupmap; |
($next,$endupmap)=&move($rid,$startoutmap,$direction); |
($next,$endupmap)=&move($rid,$startoutmap,$direction); |
# -------------------------------------- Do we have one and only one empty URL? |
# -------------------------------------- Do we have one and only one empty URL? |
my $safecount=0; |
|
while (($next) && ($next!~/\,/) && |
|
((!$hash{'src_'.$next}) || |
|
((!$env{'request.role.adv'}) && $hash{'randomout_'.$next})) |
|
&& ($safecount<10000)) { |
|
($next,$endupmap)=&move($next,$endupmap,$direction); |
|
$safecount++; |
|
} |
|
# We are now at at least one non-empty URL |
# We are now at at least one non-empty URL |
# ----------------------------------------------------- Check out possibilities |
# ----------------------------------------------------- Check out possibilities |
if ($next) { |
if ($next) { |
Line 390 sub handler {
|
Line 446 sub handler {
|
$redirectsymb=''; |
$redirectsymb=''; |
} |
} |
} |
} |
&Apache::lonnet::appenv('user.criticalcheck.time'=>time); |
&Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); |
} |
} |
|
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
my $url='http://'.$ENV{'HTTP_HOST'}.$redirecturl; |
my $url=&Apache::lonnet::absolute_url().$redirecturl; |
if ($redirectsymb ne '') { $url.='?symb='.&Apache::lonnet::escape($redirectsymb); } |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$r->header_out(Location => $url); |
$r->header_out(Location => $url); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
Line 414 sub handler {
|
Line 470 sub handler {
|
'titleheader' => 'Title', |
'titleheader' => 'Title', |
'type' => 'Type'); |
'type' => 'Type'); |
if ($#possibilities>0) { |
if ($#possibilities>0) { |
my $bodytag= |
my $start_page= |
&Apache::loncommon::bodytag('Multiple Resources'); |
&Apache::loncommon::start_page('Multiple Resources'); |
$r->print(<<ENDSTART); |
$r->print(<<ENDSTART); |
<head><title>Choose Next Location</title></head> |
$start_page |
$bodytag |
|
<h3>$lt{'wherenext'}</h3> |
<h3>$lt{'wherenext'}</h3> |
<p> |
<p> |
$lt{'pick'}: |
$lt{'pick'}: |
Line 429 ENDSTART
|
Line 484 ENDSTART
|
foreach my $id (@possibilities) { |
foreach my $id (@possibilities) { |
$r->print( |
$r->print( |
'<tr><td><a href="'. |
'<tr><td><a href="'. |
$multichoicehash{'src_'.$id}.'?symb=' . |
&add_get_param($multichoicehash{'src_'.$id}, |
Apache::lonnet::escape($multichoicehash{'symb_'.$id}).'">'. |
{'symb' => |
|
$multichoicehash{'symb_'.$id}, |
|
}).'">'. |
$multichoicehash{'title_'.$id}. |
$multichoicehash{'title_'.$id}. |
'</a></td><td>'.$multichoicehash{'type_'.$id}. |
'</a></td><td>'.$multichoicehash{'type_'.$id}. |
'</td></tr>'); |
'</td></tr>'); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
} else { |
} else { |
my $bodytag=&Apache::loncommon::bodytag('No Resource'); |
my $start_page= |
|
&Apache::loncommon::start_page('No Resource'); |
$r->print(<<ENDNONE); |
$r->print(<<ENDNONE); |
<head><title>No Resource</title></head> |
$start_page |
$bodytag |
|
<h3>$lt{'title'}</h3> |
<h3>$lt{'title'}</h3> |
<p>$lt{'explain'}</p> |
<p>$lt{'explain'}</p> |
ENDNONE |
ENDNONE |
Line 449 ENDNONE
|
Line 506 ENDNONE
|
<ul> |
<ul> |
<li><a href="/adm/flip?postdata=return:">$lt{'back'}</a></li> |
<li><a href="/adm/flip?postdata=return:">$lt{'back'}</a></li> |
<li><a href="/adm/navmaps">$lt{'nav'}</a></li> |
<li><a href="/adm/navmaps">$lt{'nav'}</a></li> |
</ul></body></html> |
</ul> |
ENDMENU |
ENDMENU |
|
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
} else { |
} else { |
Line 472 ENDMENU
|
Line 530 ENDMENU
|
1; |
1; |
__END__ |
__END__ |
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
Apache::lonpageflip |
|
|
|
=head1 SYNOPSIS |
|
|
|
Deals with forward, backward, and other page flips. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 OVERVIEW |
|
|
|
(empty) |
|
|
|
=head1 SUBROUTINES |
|
|
|
=over cleanup() |
|
|
|
=item addrid() |
|
|
|
=item fullmove() |
|
|
|
=item hash_src() |
|
|
|
=item move() |
|
|
|
=item get_next_possible_move() |
|
|
|
=item navlaunch() |
|
|
|
=item first_accessible_resource() |
|
|
|
=item handler() |
|
|
|
=back |
|
|
|
=cut |
|
|
|
|
|
|