|
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; |
|
| } |
|
| |
|
| ################################################ |
################################################ |
| ################################################ |
################################################ |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to loncoursedata.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface