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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.35.2.3 and 1.40

version 1.35.2.3, 2006/07/19 10:20:11 version 1.40, 2006/08/29 00:12:02
Line 270  sub discourse { Line 270  sub discourse {
     &Apache::lonselstudent::get_people_in_class($env{'request.course.sec'});      &Apache::lonselstudent::get_people_in_class($env{'request.course.sec'});
     unshift @$current_members, (@$course_personnel);      unshift @$current_members, (@$course_personnel);
     my %defaultUsers;      my %defaultUsers;
       
       $result .= '<input type="hidden" name="sendmode" value="group" />'."\n";
   
     $result = &Apache::lonselstudent::render_student_list($current_members,      $result .= &Apache::lonselstudent::render_student_list($current_members,
   "compemail",     "compemail",
   "current",     "current",
   \%defaultUsers,     \%defaultUsers,
   1,"selectedusers",1);     1,"selectedusers",1);
   
     $result .= &Apache::lonselstudent::render_student_list($expired_members,      $result .= &Apache::lonselstudent::render_student_list($expired_members,
    "compemail",     "compemail",
Line 345  sub disgroup { Line 347  sub disgroup {
         foreach my $status (@statustypes)  {          foreach my $status (@statustypes)  {
             if (ref($numitems) eq 'HASH') {              if (ref($numitems) eq 'HASH') {
                 if ((defined($$numitems{$status})) && ($$numitems{$status})) {                  if ((defined($$numitems{$status})) && ($$numitems{$status})) {
                     $result.='<td align="top">'.                      $result.='<td valign="top">'.
                              '<fieldset><legend><b>'.$lt{$status}.                               '<fieldset><legend><b>'.$lt{$status}.
                              '</b></legend><nobr>'.                               '</b></legend><nobr>'.
                              '<input type="button" value="check all" '.                               '<input type="button" value="check all" '.
Line 356  sub disgroup { Line 358  sub disgroup {
                              '</nobr></fieldset><br />'.                               '</nobr></fieldset><br />'.
                              &Apache::loncommon::start_data_table().                               &Apache::loncommon::start_data_table().
                              &Apache::loncommon::start_data_table_header_row();                               &Apache::loncommon::start_data_table_header_row();
                     $result .= "<th><a href=\"javascript:changeSort('fullname')\">".                      $result .= "<th>$lt{'name'}</a></th>".
                     "$lt{'name'}</a></th>".                                 "<th>$lt{'usnm'}</a></th>".
                     "<th><a href=\"javascript:changeSort('username')\">".                                 "<th>$lt{'doma'}</a></th>".
                     "$lt{'usnm'}</a></th>".  
                     "<th><a href=\"javascript:changeSort('domain')\">".  
                     "$lt{'doma'}</a></th>".  
                     &Apache::loncommon::end_data_table_header_row();                      &Apache::loncommon::end_data_table_header_row();
                     foreach my $key (sort(keys(%{$Sortby{$status}}))) {                      foreach my $key (sort(keys(%{$Sortby{$status}}))) {
                         foreach my $user (@{$Sortby{$status}{$key}}) {                          foreach my $user (@{$Sortby{$status}{$key}}) {
Line 641  sub disnew { Line 640  sub disnew {
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
        'nm' => 'New Messages',         'nm' => 'New Messages',
        'su' => 'Subject',         'su' => 'Subject',
                                        'co' => 'Course',                                         'co' => 'Course/Group',
        'da' => 'Date',         'da' => 'Date',
        'us' => 'Username',         'us' => 'Username',
        'op' => 'Open',         'op' => 'Open',
Line 810  ENDDISHEADER Line 809  ENDDISHEADER
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($env{'form.sortedby'} eq "revcourse") {      if ($env{'form.sortedby'} eq "revcourse") {
         $r->print('<a href = "?sortedby=course'.$fsqs.'">'.&mt('Course').'</a>');          $r->print('<a href = "?sortedby=course'.$fsqs.'">'.&mt('Course/Group').'</a>');
     } else {      } else {
         $r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>');          $r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course/Group').'</a>');
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($env{'form.sortedby'} eq "revstatus") {      if ($env{'form.sortedby'} eq "revstatus") {
Line 1021  sub compout { Line 1020  sub compout {
     $r->print('<table>');      $r->print('<table>');
     if (($broadcast eq 'group') && ($group ne '') &&       if (($broadcast eq 'group') && ($group ne '') && 
         (!$can_grp_broadcast && !$viewgrps && !$editgrps)) {          (!$can_grp_broadcast && !$viewgrps && !$editgrps)) {
         print STDERR "$broadcast AND $env{'form.group'} AND $can_grp_broadcast\n";  
         $r->print(&recipient_input_row($cdom,%lt));          $r->print(&recipient_input_row($cdom,%lt));
     }       } 
     if (($broadcast ne 'group') && ($broadcast ne 'upload')) {      if (($broadcast ne 'group') && ($broadcast ne 'upload')) {
Line 1612  sub build_block_table { Line 1610  sub build_block_table {
     my ($r,$startblock,$endblock,$setters) = @_;      my ($r,$startblock,$endblock,$setters) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
         'cacb' => 'Currently active communication blocks',          'cacb' => 'Currently active communication blocks',
         'cour' => 'Course',          'cour' => 'Course/Group',
         'dura' => 'Duration',          'dura' => 'Duration',
         'blse' => 'Block set by'          'blse' => 'Block set by'
     );      );
Removed from v.1.35.2.3  
changed lines
  Added in v.1.40

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