--- loncom/interface/loncoursedata.pm	2006/02/05 19:14:58	1.155
+++ loncom/interface/loncoursedata.pm	2006/03/04 06:11:08	1.156
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.155 2006/02/05 19:14:58 albertel Exp $
+# $Id: loncoursedata.pm,v 1.156 2006/03/04 06:11:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -66,30 +66,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;
-}
-
 ################################################
 ################################################