loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursedata.pm between versions 1.199 and 1.200

-version 1.199, 2016/07/24 14:34:59
+version 1.200, 2016/08/14 16:13:21
  Line 1396  sub ensure_current_students_groups {
      return;
  }
+ sub ensure_current_sections {
+     my ($courseid) = @_;
+     my ($cdom,$cnum);
+     if (defined($courseid)) {
+         my %coursehash = &Apache::lonnet::coursedescription($courseid);
+         $cdom = $coursehash{'domain'};
+         $cnum = $coursehash{'num'};
+     } elsif ($env{'request.course.id'}) {
+         $courseid = $env{'request.course.id'};
+         $cdom = $env{'course.'.$courseid.'.domain'};
+         $cnum = $env{'course.'.$courseid.'.num'};
+     }
+     &setup_table_names($courseid);
+     my @CurrentTables = &Apache::lonmysql::tables_in_db();
+     unless (grep(/^\Q$student_table\E$/,@CurrentTables)) {
+         return;
+     }
+     # Get the update time for the student table
+     my $getuserdir = 1;
+     my $modifiedtime = &Apache::lonnet::GetFileTimestamp
+         ($cdom,$cnum,'classlist.db',$getuserdir);
+     my %tableinfo = &Apache::lonmysql::table_information($student_table);
+     my $updatetime;
+     if ($tableinfo{'Update_time'}) {
+         $updatetime = $tableinfo{'Update_time'};
+     }
+     if ((!defined($updatetime)) || ($modifiedtime > $updatetime)) {
+         if (&Apache::lonmysql::drop_table($student_table)) {
+             if (&init_dbs($courseid)) {
+                 return "error creating $student_table\n";
+             } else {
+                 &populate_student_table($courseid);
+             }
+         }
+     }
+     return;
+ }
  sub get_student_data_from_performance_cache {
      my ($sname,$sdom,$symb,$courseid)=@_;
      my $student = $sname.':'.$sdom if (defined($sname) && defined($sdom));

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

Removed from v.1.199
changed lines
	Added in v.1.200