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

Diff for /loncom/interface/lonviewclasslist.pm between versions 1.9 and 1.12

version 1.9, 2007/09/07 00:09:07 version 1.12, 2009/10/17 03:11:25
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>'.('&nbsp;'x2).              '<td>'.('&nbsp;'x2).
             &Apache::loncommon::messagewrapper              &Apache::loncommon::messagewrapper
             ('<img src="/adm/lonIcons/mailto.gif" border="0" />&nbsp;'.              ('<img src="/adm/lonIcons/mailto.gif" border="0" />&nbsp;'.
              $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);
Removed from v.1.9  
changed lines
  Added in v.1.12

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