[BACK]Return to lonviewclasslist.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonviewclasslist.pm between versions 1.17 and 1.21

version 1.17, 2015/03/17 00:08:48 version 1.21, 2023/11/05 19:59:54
Line 62  sub handler { Line 62  sub handler {
         return OK;          return OK;
     }      }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &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'})) {      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 77  sub handler {
         $start_page = &Apache::loncommon::start_page('Classlist',undef,          $start_page = &Apache::loncommon::start_page('Classlist',undef,
                              {'force_register' => $env{'form.register'}});                               {'force_register' => $env{'form.register'}});
     } else {      } else {
         my $brcrum = [{'href' => 'adm/viewclasslist',          my $args = {};
                        'text' => 'View Classlist'},];          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,          $start_page = &Apache::loncommon::start_page('Classlist',undef,
                                                      {'bread_crumbs' => $brcrum});                                                       $args);
     }      }
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 $start_page  $start_page
Line 103  ENDHEADER Line 110  ENDHEADER
                                     classlists => $rosterprefs,                                      classlists => $rosterprefs,
                                 };                                  };
                     $changes{'classlists'} = {};                      $changes{'classlists'} = {};
                     &Apache::courseprefs::process_changes($cdom,'classlists',\%values,                      &Apache::courseprefs::process_changes($cdom,$cnum,'classlists',\%values,
                                                           $rosterprefs,                                                            $rosterprefs,
                                                           $changes{'classlists'},                                                            $changes{'classlists'},
                                                           $allitems,\%disallowed,$crstype);                                                            $allitems,\%disallowed,$crstype);
Line 136  ENDHEADER Line 143  ENDHEADER
                    $current->{$setting} = $env{"course.$env{'request.course.id'}.$setting"};                     $current->{$setting} = $env{"course.$env{'request.course.id'}.$setting"};
                }                 }
                my ($output,$rowtotal) =                 my ($output,$rowtotal) =
                    &Apache::courseprefs::print_config_box($r,$cdom,'display',                     &Apache::courseprefs::print_config_box($r,$cdom,$cnum,'display',
                                                           'viewableroster',                                                            'viewableroster',
                                                           $rosterprefs,$current,                                                            $rosterprefs,$current,
                                                           $allitems,$crstype);                                                            $allitems,$crstype);
Line 279  sub html_classlist { Line 286  sub html_classlist {
     $cdom = $env{'course.'.$cid.'.domain'};      $cdom = $env{'course.'.$cid.'.domain'};
     $cnum = $env{'course.'.$cid.'.num'};      $cnum = $env{'course.'.$cid.'.num'};
   
     my $title;  
     if ($viewsettings->{'limit_to_section'}) {      if ($viewsettings->{'limit_to_section'}) {
         if ($env{'request.course.sec'} eq '') {          if ($env{'request.course.sec'} eq '') {
             $title = &mt($titleplural.' with no section');              $title = &mt($titleplural.' with no section');
Line 293  sub html_classlist { Line 299  sub html_classlist {
     } else {      } else {
         $title = &mt($titleplural.' in any section');          $title = &mt($titleplural.' in any section');
         $listtype = 'in the course';          $listtype = 'in the course';
           if ($crstype eq 'Community') {
               $listtype = 'in the community';
           }
     }      }
   
     if ($viewsettings->{'student_opt_in'}) {      if ($viewsettings->{'student_opt_in'}) {
         if ($env{'request.role'} =~ /^st/)  {          if ($env{'request.role'} =~ /^st/)  {
             $Str .= &print_roster_form($crstype);              $Str .= &print_roster_form($crstype);
Removed from v.1.17  
changed lines
  Added in v.1.21

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>