version 1.15, 2005/03/01 00:22:57
|
version 1.20, 2006/08/18 20:24:53
|
Line 44 sub cleanup {
|
Line 44 sub cleanup {
|
&Apache::lonnet::logthis('Failed cleanup ambiguous: bighash'); |
&Apache::lonnet::logthis('Failed cleanup ambiguous: bighash'); |
} |
} |
} |
} |
|
return OK; |
} |
} |
|
|
# ----------------------------------------------------------- Could not resolve |
# ----------------------------------------------------------- Could not resolve |
Line 53 sub getlost {
|
Line 54 sub getlost {
|
$errmsg=&mt($errmsg); |
$errmsg=&mt($errmsg); |
&Apache::loncommon::content_type($r,'text/html'); |
&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>'. |
$errmsg. |
&Apache::loncommon::bodytag('Could not handle ambiguous resource reference'). |
&Apache::loncommon::end_page()); |
$errmsg. |
|
'</body></html>'); |
|
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
Line 82 sub handler {
|
Line 81 sub handler {
|
|
|
# ---------------------------------------------------------- Is this selecting? |
# ---------------------------------------------------------- Is this selecting? |
|
|
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; |
Line 96 sub handler {
|
Line 95 sub handler {
|
$resurl => [$resurl,$resid]); |
$resurl => [$resurl,$resid]); |
untie(%bighash); |
untie(%bighash); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$resurl); |
&Apache::loncommon::absolute_url().$resurl); |
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
Line 110 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 121 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 135 sub handler {
|
Line 134 sub handler {
|
# ----------------------------------- Okay, this should have appeared on a page |
# ----------------------------------- Okay, this should have appeared on a page |
&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'}. |
&Apache::loncommon::absolute_url(). |
&Apache::lonnet::clutter($page)); |
&Apache::lonnet::clutter($page)); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
Line 145 sub handler {
|
Line 144 sub handler {
|
} |
} |
} |
} |
# ------------------------------------Encrypted requests go straight to navmaps |
# ------------------------------------Encrypted requests go straight to navmaps |
if ($ENV{'request.enc'}) { |
if ($env{'request.enc'}) { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.'/adm/navmaps'); |
$r->header_out(Location => |
|
&Apache::loncommon::absolute_url().'/adm/navmaps'); |
return REDIRECT; |
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_'.&Apache::lonnet::clutter($thisfn)}; |
my $ids=$bighash{'ids_'.&Apache::lonnet::clutter($thisfn)}; |
Line 179 sub handler {
|
Line 179 sub handler {
|
my $mapurl=$bighash{'map_id_'.(split(/\./,$id))[0]}; |
my $mapurl=$bighash{'map_id_'.(split(/\./,$id))[0]}; |
my $symb=&make_symb($id); |
my $symb=&make_symb($id); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::lonnet::logthis('http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); |
|
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); |
&Apache::loncommon::absolute_url(). |
|
$resurl.'?symb='.$symb); |
return REDIRECT; |
return REDIRECT; |
} |
} |
if ($#possibilities>0) { |
if ($#possibilities>0) { |
# ----------------------------------------------- Okay, really multiple choices |
# ----------------------------------------------- Okay, really multiple choices |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
my $bodytag= |
my $start_page= |
&Apache::loncommon::bodytag('Pick Instance of Resource'); |
&Apache::loncommon::start_page('Pick Instance of Resource'); |
$r->print(<<ENDSTART); |
$r->print(<<ENDSTART); |
<head><title>Choose Location</title></head> |
$start_page |
$bodytag |
|
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. |
Line 212 ENDSTART
|
Line 211 ENDSTART
|
&Apache::lonnet::gettitle($mapurl).' '. |
&Apache::lonnet::gettitle($mapurl).' '. |
'</td></tr>'); |
'</td></tr>'); |
} @possibilities; |
} @possibilities; |
$r->print('</table></body></html>'); |
$r->print('</table>'.&Apache::loncommon::end_page()); |
untie(%bighash); |
untie(%bighash); |
return OK; |
return OK; |
} |
} |