version 1.9, 2007/09/07 00:09:07
|
version 1.13, 2010/03/25 17:38:43
|
Line 60 sub handler {
|
Line 60 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
# &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
# ['action','state']); |
['register']); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/viewclasslist", |
|
text=>"View Classlist", |
|
faq=>9,bug=>'Instructor Interface',}); |
|
# Needs to be in a course |
|
if (! ($env{'request.course.fn'})) { |
if (! ($env{'request.course.fn'})) { |
$env{'user.error.msg'}= |
$env{'user.error.msg'}= |
"/adm/viewclasslist:not in course role"; |
"/adm/viewclasslist:not in course role"; |
Line 76 sub handler {
|
Line 70 sub handler {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
# |
# |
my $start_page = &Apache::loncommon::start_page('Classlist'); |
my $start_page; |
my $breadcrumbs= &Apache::lonhtmlcommon::breadcrumbs(undef, |
if ($env{'form.register'}) { |
'Enrollment Manager'); |
$start_page = &Apache::loncommon::start_page('Classlist',undef, |
|
{'force_register' => $env{'form.register'}}); |
|
} else { |
|
my $brcrum = [{'href' => 'adm/viewclasslist', |
|
'text' => 'View Classlist'},]; |
|
$start_page = &Apache::loncommon::start_page('Classlist',undef, |
|
{'bread_crumbs' => $brcrum}); |
|
} |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
$start_page |
$start_page |
$breadcrumbs |
|
ENDHEADER |
ENDHEADER |
|
|
# Get classlist view settings |
# Get classlist view settings |
Line 91 ENDHEADER
|
Line 91 ENDHEADER
|
if (keys(%viewsettings) > 0) { |
if (keys(%viewsettings) > 0) { |
$r->print(&html_classlist($r,\%viewsettings)); |
$r->print(&html_classlist($r,\%viewsettings)); |
} else { |
} else { |
$r->print('<h3>'. |
$r->print('<div class="LC_info">'. |
&mt("Display of a student-viewable course roster is not currently enabled."). |
&mt("Display of a student-viewable course roster is not currently enabled."). |
'</h3>'); |
'</div>'); |
} |
} |
# |
# |
# Finish up |
# Finish up |
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); |