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

Diff for /loncom/interface/loncoursedata.pm between versions 1.190 and 1.193.6.1

version 1.190, 2008/11/20 21:22:21 version 1.193.6.1, 2015/03/10 05:13:11
Line 56  use Apache::lonmysql(); Line 56  use Apache::lonmysql();
 use LONCAPA;  use LONCAPA;
 use Digest::MD5();  use Digest::MD5();
   
   =pod 
   
   =head2 make_into_hash
   
   Turn a colon separated string into a hash and return a reference
   to it.  Numbering from 0 even elements are keys and odd elements
   are values e.g. a:b:c:d creates a hash like
     a => b, c =>d
   
   =cut
   
 sub make_into_hash {  sub make_into_hash {
     my $values = shift;      my $values = shift;
     my %tmp = map { &unescape($_); } split(':',$values);      my %tmp = map { &unescape($_); } split(':',$values);
Line 436  sub init_dbs { Line 447  sub init_dbs {
     return 0;      return 0;
 }  }
   
   =pod
   
   =head2 delete_caches
   
   Drops all of the tables in the local mysql cache associated with the
   specified course id.
   
   TODO:  The drops should be pushed into lonmysql to further isolate 
   mysql code from other modules.
   
   =cut
 sub delete_caches {  sub delete_caches {
     my $courseid = shift;      my $courseid = shift;
     $courseid = $env{'request.course.id'} if (! defined($courseid));      $courseid = $env{'request.course.id'} if (! defined($courseid));
Line 1231  sub ensure_current_data { Line 1251  sub ensure_current_data {
     }      }
   
     my $student_id = &get_student_id($sname,$sdom);      my $student_id = &get_student_id($sname,$sdom);
       &get_students_groupids($student_id);
     my @Result = &Apache::lonmysql::get_rows($student_table,      my @Result = &Apache::lonmysql::get_rows($student_table,
                                              "student_id ='$student_id'");                                               "student_id ='$student_id'");
     my $data = undef;      my $data = undef;
Line 1257  sub ensure_current_full_data { Line 1278  sub ensure_current_full_data {
         ($sdom,$sname,$courseid.'.db',$getuserdir);          ($sdom,$sname,$courseid.'.db',$getuserdir);
     #      #
     my $student_id = &get_student_id($sname,$sdom);      my $student_id = &get_student_id($sname,$sdom);
       &get_students_groupids($student_id);
     my @Result = &Apache::lonmysql::get_rows($student_table,      my @Result = &Apache::lonmysql::get_rows($student_table,
                                              "student_id ='$student_id'");                                               "student_id ='$student_id'");
     my $updatetime;      my $updatetime;
Removed from v.1.190  
changed lines
  Added in v.1.193.6.1

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