[BACK]Return to lonfeedback.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.318 and 1.319

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='';
Removed from v.1.318  
changed lines
  Added in v.1.319

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>