loncom/interface/lonviewclasslist.pm - diff

Return to lonviewclasslist.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2007/09/07 00:09:07	version 1.11, 2009/03/14 18:39:40
Line 262 sub html_classlist {	Line 262 sub html_classlist {
'<td>'.(' 'x2).	'<td>'.(' 'x2).
&Apache::loncommon::messagewrapper	&Apache::loncommon::messagewrapper
('<img src="/adm/lonIcons/mailto.gif" border="0" /> '.	('<img src="/adm/lonIcons/mailto.gif" border="0" /> '.
$username.'@'.$domain,$username,$domain).'</td>';	$username.':'.$domain,$username,$domain).'</td>';
if (! $viewsettings->{'limit_to_section'}) {	if (! $viewsettings->{'limit_to_section'}) {
$Str .= '<td>'.$section.'</td>';	$Str .= '<td>'.$section.'</td>';
}	}
Line 337 sub process_student_prefs {	Line 337 sub process_student_prefs {
my $putresult = &Apache::lonnet::put('environment',	my $putresult = &Apache::lonnet::put('environment',
\%changeHash,$udom,$uname);	\%changeHash,$udom,$uname);
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
&Apache::lonnet::appenv(%changeHash);	&Apache::lonnet::appenv(\%changeHash);
my $result = &Apache::lonnet::put('publicroster',{$student => $showinroster,},$cdom,$cnum);	my $result = &Apache::lonnet::put('publicroster',{$student => $showinroster,},$cdom,$cnum);
if ($result eq 'ok') {	if ($result eq 'ok') {
$output .= &mt('Display of your name in the student-viewable roster set to <b>[_1]</b>.',$visibility);	$output .= &mt('Display of your name in the student-viewable roster set to <b>[_1]</b>.',$visibility);