version 1.7, 2003/05/29 18:31:27
|
version 1.9, 2003/06/23 16:06:11
|
Line 175 END
|
Line 175 END
|
'&sdomain='.$student->{'domain'}.'">'; |
'&sdomain='.$student->{'domain'}.'">'; |
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
$r->print('<tr>'.'<td>'.$rownum.'</td>'. |
$r->print('<tr>'.'<td>'.$rownum.'</td>'. |
'<td>'.$link.$student->{'fullname'}.'</a></td>'. |
'<td>'.$student->{'fullname'}.'</td>'. |
'<td>'.$student->{'username'}.'</td>'. |
'<td>'.$link.$student->{'username'}.'</a></td>'. |
'<td>'.$student->{'domain'} .'</td>'. |
'<td>'.$student->{'domain'} .'</td>'. |
'<td>'.$student->{'section'} .'</td>'. |
'<td>'.$student->{'section'} .'</td>'. |
'<td>'.$student->{'status'} .'</td>'. |
'<td>'.$student->{'status'} .'</td>'. |
Line 256 sub compute {
|
Line 256 sub compute {
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
($r,'Spreadsheet Computation Status', |
($r,'Spreadsheet Computation Status', |
'Spreadsheet Computation', scalar(@Students)); |
'Spreadsheet Computation', scalar(@Students)); |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
|
'Processing course structure'); |
&Apache::studentcalc::initialize_package(); |
&Apache::studentcalc::initialize_package(); |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
|
'Processing first student'); |
foreach my $student (@Students) { |
foreach my $student (@Students) { |
my $sname = $student->{'username'}.':'.$student->{'domain'}; |
my $sname = $student->{'username'}.':'.$student->{'domain'}; |
my $studentsheet = Apache::studentcalc->new |
my $studentsheet = Apache::studentcalc->new |