version 1.319, 2012/01/04 19:27:04
|
version 1.320, 2012/01/04 20:12:40
|
Line 2787 sub send_msg {
|
Line 2787 sub send_msg {
|
} |
} |
} |
} |
|
|
# Records of number of postings, etc, are kept under the "symb" called "_feedback" |
# Records of number of feedback messages are kept under the "symb" called "_feedback" |
# 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=&getdiscrecords(); |
if ($sendsomething) { |
my ($temp)=keys(%record); |
my %record=&getfeedbackrecords(); |
unless ($temp=~/^error\:/) { |
my ($temp)=keys(%record); |
my %newrecord=(); |
unless ($temp=~/^error\:/) { |
$newrecord{'resource'}=$feedurl; |
my %newrecord=(); |
$newrecord{'subnumber'}=$record{'subnumber'}+1; |
$newrecord{'resource'}=$feedurl; |
unless (&Apache::lonnet::cstore(\%newrecord,'_feedback') eq 'ok') { |
$newrecord{'subnumber'}=$record{'subnumber'}+1; |
$status.='<br />'.&mt('Not registered').'<br />'; |
unless (&Apache::lonnet::cstore(\%newrecord,'_feedback') eq 'ok') { |
} |
$status.='<br />'.&mt('Not registered').'<br />'; |
|
} |
|
} |
} |
} |
|
|
return ($status,$sendsomething); |
return ($status,$sendsomething); |
} |
} |
|
|
# Routine to get the complete discussion records |
# Routine to get the complete feedback records |
|
|
sub getdiscrecords { |
sub getfeedbackrecords { |
my ($uname,$udom,$course)=@_; |
my ($uname,$udom,$course)=@_; |
unless ($uname) { $uname=$env{'user.name'}; } |
unless ($uname) { $uname=$env{'user.name'}; } |
unless ($udom) { $udom=$env{'user.domain'}; } |
unless ($udom) { $udom=$env{'user.domain'}; } |
Line 2816 sub getdiscrecords {
|
Line 2817 sub getdiscrecords {
|
return %record; |
return %record; |
} |
} |
|
|
# Routine to get discussion statistics |
# Routine to get feedback statistics |
|
|
sub getdiscstats { |
sub getfeedbackstats { |
my %record=&getdiscrecords(@_); |
my %record=&getfeedbackrecords(@_); |
my $subnumber=$record{'subnumber'}; |
my $subnumber=$record{'subnumber'}; |
my $points=0; |
my $points=0; |
my $likes=0; |
my $likes=0; |
Line 2834 sub getdiscstats {
|
Line 2835 sub getdiscstats {
|
return ($subnumber,$points,$likes); |
return ($subnumber,$points,$likes); |
} |
} |
|
|
# Store discussion credit |
# Store feedback credit |
|
|
sub storediscpoints { |
sub storefeedbackpoints { |
my ($points,$uname,$udom,$course)=@_; |
my ($points,$uname,$udom,$course)=@_; |
unless ($points) { $points=0; } |
unless ($points) { $points=0; } |
unless ($uname) { $uname=$env{'user.name'}; } |
unless ($uname) { $uname=$env{'user.name'}; } |
Line 2848 sub storediscpoints {
|
Line 2849 sub storediscpoints {
|
return &Apache::lonnet::cstore(\%record,'_feedback'); |
return &Apache::lonnet::cstore(\%record,'_feedback'); |
} |
} |
|
|
# Store discussion "likes" |
# Store feedback "likes" |
|
|
sub storedisclikes { |
sub storefeedbacklikes { |
my ($likes,$uname,$udom,$course)=@_; |
my ($likes,$uname,$udom,$course)=@_; |
unless ($likes) { $likes=0; } |
unless ($likes) { $likes=0; } |
if ($likes>0) { $likes=1; } |
if ($likes>0) { $likes=1; } |