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

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

version 1.8, 2007/07/20 00:15:06 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 275  sub html_classlist { Line 275  sub html_classlist {
                     $link = '<a href="/adm/'.$domain.'/'.$username.'/aboutme/portfolio?classlist">'.$link.'</a>';                       $link = '<a href="/adm/'.$domain.'/'.$username.'/aboutme/portfolio?classlist">'.$link.'</a>'; 
                 }                  }
             } else {              } else {
                 $link = &mt("Error retrieving file information.");                  $link = '<span class="LC_error">'.&mt("Error retrieving file information.").'</span>';
             }              }
             $Str .= '<td>'.$link.'</td>';              $Str .= '<td>'.$link.'</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);
             } else {              } else {
                 $output .= &mt('Error occurred saving display setting.');                  $output .= '<span class="LC_error">'.&mt('Error occurred saving display setting.').'</span>';
             }              }
         } else {          } else {
             $output .= &mt('Error occurred saving display setting.');              $output .= '<span class="LC_error">'.&mt('Error occurred saving display setting.').'</span>';
         }          }
     } else {      } else {
         $output .= &mt('Display of your name in the student-viewable roster unchanged (set to <b>[_1]</b>).',$visibility);          $output .= &mt('Display of your name in the student-viewable roster unchanged (set to <b>[_1]</b>).',$visibility);
Removed from v.1.8  
changed lines
  Added in v.1.12

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