loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2002/09/10 21:06:22	version 1.31, 2002/09/11 13:36:50
Line 409 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 425 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'}) {