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=''; |