version 1.154, 2006/02/05 19:10:19
|
version 1.158, 2006/04/08 06:51:47
|
Line 49 Set of functions that download and proce
|
Line 49 Set of functions that download and proce
|
package Apache::loncoursedata; |
package Apache::loncoursedata; |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Time::HiRes; |
use Time::HiRes; |
Line 66 and/or itself.
|
Line 65 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; |
|
} |
|
|
|
################################################ |
################################################ |
################################################ |
################################################ |
|
|
Line 973 sub update_full_student_data {
|
Line 948 sub update_full_student_data {
|
# |
# |
# Download students data |
# Download students data |
my $time_of_retrieval = time; |
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/) { |
if (@tmp && $tmp[0] =~ /^error/) { |
$returnstatus = 'error retrieving full student data'; |
$returnstatus = 'error retrieving full student data'; |
return $returnstatus; |
return $returnstatus; |
Line 2067 sub rank_students_by_scores_on_resources
|
Line 2042 sub rank_students_by_scores_on_resources
|
} @$resources |
} @$resources |
).')'; |
).')'; |
my ($award_col, $award_join, $award_clause) = ('', '', ''); |
my ($award_col, $award_join, $award_clause) = ('', '', ''); |
if ($has_award_for) |
if ($has_award_for) { |
{ |
|
my $resource_id = &get_symb_id($has_award_for); |
my $resource_id = &get_symb_id($has_award_for); |
$award_col = ", perf.awarded"; |
$award_col = ", perf.awarded"; |
$award_join = "LEFT JOIN $performance_table AS perf ON perf.symb_id" |
$award_join = "LEFT JOIN $performance_table AS perf ON perf.symb_id" |