loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.317, 2012/01/04 00:42:20	version 1.318, 2012/01/04 18:23:38
Line 2787 sub send_msg {	Line 2787 sub send_msg {
}	}
}	}

	# Records of number of postings, etc, are kept under the "symb" called "_feedback"
	# There are two entries within the framework of a course:
	# - the URLs for which feedback was provided
	# - the total number of contributions
my %record=&Apache::lonnet::restore('_feedback');	my %record=&Apache::lonnet::restore('_feedback');
my ($temp)=keys(%record);	my ($temp)=keys(%record);
unless ($temp=~/^error\:/) {	unless ($temp=~/^error\:/) {
Line 2802 sub send_msg {	Line 2805 sub send_msg {
return ($status,$sendsomething);	return ($status,$sendsomething);
}	}

	# Routine to get the complete discussion records

	sub getdiscrecords {
	my ($uname,$udom,$course)=@_;
	unless ($uname) { $uname=$env{'user.name'}; }
	unless ($udom) { $udom=$env{'user.domain'}; }
	unless ($course) { $course=$env{'request.course.id'}; }
	my %record=&Apache::lonnet::restore('_feedback',$course,$udom,$uname);
	return %record;
	}

sub adddiscuss {	sub adddiscuss {
my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;	my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;
my $status='';	my $status='';