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.51 and 1.52

version 1.51, 2003/09/03 18:09:50	version 1.52, 2003/09/09 18:46:28
Line 465 sub handler {	Line 465 sub handler {
my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'};	my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'};

my ($symb,$idx)=split(/\:\:\:/,$entry);	my ($symb,$idx)=split(/\:\:\:/,$entry);
my ($map,$ind,$url)=split(/\_\_\_/,$symb);	my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);

my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
Line 495 sub handler {	Line 495 sub handler {
my $entry=$ENV{'form.deldisc'};	my $entry=$ENV{'form.deldisc'};

my ($symb,$idx)=split(/\:\:\:/,$entry);	my ($symb,$idx)=split(/\:\:\:/,$entry);
my ($map,$ind,$url)=split(/\_\_\_/,$symb);	my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);

my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
Line 528 sub handler {	Line 528 sub handler {
unless ($symb) {	unless ($symb) {
$symb=$ENV{'form.symb'};	$symb=$ENV{'form.symb'};
if ($symb) {	if ($symb) {
my ($map,$id,$url)=split(/\_\_\_/,$symb);	my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
$feedurl=&Apache::lonnet::clutter($url);	$feedurl=&Apache::lonnet::clutter($url);
}	}
}	}

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

Removed from v.1.51
changed lines
	Added in v.1.52