version 1.14, 2001/08/10 14:45:11
|
version 1.15, 2001/08/10 18:39:58
|
Line 297 sub handler {
|
Line 297 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
|
|
|
# --------------------------- Get query string for limited number of parameters |
|
|
|
map { |
|
my ($name, $value) = split(/=/,$_); |
|
$value =~ tr/+/ /; |
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
if (($name eq 'hide') || ($name eq 'unhide')) { |
|
unless ($ENV{'form.'.$name}) { |
|
$ENV{'form.'.$name}=$value; |
|
} |
|
} |
|
} (split(/&/,$ENV{'QUERY_STRING'})); |
|
|
|
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
|
# ----------------------------------------------------------------- Hide/unhide |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
|
|
my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'}; |
|
|
|
my ($symb,$idx)=split(/\:\:\:/,$entry); |
|
my ($map,$ind,$url)=split(/\_\_\_/,$symb); |
|
|
|
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
|
|
|
|
my $currenthidden=$contrib{'hidden'}; |
|
|
|
if ($ENV{'form.hide'}) { |
|
$currenthidden.='.'.$idx.'.'; |
|
} else { |
|
$currenthidden=~s/\.$idx\.//g; |
|
} |
|
my %newhash=('hidden' => $currenthidden); |
|
|
|
&Apache::lonnet::store(\%newhash,$symb,$ENV{'request.course.id'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
|
|
&redirect_back($r,'/res/'.$url,'Changed discussion status<p>','0'); |
|
|
|
|
|
} else { |
|
# ------------------------------------------------------------- Normal feedback |
my $feedurl=$ENV{'form.postdata'}; |
my $feedurl=$ENV{'form.postdata'}; |
$feedurl=~s/^http\:\/\///; |
$feedurl=~s/^http\:\/\///; |
$feedurl=~s/^$ENV{'SERVER_NAME'}//; |
$feedurl=~s/^$ENV{'SERVER_NAME'}//; |
Line 375 sub handler {
|
Line 421 sub handler {
|
# Ambiguous Problem Resource |
# Ambiguous Problem Resource |
$r->internal_redirect('/adm/ambiguous'); |
$r->internal_redirect('/adm/ambiguous'); |
} |
} |
|
} |
return OK; |
return OK; |
} |
} |
|
|