version 1.6, 2002/09/14 18:57:59
|
version 1.18, 2006/03/19 23:06:00
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (TeX Content Handler |
|
# |
|
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
|
# |
|
# 10/11,10/12,10/16 Gerd Kortemeyer |
|
|
|
package Apache::lonambiguous; |
package Apache::lonambiguous; |
|
|
Line 37 use strict;
|
Line 32 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::Constants qw(:common REDIRECT); |
use Apache::Constants qw(:common REDIRECT); |
use GDBM_File; |
use GDBM_File; |
|
use Apache::loncommon; |
|
use Apache::lonlocal; |
|
|
|
my %bighash; |
|
|
|
sub cleanup { |
|
if (tied(%bighash)){ |
|
&Apache::lonnet::logthis('Cleanup ambiguous: bighash'); |
|
unless (untie(%bighash)) { |
|
&Apache::lonnet::logthis('Failed cleanup ambiguous: bighash'); |
|
} |
|
} |
|
return OK; |
|
} |
|
|
# ----------------------------------------------------------- Could not resolve |
# ----------------------------------------------------------- Could not resolve |
|
|
sub getlost { |
sub getlost { |
my ($r,$errmsg)=@_; |
my ($r,$errmsg)=@_; |
$r->content_type('text/html'); |
$errmsg=&mt($errmsg); |
|
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print( |
$r->print(&Apache::loncommon::start_page('Could not handle ambiguous resource reference'). |
'<head><title>Unknown Error</title></head><body bgcolor="#FFFFFF"><h1>'. |
$errmsg. |
'LON-CAPA</h1>Could not handle ambiguous resource reference.<p>'.$errmsg. |
(&Apache::loncommon::end_page()); |
'</body></html>'); |
|
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
|
sub make_symb { |
|
my ($id)=@_; |
|
my ($mapid,$resid)=split(/\./,$id); |
|
my $map=$bighash{'map_id_'.$mapid}; |
|
my $res=$bighash{'src_'.$id}; |
|
my $symb=&Apache::lonnet::encode_symb($map,$resid,$res); |
|
return $symb; |
|
} |
|
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
|
|
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
|
|
# ---------------------------------------------------------- Is this selecting? |
# ---------------------------------------------------------- Is this selecting? |
|
|
my %bighash; |
if ($env{'form.selecturl'}) { |
|
|
if ($ENV{'form.selecturl'}) { |
|
my $envkey; |
my $envkey; |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
foreach $envkey (keys %ENV) { |
foreach $envkey (keys %env) { |
if ($envkey=~/^form\.(\d+)\.(\d+)$/) { |
if ($envkey=~/^form\.(\d+)\.(\d+)$/) { |
# ---------------------------------------------------- Update symb and redirect |
# ---------------------------------------------------- Update symb and redirect |
my $mapid=$1; |
my $mapid=$1; |
my $resid=$2; |
my $resid=$2; |
my $resurl=$bighash{'src_'.$mapid.'.'.$resid}; |
my $resurl=$bighash{'src_'.$mapid.'.'.$resid}; |
&Apache::lonnet::symblist($bighash{'map_id_'.$mapid}, |
&Apache::lonnet::symblist($bighash{'map_id_'.$mapid}, |
$resurl => $resid); |
$resurl => [$resurl,$resid]); |
untie(%bighash); |
untie(%bighash); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$resurl); |
'http://'.$ENV{'HTTP_HOST'}.$resurl); |
Line 94 sub handler {
|
Line 109 sub handler {
|
# ---------------------------------------------------------- Do we have a case? |
# ---------------------------------------------------------- Do we have a case? |
|
|
my $thisfn; |
my $thisfn; |
unless (($thisfn=$ENV{'request.ambiguous'})&&($ENV{'request.course.fn'})) { |
unless (($thisfn=$env{'request.ambiguous'})&&($env{'request.course.fn'})) { |
&getlost($r,'Could not find information on resource.'); |
&getlost($r,'Could not find information on resource.'); |
return OK; |
return OK; |
} |
} |
Line 105 sub handler {
|
Line 120 sub handler {
|
my %hash; |
my %hash; |
my $syval=''; |
my $syval=''; |
|
|
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
$syval=$hash{$thisfn}; |
$syval=$hash{$thisfn}; |
untie(%hash); |
untie(%hash); |
Line 114 sub handler {
|
Line 129 sub handler {
|
# ---------------------------------------------------------- There was an entry |
# ---------------------------------------------------------- There was an entry |
|
|
if ($syval) { |
if ($syval) { |
|
my ($page,undef,$res)=&Apache::lonnet::decode_symb($syval); |
if ($syval=~/\_$/) { |
if ($res eq 'page') { |
# ----------------------------------- Okay, this should have appeared on a page |
# ----------------------------------- Okay, this should have appeared on a page |
$syval=~s/\_\_\_$//; |
&Apache::loncommon::content_type($r,'text/html'); |
$r->content_type('text/html'); |
|
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.'/res/'.$syval); |
'http://'.$ENV{'HTTP_HOST'}. |
|
&Apache::lonnet::clutter($page)); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
# There is not really a problem (???), but cannot go back without endless loop |
# There is not really a problem (???), but cannot go back without endless loop |
Line 128 sub handler {
|
Line 143 sub handler {
|
return OK; |
return OK; |
} |
} |
} |
} |
|
# ------------------------------------Encrypted requests go straight to navmaps |
|
if ($env{'request.enc'}) { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.'/adm/navmaps'); |
|
return REDIRECT; |
|
} |
# ------------------------------------------------ Would be standalone resource |
# ------------------------------------------------ Would be standalone resource |
|
|
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
# ---------------------------------------------- Get ID(s) for current resource |
# ---------------------------------------------- Get ID(s) for current resource |
my $ids=$bighash{'ids_'.&clutter($thisfn)}; |
my $ids=$bighash{'ids_'.&Apache::lonnet::clutter($thisfn)}; |
if ($ids) { |
if ($ids) { |
# ------------------------------------------------------------------- Has ID(s) |
# ------------------------------------------------------------------- Has ID(s) |
my @possibilities=split(/\,/,$ids); |
my @possibilities=split(/\,/,$ids); |
my $couldbe=''; |
my $couldbe=''; |
map { |
foreach (@possibilities) { |
if (&Apache::lonnet::allowed('bre',$bighash{'src_'.$_})) { |
if ($bighash{'encrypted_'.$_}) { next; } |
|
my $symb=&make_symb($_); |
|
if (&Apache::lonnet::allowed('bre',$bighash{'src_'.$_},$symb)) { |
if ($couldbe) { |
if ($couldbe) { |
$couldbe.=','.$_; |
$couldbe.=','.$_; |
} else { |
} else { |
$couldbe=$_; |
$couldbe=$_; |
} |
} |
} |
} |
} @possibilities; |
} |
if ($couldbe) { |
if ($couldbe) { |
@possibilities=split(/\,/,$couldbe); |
@possibilities=split(/\,/,$couldbe); |
|
if ($#possibilities==0) { |
|
my $id=$possibilities[0]; |
|
my $resurl=$bighash{'src_'.$id}; |
|
my $mapurl=$bighash{'map_id_'.(split(/\./,$id))[0]}; |
|
my $symb=&make_symb($id); |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
&Apache::lonnet::logthis('http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); |
|
$r->header_out(Location => |
|
'http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); |
|
return REDIRECT; |
|
} |
if ($#possibilities>0) { |
if ($#possibilities>0) { |
# ----------------------------------------------- Okay, really multiple choices |
# ----------------------------------------------- Okay, really multiple choices |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
my $start_page= |
|
&Apache::loncommon::start_page('Pick Instance of Resource'); |
$r->print(<<ENDSTART); |
$r->print(<<ENDSTART); |
<head><title>Choose Location</title></head> |
$start_page |
<body bgcolor="#FFFFFF"> |
|
<h1>LON-CAPA</h1> |
|
The resource you had been accessing appears more than once in this course, |
The resource you had been accessing appears more than once in this course, |
and LON-CAPA has insufficient session information to determine which instance |
and LON-CAPA has insufficient session information to determine which instance |
of the resource you meant. |
of the resource you meant. |
<p> |
<p> |
Please click on the instance of the resource you intended to access: |
Please click on the instance of the resource you intended to access: |
<p> |
</p> |
<form action="/adm/ambiguous" method=post> |
<table border="2"> |
<input type=hidden name=orgurl value="$thisfn"> |
<tr><th>Title</th><th>Part of ...</th></tr> |
<input type=hidden name=selecturl value=1> |
|
<table border=2> |
|
<tr><th> </th><th>Title</th><th>Type</th><th>Part of ...</th></tr> |
|
ENDSTART |
ENDSTART |
map { |
map { |
|
my $resurl=$bighash{'src_'.$_}; |
my $mapurl=$bighash{'map_id_'.(split(/\./,$_))[0]}; |
my $mapurl=$bighash{'map_id_'.(split(/\./,$_))[0]}; |
$r->print('<tr><td><input type=submit value=Select name="'. |
my $symb=&make_symb($_); |
$_.'"></td><td>'.$bighash{'title_'.$_}. |
$r->print('<tr><td><a href="'.$resurl.'?symb='.$symb.'">'. |
'</td><td>'.$bighash{'type_'.$_}. |
&Apache::lonnet::gettitle($symb). |
'</td><td><a href="'.$mapurl.'">'.$mapurl. |
'</a></td><td>'. |
'</a></td></tr>'); |
&Apache::lonnet::gettitle($mapurl).' '. |
|
'</td></tr>'); |
} @possibilities; |
} @possibilities; |
$r->print('</table></form></body></html>'); |
$r->print('</table>'.&Apache::loncommon::end_page()); |
untie(%bighash); |
untie(%bighash); |
return OK; |
return OK; |
} |
} |