--- loncom/interface/loncoursedata.pm	2006/02/05 19:10:19	1.154
+++ loncom/interface/loncoursedata.pm	2006/04/08 06:51:47	1.158
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.154 2006/02/05 19:10:19 bowersj2 Exp $
+# $Id: loncoursedata.pm,v 1.158 2006/04/08 06:51:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -49,7 +49,6 @@ Set of functions that download and proce
 package Apache::loncoursedata;
 
 use strict;
-use Apache::Constants qw(:common :http);
 use Apache::lonnet;
 use Apache::lonhtmlcommon;
 use Time::HiRes;
@@ -66,30 +65,6 @@ and/or itself.
 
 =cut
 
-sub LoadDiscussion {
-    my ($courseID)=@_;
-    my %Discuss=();
-    my %contrib=&Apache::lonnet::dump(
-                $courseID,
-                $env{'course.'.$courseID.'.domain'},
-                $env{'course.'.$courseID.'.num'});
-				 
-    #my %contrib=&DownloadCourseInformation($name, $courseID, 0);
-
-    foreach my $temp(keys %contrib) {
-	if ($temp=~/^version/) {
-	    my $ver=$contrib{$temp};
-	    my ($dummy,$prb)=split(':',$temp);
-	    for (my $idx=1; $idx<=$ver; $idx++ ) {
-		my $name=$contrib{"$idx:$prb:sendername"};
-		$Discuss{"$name:$prb"}=$idx;	
-	    }
-	}
-    }       
-
-    return \%Discuss;
-}
-
 ################################################
 ################################################
 
@@ -973,7 +948,7 @@ sub update_full_student_data {
     #
     # Download students data
     my $time_of_retrieval = time;
-    my @tmp = &Apache::lonnet::dump($courseid,$sdom,$sname);
+    my @tmp = &Apache::lonnet::dumpstore($courseid,$sdom,$sname);
     if (@tmp && $tmp[0] =~ /^error/) {
         $returnstatus = 'error retrieving full student data';
         return $returnstatus;
@@ -2067,8 +2042,7 @@ sub rank_students_by_scores_on_resources
                                        } @$resources
                                ).')';
     my ($award_col, $award_join, $award_clause) = ('', '', '');
-    if ($has_award_for)
-    {
+    if ($has_award_for) {
         my $resource_id = &get_symb_id($has_award_for);
         $award_col = ", perf.awarded";
         $award_join = "LEFT JOIN $performance_table AS perf ON perf.symb_id"