version 1.109, 2004/09/28 14:12:40
|
version 1.110, 2004/09/28 14:38:50
|
Line 655 ENDDISHEADER
|
Line 655 ENDDISHEADER
|
'<td>('.$_.'),</td><td><i>'.$role.'</i></td></tr>'); |
'<td>('.$_.'),</td><td><i>'.$role.'</i></td></tr>'); |
} |
} |
} |
} |
$r->print('</table><p><table>'); |
$r->print('</table><table>'); |
while (my ($student,$info) = each(%$classlist)) { |
while (my ($student,$info) = each(%$classlist)) { |
my ($sname,$sdom,$status,$fullname,$section) = |
my ($sname,$sdom,$status,$fullname,$section) = |
(@{$info}[&Apache::loncoursedata::CL_SNAME(), |
(@{$info}[&Apache::loncoursedata::CL_SNAME(), |
Line 663 ENDDISHEADER
|
Line 663 ENDDISHEADER
|
&Apache::loncoursedata::CL_STATUS(), |
&Apache::loncoursedata::CL_STATUS(), |
&Apache::loncoursedata::CL_FULLNAME(), |
&Apache::loncoursedata::CL_FULLNAME(), |
&Apache::loncoursedata::CL_SECTION()]); |
&Apache::loncoursedata::CL_SECTION()]); |
# next if ($status ne 'Active'); |
next if ($status ne 'Active'); |
my $key = 'send_to_&&&'.$section.'&&&'.$student; |
my $key = 'send_to_&&&'.$section.'&&&'.$student; |
if (! defined($fullname) || $fullname eq '') { $fullname = $sname; } |
if (! defined($fullname) || $fullname eq '') { $fullname = $sname; } |
$r->print('<tr><td><label>'. |
$r->print('<tr><td><label>'. |
Line 671 ENDDISHEADER
|
Line 671 ENDDISHEADER
|
$fullname.'</td><td>'.$sname.'@'.$sdom.'</td><td>'.$section. |
$fullname.'</td><td>'.$sname.'@'.$sdom.'</td><td>'.$section. |
'</td></tr>'); |
'</td></tr>'); |
} |
} |
$r->print('</table></p>'); |
$r->print('</table>'); |
} |
} |
|
|
# ==================================================== Display Critical Message |
# ==================================================== Display Critical Message |