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

Diff for /loncom/interface/loncoursedata.pm between versions 1.81.2.1 and 1.82

version 1.81.2.1, 2003/10/01 21:41:47 version 1.82, 2003/08/07 14:29:43
Line 104  sub get_sequence_assessment_data { Line 104  sub get_sequence_assessment_data {
     my $fn=$ENV{'request.course.fn'};      my $fn=$ENV{'request.course.fn'};
     ##      ##
     ## use navmaps      ## use navmaps
     my $navmap = Apache::lonnavmaps::navmap->new($fn.".db",      my $navmap = Apache::lonnavmaps::navmap->new(1,0);
                                                  $fn."_parms.db",1,0);  
     if (!defined($navmap)) {      if (!defined($navmap)) {
         return 'Can not open Coursemap';          return 'Can not open Coursemap';
     }      }
Line 1165  sub get_student_data_from_performance_ca Line 1164  sub get_student_data_from_performance_ca
         $studentdata->{$symb}->{$base.'.awarddetail'} = $awarddetail;          $studentdata->{$symb}->{$base.'.awarddetail'} = $awarddetail;
         $studentdata->{$symb}->{'timestamp'} = $time if (defined($time) && $time ne '');          $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 '') {      if (defined($symb) && $symb ne '') {
         $studentdata = $studentdata->{$symb};          $studentdata = $studentdata->{$symb};
     }      }
Removed from v.1.81.2.1  
changed lines
  Added in v.1.82

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