[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.13

version 1.8, 2007/07/20 00:15:06 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>'.('&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.13

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