version 1.137, 2004/07/06 15:50:03
|
version 1.139, 2004/09/23 14:46:03
|
Line 155 sub get_sequence_assessment_data {
|
Line 155 sub get_sequence_assessment_data {
|
next; |
next; |
} |
} |
# get the map itself, instead of BEGIN_MAP |
# get the map itself, instead of BEGIN_MAP |
$title = $previous->title(); |
$title = $previous->compTitle; |
$title =~ s/\:/\&\#058;/g; |
|
$symb = $previous->symb(); |
$symb = $previous->symb(); |
$src = $previous->src(); |
$src = $previous->src(); |
# pick up the filename if there is no title available |
|
if (! defined($title) || $title eq '') { |
|
($title) = ($src=~/\/([^\/]*)$/); |
|
} |
|
$randompick = $previous->randompick(); |
$randompick = $previous->randompick(); |
my $newmap = { title => $title, |
my $newmap = { title => $title, |
src => $src, |
src => $src, |
Line 184 sub get_sequence_assessment_data {
|
Line 179 sub get_sequence_assessment_data {
|
next if (! ref($curRes)); |
next if (! ref($curRes)); |
next if (! $curRes->is_problem() && $curRes->src() !~ /\.survey$/); |
next if (! $curRes->is_problem() && $curRes->src() !~ /\.survey$/); |
# Okay, from here on out we only deal with assessments |
# Okay, from here on out we only deal with assessments |
$title = $curRes->title(); |
$title = $curRes->compTitle(); |
$title =~ s/\:/\&\#058;/g; |
|
$symb = $curRes->symb(); |
$symb = $curRes->symb(); |
$src = $curRes->src(); |
$src = $curRes->src(); |
# Grab the filename if there is not title available |
|
if (! defined($title) || $title eq '') { |
|
($title) = ($src=~ m:/([^/]*)$:); |
|
} |
|
my $parts = $curRes->parts(); |
my $parts = $curRes->parts(); |
my %partdata; |
my %partdata; |
foreach my $part (@$parts) { |
foreach my $part (@$parts) { |
Line 2303 sub get_sum_of_scores {
|
Line 2293 sub get_sum_of_scores {
|
if (! defined($courseid)) { |
if (! defined($courseid)) { |
$courseid = $ENV{'request.course.id'}; |
$courseid = $ENV{'request.course.id'}; |
} |
} |
|
if (defined($students) && |
|
((@$students == 0) || |
|
(@$students == 1 && (! defined($students->[0]) || |
|
$students->[0] eq '')) |
|
) |
|
){ |
|
undef($students); |
|
} |
# |
# |
&setup_table_names($courseid); |
&setup_table_names($courseid); |
my $dbh = &Apache::lonmysql::get_dbh(); |
my $dbh = &Apache::lonmysql::get_dbh(); |
Line 2325 sub get_sum_of_scores {
|
Line 2323 sub get_sum_of_scores {
|
$sth->execute(); |
$sth->execute(); |
my $rows = $sth->fetchrow_arrayref(); |
my $rows = $sth->fetchrow_arrayref(); |
if ($dbh->err) { |
if ($dbh->err) { |
&Apache::lonnet::logthis('error = '.$dbh->errstr()); |
&Apache::lonnet::logthis('error 1 = '.$dbh->errstr()); |
|
&Apache::lonnet::logthis('prepared then executed, fetchrow_arrayrefed'. |
|
$/.$request); |
return (undef,undef); |
return (undef,undef); |
} |
} |
return ($rows->[0],$rows->[1]); |
return ($rows->[0],$rows->[1]); |
Line 2505 sub get_student_data {
|
Line 2505 sub get_student_data {
|
my $sth = $dbh->prepare($request); |
my $sth = $dbh->prepare($request); |
$sth->execute(); |
$sth->execute(); |
if ($dbh->err) { |
if ($dbh->err) { |
&Apache::lonnet::logthis('error = '.$dbh->errstr()); |
&Apache::lonnet::logthis('error 2 = '.$dbh->errstr()); |
|
&Apache::lonnet::logthis('prepared then executed '.$/.$request); |
return undef; |
return undef; |
} |
} |
my $dataset = $sth->fetchall_arrayref(); |
my $dataset = $sth->fetchall_arrayref(); |
Line 2574 sub get_response_data {
|
Line 2575 sub get_response_data {
|
my $sth = $dbh->prepare($request); |
my $sth = $dbh->prepare($request); |
$sth->execute(); |
$sth->execute(); |
if ($dbh->err) { |
if ($dbh->err) { |
&Apache::lonnet::logthis('error = '.$dbh->errstr()); |
&Apache::lonnet::logthis('error 3 = '.$dbh->errstr()); |
|
&Apache::lonnet::logthis('prepared then executed '.$/.$request); |
return undef; |
return undef; |
} |
} |
my $dataset = $sth->fetchall_arrayref(); |
my $dataset = $sth->fetchall_arrayref(); |
Line 2630 sub get_response_data_by_student {
|
Line 2632 sub get_response_data_by_student {
|
my $sth = $dbh->prepare($request); |
my $sth = $dbh->prepare($request); |
$sth->execute(); |
$sth->execute(); |
if ($dbh->err) { |
if ($dbh->err) { |
&Apache::lonnet::logthis('error = '.$dbh->errstr()); |
&Apache::lonnet::logthis('error 4 = '.$dbh->errstr()); |
|
&Apache::lonnet::logthis('prepared then executed '.$/.$request); |
return undef; |
return undef; |
} |
} |
my $dataset = $sth->fetchall_arrayref(); |
my $dataset = $sth->fetchall_arrayref(); |
Line 2682 sub get_response_time_data {
|
Line 2685 sub get_response_time_data {
|
my $sth = $dbh->prepare($request); |
my $sth = $dbh->prepare($request); |
$sth->execute(); |
$sth->execute(); |
if ($dbh->err) { |
if ($dbh->err) { |
&Apache::lonnet::logthis('error = '.$dbh->errstr()); |
&Apache::lonnet::logthis('error 5 = '.$dbh->errstr()); |
|
&Apache::lonnet::logthis('prepared then executed '.$/.$request); |
return undef; |
return undef; |
} |
} |
my $dataset = $sth->fetchall_arrayref(); |
my $dataset = $sth->fetchall_arrayref(); |
Line 2772 sub get_student_scores {
|
Line 2776 sub get_student_scores {
|
my $sth = $dbh->prepare($request); |
my $sth = $dbh->prepare($request); |
$sth->execute(); |
$sth->execute(); |
if ($dbh->err) { |
if ($dbh->err) { |
&Apache::lonnet::logthis('error = '.$dbh->errstr()); |
&Apache::lonnet::logthis('error 6 = '.$dbh->errstr()); |
|
&Apache::lonnet::logthis('prepared then executed '.$/.$request); |
return undef; |
return undef; |
} |
} |
$request = 'SELECT score,COUNT(*) FROM '.$tmptable.' GROUP BY score'; |
$request = 'SELECT score,COUNT(*) FROM '.$tmptable.' GROUP BY score'; |
Line 2780 sub get_student_scores {
|
Line 2785 sub get_student_scores {
|
$sth = $dbh->prepare($request); |
$sth = $dbh->prepare($request); |
$sth->execute(); |
$sth->execute(); |
if ($dbh->err) { |
if ($dbh->err) { |
&Apache::lonnet::logthis('error = '.$dbh->errstr()); |
&Apache::lonnet::logthis('error 7 = '.$dbh->errstr()); |
|
&Apache::lonnet::logthis('prepared then executed '.$/.$request); |
return undef; |
return undef; |
} |
} |
my $dataset = $sth->fetchall_arrayref(); |
my $dataset = $sth->fetchall_arrayref(); |