loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.209, 2023/11/04 00:06:00	version 1.210, 2025/06/28 14:34:46
Line 220 sub init_dbs {	Line 220 sub init_dbs {
type => 'SMALLINT UNSIGNED' },	type => 'SMALLINT UNSIGNED' },
{ name => 'awarded',	{ name => 'awarded',
type => 'REAL' },	type => 'REAL' },
	{ name => 'latefrac',
	type => 'REAL' },
{ name => 'award',	{ name => 'award',
type => 'TINYTEXT' },	type => 'TINYTEXT' },
{ name => 'awarddetail',	{ name => 'awarddetail',
Line 257 sub init_dbs {	Line 259 sub init_dbs {
type => 'REAL' },	type => 'REAL' },
{ name => 'previous',	{ name => 'previous',
type => 'SMALLINT UNSIGNED' },	type => 'SMALLINT UNSIGNED' },
	{ name => 'latefrac',
	type => 'REAL' },
# { name => 'regrader',	# { name => 'regrader',
# type => 'TINYTEXT' },	# type => 'TINYTEXT' },
# { name => 'afterduedate',	# { name => 'afterduedate',
Line 1186 sub store_student_data {	Line 1190 sub store_student_data {
#	#
# Parameters	# Parameters
while (my ($parameter,$value) = each(%$param_hash)) {	while (my ($parameter,$value) = each(%$param_hash)) {
if ($parameter !~ /(timestamp\|resource\.(.*)\.(solved\|tries\|awarded\|award\|awarddetail\|previous))/) {	if ($parameter !~ /(timestamp\|resource\.(.*)\.(solved\|tries\|awarded\|award\|awarddetail\|previous\|latefrac))/) {
my $sql_parameter = "('".join("','",	my $sql_parameter = "('".join("','",
$symb_id,$student_id,	$symb_id,$student_id,
$parameter)."',".	$parameter)."',".