version 1.174, 2006/08/08 19:02:04
|
version 1.175, 2006/08/10 21:07:01
|
Line 1139 sub update_full_student_data {
|
Line 1139 sub update_full_student_data {
|
&setup_table_names($courseid); |
&setup_table_names($courseid); |
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my $student = $sname.':'.$sdom; |
my $student = $sname.':'.$sdom; |
# |
# |
my $returnstatus = 'okay'; |
my $returnstatus = 'okay'; |
Line 1422 sub update_student_data {
|
Line 1421 sub update_student_data {
|
&setup_table_names($courseid); |
&setup_table_names($courseid); |
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my $student = $sname.':'.$sdom; |
my $student = $sname.':'.$sdom; |
# |
# |
my $returnstatus = 'okay'; |
my $returnstatus = 'okay'; |
Line 1474 sub store_student_data {
|
Line 1472 sub store_student_data {
|
my ($sname,$sdom,$courseid,$student_data) = @_; |
my ($sname,$sdom,$courseid,$student_data) = @_; |
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my $student = $sname.':'.$sdom; |
my $student = $sname.':'.$sdom; |
# |
# |
my $returnstatus = 'okay'; |
my $returnstatus = 'okay'; |
Line 1671 sub ensure_current_data {
|
Line 1668 sub ensure_current_data {
|
$Apache::lonnet::perlvar{'lonUsersDir'}); |
$Apache::lonnet::perlvar{'lonUsersDir'}); |
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my @Result = &Apache::lonmysql::get_rows($student_table, |
my @Result = &Apache::lonmysql::get_rows($student_table, |
"student_id ='$student_id'"); |
"student_id ='$student_id'"); |
my $data = undef; |
my $data = undef; |
Line 1720 sub ensure_current_full_data {
|
Line 1716 sub ensure_current_full_data {
|
$Apache::lonnet::perlvar{'lonUsersDir'}); |
$Apache::lonnet::perlvar{'lonUsersDir'}); |
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my @Result = &Apache::lonmysql::get_rows($student_table, |
my @Result = &Apache::lonmysql::get_rows($student_table, |
"student_id ='$student_id'"); |
"student_id ='$student_id'"); |
my $updatetime; |
my $updatetime; |
Line 2756 sub get_response_data_by_student {
|
Line 2751 sub get_response_data_by_student {
|
# |
# |
my $student_id = &get_student_id($student->{'username'}, |
my $student_id = &get_student_id($student->{'username'}, |
$student->{'domain'}); |
$student->{'domain'}); |
my @group_ids = &get_students_groupids($student_id); |
|
# |
# |
my $dbh = &Apache::lonmysql::get_dbh(); |
my $dbh = &Apache::lonmysql::get_dbh(); |
return undef if (! defined($dbh)); |
return undef if (! defined($dbh)); |