[LON-CAPA-cvs] cvs: loncom /interface loncoursedata.pm

[albertel]

albertel		Sat Mar  4 01:11:10 2006 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  - removing some old unused code
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.155 loncom/interface/loncoursedata.pm:1.156
--- loncom/interface/loncoursedata.pm:1.155	Sun Feb  5 14:14:58 2006
+++ loncom/interface/loncoursedata.pm	Sat Mar  4 01:11:08 2006
@@ -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 @@
 
 =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;
-}
-
 ################################################
 ################################################