loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.56 and 1.61

version 1.56, 2003/09/15 18:43:54	version 1.61, 2003/09/19 16:12:50
Line 53 use Apache::loncommon();	Line 53 use Apache::loncommon();
use Apache::lontexconvert();	use Apache::lontexconvert();

sub list_discussion {	sub list_discussion {
my ($discussiononly,$symb)=@_;	my ($mode,$status,$symb)=@_;
	my $discussiononly=0;
	if ($mode eq 'board') { $discussiononly=1; }
unless ($ENV{'request.course.id'}) { return ''; }	unless ($ENV{'request.course.id'}) { return ''; }
my $crs='/'.$ENV{'request.course.id'};	my $crs='/'.$ENV{'request.course.id'};
if ($ENV{'request.course.sec'}) {	if ($ENV{'request.course.sec'}) {
Line 363 sub clear_out_html {	Line 365 sub clear_out_html {
# allows <B> <I> <P> <A> <LI> <OL> <UL> <EM> <BR> <TT> <STRONG>	# allows <B> <I> <P> <A> <LI> <OL> <UL> <EM> <BR> <TT> <STRONG>
# <BLOCKQUOTE> <DIV .*> <DIV> <IMG>	# <BLOCKQUOTE> <DIV .*> <DIV> <IMG>
my %html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,	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);	BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1,
	M=>1);

$message =~ s/\<(\/?\s(\w+)[^\>\<])/	$message =~ s/\<(\/?\s(\w+)[^\>\<])/
{($html{uc($2)}&&(length($1)<1000))?"\<$1":"\<$1"}/ge;	{($html{uc($2)}&&(length($1)<1000))?"\<$1":"\<$1"}/ge;
$message =~ s/(\<?\s(\w+)[^\<\>])\>/	$message =~ s/(\<?\s(\w+)[^\<\>])\>/
{($html{uc($2)}&&(length($1)<1000))?"$1\>":"$1\>"}/ge;	{($html{uc($2)}&&(length($1)<1000))?"$1\>":"$1\>"}/ge;
} else {	} else {
$message=~s/\<\/m\s\>//g;
$message=~s/\</\&lt\;/g;	$message=~s/\</\&lt\;/g;
$message=~s/\>/\&gt\;/g;	$message=~s/\>/\&gt\;/g;
}	}
Line 735 sub handler {	Line 737 sub handler {
}	}
} else {	} else {
# Ambiguous Problem Resource	# Ambiguous Problem Resource
	if ( &Apache::lonnet::mod_perl_version() == 2 ) {
&Apache::lonnet::cleanenv();	&Apache::lonnet::cleanenv();
	}
$r->internal_redirect('/adm/ambiguous');	$r->internal_redirect('/adm/ambiguous');
}	}
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.56
changed lines
	Added in v.1.61