[BACK]Return to loncoursedata.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursedata.pm between versions 1.154 and 1.157

version 1.154, 2006/02/05 19:10:19 version 1.157, 2006/03/04 06:12:40
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;  
 }  
   
 ################################################  ################################################
 ################################################  ################################################
   
Line 973  sub update_full_student_data { Line 949  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 2043  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"
Removed from v.1.154  
changed lines
  Added in v.1.157

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>