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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.38 and 1.41

version 1.38, 2006/07/17 21:38:07 version 1.41, 2006/10/04 20:26:48
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 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 1792  sub header { Line 1790  sub header {
           
     my $extra = &Apache::loncommon::studentbrowser_javascript();      my $extra = &Apache::loncommon::studentbrowser_javascript();
     if ($baseurl) {      if ($baseurl) {
  $extra .= "<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />";   $extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";
     }      }
     $r->print(&Apache::loncommon::start_page('Communication and Messages',      $r->print(&Apache::loncommon::start_page('Communication and Messages',
   $extra));    $extra));
Removed from v.1.38  
changed lines
  Added in v.1.41

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