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

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

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; }
Removed from v.1.319  
changed lines
  Added in v.1.320

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