version 1.108, 2004/09/20 15:01:56
|
version 1.110, 2004/09/28 14:38:50
|
Line 600 sub movemsg {
|
Line 600 sub movemsg {
|
|
|
sub discourse { |
sub discourse { |
my $r=shift; |
my $r=shift; |
my %courselist=&Apache::lonnet::dump( |
my $classlist = &Apache::loncoursedata::get_classlist(); |
'classlist', |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
my $now=time; |
my $now=time; |
my %lt=&Apache::lonlocal::texthash('cfa' => 'Check for All', |
my %lt=&Apache::lonlocal::texthash('cfa' => 'Check for All', |
'cfs' => 'Check for Section/Group', |
'cfs' => 'Check for Section/Group', |
Line 645 sub discourse {
|
Line 642 sub discourse {
|
<input type="button" onClick="uncheckall()" value="$lt{'cfn'}" /> |
<input type="button" onClick="uncheckall()" value="$lt{'cfn'}" /> |
<p> |
<p> |
ENDDISHEADER |
ENDDISHEADER |
my %coursepersonnel= |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles(); |
&Apache::lonnet::get_course_adv_roles(); |
$r->print('<table>'); |
foreach my $role (sort keys %coursepersonnel) { |
foreach my $role (sort keys %coursepersonnel) { |
foreach (split(/\,/,$coursepersonnel{$role})) { |
foreach (split(/\,/,$coursepersonnel{$role})) { |
my ($puname,$pudom)=split(/\:/,$_); |
my ($puname,$pudom)=split(/\:/,$_); |
$r->print( |
$r->print('<tr><td><label>'. |
'<br /><input type="checkbox" name="send_to_&&&&&&_'. |
'<input type="checkbox" name="send_to_&&&&&&_'. |
$puname.':'.$pudom.'" /> '. |
$puname.':'.$pudom.'" /> '. |
&Apache::loncommon::plainname($puname, |
&Apache::loncommon::plainname($puname,$pudom). |
$pudom).' ('.$_.'), <i>'.$role.'</i>'); |
'</label></td>'. |
} |
'<td>('.$_.'),</td><td><i>'.$role.'</i></td></tr>'); |
|
} |
} |
} |
|
$r->print('</table><table>'); |
foreach (sort keys %courselist) { |
while (my ($student,$info) = each(%$classlist)) { |
my ($end,$start)=split(/\:/,$courselist{$_}); |
my ($sname,$sdom,$status,$fullname,$section) = |
my $active=1; |
(@{$info}[&Apache::loncoursedata::CL_SNAME(), |
if (($end) && ($now>$end)) { $active=0; } |
&Apache::loncoursedata::CL_SDOM(), |
if ($active) { |
&Apache::loncoursedata::CL_STATUS(), |
my ($sname,$sdom)=split(/\:/,$_); |
&Apache::loncoursedata::CL_FULLNAME(), |
my %reply=&Apache::lonnet::get('environment', |
&Apache::loncoursedata::CL_SECTION()]); |
['firstname','middlename','lastname','generation'], |
next if ($status ne 'Active'); |
$sdom,$sname); |
my $key = 'send_to_&&&'.$section.'&&&'.$student; |
my $section=&Apache::lonnet::usection |
if (! defined($fullname) || $fullname eq '') { $fullname = $sname; } |
($sdom,$sname,$ENV{'request.course.id'}); |
$r->print('<tr><td><label>'. |
$r->print( |
qq{<input type="checkbox" name="$key">}.(' 'x2). |
'<br><input type=checkbox name="send_to_&&&'.$section.'&&&_'.$_.'"> '. |
$fullname.'</td><td>'.$sname.'@'.$sdom.'</td><td>'.$section. |
$reply{'firstname'}.' '. |
'</td></tr>'); |
$reply{'middlename'}.' '. |
|
$reply{'lastname'}.' '. |
|
$reply{'generation'}. |
|
' ('.$_.') '.$section); |
|
} |
|
} |
} |
|
$r->print('</table>'); |
} |
} |
|
|
# ==================================================== Display Critical Message |
# ==================================================== Display Critical Message |