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.29 and 1.31

version 1.29, 2002/08/26 12:47:28	version 1.31, 2002/09/11 13:36:50
Line 399 sub handler {	Line 399 sub handler {
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
$ENV{'course.'.$ENV{'request.course.id'}.'.num'});	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});

&redirect_back($r,'/res/'.$url,'Changed discussion status<p>','0');	&redirect_back($r,&Apache::lonnet::clutter($url),
	'Changed discussion status<p>','0');

} else {	} else {
# ------------------------------------------------------------- Normal feedback	# ------------------------------------------------------------- Normal feedback
my $feedurl=$ENV{'form.postdata'};	my $feedurl=$ENV{'form.postdata'};
Line 410 sub handler {	Line 409 sub handler {
$feedurl=~s/^$ENV{'HTTP_HOST'}//;	$feedurl=~s/^$ENV{'HTTP_HOST'}//;

my $symb=&Apache::lonnet::symbread($feedurl);	my $symb=&Apache::lonnet::symbread($feedurl);
	unless ($symb) {
	$symb=$ENV{'form.symb'};
	if ($symb) {
	my ($map,$id,$url)=split(/\_\_\_/,$symb);
	$feedurl=&Apache::lonnet::clutter($url);
	}
	}
my $goahead=1;	my $goahead=1;
if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
unless ($symb) { $goahead=0; }	unless ($symb) { $goahead=0; }
Line 426 sub handler {	Line 432 sub handler {
)	)
\|\|	\|\|
($ENV{'request.course.id'} && ($feedurl!~m:^/adm:))	($ENV{'request.course.id'} && ($feedurl!~m:^/adm:))
	\|\|
	($ENV{'request.course.id'} && ($symb=~/^bulletin\_\_\_/))
) {	) {
# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header
unless ($ENV{'form.sendit'}) {	unless ($ENV{'form.sendit'}) {

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

Removed from v.1.29
changed lines
	Added in v.1.31