version 1.69, 2006/05/30 19:47:40
|
version 1.80.8.4, 2014/04/28 20:23:35
|
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 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::lonlocal; |
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 86 sub hash_src {
|
Line 90 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 186 sub navlaunch {
|
Line 223 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; |
$r->print(&Apache::loncommon::start_page('Launched')); |
$r->print(&Apache::loncommon::start_page('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"> |
function collapse() { |
function collapse() { |
menu=window.open("/adm/navmaps?collapseExternal","loncapanav", |
menu=window.open("/adm/navmaps?collapseExternal","loncapanav", |
"height=600,width=400,scrollbars=1"); |
"height=600,width=400,scrollbars=1"); |
this.document.location='/adm/navmaps?turningOffExternal'; |
this.document.location='/adm/navmaps?turningOffExternal'; |
} |
} |
</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 |
Line 206 sub first_accessible_resource {
|
Line 243 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'}; |
if (!&Apache::lonnet::allowed('bre',$furl)) { |
my %args; |
|
my ($url,$args) = split(/\?/,$furl); |
|
foreach my $pair (split(/\&/,$args)) { |
|
my ($name,$value) = split(/=/,$pair); |
|
$args{&unescape($name)} = &unescape($value); |
|
} |
|
if ((($env{'environment.remotenavmap'} eq 'on') && ($furl =~ m{^/adm/navmaps})) || |
|
(!&Apache::lonnet::allowed('bre',$url,$args{'symb'}))) { |
# 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 |
my ($newresid,$newmapid)=split(/\./,$newrid); |
my ($newmapid,$newresid)=split(/\./,$newrid); |
my $symb=&Apache::lonnet::encode_symb($newmap,$newresid,$hash{'src_'.$newrid}); |
my $symb=&Apache::lonnet::encode_symb($newmap,$newresid,$hash{'src_'.$newrid}); |
$furl=&add_get_param($hash{'src_'.$newrid},{ 'symb' => $symb }); |
$furl=&add_get_param($hash{'src_'.$newrid},{ 'symb' => $symb }); |
if ($hash{'encrypted_'.$newrid}) { |
if ($hash{'encrypted_'.$newrid}) { |
Line 256 sub handler {
|
Line 300 sub handler {
|
my $furl=&first_accessible_resource(); |
my $furl=&first_accessible_resource(); |
&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 283 sub handler {
|
Line 327 sub handler {
|
untie %hash; |
untie %hash; |
} else { |
} else { |
$newloc='/adm/navmaps'; |
$newloc='/adm/navmaps'; |
} |
} |
if ($newloc eq '/adm/navmaps' && $direction eq 'navlaunch') { |
if (($newloc =~ m{^/adm/navmaps}) && ($direction eq 'navlaunch')) { |
&navlaunch($r); |
&navlaunch($r); |
return OK; |
return OK; |
} 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 310 sub handler {
|
Line 354 sub handler {
|
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 { |
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); |
return OK; |
return OK; |
} |
} |
} |
} |
} |
} |
# ------------------------------------------- Do we have any idea where we are? |
# ------------------------------------------- Do we have any idea where we are? |
Line 340 sub handler {
|
Line 385 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 411 sub handler {
|
Line 448 sub handler {
|
$redirectsymb=''; |
$redirectsymb=''; |
} |
} |
} |
} |
&Apache::lonnet::appenv('user.criticalcheck.time'=>time); |
&Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); |
} |
} |
|
|
|
if (($redirecturl =~ m{^/adm/navmaps}) && |
|
($env{'environment.remotenavmap'} eq 'on')) { |
|
&navlaunch($r); |
|
return OK; |
|
} |
&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; |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$r->header_out(Location => $url); |
$r->header_out(Location => $url); |
return REDIRECT; |
return REDIRECT; |
Line 427 sub handler {
|
Line 469 sub handler {
|
'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', |
'nav' => 'Navigate Course Content', |
'nav' => 'Course Contents', |
'wherenext' => |
'wherenext' => |
'There are several possibilities of where to go next', |
'There are several possibilities of where to go next', |
'pick' => |
'pick' => |
'Please click on the the resource you intend to access', |
'Please click on the the resource you intend to access', |
'titleheader' => 'Title', |
'titleheader' => 'Title', |
'type' => 'Type'); |
'type' => 'Type'); |
|
if (&Apache::loncommon::course_type() eq 'Community') { |
|
$lt{'nav'} = &mt('Community Contents'); |
|
} |
if ($#possibilities>0) { |
if ($#possibilities>0) { |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Multiple Resources'); |
&Apache::loncommon::start_page('Multiple Resources'); |
Line 443 $start_page
|
Line 488 $start_page
|
<p> |
<p> |
$lt{'pick'}: |
$lt{'pick'}: |
<p> |
<p> |
<table border=2> |
<table border="2"> |
<tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr> |
<tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr> |
ENDSTART |
ENDSTART |
foreach my $id (@possibilities) { |
foreach my $id (@possibilities) { |
Line 459 ENDSTART
|
Line 504 ENDSTART
|
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
} else { |
} else { |
my $start_page= |
$r->print( |
&Apache::loncommon::start_page('No Resource'); |
&Apache::loncommon::start_page('No Resource') |
$r->print(<<ENDNONE); |
.'<h2>'.$lt{'title'}.'</h2>' |
$start_page |
.'<p>'.$lt{'explain'}.'</p>'); |
<h3>$lt{'title'}</h3> |
|
<p>$lt{'explain'}</p> |
|
ENDNONE |
|
} |
} |
$r->print(<<ENDMENU); |
$r->print( |
<ul> |
&Apache::lonhtmlcommon::actionbox( |
<li><a href="/adm/flip?postdata=return:">$lt{'back'}</a></li> |
['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>', |
<li><a href="/adm/navmaps">$lt{'nav'}</a></li> |
'<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>' |
</ul> |
]) |
ENDMENU |
.&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
return OK; |
} |
} |
} else { |
} else { |
Line 484 ENDMENU
|
Line 525 ENDMENU
|
} else { |
} else { |
# ---------------------------------------- No, could not determine where we are |
# ---------------------------------------- No, could not determine where we are |
$r->internal_redirect('/adm/ambiguous'); |
$r->internal_redirect('/adm/ambiguous'); |
|
return OK; |
} |
} |
} else { |
} else { |
# -------------------------- Class was not initialized or page fliped strangely |
# -------------------------- Class was not initialized or page fliped strangely |
Line 495 ENDMENU
|
Line 537 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 |
|
|
|
|
|
|