version 1.24, 2012/10/04 12:40:29
|
version 1.26, 2014/12/11 01:13:24
|
Line 57 sub getlost {
|
Line 57 sub getlost {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print(&Apache::loncommon::start_page('Could not handle ambiguous resource reference'). |
$r->print(&Apache::loncommon::start_page('Could not handle ambiguous resource reference'). |
$errmsg. |
'<div class="LC_warning">'.$errmsg.'</div>'. |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
} |
} |
|
|
Line 87 sub handler {
|
Line 87 sub handler {
|
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; |