--- loncom/interface/loncoursedata.pm 2003/10/03 15:33:25 1.81.2.2 +++ loncom/interface/loncoursedata.pm 2003/08/07 14:29:43 1.82 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.81.2.2 2003/10/03 15:33:25 albertel Exp $ +# $Id: loncoursedata.pm,v 1.82 2003/08/07 14:29:43 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -104,8 +104,7 @@ sub get_sequence_assessment_data { my $fn=$ENV{'request.course.fn'}; ## ## use navmaps - my $navmap = Apache::lonnavmaps::navmap->new($fn.".db", - $fn."_parms.db",1,0); + my $navmap = Apache::lonnavmaps::navmap->new(1,0); if (!defined($navmap)) { return 'Can not open Coursemap'; } @@ -872,36 +871,6 @@ sub get_student { =pod -=item &clear_internal_caches() - -Causes the internal caches used in get_student_id, get_student, -get_symb_id, get_symb, get_part_id, and get_part to be undef'd. - -Needs to be called before the first operation with the MySQL database -for a given Apache request. - -=cut - -################################################ -################################################ -sub clear_internal_caches { - $have_read_part_table = 0; - undef(%ids_by_part); - undef(%parts_by_id); - $have_read_symb_table = 0; - undef(%ids_by_symb); - undef(%symbs_by_id); - $have_read_student_table = 0; - undef(%ids_by_student); - undef(%students_by_id); -} - - -################################################ -################################################ - -=pod - =item &update_student_data() Input: $sname, $sdom, $courseid @@ -1195,33 +1164,6 @@ sub get_student_data_from_performance_ca $studentdata->{$symb}->{$base.'.awarddetail'} = $awarddetail; $studentdata->{$symb}->{'timestamp'} = $time if (defined($time) && $time ne ''); } - ## Get misc parameters - $request = 'SELECT c.symb,a.parameter,a.value '. - "FROM $student_table AS b ". - "LEFT JOIN $parameters_table AS a ON b.student_id=a.student_id ". - "LEFT JOIN $symb_table AS c ON c.symb_id = a.symb_id ". - "WHERE student='$student'"; - if (defined($symb) && $symb ne '') { - $request .= " AND c.symb=".$dbh->quote($symb); - } - $sth = $dbh->prepare($request); - $sth->execute(); - if ($sth->err()) { - &Apache::lonnet::logthis("Unable to execute MySQL request:"); - &Apache::lonnet::logthis("\n".$request."\n"); - &Apache::lonnet::logthis("error is:".$sth->errstr()); - if (defined($symb) && $symb ne '') { - $studentdata = $studentdata->{$symb}; - } - return $studentdata; - } - # - foreach my $row (@{$sth->fetchall_arrayref}) { - $rows_retrieved++; - my ($symb,$parameter,$value) = (@$row); - $studentdata->{$symb}->{$parameter} = $value; - } - # if (defined($symb) && $symb ne '') { $studentdata = $studentdata->{$symb}; }