version 1.181, 2007/04/03 20:04:54
|
version 1.183, 2007/10/03 18:22:50
|
Line 1316 sub update_full_student_data {
|
Line 1316 sub update_full_student_data {
|
chop($store_command); |
chop($store_command); |
$dbh->do($store_command); |
$dbh->do($store_command); |
if ($dbh->err) { |
if ($dbh->err) { |
$returnstatus = 'error storing part data'; |
$returnstatus = 'error saving part data'; |
&Apache::lonnet::logthis('insert error '.$dbh->errstr()); |
&Apache::lonnet::logthis('insert error '.$dbh->errstr()); |
&Apache::lonnet::logthis("While attempting\n".$store_command); |
&Apache::lonnet::logthis("While attempting\n".$store_command); |
} |
} |
Line 1356 sub update_full_student_data {
|
Line 1356 sub update_full_student_data {
|
chop($store_command); |
chop($store_command); |
$dbh->do($store_command); |
$dbh->do($store_command); |
if ($dbh->err) { |
if ($dbh->err) { |
$returnstatus = 'error storing response data'; |
$returnstatus = 'error saving response data'; |
&Apache::lonnet::logthis('insert error '.$dbh->errstr()); |
&Apache::lonnet::logthis('insert error '.$dbh->errstr()); |
&Apache::lonnet::logthis("While attempting\n".$store_command); |
&Apache::lonnet::logthis("While attempting\n".$store_command); |
} |
} |
Line 1368 sub update_full_student_data {
|
Line 1368 sub update_full_student_data {
|
($sname,$sdom,$courseid, |
($sname,$sdom,$courseid, |
&Apache::lonnet::convert_dump_to_currentdump(\%studentdata)); |
&Apache::lonnet::convert_dump_to_currentdump(\%studentdata)); |
if ($returnstatus eq 'okay' && $status ne 'okay') { |
if ($returnstatus eq 'okay' && $status ne 'okay') { |
$returnstatus = 'error storing current data:'.$status; |
$returnstatus = 'error saving current data:'.$status; |
} elsif ($status ne 'okay') { |
} elsif ($status ne 'okay') { |
$returnstatus .= ' error storing current data:'.$status; |
$returnstatus .= ' error saving current data:'.$status; |
} |
} |
## |
## |
## Update the students time...... |
## Update the students time...... |
Line 3099 sub CL_FULLNAME { return 6; }
|
Line 3099 sub CL_FULLNAME { return 6; }
|
sub CL_STATUS { return 7; } |
sub CL_STATUS { return 7; } |
sub CL_TYPE { return 8; } |
sub CL_TYPE { return 8; } |
sub CL_LOCKEDTYPE { return 9; } |
sub CL_LOCKEDTYPE { return 9; } |
|
sub CL_GROUP { return 10; } |
|
|
sub get_classlist { |
sub get_classlist { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
Line 3185 sub get_group_memberships {
|
Line 3186 sub get_group_memberships {
|
my $access_end = $env{'course.'.$cid.'.default_enrollment_end_date'}; |
my $access_end = $env{'course.'.$cid.'.default_enrollment_end_date'}; |
my %curr_groups =&Apache::longroup::coursegroups($cdom,$cnum); |
my %curr_groups =&Apache::longroup::coursegroups($cdom,$cnum); |
if (%curr_groups) { |
if (%curr_groups) { |
my $grpindex = scalar(@{$keylist}); |
my $grpindex = &CL_GROUP(); |
my %groupmemberhash = |
my %groupmemberhash = |
&Apache::lonnet::get_group_membership($cdom,$cnum); |
&Apache::lonnet::get_group_membership($cdom,$cnum); |
foreach my $student (keys(%{$classlist})) { |
foreach my $student (keys(%{$classlist})) { |