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.86, 2003/09/09 18:46:28
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) {
Line 1382 sub get_problem_statistics {	Line 1384 sub get_problem_statistics {
if ($num) {	if ($num) {
my %storestats=();	my %storestats=();

my $urlres=(split(/\_\_\_/,$symb))[2];	my $urlres=(&Apache::lonnet::decode_symb($symb))[2];

$storestats{$courseid.'___'.$urlres.'___timestamp'}=time;	$storestats{$courseid.'___'.$urlres.'___timestamp'}=time;
$storestats{$courseid.'___'.$urlres.'___stdno'}=$num;	$storestats{$courseid.'___'.$urlres.'___stdno'}=$num;