--- loncom/interface/lonviewclasslist.pm 2015/03/17 00:08:48 1.17 +++ loncom/interface/lonviewclasslist.pm 2023/11/05 19:59:54 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to display the classlist # -# $Id: lonviewclasslist.pm,v 1.17 2015/03/17 00:08:48 raeburn Exp $ +# $Id: lonviewclasslist.pm,v 1.21 2023/11/05 19:59:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -62,7 +62,8 @@ sub handler { return OK; } &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['register','forceedit','action','symb','todocs']); + ['register','forceedit','action', + 'symb','todocs','only_body']); if (! ($env{'request.course.fn'})) { $env{'user.error.msg'}= "/adm/viewclasslist:not in course role"; @@ -76,10 +77,16 @@ sub handler { $start_page = &Apache::loncommon::start_page('Classlist',undef, {'force_register' => $env{'form.register'}}); } else { - my $brcrum = [{'href' => 'adm/viewclasslist', - 'text' => 'View Classlist'},]; + my $args = {}; + if ($env{'form.only_body'}) { + $args->{'only_body'} = 1; + } else { + my $brcrum = [{'href' => 'adm/viewclasslist', + 'text' => 'View Classlist'},]; + $args->{'bread_crumbs'} = $brcrum; + } $start_page = &Apache::loncommon::start_page('Classlist',undef, - {'bread_crumbs' => $brcrum}); + $args); } $r->print(< $rosterprefs, }; $changes{'classlists'} = {}; - &Apache::courseprefs::process_changes($cdom,'classlists',\%values, + &Apache::courseprefs::process_changes($cdom,$cnum,'classlists',\%values, $rosterprefs, $changes{'classlists'}, $allitems,\%disallowed,$crstype); @@ -136,7 +143,7 @@ ENDHEADER $current->{$setting} = $env{"course.$env{'request.course.id'}.$setting"}; } my ($output,$rowtotal) = - &Apache::courseprefs::print_config_box($r,$cdom,'display', + &Apache::courseprefs::print_config_box($r,$cdom,$cnum,'display', 'viewableroster', $rosterprefs,$current, $allitems,$crstype); @@ -279,7 +286,6 @@ sub html_classlist { $cdom = $env{'course.'.$cid.'.domain'}; $cnum = $env{'course.'.$cid.'.num'}; - my $title; if ($viewsettings->{'limit_to_section'}) { if ($env{'request.course.sec'} eq '') { $title = &mt($titleplural.' with no section'); @@ -293,8 +299,10 @@ sub html_classlist { } else { $title = &mt($titleplural.' in any section'); $listtype = 'in the course'; + if ($crstype eq 'Community') { + $listtype = 'in the community'; + } } - if ($viewsettings->{'student_opt_in'}) { if ($env{'request.role'} =~ /^st/) { $Str .= &print_roster_form($crstype);