--- loncom/interface/lonfeedback.pm	2012/01/04 00:08:29	1.316
+++ loncom/interface/lonfeedback.pm	2012/01/04 18:23:38	1.318
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.316 2012/01/04 00:08:29 www Exp $
+# $Id: lonfeedback.pm,v 1.318 2012/01/04 18:23:38 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -296,8 +296,6 @@ sub list_discussion {
     my $copyresult;
 
     my $function = &Apache::loncommon::get_users_function();
-    my $color = &Apache::loncommon::designparm($function.'.tabbg',
-                                                    $env{'user.domain'});
     my %lt = &Apache::lonlocal::texthash(
         'cuse' => 'My settings for this discussion',
         'allposts' => 'All posts',
@@ -504,7 +502,7 @@ imscp_v1p1.xsd http://www.imsglobal.org/
 	        my $thisdepth=$depth[$alldiscussion{$post}];
                 if ($outputtarget ne 'tex' && $outputtarget ne 'export') {
 		    for (1..$thisdepth) {
-			$discussion.='<td>&nbsp;&nbsp;&nbsp;</td>';
+			$discussion.='<td>&nbsp;&nbsp;&nbsp;&nbsp;</td>';
 		    }
 		}
 	        my $colspan=$maxdepth-$thisdepth+1;
@@ -2789,7 +2787,10 @@ 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 ($temp)=keys(%record);
     unless ($temp=~/^error\:/) {
@@ -2804,6 +2805,17 @@ sub send_msg {
     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 {
     my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;
     my $status='';