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.81 and 1.81.2.1

-version 1.81, 2003/07/14 13:10:39
+version 1.81.2.1, 2003/10/01 21:41:47
  Line 1165  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};
      }

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

Removed from v.1.81
changed lines
	Added in v.1.81.2.1