version 1.36, 2002/10/28 14:00:18
|
version 1.38, 2002/12/26 16:40:33
|
Line 227 sub resource_output {
|
Line 227 sub resource_output {
|
|
|
sub clear_out_html { |
sub clear_out_html { |
my $message=$ENV{'form.comment'}; |
my $message=$ENV{'form.comment'}; |
$message=~s/\<\/*m\s*\>//g; |
my $cid=$ENV{'request.course.id'}; |
$message=~s/\</\<\;/g; |
if ($ENV{"course.$cid.allow_limited_html_in_feedback"} =~ m/yes/i) { |
$message=~s/\>/\>\;/g; |
# allows <B> <I> <P> <A> <LI> <OL> <UL> <EM> <BR> <TT> <STRONG> |
|
# <BLOCKQUOTE> <DIV .*> <DIV> <IMG> |
|
my %html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1, |
|
BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1); |
|
|
|
$message =~ s/\<(\/?\s*(\w+)[^\>\<]*)/ |
|
{($html{uc($2)}&(length($1)<1000))?"\<$1":"\<$1"}/ge; |
|
$message =~ s/(\<?\s*(\w+)[^\<\>]*)\>/ |
|
{($html{uc($2)}&(length($1)<1000))?"$1\>":"$1\>"}/ge; |
|
} else { |
|
$message=~s/\<\/*m\s*\>//g; |
|
$message=~s/\</\<\;/g; |
|
$message=~s/\>/\>\;/g; |
|
} |
return $message; |
return $message; |
} |
} |
|
|
Line 422 sub handler {
|
Line 435 sub handler {
|
# --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['hide','unhide','postdata','preview']); |
['hide','unhide','deldisc','postdata','preview']); |
|
|
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
# ----------------------------------------------------------------- Hide/unhide |
# ----------------------------------------------------------------- Hide/unhide |
Line 450 sub handler {
|
Line 463 sub handler {
|
|
|
&Apache::lonnet::store(\%newhash,$symb,$ENV{'request.course.id'}, |
&Apache::lonnet::store(\%newhash,$symb,$ENV{'request.course.id'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
|
|
&redirect_back($r,&Apache::lonnet::clutter($url), |
|
'Changed discussion status<p>','0','0'); |
|
} elsif ($ENV{'form.deldisc'}) { |
|
# --------------------------------------------------------------- Hide for good |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
|
|
my $entry=$ENV{'form.deldisc'}; |
|
|
|
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 $currentdeleted=$contrib{'deleted'}; |
|
|
|
$currentdeleted.='.'.$idx.'.'; |
|
|
|
my %newhash=('deleted' => $currentdeleted); |
|
|
|
&Apache::lonnet::store(\%newhash,$symb,$ENV{'request.course.id'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
|
&redirect_back($r,&Apache::lonnet::clutter($url), |
&redirect_back($r,&Apache::lonnet::clutter($url), |