version 1.56, 2005/08/31 07:38:29
|
version 1.66, 2006/03/06 23:41:07
|
Line 46 sub cleanup {
|
Line 46 sub cleanup {
|
&Apache::lonnet::logthis('Failed cleanup pageflip: hash'); |
&Apache::lonnet::logthis('Failed cleanup pageflip: hash'); |
} |
} |
} |
} |
|
return OK; |
} |
} |
|
|
sub addrid { |
sub addrid { |
Line 83 sub hash_src {
|
Line 84 sub hash_src {
|
return ($hash{'src_'.$id},$symb); |
return ($hash{'src_'.$id},$symb); |
} |
} |
|
|
|
# Inputs are a url, adn a hash ref of |
|
# form name => value pairs |
|
# takes care of properly adding the form name elements and values to the |
|
# the url doing proper escaping of the values and joining with ? or & as |
|
# needed |
|
|
|
sub add_get_param { |
|
my ($url,$form_data) = @_; |
|
my $needs_question_mark = ($url !~ /\?/); |
|
|
|
while (my ($name,$value) = each(%$form_data)) { |
|
if ($needs_question_mark) { |
|
$url.='?'; |
|
$needs_question_mark = 0; |
|
} else { |
|
$url.='&'; |
|
} |
|
$url.=$name.'='.&Apache::lonnet::escape($form_data->{$name}); |
|
} |
|
return $url; |
|
} |
|
|
sub move { |
sub move { |
my ($rid,$mapurl,$direction)=@_; |
my ($rid,$mapurl,$direction)=@_; |
my $startoutrid=$rid; |
my $startoutrid=$rid; |
Line 96 sub move {
|
Line 119 sub move {
|
while ($hash{'type_'.$rid} eq 'finish') { |
while ($hash{'type_'.$rid} eq 'finish') { |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
map { |
foreach my $id (split(/\,/,$hash{'to_'.$rid})) { |
my $thiscond= |
my $condition= $hash{'conditions_'.$hash{'goesto_'.$id}}; |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
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.=','.$_.':'.$thiscond; |
$posnext.=','.$id.':'.$thiscond; |
} else { |
} else { |
$posnext=$_.':'.$thiscond; |
$posnext=$id.':'.$thiscond; |
} |
} |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
} |
} |
} split(/\,/,$hash{'to_'.$rid}); |
} |
map { |
foreach my $id (split(/\,/,$posnext)) { |
my ($linkid,$condval)=split(/\:/,$_); |
my ($linkid,$condval)=split(/\:/,$id); |
if ($condval>=$mincond) { |
if ($condval>=$mincond) { |
$next=&addrid($next,$hash{'goesto_'.$linkid}, |
$next=&addrid($next,$hash{'goesto_'.$linkid}, |
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
} |
} |
} split(/\,/,$posnext); |
} |
if ($hash{'is_map_'.$next}) { |
if ($hash{'is_map_'.$next}) { |
# This jumps to the beginning of a new map (going down level) |
# This jumps to the beginning of a new map (going down level) |
if ( |
if ( |
Line 130 sub move {
|
Line 155 sub move {
|
((split(/\./,$startoutrid))[0]!=(split(/\./,$next))[0]) { |
((split(/\./,$startoutrid))[0]!=(split(/\./,$next))[0]) { |
# This comes up from a map (coming up one level); |
# This comes up from a map (coming up one level); |
$mapurl=$hash{'map_id_'.(split(/\./,$next))[0]}; |
$mapurl=$hash{'map_id_'.(split(/\./,$next))[0]}; |
} |
} |
} elsif ($direction eq 'back') { |
} elsif ($direction eq 'back') { |
# ------------------------------------------------------------------- Backwards |
# ------------------------------------------------------------------- Backwards |
while ($hash{'type_'.$rid} eq 'start') { |
while ($hash{'type_'.$rid} eq 'start') { |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
map { |
foreach my $id (split(/\,/,$hash{'from_'.$rid})) { |
my $thiscond= |
my $condition= $hash{'conditions_'.$hash{'comesfrom_'.$id}}; |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
my $rescond = &Apache::lonnet::docondval($condition); |
if ($thiscond>=$mincond) { |
my $linkcond = &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
if ($posnext) { |
my $thiscond = ($rescond<$linkcond)?$rescond:$linkcond; |
$posnext.=','.$_.':'.$thiscond; |
if ($thiscond>=$mincond) { |
} else { |
if ($posnext) { |
$posnext=$_.':'.$thiscond; |
$posnext.=','.$id.':'.$thiscond; |
} |
} else { |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
$posnext=$id.':'.$thiscond; |
} |
} |
} split(/\,/,$hash{'from_'.$rid}); |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
map { |
} |
my ($linkid,$condval)=split(/\:/,$_); |
} |
if ($condval>=$mincond) { |
foreach my $id (split(/\,/,$posnext)) { |
$next=&addrid($next,$hash{'comesfrom_'.$linkid}, |
my ($linkid,$condval)=split(/\:/,$id); |
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
if ($condval>=$mincond) { |
} |
$next=&addrid($next,$hash{'comesfrom_'.$linkid}, |
} split(/\,/,$posnext); |
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
|
} |
|
} |
if ($hash{'is_map_'.$next}) { |
if ($hash{'is_map_'.$next}) { |
# This jumps to the end of a new map (going down one level) |
# This jumps to the end of a new map (going down one level) |
if ( |
if ( |
Line 256 sub handler {
|
Line 283 sub handler {
|
if ($hash{'encrypted_'.$id}) { $newloc=&Apache::lonenc::encrypted($newloc); } |
if ($hash{'encrypted_'.$id}) { $newloc=&Apache::lonenc::encrypted($newloc); } |
|
|
} else { |
} else { |
$newloc='/adm/noidea.html'; |
$newloc='/adm/navmaps'; |
} |
} |
untie %hash; |
untie %hash; |
} else { |
} else { |
$newloc='/adm/noidea.html'; |
$newloc='/adm/navmaps'; |
} |
} |
if ($newloc eq '/adm/noidea.html' && $direction eq 'navlaunch') { |
if ($newloc eq '/adm/navmaps' && $direction eq 'navlaunch') { |
&navlaunch($r); |
&navlaunch($r); |
return OK; |
return OK; |
} else { |
} else { |
Line 338 sub handler {
|
Line 365 sub handler {
|
} else { |
} else { |
# ------------------------ There are multiple possibilities for a next resource |
# ------------------------ There are multiple possibilities for a next resource |
$multichoice=1; |
$multichoice=1; |
map { |
foreach my $id (@possibilities) { |
$multichoicehash{'src_'.$_}=$hash{'src_'.$_}; |
$multichoicehash{'src_'.$id}=$hash{'src_'.$id}; |
$multichoicehash{'title_'.$_}=$hash{'title_'.$_}; |
$multichoicehash{'title_'.$id}=$hash{'title_'.$id}; |
$multichoicehash{'type_'.$_}=$hash{'type_'.$_}; |
$multichoicehash{'type_'.$id}=$hash{'type_'.$id}; |
(my $first, my $second) = $_ =~ /(\d+).(\d+)/; |
(my $first, my $second) = $id =~ /(\d+).(\d+)/; |
my $symbSrc = Apache::lonnet::declutter($hash{'src_'.$_}); |
my $symbSrc = Apache::lonnet::declutter($hash{'src_'.$id}); |
$multichoicehash{'symb_'.$_} = |
$multichoicehash{'symb_'.$id} = |
Apache::lonnet::declutter($hash{'map_id_'.$first}.'___'. |
Apache::lonnet::declutter($hash{'map_id_'.$first}.'___'. |
$second.'___'.$symbSrc); |
$second.'___'.$symbSrc); |
|
|
my ($choicemap,$choiceres)=split(/\./,$_); |
my ($choicemap,$choiceres)=split(/\./,$id); |
my $map=&Apache::lonnet::declutter($hash{'src_'.$choicemap}); |
my $map=&Apache::lonnet::declutter($hash{'src_'.$choicemap}); |
my $url=$multichoicehash{'src_'.$_}; |
my $url=$multichoicehash{'src_'.$id}; |
$cachehash{$map}{$url}=[$url,$choiceres]; |
$cachehash{$map}{$url}=[$url,$choiceres]; |
} @possibilities; |
} |
} |
} |
} else { |
} else { |
# -------------------------------------------------------------- No place to go |
# -------------------------------------------------------------- No place to go |
Line 394 sub handler {
|
Line 421 sub handler {
|
|
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
my $url='http://'.$ENV{'HTTP_HOST'}.$redirecturl; |
my $url='http://'.$ENV{'HTTP_HOST'}.$redirecturl; |
if ($redirectsymb ne '') { $url.='?symb='.$redirectsymb; } |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$r->header_out(Location => $url); |
$r->header_out(Location => $url); |
return REDIRECT; |
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'); |
$r->send_http_header; |
$r->send_http_header; |
|
my %lt=&Apache::lonlocal::texthash('title' => 'End of Sequence', |
|
'explain' => |
|
'You have reached the end of the sequence of materials.', |
|
'back' => 'Go Back', |
|
'nav' => 'Navigate Course Content', |
|
'wherenext' => |
|
'There are several possibilities of where to go next', |
|
'pick' => |
|
'Please click on the the resource you intend to access', |
|
'titleheader' => 'Title', |
|
'type' => 'Type'); |
if ($#possibilities>0) { |
if ($#possibilities>0) { |
my $bodytag= |
my $bodytag= |
&Apache::loncommon::bodytag('Multiple Resources'); |
&Apache::loncommon::bodytag('Multiple Resources'); |
$r->print(<<ENDSTART); |
$r->print(<<ENDSTART); |
<head><title>Choose Next Location</title></head> |
<head><title>Choose Next Location</title></head> |
$bodytag |
$bodytag |
<h3>There are several possibilities of where to go next</h3> |
<h3>$lt{'wherenext'}</h3> |
<p> |
<p> |
Please click on the the resource you intend to access: |
$lt{'pick'}: |
<p> |
<p> |
<table border=2> |
<table border=2> |
<tr><th>Title</th><th>Type</th></tr> |
<tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr> |
ENDSTART |
ENDSTART |
foreach (@possibilities) { |
foreach my $id (@possibilities) { |
$r->print( |
$r->print( |
'<tr><td><a href="'. |
'<tr><td><a href="'. |
$multichoicehash{'src_'.$_}.'?symb=' . |
&add_get_param($multichoicehash{'src_'.$id}, |
Apache::lonnet::escape($multichoicehash{'symb_'.$_}).'">'. |
{'symb' => |
$multichoicehash{'title_'.$_}. |
$multichoicehash{'symb_'.$id}, |
'</a></td><td>'.$multichoicehash{'type_'.$_}. |
}).'">'. |
|
$multichoicehash{'title_'.$id}. |
|
'</a></td><td>'.$multichoicehash{'type_'.$id}. |
'</td></tr>'); |
'</td></tr>'); |
} |
} |
$r->print('</table></body></html>'); |
$r->print('</table>'); |
return OK; |
|
} else { |
} else { |
my $bodytag=&Apache::loncommon::bodytag('No Resource'); |
my $bodytag=&Apache::loncommon::bodytag('No Resource'); |
$r->print(<<ENDNONE); |
$r->print(<<ENDNONE); |
<head><title>No Resource</title></head> |
<head><title>No Resource</title></head> |
$bodytag |
$bodytag |
<h3>Next resource could not be identified.</h3> |
<h3>$lt{'title'}</h3> |
<p>You probably are at the <b>beginning</b> or the <b>end</b> of the |
<p>$lt{'explain'}</p> |
course.</p> |
|
<ul> |
|
<li><a href="/adm/flip?postdata=return:">Go Back</a></li> |
|
<li><a href="/adm/navmaps">Navigate Course Content</a></li> |
|
</ul> |
|
</body> |
|
</html> |
|
ENDNONE |
ENDNONE |
return OK; |
} |
} |
$r->print(<<ENDMENU); |
} |
<ul> |
|
<li><a href="/adm/flip?postdata=return:">$lt{'back'}</a></li> |
|
<li><a href="/adm/navmaps">$lt{'nav'}</a></li> |
|
</ul></body></html> |
|
ENDMENU |
|
return OK; |
|
} |
} else { |
} else { |
# ------------------------------------------------- Problem, could not tie hash |
# ------------------------------------------------- Problem, could not tie hash |
$env{'user.error.msg'}="/adm/flip:bre:0:1:Course Data Missing"; |
$env{'user.error.msg'}="/adm/flip:bre:0:1:Course Data Missing"; |
Line 450 ENDNONE
|
Line 488 ENDNONE
|
} |
} |
} else { |
} else { |
# ---------------------------------------- No, could not determine where we are |
# ---------------------------------------- No, could not determine where we are |
if ( &Apache::lonnet::mod_perl_version() == 2 ) { |
|
&Apache::lonnet::cleanenv(); |
|
} |
|
$r->internal_redirect('/adm/ambiguous'); |
$r->internal_redirect('/adm/ambiguous'); |
} |
} |
} else { |
} else { |