loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.84, 2003/08/21 21:03:38	version 1.85, 2003/08/27 21:34:24
Line 526 sub init_dbs {	Line 526 sub init_dbs {
{ name => 'student',	{ name => 'student',
type => 'VARCHAR(100)',	type => 'VARCHAR(100)',
restrictions => 'NOT NULL'},	restrictions => 'NOT NULL'},
	{ name => 'classification',
	type => 'varchar(100)', },
],	],
'PRIMARY KEY' => ['student (100)'],	'PRIMARY KEY' => ['student (100)'],
'KEY' => [{ columns => ['student_id']},],	'KEY' => [{ columns => ['student_id']},],
Line 843 sub get_student_id {	Line 845 sub get_student_id {
$have_read_student_table = 1;	$have_read_student_table = 1;
}	}
if (! exists($ids_by_student{$student})) {	if (! exists($ids_by_student{$student})) {
&Apache::lonmysql::store_row($student_table,[undef,$student]);	&Apache::lonmysql::store_row($student_table,[undef,$student,undef]);
undef(%ids_by_student);	undef(%ids_by_student);
my @Result = &Apache::lonmysql::get_rows($student_table);	my @Result = &Apache::lonmysql::get_rows($student_table);
foreach (@Result) {	foreach (@Result) {