--- loncom/interface/lonfeedback.pm	2012/01/04 00:42:20	1.317
+++ loncom/interface/lonfeedback.pm	2012/01/04 23:31:36	1.321
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.317 2012/01/04 00:42:20 www Exp $
+# $Id: lonfeedback.pm,v 1.321 2012/01/04 23:31:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2787,21 +2787,78 @@ sub send_msg {
 	}
     }
 
-
-    my %record=&Apache::lonnet::restore('_feedback');
-    my ($temp)=keys(%record);
-    unless ($temp=~/^error\:/) {
-	my %newrecord=();
-	$newrecord{'resource'}=$feedurl;
-	$newrecord{'subnumber'}=$record{'subnumber'}+1;
-	unless (&Apache::lonnet::cstore(\%newrecord,'_feedback') eq 'ok') {
-	    $status.='<br />'.&mt('Not registered').'<br />';
-	}
+# Records of number of feedback messages 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
+    if ($sendsomething) {
+        my %record=&getfeedbackrecords();
+        my ($temp)=keys(%record);
+        unless ($temp=~/^error\:/) {
+	    my %newrecord=();
+	    $newrecord{'resource'}=$feedurl;
+	    $newrecord{'subnumber'}=$record{'subnumber'}+1;
+	    unless (&Apache::lonnet::cstore(\%newrecord,'_feedback') eq 'ok') {
+	        $status.='<br />'.&mt('Not registered').'<br />';
+	    }
+        }
     }
-    
     return ($status,$sendsomething);
 }
 
+# Routine to get the complete feedback records
+
+sub getfeedbackrecords {
+    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;
+}
+
+# Routine to get feedback statistics
+
+sub getfeedbackstats {
+    my %record=&getfeedbackrecords(@_);
+    return ($record{'subnumber'},$record{'points'},$record{'totallikes'});
+}
+
+# Store feedback credit
+
+sub storefeedbackpoints {
+    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 feedback "likes"
+
+sub storefeedbacklikes {
+    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=&getfeedbackrecords($uname,$udom,$course);
+    my $totallikes=$record{'totallikes'};
+    $totallikes+=$likes;
+    my %newrecord=('likes_user'   => $env{'user.name'},
+                   'likes_domain' => $env{'user.domain'},
+                   'likes' => $likes,
+                   'totallikes' => $totallikes);
+    return &Apache::lonnet::cstore(\%newrecord,'_feedback');
+}
+
+
 sub adddiscuss {
     my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;
     my $status='';
@@ -2900,7 +2957,7 @@ sub adddiscuss {
                      $env{'course.'.$env{'request.course.id'}.'.domain'},
 		     $env{'course.'.$env{'request.course.id'}.'.num'});
     }
-    my %record=&Apache::lonnet::restore('_discussion');
+    my %record=&getdiscussionrecords();
     my ($temp)=keys(%record);
     unless ($temp=~/^error\:/) {
        my %newrecord=();
@@ -2915,6 +2972,60 @@ sub adddiscuss {
     return $status.'<br />';   
 }
 
+
+# Routine to get the complete discussion records
+
+sub getdiscussionrecords {
+    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('_discussion',$course,$udom,$uname);
+    return %record;
+}
+
+# Routine to get discussion statistics
+
+sub getdiscussionstats {
+    my %record=&getdiscussionrecords(@_);
+    return ($record{'subnumber'},$record{'points'},$record{'totallikes'});
+}
+
+
+# Store discussion credit
+
+sub storediscussionpoints {
+    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,'_discussion');
+}
+
+# Store discussion "likes"
+
+sub storediscussionlikes {
+    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=&getdiscussionrecords($uname,$udom,$course);
+    my $totallikes=$record{'totallikes'};
+    $totallikes+=$likes;
+    my %newrecord=('likes_user'   => $env{'user.name'},
+                   'likes_domain' => $env{'user.domain'},
+                   'likes' => $likes,
+                   'totallikes' => $totallikes);
+    return &Apache::lonnet::cstore(\%newrecord,'_discussion');
+}
+
 sub get_discussion_info {
     my ($idx,%contrib) = @_;
     my $changelast = 0;
@@ -3718,6 +3829,61 @@ ENDREDIR
 		     '0','0','','',$env{'form.previous'},undef,undef,undef,
                      undef,undef,undef,$group);
       return OK;
+  } elsif (($env{'form.like'}) || ($env{'form.unlike'})) {
+# ----------------------------------------------------------------- Like/unlike
+      my $entry=$env{'form.like'}?$env{'form.like'}:$env{'form.unlike'};
+      my ($symb,$idx)=split(/\:\:\:/,$entry);
+      ($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);
+      my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
+                          $env{'course.'.$env{'request.course.id'}.'.domain'},
+                          $env{'course.'.$env{'request.course.id'}.'.num'});
+# Get all who like or unlike this
+      my $currentlikers=$contrib{$idx.':likers'};
+      my $currentunlikers=$contrib{$idx.':unlikers'};
+      my $likes=$contrib{$idx.':likes'};
+# Find out if they already voted
+      my $alreadyflag=0;
+      my $thisuser=$env{'user.name'}.':'.$env{'user.domain'};
+      if ($env{'form.like'}) {
+          if ($currentlikers=~/\.\Q$thisuser\E\./) {
+              $alreadyflag=1;
+          } else {
+              $currentunlikers=~s/\.\Q$thisuser\E\.//;
+              $currentlikers.='.'.$thisuser.'.';
+              $likes++;
+          } 
+      } else {
+          if ($currentunlikers=~/\.\Q$thisuser\E\./) {
+              $alreadyflag=1;
+          } else {
+              $currentlikers=~s/\.\Q$thisuser\E\.//;
+              $currentunlikers.='.'.$thisuser.'.';
+              $likes--;
+          } 
+      }
+      my $result;
+      unless ($alreadyflag) {
+          my %newhash=($idx.':likes'    => $likes,
+                       $idx.':likers'   => $currentlikers,
+                       $idx.':unlikers' => $currentunlikers);
+          if (&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
+                           $env{'course.'.$env{'request.course.id'}.'.domain'},
+                           $env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {
+              if ($env{'form.like'}) {
+                  &storediscussionlikes(1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});
+                  $result=&mt("Registered 'Like'");
+              } else {
+                  &storediscussionlikes(-1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});
+                  $result=&mt("Registered 'Unlike'");
+              }
+          } else {
+              $result=&mt("Failed to register vote");
+          }
+      }
+      &redirect_back($r,$feedurl,$result.'<br />',
+                     '0','0','','',$env{'form.previous'},undef,undef,undef,
+                     undef,undef,undef,$group);
+      return OK;
   } elsif ($env{'form.cmd'}=~/^(threadedoff|threadedon)$/) {
       my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});
       if ($env{'form.cmd'} eq 'threadedon') {