version 1.318, 2012/01/04 18:23:38
|
version 1.319, 2012/01/04 19:27:04
|
Line 2791 sub send_msg {
|
Line 2791 sub send_msg {
|
# There are two entries within the framework of a course: |
# There are two entries within the framework of a course: |
# - the URLs for which feedback was provided |
# - the URLs for which feedback was provided |
# - the total number of contributions |
# - the total number of contributions |
my %record=&Apache::lonnet::restore('_feedback'); |
my %record=&getdiscrecords(); |
my ($temp)=keys(%record); |
my ($temp)=keys(%record); |
unless ($temp=~/^error\:/) { |
unless ($temp=~/^error\:/) { |
my %newrecord=(); |
my %newrecord=(); |
Line 2813 sub getdiscrecords {
|
Line 2813 sub getdiscrecords {
|
unless ($udom) { $udom=$env{'user.domain'}; } |
unless ($udom) { $udom=$env{'user.domain'}; } |
unless ($course) { $course=$env{'request.course.id'}; } |
unless ($course) { $course=$env{'request.course.id'}; } |
my %record=&Apache::lonnet::restore('_feedback',$course,$udom,$uname); |
my %record=&Apache::lonnet::restore('_feedback',$course,$udom,$uname); |
return %record; |
return %record; |
} |
} |
|
|
|
# Routine to get discussion statistics |
|
|
|
sub getdiscstats { |
|
my %record=&getdiscrecords(@_); |
|
my $subnumber=$record{'subnumber'}; |
|
my $points=0; |
|
my $likes=0; |
|
foreach my $key (keys(%record)) { |
|
if ($key=~/^\d+\:points$/) { |
|
$points+=$record{$key}; |
|
} |
|
if ($key=~/^\d+\:likes$/) { |
|
$likes+=$record{$key}; |
|
} |
|
} |
|
return ($subnumber,$points,$likes); |
|
} |
|
|
|
# Store discussion credit |
|
|
|
sub storediscpoints { |
|
my ($points,$uname,$udom,$course)=@_; |
|
unless ($points) { $points=0; } |
|
unless ($uname) { $uname=$env{'user.name'}; } |
|
unless ($udom) { $udom=$env{'user.domain'}; } |
|
unless ($course) { $course=$env{'request.course.id'}; } |
|
my %record=('grader_user' => $env{'user.name'}, |
|
'grader_domain' => $env{'user.domain'}, |
|
'points' => $points); |
|
return &Apache::lonnet::cstore(\%record,'_feedback'); |
|
} |
|
|
|
# Store discussion "likes" |
|
|
|
sub storedisclikes { |
|
my ($likes,$uname,$udom,$course)=@_; |
|
unless ($likes) { $likes=0; } |
|
if ($likes>0) { $likes=1; } |
|
if ($likes<0) { $likes=-1; } |
|
unless ($uname) { $uname=$env{'user.name'}; } |
|
unless ($udom) { $udom=$env{'user.domain'}; } |
|
unless ($course) { $course=$env{'request.course.id'}; } |
|
my %record=('likes_user' => $env{'user.name'}, |
|
'likes_domain' => $env{'user.domain'}, |
|
'likes' => $likes); |
|
return &Apache::lonnet::cstore(\%record,'_feedback'); |
|
} |
|
|
|
|
sub adddiscuss { |
sub adddiscuss { |
my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_; |
my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_; |
my $status=''; |
my $status=''; |