version 1.11, 2004/12/17 22:40:24
|
version 1.12, 2004/12/20 20:13:03
|
Line 149 sub handler {
|
Line 149 sub handler {
|
return OK; |
return OK; |
} |
} |
} |
} |
|
|
# ------------------------------------------------ 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', |
Line 173 sub handler {
|
Line 172 sub handler {
|
} |
} |
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); |
|
$r->content_type('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'); |
$r->content_type('text/html'); |