version 1.102, 2003/10/07 15:30:09
|
version 1.103, 2003/10/09 14:50:01
|
Line 1987 sub execute_SQL_request {
|
Line 1987 sub execute_SQL_request {
|
return (); |
return (); |
} |
} |
|
|
|
#sub get_timestamp_data { |
|
# my ($students,$symb, |
sub get_optionresponse_data { |
sub get_optionresponse_data { |
my ($students,$symb,$response,$courseid) = @_; |
my ($students,$symb,$response,$courseid) = @_; |
return if (! defined($symb) || |
return undef if (! defined($symb) || |
! defined($response)); |
! defined($response)); |
$courseid = $ENV{'request.course.id'} if (! defined($courseid)); |
$courseid = $ENV{'request.course.id'} if (! defined($courseid)); |
# |
# |
Line 2012 sub get_optionresponse_data {
|
Line 2014 sub get_optionresponse_data {
|
'a.symb_id='.$symb_id.' AND a.response_id='.$response_id; |
'a.symb_id='.$symb_id.' AND a.response_id='.$response_id; |
if (defined($students)) { |
if (defined($students)) { |
$request .= ' AND ('. |
$request .= ' AND ('. |
join(' OR ', map {'student_id='. |
join(' OR ', map {'a.student_id='. |
&get_student_id($_->{'username'}, |
&get_student_id($_->{'username'}, |
$_->{'domain'}) |
$_->{'domain'}) |
} @$students |
} @$students |
).')'; |
).')'; |
} |
} |
$request .= ' ORDER BY b.timestamp'; |
$request .= ' ORDER BY b.timestamp'; |
&Apache::lonnet::logthis("request =\n".$request); |
# &Apache::lonnet::logthis("request =\n".$request); |
my $sth = $dbh->prepare($request); |
my $sth = $dbh->prepare($request); |
$sth->execute(); |
$sth->execute(); |
my $dataset = $sth->fetchall_arrayref(); |
my $dataset = $sth->fetchall_arrayref(); |
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
return @$dataset; |
return $dataset; |
} |
} |
} |
} |
|
|