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

Diff for /loncom/interface/loncoursedata.pm between versions 1.4 and 1.5

version 1.4, 2002/07/24 14:52:32 version 1.5, 2002/07/25 19:31:32
Line 106  sub DownloadClasslist { Line 106  sub DownloadClasslist {
     my ($courseDomain,$courseNumber)=split(/\_/,$courseID);      my ($courseDomain,$courseNumber)=split(/\_/,$courseID);
     my %classlist;      my %classlist;
   
     my $modifiedTime = &GetFileTimestamp($courseDomain, $courseNumber,  #    my $modifiedTime = &GetFileTimestamp($courseDomain, $courseNumber,
                                      'classlist.db',   #                                     'classlist.db', 
                                      $Apache::lonnet::perlvar{'lonUsersDir'});  #                                     $Apache::lonnet::perlvar{'lonUsersDir'});
   
     if($lastDownloadTime ne 'Not downloaded' &&  #    if($lastDownloadTime ne 'Not downloaded' &&
        $lastDownloadTime >= $modifiedTime && $modifiedTime >= 0) {  #       $lastDownloadTime >= $modifiedTime && $modifiedTime >= 0) {
         $classlist{'lastDownloadTime'}=time;  #        $classlist{'lastDownloadTime'}=time;
         $classlist{'UpToDate'} = 'true';  #        $classlist{'UpToDate'} = 'true';
         return \%classlist;  #        return \%classlist;
     }  #    }
   
     %classlist=&Apache::lonnet::dump('classlist',$courseDomain, $courseNumber);      %classlist=&Apache::lonnet::dump('classlist',$courseDomain, $courseNumber);
     my ($checkForError)=keys (%classlist);      my ($checkForError)=keys (%classlist);
Line 186  sub DownloadCourseInformation { Line 186  sub DownloadCourseInformation {
     my %courseData;      my %courseData;
     my ($name,$domain) = split(/\:/,$namedata);      my ($name,$domain) = split(/\:/,$namedata);
   
     my $modifiedTime = &GetFileTimestamp($domain, $name,  #    my $modifiedTime = &GetFileTimestamp($domain, $name,
                                       $courseID.'.db',   #                                      $courseID.'.db', 
                                       $Apache::lonnet::perlvar{'lonUsersDir'});  #                                      $Apache::lonnet::perlvar{'lonUsersDir'});
     if($lastDownloadTime >= $modifiedTime) {  #    if($lastDownloadTime >= $modifiedTime) {
         $courseData{'lastDownloadTime'}=time;  #        $courseData{'lastDownloadTime'}=time;
         $courseData{'UpToDate'} = 'true';  #        $courseData{'UpToDate'} = 'true';
         return \%courseData;  #        return \%courseData;
     }  #    }
   
     # Download course data      # Download course data
     %courseData=&Apache::lonnet::dump($courseID, $domain, $name);      %courseData=&Apache::lonnet::dump($courseID, $domain, $name);
Line 625  sub ProcessStudentData { Line 625  sub ProcessStudentData {
 }  }
   
 sub LoadDiscussion {  sub LoadDiscussion {
 #    my $symb=shift;      my ( $courseID)=@_;
 #    $r->print('<br>$cid ... '.$symb);      my %Discuss=();
 #    my %contrib=&Apache::lonnet::dump('msu_2964385f9033c63msul1','msu','2964385f9033c63msul1');      my %contrib=&Apache::lonnet::dump(
     my ($name, $courseID, $Discuss)=@_;                  $courseID,
     my %contrib=&DownloadCourseInformation($name, $courseID, 0);                  $ENV{'course.'.$courseID.'.domain'},
                                               $ENV{'course.'.$courseID.'.num'});
     
       #my %contrib=&DownloadCourseInformation($name, $courseID, 0);
   
     foreach my $temp(keys %contrib) {      foreach my $temp(keys %contrib) {
  if ($temp=~/^version/) {   if ($temp=~/^version/) {
     my $ver=$contrib{$temp};      my $ver=$contrib{$temp};
     my ($dummy,$prb)=split(':',$temp);      my ($dummy,$prb)=split(':',$temp);
     for (my $idx=1; $idx<=$ver; $idx++ ) {      for (my $idx=1; $idx<=$ver; $idx++ ) {
  my $name=$contrib{"$idx:$prb:sendername"};   my $name=$contrib{"$idx:$prb:sendername"};
  $Discuss->{"$name:$prb"}=$idx;   $Discuss{"$name:$prb"}=$idx;
     }      }
  }   }
     }             }       
 #   $r->print('<br>cid='.$cid);  
 #    my %contrib=&Apache::lonnet::restore($symb,$cid,      return \%Discuss;
 # $ENV{$cid.'.domain'},  
 # $ENV{'course.'.$cid.'.num'});  
   
 #    $Apache::lonxml::debug=1;  
 #    &Apache::lonhomework::showhash(%Discuss);  
 #    $Apache::lonxml::debug=0;  
 }  }
   
 # ----- END PROCESSING FUNCTIONS ---------------------------------------  # ----- END PROCESSING FUNCTIONS ---------------------------------------
Removed from v.1.4  
changed lines
  Added in v.1.5

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