version 1.155, 2006/02/05 19:14:58
|
version 1.156, 2006/03/04 06:11:08
|
Line 66 and/or itself.
|
Line 66 and/or itself.
|
|
|
=cut |
=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; |
|
} |
|
|
|
################################################ |
################################################ |
################################################ |
################################################ |
|
|