loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2001/10/01 19:24:49	version 1.17, 2001/11/06 11:15:09
Line 15	Line 15
# 2/13 Guy Albertelli	# 2/13 Guy Albertelli
# 7/25 Gerd Kortemeyer	# 7/25 Gerd Kortemeyer
# 7/26 Guy Albertelli	# 7/26 Guy Albertelli
# 7/26,8/10,10/1 Gerd Kortemeyer	# 7/26,8/10,10/1,11/5 Gerd Kortemeyer


package Apache::lonfeedback;	package Apache::lonfeedback;
Line 284 sub adddiscuss {	Line 284 sub adddiscuss {
$status='Adding to class discussion'.($anon?' (anonymous)':'').': '.	$status='Adding to class discussion'.($anon?' (anonymous)':'').': '.
&Apache::lonnet::store(\%contrib,$symb,$ENV{'request.course.id'},	&Apache::lonnet::store(\%contrib,$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'}).	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});
'<br>';
}	}
return $status;	my $now=time;
	my %record=&Apache::lonnet::restore('_discussion');
	my ($temp)=keys %record;
	unless ($temp=~/^error\:/) {
	my %newrecord=();
	$newrecord{'resource'}=$symb;
	$newrecord{'subnumber'}=$record{'subnumber'}+1;
	$status.=' '.&Apache::lonnet::cstore(\%newrecord,'_discussion');
	}
	return $status.'<br>';
}	}

sub handler {	sub handler {