version 1.13, 2004/12/20 20:13:52
|
version 1.14, 2005/02/17 09:09:57
|
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 56 sub cleanup {
|
Line 51 sub cleanup {
|
sub getlost { |
sub getlost { |
my ($r,$errmsg)=@_; |
my ($r,$errmsg)=@_; |
$errmsg=&mt($errmsg); |
$errmsg=&mt($errmsg); |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print( |
$r->print( |
'<head><title>Unknown Error</title></head>'. |
'<head><title>Unknown Error</title></head>'. |
Line 139 sub handler {
|
Line 134 sub handler {
|
if ($syval=~/\_$/) { |
if ($syval=~/\_$/) { |
# ----------------------------------- Okay, this should have appeared on a page |
# ----------------------------------- Okay, this should have appeared on a page |
$syval=~s/\_\_\_$//; |
$syval=~s/\_\_\_$//; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.'/res/'.$syval); |
'http://'.$ENV{'HTTP_HOST'}.'/res/'.$syval); |
return REDIRECT; |
return REDIRECT; |
Line 151 sub handler {
|
Line 146 sub handler {
|
} |
} |
# ------------------------------------Encrypted requests go straight to navmaps |
# ------------------------------------Encrypted requests go straight to navmaps |
if ($ENV{'request.enc'}) { |
if ($ENV{'request.enc'}) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.'/adm/navmaps'); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.'/adm/navmaps'); |
return REDIRECT; |
return REDIRECT; |
} |
} |
Line 183 sub handler {
|
Line 178 sub handler {
|
my $resurl=$bighash{'src_'.$id}; |
my $resurl=$bighash{'src_'.$id}; |
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); |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::lonnet::logthis('http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); |
&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); |
'http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); |
Line 191 sub handler {
|
Line 186 sub handler {
|
} |
} |
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 $bodytag= |
my $bodytag= |
&Apache::loncommon::bodytag('Pick Instance of Resource'); |
&Apache::loncommon::bodytag('Pick Instance of Resource'); |