Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.66 and 1.145

version 1.66, 2007/01/29 20:07:44 version 1.145, 2010/01/25 18:09:42
Line 33  package Apache::lonmsgdisplay; Line 33  package Apache::lonmsgdisplay;
   
 =head1 NAME  =head1 NAME
   
 Apache::lonmsg: supports internal messaging  Apache::lonmsgdisplay: supports internal messaging
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 lonmsg provides routines for sending messages, receiving messages, and  lonmsgdisplay provides a handler to allow users to read, send, 
 a handler to allow users to read, send, and delete messages.  and delete messages, and to create and delete message folders,
   and to move messages between folders.
   
 =head1 OVERVIEW  =head1 OVERVIEW
   
Line 93  addresses on their B<PREF> screen, but g Line 94  addresses on their B<PREF> screen, but g
 are much more useful than traditional email can be made to be, even  are much more useful than traditional email can be made to be, even
 with HTML support.  with HTML support.
   
 Right now, this document will cover just how to send a message, since  
 it is likely you will not need to programmatically read messages,  
 since lonmsg already implements that functionality.  
   
 The routines used to package messages and unpackage messages are not  
 only used by lonmsg when creating/extracting messages for LON-CAPA's  
 internal messaging system, but also by lonnotify.pm which is available  
 for use by Domain Coordinators to broadcast standard e-mail to specified  
 users in their domain.  The XML packaging used in the two cases is very  
 similar.  The differences are the use of <recuser>$uname</recuser> and   
 <recdomain>$udom</recdomain> in stored internal messages, compared   
 with <recipient username="$uname:$udom">$email</recipient> in stored  
 Domain Coordinator e-mail for the storage of information about   
 recipients of the message/e-mail.  
   
 =head1 FUNCTIONS  
   
 =over 4  
   
 =cut  =cut
   
 use strict;  use strict;
Line 119  use Apache::lonnet; Line 101  use Apache::lonnet;
 use HTML::TokeParser();  use HTML::TokeParser();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonhtmlcommon();
 use Apache::lontexconvert();  use Apache::lontexconvert();
 use HTML::Entities();  use HTML::Entities();
 use Apache::lonlocal;  use Apache::lonlocal;
Line 130  use lib '/home/httpd/lib/perl/'; Line 113  use lib '/home/httpd/lib/perl/';
 use LONCAPA;  use LONCAPA;
   
 # Querystring component with sorting type  # Querystring component with sorting type
 my $sqs;  my $sqs='';
 my $startdis;  my $startdis='';
   
 # ============================================================ List all folders  # ============================================================ List all folders
   
Line 153  sub folderlist { Line 136  sub folderlist {
   
     );      );
   
    # set se lastvisit for the new mail check in the toplevel menu
    &Apache::lonnet::appenv({'user.mailcheck.lastvisit'=>time});
   
     my %actions = &Apache::lonlocal::texthash(      my %actions = &Apache::lonlocal::texthash(
                                 view => 'View Folder',                                  view => 'View Folder',
                                 rename => 'Rename Folder',                                  rename => 'Rename Folder',
Line 160  sub folderlist { Line 146  sub folderlist {
     );      );
     $actions{'select_form_order'} = ['view','rename','delete'];      $actions{'select_form_order'} = ['view','rename','delete'];
   
     my %statushash = &get_msgstatus_types();      my %statushash = &Apache::lonlocal::texthash(&get_msgstatus_types());
   
     $statushash{'select_form_order'} = ['','new','read','replied','forwarded'];      $statushash{'select_form_order'} = ['','new','read','replied','forwarded'];
   
Line 187  sub folderlist { Line 173  sub folderlist {
   
     $formhash{'select_form_order'} = ['','critical',@userorder,'sent','trash'];      $formhash{'select_form_order'} = ['','critical',@userorder,'sent','trash'];
     my $output = qq|<script type="text/javascript">      my $output = qq|<script type="text/javascript">
   // <![CDATA[
 function folder_choice(targetform,caller) {  function folder_choice(targetform,caller) {
     var permfolders_keys = new Array('$permlistkeys');      var permfolders_keys = new Array('$permlistkeys');
     var permfolders_vals = new Array('$permlistvals');      var permfolders_vals = new Array('$permlistvals');
Line 228  function folder_choice(targetform,caller Line 215  function folder_choice(targetform,caller
         }          }
     }      }
 }  }
   // ]]>
 </script>|;  </script>|;
     my %show = ('select_form_order' => [10,20,50,100,200],      my %show = ('select_form_order' => [10,20,50,100,200],
  map {$_=>$_} (10,20,50,100,200));   map {$_=>$_} (10,20,50,100,200));
   
      
     $output .= '      $output .= '
 <form method="post" action="/adm/email" name="folderlist">  <form method="post" action="/adm/email" name="folderlist">
 <table border="0" cellspacing="2" cellpadding="2">  <table border="0" cellspacing="2" cellpadding="2">
Line 253  function folder_choice(targetform,caller Line 240  function folder_choice(targetform,caller
      <td align="center"><b>'.$lt{'actn'}.'</b><br />'.       <td align="center"><b>'.$lt{'actn'}.'</b><br />'.
          &Apache::loncommon::select_form('view','folderaction',%actions).'           &Apache::loncommon::select_form('view','folderaction',%actions).'
      </td><td><br />'.       </td><td><br />'.
     '<input type="button" value="'.$lt{'go'}.'" onClick="javascript:folder_choice(this.form,'."'change'".');" />      '<input type="button" value="'.$lt{'go'}.'" onclick="javascript:folder_choice(this.form,'."'change'".');" />
      </td>       </td>
     </tr>      </tr>
    </table>     </table>
   </td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>    </td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>
   <td align="right">    <td align="right">
    <table><tr><td><br />     <table><tr><td><br />
     <input type="button" value="'.&mt('Make New Folder').      <input type="button" value="'.&mt('New Folder').
     '" onClick="javascript:folder_choice(this.form,'."'new'".');" /></td>'.      '" onclick="javascript:folder_choice(this.form,'."'new'".');" /></td>'.
     '<td align="center"><b>'.&mt('New Folder').'</b><br />'.      '<td align="center"><b>'.&mt('Name').'</b><br />'.
     '<input type="text" size="15" name="newfolder" value="" />      '<input type="text" size="15" name="newfolder" value="" />
     </td></tr></table>      </td></tr></table>
   </td>    </td>
Line 285  sub get_permanent_folders { Line 272  sub get_permanent_folders {
 }  }
   
 sub get_msgstatus_types {  sub get_msgstatus_types {
     my %statushash = &Apache::lonlocal::texthash(      # Don't translate here!
                                 '' => 'Any',      my %statushash = (
                                 new => 'Unread',          ''          => 'Any',
                                 read => 'Read',          'new'       => 'Unread',
                                 replied => 'Replied to',          'read'      => 'Read',
                                 forwarded => 'Forwarded',          'replied'   => 'Replied to',
           'forwarded' => 'Forwarded',
     );      );
     return %statushash;      return %statushash;
 }  }
Line 303  sub scrollbuttons { Line 291  sub scrollbuttons {
     my %statushash = &get_msgstatus_types();      my %statushash = &get_msgstatus_types();
     my $status;      my $status;
     if ($msgstatus eq '') {      if ($msgstatus eq '') {
         $status = &mt('All');          $status = 'All'; # Don't translate here!
     } else {      } else {
         $status = $statushash{$msgstatus};          $status = $statushash{$msgstatus};
     }      }
     return      my $output = '<b>'.&mt('Page:').'</b> ';
    '<b>'.&mt('Page').'</b>: '.       if ($maxdis == 1) {
    '<input type="submit" name="firstview" value="'.&mt('First').'" />'.          # No buttons if only one page is displayed
    '<input type="submit" name="prevview" value="'.&mt('Previous').'" />'.          $output .= '1/1';
    '<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis.      } else {
    '<input type="submit" name="nextview" value="'.&mt('Next').'" />'.          $output .=
    '<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'.             '<input type="submit" name="firstview" value="|&lt;" />'.
    &mt('<b>[_1] messages</b>: showing messages [_2] through [_3] of [_4].',$status,$first,$finish,$total).'</form>';             '<input type="submit" name="prevview" value="&lt;" />'.
              ' <input type="text" size="5" name="startdis" value="'.$start.'" onchange="this.form.submit()" /> / '.$maxdis.' '.
              '<input type="submit" name="nextview" value="&gt;" />'.
              '<input type="submit" name="lastview" value="&gt;|" />';
       }
       $output .=
           '<br />'
          .'<b>'.&mt($status.' messages:').'</b> '
          .&mt('showing messages [_1] through [_2] of [_3].',
               $first,$finish,$total)
          .'</form>';
   
       return $output;
 }  }
 # =============================================================== Status Change  # =============================================================== Status Change
   
Line 370  sub makefolder { Line 370  sub makefolder {
         }          }
     } else {      } else {
         $outcome =           $outcome = 
     &mt('Error - could not obtain lock on email folders record.');      &mt('Error - could not obtain lock on message folders record.');
     }      }
     return ($outcome,$warning);      return ($outcome,$warning);
 }  }
Line 407  sub renamefolder { Line 407  sub renamefolder {
     if ($env{'form.renamed'} eq '') {      if ($env{'form.renamed'} eq '') {
         return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is an invalid name.',$folder,$newname);          return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is an invalid name.',$folder,$newname);
     }      }
       if (defined($permfolders{$folder})) {
           return &mt('The folder "[_1]" may not be renamed as it is a folder provided by the system.',$folder);
       }
     if (defined($permfolders{$newname})) {      if (defined($permfolders{$newname})) {
         return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is reserved for folders provided automatically by the system.',$folder,$newname);          return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is reserved for folders provided automatically by the system.',$folder,$newname);
     }      }
Line 516  sub movemsg { Line 519  sub movemsg {
 # ======================================================= Display a course list  # ======================================================= Display a course list
   
 sub discourse {  sub discourse {
     my $result;      my ($statushash) = @_;
       my ($result,$active,$previous,$future);
       my $crstype = &Apache::loncommon::course_type();
     my ($course_personnel,      my ($course_personnel,
  $current_members,   $current_members,
  $expired_members,   $expired_members,
Line 525  sub discourse { Line 530  sub discourse {
     unshift @$current_members, (@$course_personnel);      unshift @$current_members, (@$course_personnel);
     my %defaultUsers;      my %defaultUsers;
           
     $result .= '<input type="hidden" name="sendmode" value="group" />'."\n";      my $tmptext;
       if ($tmptext = &Apache::lonselstudent::render_student_list($current_members,
                                                                  "activeusers",
                                                                  "current",
                                                                  \%defaultUsers,
                                                                  1,"selectedusers",1,'email')
          ) {
          my $bcc_curr_hdr;
          if ($crstype eq 'Community') {
              $bcc_curr_hdr = &mt('Bcc: community participants with current access');
          } else {
              $bcc_curr_hdr = &mt('Bcc: course members with current access');
          }
          $result .= '<fieldset id="LC_activeusers"><legend>'
                    .$bcc_curr_hdr
                    .'</legend>'
                    .'<form name="activeusers">';
          $result .= $tmptext.'</form></fieldset><br />';
          if (ref($statushash) eq 'HASH') {
              $statushash->{'active'} = 1;
          }
       }
       if ($tmptext = &Apache::lonselstudent::render_student_list($expired_members,
                                                                  "previoususers",
                                                                  "expired",
                                                                  \%defaultUsers,
                                                                  1, "selectedusers",0,'email')
          ) {
          my $bcc_prev_hdr;
          if ($crstype eq 'Community') {
              $bcc_prev_hdr = &mt('Bcc: community participants with expired access');
          } else {
              $bcc_prev_hdr = &mt('Bcc: course members with expired access');
          }
          $result .= '<fieldset id="LC_previoususers"><legend>'
                    .$bcc_prev_hdr
                    .'</legend>'
                    .'<form name="previoususers">';
          $result .= $tmptext.'</form></fieldset><br />';
          if (ref($statushash) eq 'HASH') {
              $statushash->{'previous'} = 1;
          }
   
       }
       if ($tmptext = &Apache::lonselstudent::render_student_list($future_members,
                                                                  "futureusers",
                                                                  "future",
                                                                  \%defaultUsers,
                                                                  1, "selectedusers",0,'email')
          ) {
          my $bcc_future_hdr;
          if ($crstype eq 'Community') {
              $bcc_future_hdr = &mt('Bcc: community participants with future access');
          } else {
              $bcc_future_hdr = &mt('Bcc: course members with future access');
          }
   
          $result .= '<fieldset id="LC_futureusers"><legend>'
                    .$bcc_future_hdr
                    .'</legend>'
                    .'<form name="futureusers">';
          $result .= $tmptext.'</form></fieldset>';
          if (ref($statushash) eq 'HASH') {
              $statushash->{'future'} = 1;
          }
   
     $result .= &Apache::lonselstudent::render_student_list($current_members,      }
    "compemail",  
    "current",  
    \%defaultUsers,  
    1,"selectedusers",1);  
   
     $result .= &Apache::lonselstudent::render_student_list($expired_members,  
    "compemail",  
    "expired",  
    \%defaultUsers,  
    1, "selectedusers",0);  
     $result .= &Apache::lonselstudent::render_student_list($future_members,  
    "compemail",  
    "future",  
    \%defaultUsers,  
    1, "selectedusers", 0);  
     return $result;      return $result;
 }  }
   
 sub disgroup {  sub disgroup {
     my ($cdom,$cnum,$group,$viewgrps,$editgrps) = @_;      my ($r,$cdom,$cnum,$group,$access_status) = @_;
     my $result;      my $hasfloat;
     #  Needs to be in a course      #  Needs to be in a course
     if (!($env{'request.course.fn'})) {      if (!($env{'request.course.fn'})) {
         $result = &mt('Error: you must have a course role selected to be able to send a broadcast message to a group in the course.');          $r->print('<span class="LC_error">'.&mt('Error: you must have a course role selected to be able to send a broadcast message to a group in the course.').'</span>');
         return $result;          return;
     }      }
     if ($cdom eq '' || $cnum eq '') {      if ($cdom eq '' || $cnum eq '') {
         $result = &mt('Error: could not determine domain or number of course');          $r->print('<span class="LC_error">'.&mt('Error: could not determine domain or number of course').'</span>');
         return $result;          return;
     }      }
     my ($memberinfo,$numitems) =      my ($memberinfo,$numitems) =
                  &Apache::longroup::group_memberlist($cdom,$cnum,$group,{},[]);                   &Apache::longroup::group_memberlist($cdom,$cnum,$group,{},[]);
     my @statustypes = ('active');      my @statustypes = ('active');
       my $viewgrps = &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.
                      ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
       my $editgrps = &Apache::lonnet::allowed('mdg',$env{'request.course.id'}.
                      ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
     if ($viewgrps || $editgrps) {      if ($viewgrps || $editgrps) {
         push(@statustypes,('future','previous'));          push(@statustypes,('future','previous'));
     }      }
     if (keys(%{$memberinfo}) == 0) {      if (keys(%{$memberinfo}) == 0) {
         $result = &mt('As this group has no members, there are no '.          $r->print('<span class="LC_warning">'.
                       'recipients to select.');                    &mt('As this group has no members, there are no recipients to select').
         return $result;                    '</span>');
           return;
     } else {      } else {
         $result = &mt('Select message recipients from the group members listed below.<br />');            $hasfloat = 1;
           unless($env{'environment.wysiwygeditor'} eq 'on') {
               $r->print('<div class="LC_left_float">');
           }
         my %Sortby = (          my %Sortby = (
                          active   => {},                           active   => {},
                          previous => {},                           previous => {},
Line 579  sub disgroup { Line 641  sub disgroup {
                                      'name'     => 'Name',                                       'name'     => 'Name',
                                      'usnm'     => 'Username',                                       'usnm'     => 'Username',
                                      'doma'     => 'Domain',                                       'doma'     => 'Domain',
                                      'active'   => 'Active Members',                                       'active'   => 'Broadcast to Active Members',
                                      'previous' => 'Former Members',                                       'previous' => 'Broadcast (Bcc) to Former Members',
                                      'future'   => 'Future Members',                                       'future'   => 'Broadcast (Bcc) to Future Members',
                                     );                                      );
         foreach my $user (sort(keys(%{$memberinfo}))) {          foreach my $user (sort(keys(%{$memberinfo}))) {
             my $status = $$memberinfo{$user}{status};              my $status = $$memberinfo{$user}{status};
Line 595  sub disgroup { Line 657  sub disgroup {
                 push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);                  push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);
             }              }
         }          }
         $result .= &group_check_uncheck();          $r->print(&group_check_uncheck());
         $result .= '<table border="0" cellspacing="8" cellpadding="2">'.  
                    '<tr>';  
         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 valign="top">'.                      my $formname = $status.'users';
                              '<fieldset><legend><b>'.$lt{$status}.                      if (ref($access_status) eq 'HASH') {
                              '</b></legend><nobr>'.                          $access_status->{$status} = $$numitems{$status};
                              '<input type="button" value="'.&mt('Check All').'" '.                      }
                              'onclick="javascript:toggleAll('."'".$status."','check'".')" />'.                      $r->print('<fieldset>'.
                              '&nbsp;&nbsp;'.                                '<legend>'.$lt{$status}.'</legend>'.
                              '<input type="button" value="'.&mt('Uncheck All').'" '.                                '<form name="'.$formname.'">'.
                              'onclick="javascript:toggleAll('."'".$status."','uncheck'".')" />'.                                '<span class="LC_nobreak">'.
                              '</nobr></fieldset><br />'.                                '<input type="button" value="'.&mt('Check All').'" '.
                              &Apache::loncommon::start_data_table().                                'onclick="javascript:toggleAll('."this.form,'check'".')" />'.
                              &Apache::loncommon::start_data_table_header_row();                                '&nbsp;&nbsp;'.
                     $result .= "<th>$lt{'name'}</a></th>".                                '<input type="button" value="'.&mt('Uncheck All').'" '.
                                "<th>$lt{'usnm'}</a></th>".                                'onclick="javascript:toggleAll('."this.form,'uncheck'".')" />'.
                                "<th>$lt{'doma'}</a></th>".                                '</span>');
                     &Apache::loncommon::end_data_table_header_row();                      if ($status eq 'active') {
                           $r->print(('&nbsp;'x3).'<select name="groupmail">'.
                                    '<option value="bcc" selected="selected">'.&mt('Bcc').'</option>'.
                                    '<option value="cc">'.&mt('Cc').'</option>'.
                                  '</select>');
                       }
                       $r->print('<br />'.&Apache::loncommon::start_data_table().
                                  &Apache::loncommon::start_data_table_header_row().
                                  "<th>$lt{'name'}</th>".
                                  "<th>$lt{'usnm'}</th>".
                                  "<th>$lt{'doma'}</th>".
                                  &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}}) {
                             $result .=                              $r->print(&Apache::loncommon::start_data_table_row().
                                 &Apache::loncommon::start_data_table_row().                                  '<td><span class="LC_nobreak"><input type="checkbox" '.
                                 '<td><input type="checkbox" '.  
                                 'name="selectedusers_forminput" value="'.                                  'name="selectedusers_forminput" value="'.
                                 $user.':'.$status.'" />'.                                  $user.':'.$status.'" />'.
                                 $$memberinfo{$user}{'fullname'}.'</td>'.                                  $$memberinfo{$user}{'fullname'}.'</span></td>'.
                                 '<td>'.$$memberinfo{$user}{'uname'}.'</td>'.                                  '<td>'.$$memberinfo{$user}{'uname'}.'</td>'.
                                 '<td>'.$$memberinfo{$user}{'udom'}.'</td>'.                                  '<td>'.$$memberinfo{$user}{'udom'}.'</td>'.
                                 &Apache::loncommon::end_data_table_row();                                  &Apache::loncommon::end_data_table_row());
                         }                          }
                     }                      }
                     $result .= &Apache::loncommon::end_data_table();                      $r->print(&Apache::loncommon::end_data_table().'</form>'.
                                 '</fieldset><br />');
                 }                  }
             }              }
             $result .= '</td><td>&nbsp;&nbsp;</td>';  
         }          }
         $result .= '</tr></table>';          unless($env{'environment.wysiwygeditor'} eq 'on') {
               $r->print('</div>');
           }
     }      }
     return $result;      return $hasfloat;
 }  }
   
 sub group_check_uncheck {  sub group_check_uncheck {
     my $output = qq|      my $output = qq|
 <script type="text/javascript">  <script type="text/javascript">
 function toggleAll(caller,action) {  // <![CDATA[
     var pattern = new RegExp(":"+caller+"\$");  function toggleAll(form,action) {
     if (typeof(document.compemail.selectedusers_forminput.length)=="undefined") {      if (typeof(form.selectedusers_forminput.length)=="undefined") {
         if (document.compemail.selectedusers_forminput.value.match(pattern)) {           if (action == 'check') {
             if (action == 'check') {              form.selectedusers_forminput.checked = true;
                 document.groupmail.selectedusers_forminput.checked = true;           } else {
             } else {              form.selectedusers_forminput.checked = false;
                 document.groupmail.selectedusers_forminput.checked = false;  
             }  
         }          }
     } else {      } else {
         for (var i=0; i<document.compemail.selectedusers_forminput.length; i++) {          for (var i=0; i<form.selectedusers_forminput.length; i++) {
             if (document.compemail.selectedusers_forminput[i].value.match(pattern)) {              if (action == 'check') {
                 if (action == 'check') {                  form.selectedusers_forminput[i].checked = true;
                     document.compemail.selectedusers_forminput[i].checked = true;              } else {
                 } else {                  form.selectedusers_forminput[i].checked = false;
                     document.compemail.selectedusers_forminput[i].checked = false;  
                 }  
             }              }
         }          }
     }      }
 }  }
   // ]]>
 </script>  </script>
     |;      |;
 }  }
Line 693  sub groupmail_header { Line 762  sub groupmail_header {
     }      }
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     if ($refarg) {      if ($refarg) {
           my $brtitle;
           if (&Apache::loncommon::course_type() eq 'Community') {
               $brtitle = 'View community groups';  
           } else {
               $brtitle = 'View course groups';
           }  
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>"/adm/coursegroups",              ({href=>"/adm/coursegroups",
               text=>"Groups",                text=>"Groups",
               title=>"View course groups"});                title=>$brtitle});
     }      }
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",          ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",
Line 705  sub groupmail_header { Line 780  sub groupmail_header {
          {href=>"/adm/email?compose=group&amp;group=".           {href=>"/adm/email?compose=group&amp;group=".
                 "$env{'form.group'}&amp;$refarg",                  "$env{'form.group'}&amp;$refarg",
           text=>"Send a Message in a Group",            text=>"Send a Message in a Group",
           title=>"Compose Group Email Message"},);            title=>"Compose Group Message"},);
     if ($action eq 'sending') {      if ($action eq 'sending') {
             &Apache::lonhtmlcommon::add_breadcrumb              &Apache::lonhtmlcommon::add_breadcrumb
                          ({text=>"Messages being sent.",                           ({text=>"Messages being sent.",
                            title=>"Messages sent"},);                             title=>"E-mails sent"},);
     }      }
     my $groupheader = &Apache::loncommon::start_page('Group Email');      my $groupheader = &Apache::loncommon::start_page('Group Message');
     $groupheader .= &Apache::lonhtmlcommon::breadcrumbs      $groupheader .= &Apache::lonhtmlcommon::breadcrumbs
                 ('Group - '.$env{'form.group'}.' Email');                  ('Group - '.$env{'form.group'}.' Email');
     return $groupheader;      return $groupheader;
Line 725  sub groupmail_sent { Line 800  sub groupmail_sent {
     }      }
     my $output .= '<br /><br /><a href="/adm/email?compose=group&amp;group='.      my $output .= '<br /><br /><a href="/adm/email?compose=group&amp;group='.
                   $group.'&amp;'.$refarg.'">'.                    $group.'&amp;'.$refarg.'">'.
                   &mt('Send another group email').'</a>'.'&nbsp;&nbsp;&nbsp;'.                    &mt('Send another group message').'</a>'.'&nbsp;&nbsp;&nbsp;'.
                   '<a href="/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg?'.                    '<a href="/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg?'.
                   $refarg.'">'. &mt('Return to group page').'</a>';                    $refarg.'">'. &mt('Return to group page').'</a>';
     return $output;      return $output;
Line 735  sub groupmail_sent { Line 810  sub groupmail_sent {
   
 sub discrit {  sub discrit {
     my $r=shift;      my $r=shift;
     my $header = '<h1><font color="red">'.&mt('Critical Messages').'</font></h1>'.      my $header = '<h1>'.&mt('Critical Messages').'</h1>'
         '<form action="/adm/email" method="POST">'.                  .'<div class="LC_warning">'
         '<input type="hidden" name="confirm" value="true" />';                  .&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.')
                   .'</div><br />'
                   .'<form action="/adm/email" method="post">'
                   .'<input type="hidden" name="confirm" value="true" />';
     my %what=&Apache::lonnet::dump('critical');      my %what=&Apache::lonnet::dump('critical');
     my $result = '';      my $result = '';
     foreach my $key (sort(keys(%what))) {      foreach my $key (sort(keys(%what))) {
         my %content=&Apache::lonmsg::unpackagemsg($what{$key});          my %content=&Apache::lonmsg::unpackagemsg($what{$key});
         next if ($content{'senderdomain'} eq '');          next if ($content{'senderdomain'} eq '');
         $result.='<hr />'.&mt('From').': <b>'.          $result .= &Apache::lonhtmlcommon::start_pick_box()
 &Apache::loncommon::aboutmewrapper(                    .&Apache::lonhtmlcommon::row_title(&mt('From'),undef,'LC_oddrow_value')
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.                    .'<b>'.&Apache::loncommon::aboutmewrapper(
 $content{'sendername'}.':'.                     &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b>'
             $content{'senderdomain'}.') '.$content{'time'}.                    .' ('.$content{'sendername'}.':'.$content{'senderdomain'}.')'
             '<br />'.&mt('Subject').': '.$content{'subject'}.                    .&Apache::lonhtmlcommon::row_closure(1)
             '<br /><pre>'.                    .&Apache::lonhtmlcommon::row_title(&mt('Date'),undef,'LC_evenrow_value')
               &Apache::lontexconvert::msgtexconverted($content{'message'}).                    .$content{'time'}
             '</pre><small>'.                    .&Apache::lonhtmlcommon::row_closure(1)
 &mt('You have to confirm that you received this message. After confirmation, this message will be moved to your regular inbox').                    .&Apache::lonhtmlcommon::row_title(&mt('Subject'),undef,'LC_oddrow_value')
             '</small><br />'.                    .$content{'subject'}
             '<input type="submit" name="rec_'.$key.'" value="'.&mt('Confirm Receipt').'" />'.                    .&Apache::lonhtmlcommon::row_closure(1)
             '<input type="submit" name="reprec_'.$key.'" '.                    .&Apache::lonhtmlcommon::row_title(&mt('Message'),undef,'LC_evenrow_value')
                   'value="'.&mt('Confirm Receipt and Reply').'" />';                    .'<pre>'.&Apache::lontexconvert::msgtexconverted($content{'message'}).'</pre>'
                     .&Apache::lonhtmlcommon::row_closure()
                     .&Apache::lonhtmlcommon::row_title('',undef,'LC_oddrow_value')
                     .'<div class="LC_warning">';
           my ($rec_button,$reprec_button);
           $rec_button = &mt('Move to Inbox');
           if (!$content{'noreplies'}) {
               $reprec_button = &mt('Move to Inbox/Compose reply');
           }
           if ($content{'sendback'}) {
               $rec_button = &mt('Confirm Receipt');
               if (!$content{'noreplies'}) {
                   $reprec_button = &mt('Confirm Receipt and Reply');
               }
               $result .= &mt('You have to confirm that you have received this message before you can view other pages. After confirmation, this message will be moved to your regular inbox');
           } else {
               $result .= &mt('Access to other pages will be prevented until you have moved the message to your inbox.'); 
           }
           $result .= '</div>'
                     .&Apache::lonhtmlcommon::row_closure(1)
                     .&Apache::lonhtmlcommon::row_title('',undef,'LC_evenrow_value')
                     .'<input type="submit" name="rec_'.$key.'" value="'.$rec_button.'" />';
           if (!$content{'noreplies'}) {
               $result .= '<input type="submit" name="reprec_'.$key.'" '
                         .'value="'.$reprec_button.'" />'
           }
           $result .= &Apache::lonhtmlcommon::row_closure(1)
                     .&Apache::lonhtmlcommon::end_pick_box()
                     .'<br />';
     }      }
     # Check to see if there were any messages.      # Check to see if there were any messages.
     if ($result eq '') {      if ($result eq '') {
         $result = "<h2>".&mt('You have no critical messages.')."</h2>".          $result =
     '<a href="/adm/roles">'.&mt('Select a course').'</a><br />'.              '<p class="LC_info">'.
               &mt('You have no critical messages.').
               '</p>'.
               '<a href="/adm/roles">'.&mt('Select a course').'</a><br />'.
             '<a href="/adm/email">'.&mt('Communicate').'</a>';              '<a href="/adm/email">'.&mt('Communicate').'</a>';
     } else {      } else {
         $r->print($header);          $r->print($header);
Line 787  sub sortedmessages { Line 896  sub sortedmessages {
     }      }
   
     foreach my $msgid (@messages) {      foreach my $msgid (@messages) {
           next if ($msgid eq '');
  my $esc_msgid=&escape($msgid);   my $esc_msgid=&escape($msgid);
  my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,$processid,$symb,$error) =   my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,$processid,$symb,$error) =
     &Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef,      &Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef,
Line 891  sub get_course_desc { Line 1001  sub get_course_desc {
   
 sub disall {  sub disall {
     my ($r,$folder,$msgstatus)=@_;      my ($r,$folder,$msgstatus)=@_;
     my %saveable = ('folder'    => 'scalar',      my %saveable = ('msgstatus' => 'scalar',
     'msgstatus' => 'scalar',  
     'sortedby'  => 'scalar',      'sortedby'  => 'scalar',
     'interdis'  => 'scalar',      'interdis'  => 'scalar',
     );      );
Line 927  sub disfolder { Line 1036  sub disfolder {
     my $jscript = &Apache::loncommon::check_uncheck_jscript();      my $jscript = &Apache::loncommon::check_uncheck_jscript();
     $r->print(<<ENDDISHEADER);      $r->print(<<ENDDISHEADER);
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
     $jscript      $jscript
   
     function checkfoldermove() {  
         if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') {  
             if (document.disall.movetofolder.options[document.disall.movetofolder.selectedIndex].value == "") {  
                 alert("$lt{'sede'}");  
                 return;  
             }  
         }  
         return;   
     }  
   
     function validate_checkedaction() {      function validate_checkedaction() {
         document.disall.markedaction.value = document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value;          document.disall.markedaction.value = document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value;
         if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') {          if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') {
Line 965  sub disfolder { Line 1065  sub disfolder {
         }          }
         document.disall.submit();          document.disall.submit();
     }      }
   // ]]>
 </script>  </script>
 ENDDISHEADER  ENDDISHEADER
   
     my $fsqs='&folder='.$folder;      my $fsqs='&amp;folder='.$folder;
     my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);      my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);
     my $totalnumber=$#temp+1;      my $totalnumber=$#temp+1;
     if ($totalnumber < 1) {      if ($totalnumber < 1) {
           $r->print('<p class="LC_info">');
         if ($msgstatus eq '') {          if ($msgstatus eq '') {
     $r->print('<h2>'.&mt('Empty Folder').'</h2>');              $r->print(&mt('There are no messages in this folder.'));
         } elsif ($msgstatus eq 'replied') {          } elsif ($msgstatus eq 'replied') {
             $r->print('<h2>'.&mt('You have not replied to any messages in this folder.').'</h2>');              $r->print(&mt('You have not replied to any messages in this folder.'));
         } else {           } else {
             $r->print('<h2>'.&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.').'</h2>');              $r->print(&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.'));
         }          }
           $r->print('</p>');
         if ($numblocked > 0) {          if ($numblocked > 0) {
             $r->print(&blocked_in_folder($numblocked,$startblock,$endblock,              $r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
                                          \%setters));                                           \%setters));
         }          }
  return;          return;
     }      }
     my $interdis = $env{'form.interdis'};      my $interdis = $env{'form.interdis'};
     my $number=int($totalnumber/$interdis);      my $number=int($totalnumber/$interdis);
Line 1001  ENDDISHEADER Line 1103  ENDDISHEADER
     $r->print('<form method="post" name="disall" action="/adm/email">'.      $r->print('<form method="post" name="disall" action="/adm/email">'.
       '<table class="LC_mail_list"><tr><th colspan="1">&nbsp;</th><th>');        '<table class="LC_mail_list"><tr><th colspan="1">&nbsp;</th><th>');
     if ($env{'form.sortedby'} eq "revdate") {      if ($env{'form.sortedby'} eq "revdate") {
  $r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');   $r->print('<a href = "/adm/email?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');
     } else {      } else {
  $r->print('<a href = "?sortedby=revdate'.$fsqs.'">'.&mt('Date').'</a></th>');   $r->print('<a href = "/adm/email?sortedby=revdate'.$fsqs.'">'.&mt('Date').'</a></th>');
     }      }
     $r->print('<th>');      $r->print('<th>');
     if ($env{'form.sortedby'} eq "revuser") {      if ($env{'form.sortedby'} eq "revuser") {
  $r->print('<a href = "?sortedby=user'.$fsqs.'">'.&mt('Username').'</a>');   $r->print('<a href = "/adm/email?sortedby=user'.$fsqs.'">'.&mt('Username').'</a>');
     } else {      } else {
  $r->print('<a href = "?sortedby=revuser'.$fsqs.'">'.&mt('Username').'</a>');   $r->print('<a href = "/adm/email?sortedby=revuser'.$fsqs.'">'.&mt('Username').'</a>');
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($env{'form.sortedby'} eq "revdomain") {      if ($env{'form.sortedby'} eq "revdomain") {
  $r->print('<a href = "?sortedby=domain'.$fsqs.'">'.&mt('Domain').'</a>');   $r->print('<a href = "/adm/email?sortedby=domain'.$fsqs.'">'.&mt('Domain').'</a>');
     } else {      } else {
  $r->print('<a href = "?sortedby=revdomain'.$fsqs.'">'.&mt('Domain').'</a>');   $r->print('<a href = "/adm/email?sortedby=revdomain'.$fsqs.'">'.&mt('Domain').'</a>');
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($env{'form.sortedby'} eq "revsubject") {      if ($env{'form.sortedby'} eq "revsubject") {
  $r->print('<a href = "?sortedby=subject'.$fsqs.'">'.&mt('Subject').'</a>');   $r->print('<a href = "/adm/email?sortedby=subject'.$fsqs.'">'.&mt('Subject').'</a>');
     } else {      } else {
     $r->print('<a href = "?sortedby=revsubject'.$fsqs.'">'.&mt('Subject').'</a>');      $r->print('<a href = "/adm/email?sortedby=revsubject'.$fsqs.'">'.&mt('Subject').'</a>');
     }      }
     $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 = "/adm/email?sortedby=course'.$fsqs.'">'.&mt('Course').'</a>');
     } else {      } else {
         $r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>');          $r->print('<a href = "/adm/email?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>');
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($env{'form.sortedby'} eq "revstatus") {      if ($env{'form.sortedby'} eq "revstatus") {
  $r->print('<a href = "?sortedby=status'.$fsqs.'">'.&mt('Status').'</a></th>');   $r->print('<a href = "/adm/email?sortedby=status'.$fsqs.'">'.&mt('Status').'</a></th>');
     } else {      } else {
       $r->print('<a href = "?sortedby=revstatus'.$fsqs.'">'.&mt('Status').'</a></th>');        $r->print('<a href = "/adm/email?sortedby=revstatus'.$fsqs.'">'.&mt('Status').'</a></th>');
     }      }
     $r->print("</tr>\n");      $r->print("</tr>\n");
   
     my $suffix = &Apache::lonmsg::foldersuffix($folder);      my $suffix = &Apache::lonmsg::foldersuffix($folder);
       my $count = $firstdis;
     for (my $n=$firstdis;$n<=$lastdis;$n++) {      for (my $n=$firstdis;$n<=$lastdis;$n++) {
  my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID,   my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID,
     $description,$recv_name,$recv_domain)=       $description,$recv_name,$recv_domain)= 
  @{$temp[$n]};   @{$temp[$n]};
  if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {   if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {
               $count ++;
     if ($status eq 'new') {      if ($status eq 'new') {
  $r->print('<tr class="LC_mail_new">');   $r->print('<tr class="LC_mail_new">');
     } elsif ($status eq 'read') {      } elsif ($status eq 'read') {
Line 1054  ENDDISHEADER Line 1158  ENDDISHEADER
     }      }
     my ($dis_name,$dis_domain) = ($fromname,$fromdomain);      my ($dis_name,$dis_domain) = ($fromname,$fromdomain);
     if ($folder eq 'sent') {      if ($folder eq 'sent') {
  if (defined($recv_name) && !defined($recv_domain)) {                  if (defined($recv_name) && defined($recv_domain)) {
     $dis_name   = join('<br />',@{$recv_name});      if (ref($recv_name) eq 'ARRAY' && 
     $dis_domain = join('<br />',@{$recv_domain});                          ref($recv_domain) eq 'ARRAY') {
           $dis_name   = join('<br />',@{$recv_name});
           $dis_domain = join('<br />',@{$recv_domain});
                       }
  } else {   } else {
     my $msg_id  = &unescape($origID);      my $msg_id  = &unescape($origID);
     my %message = &Apache::lonnet::get('nohist_email'.$suffix,      my %message = &Apache::lonnet::get('nohist_email'.$suffix,
        [$msg_id]);         [$msg_id]);
     my %content = &Apache::lonmsg::unpackagemsg($message{$msg_id});      my %content = &Apache::lonmsg::unpackagemsg($message{$msg_id});
     $dis_name   = join('<br />',@{$content{'recuser'}});                      if (ref($content{'recuser'}) eq 'ARRAY') {
     $dis_domain = join('<br />',@{$content{'recdomain'}});          $dis_name   = join('<br />',@{$content{'recuser'}});
                       }
                       if (ref($content{'recdomain'}) eq 'ARRAY') {
           $dis_domain = join('<br />',@{$content{'recdomain'}});
                       }
  }   }
     }      }
             my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime);              my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime);
             my $count = $n +1;      $r->print('<td align="right"><span class="LC_nobreak">'.(($status eq 'new')?'<b>':'').
     $r->print('<td align="right"><nobr>'.(($status eq 'new')?'<b>':'').  
                       $count.'.'.(($status eq 'new')?'</b>':'').'&nbsp;'.                        $count.'.'.(($status eq 'new')?'</b>':'').'&nbsp;'.
                       '<input type="checkbox" name="delmark"'.                         '<input type="checkbox" name="delmark"'. 
                       ' value="'.$origID.'" /></nobr></td>');                        ' value="'.$origID.'" /></span></td>');
             foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) {              foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) {
                 $r->print('<td>'.(($status eq 'new')?'<b>':'').                  $r->print('<td>'.(($status eq 'new')?'<b>':'').
                           '<a href="/adm/email?display='.$origID.$sqs.'">'.                            '<a href="/adm/email?display='.$origID.$sqs.'">'.
                           $item.(($status eq 'new')?'</b>':'').'</td>');                            $item.(($status eq 'new')?'</b>':'').'</a></td>');
             }              }
             my $showstatus;              my $showstatus;
             my %statushash = &get_msgstatus_types();              my %statushash = &get_msgstatus_types();
Line 1103  ENDDISHEADER Line 1213  ENDDISHEADER
   '<input type="button" onclick="javascript:uncheckAll(document.disall.delmark)" value="'.&mt('Uncheck All').'" />'."\n".    '<input type="button" onclick="javascript:uncheckAll(document.disall.delmark)" value="'.&mt('Uncheck All').'" />'."\n".
   '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" /></td><td>&nbsp;</td>'."\n".    '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" /></td><td>&nbsp;</td>'."\n".
   '<td align="center"><b>'.&mt('Action').'</b><br />'."\n".    '<td align="center"><b>'.&mt('Action').'</b><br />'."\n".
   '  <select name="checkedaction" onchange="javascript:checkfoldermove()">'."\n");    '  <select name="checkedaction">'."\n");
   
     if ($folder ne 'trash') {      if ($folder ne 'trash') {
         $r->print('    <option value="markeddel">'.&mt('Delete').'</option>'."\n");          $r->print('    <option value="markeddel">'.&mt('Delete').'</option>'."\n");
Line 1138  ENDDISHEADER Line 1248  ENDDISHEADER
               '" onclick="javascript:validate_checkedaction()"/></td>'."\n".                '" onclick="javascript:validate_checkedaction()"/></td>'."\n".
               '</tr></table>');                '</tr></table>');
     my $postedstartdis=$startdis+1;      my $postedstartdis=$startdis+1;
     $r->print('<input type="hidden" name="folder" value="'.$folder.'" /><input type="hidden" name="startdis" value="'.$postedstartdis.'" /><input type="hidden" name="interdis" value="'.$env{'form.interdis'}.'" /><input type="hidden" name="msgstatus" value="'.$msgstatus.'" ><input type="hidden" name="markedaction" value="" /></form>');      $r->print('<input type="hidden" name="folder" value="'.$folder.'" /><input type="hidden" name="startdis" value="'.$postedstartdis.'" /><input type="hidden" name="interdis" value="'.$env{'form.interdis'}.'" /><input type="hidden" name="msgstatus" value="'.$msgstatus.'" /><input type="hidden" name="markedaction" value="" /></form>');
     if ($numblocked > 0) {      if ($numblocked > 0) {
         $r->print(&blocked_in_folder($numblocked,$startblock,$endblock,          $r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
                                      \%setters));                                       \%setters));
Line 1151  sub blocked_in_folder { Line 1261  sub blocked_in_folder {
     my $finishblock = &Apache::lonlocal::locallocaltime($endblock);      my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
     my $output = '<br /><br />'.      my $output = '<br /><br />'.
                   &mt('[quant,_1,message is, messages are] not viewable because display of LON-CAPA messages sent to you by other students between [_2] and [_3] is currently being blocked because of online exams.',$numblocked,$beginblock,$finishblock);                    &mt('[quant,_1,message is, messages are] not viewable because display of LON-CAPA messages sent to you by other students between [_2] and [_3] is currently being blocked because of online exams.',$numblocked,$beginblock,$finishblock);
     $output .= &Apache::loncommon::build_block_table($startblock,$endblock,      #$output .= &Apache::loncommon::build_block_table($startblock,$endblock,
                                                      $setters);      #                                                 $setters);
       
       my ($blocked, $blocktext) = &Apache::loncommon::blocking_status("com");
       $output .="<br /><br />".$blocktext;
   
     return $output;      return $output;
 }  }
   
Line 1196  sub compout { Line 1310  sub compout {
           text=>"Display All Messages"});            text=>"Display All Messages"});
         &printheader($r,'/adm/email?compose=multiforward',          &printheader($r,'/adm/email?compose=multiforward',
              'Forwarding Multiple Messages');               'Forwarding Multiple Messages');
         $r->print(&mt('Each of the <b>[quant,_1,message]</b> you checked will be forwarded to the recipient(s) you select below.',$multiforward).'<br />');          if ($multiforward > 1) {
               $r->print(&mt('Each of the[_1] [quant,_2,message] [_3]you checked'
                            .' will be forwarded to the recipient(s) you select below.'
                            ,'<b>',$multiforward,'</b>')
                       .'<br />');
           } else {
               $r->print(&mt('The message you checked will be forwarded to the recipient(s) you select below.').'<br />');
           }
   
     } else {      } else {
  &printheader($r,'/adm/email?compose=upload',   &printheader($r,'/adm/email?compose=upload',
      'Distribute from Uploaded File');       'Distribute from Uploaded File');
Line 1206  sub compout { Line 1328  sub compout {
     my $dissub='';      my $dissub='';
     my $dismsg='';      my $dismsg='';
     my $disbase='';      my $disbase='';
     my $func=&mt('Send New');      my $attachrow;
       my $func1='Send'; # do not translate here!
       my %func2=( # do not translate here!
                  'ma'  => 'Message',
                  'msg' => 'Messages',
                 );
     my %lt=&Apache::lonlocal::texthash('us'  => 'Username',      my %lt=&Apache::lonlocal::texthash('us'  => 'Username',
        'do'  => 'Domain',         'do'  => 'Domain',
        'ad'  => 'Additional Recipients',         'ad'  => 'Additional Recipients',
                                          'rt'  => 'Reply to',
                                          'ar'  => 'Allow replies',
        'sb'  => 'Subject',         'sb'  => 'Subject',
        'ca'  => 'Cancel',         'ca'  => 'Cancel',
        'ma'  => 'Mail',  
                                        'msg' => 'Messages',  
                                        'gen' => 'Generate messages from a file',                                         'gen' => 'Generate messages from a file',
                                        'gmt' => 'General message text',                                         'gmt' => 'General message text',
                                        'tff' => 'The file format for the uploaded portion of the message is',                                         'tff' => 'The file format for the uploaded portion of the message is',
                                        'uas' => 'Upload and Send',                                         'uas' => 'Upload and Send',
                                          'atta' => 'Attachment',
                                          'to'   => 'To:',
                                       );                                        );
       my %attachmax = (
                        text => &mt('(128 KB max size)'),
                        num  => 131072,
                       );
       if (!$forwarding && !$multiforward) {
           $attachrow = '<tr><td colspan="3"><b>'.$lt{'atta'}.'</b> '.$attachmax{'text'}.': <input type="file" name="attachment" /></td></tr>';
       }
     if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})      if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})
  || &Apache::lonnet::allowed('srm',$env{'request.course.id'}.   || &Apache::lonnet::allowed('srm',$env{'request.course.id'}.
     '/'.$env{'request.course.sec'})) {      '/'.$env{'request.course.sec'})) {
            my $crstype = &Apache::loncommon::course_type();
  my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");   my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");
            my $rsstxt;
            if (&Apache::loncommon::course_type() eq 'Community') {
                $rsstxt = &mt('Include in community RSS newsfeed');
            } else {
                $rsstxt = &mt('Include in course RSS newsfeed');
            }
          $dispcrit=           $dispcrit=
  '<p><label><input type="checkbox" name="critmsg" /> '.&mt('Send as critical message').'</label> ' . $crithelp .    '<span class="LC_nobreak"><label><input type="checkbox" name="critmsg" /> '.&mt('Send as critical message').'.</label>'.$crithelp.'&nbsp;&nbsp;'.&mt('Require return receipt?').'<label><input type="radio" name="sendbck" value="1" />'.&mt('Yes').'</label>&nbsp;&nbsp;<label><input type="radio" name="sendbck" value="" checked="checked" />'.&mt('No').'</label></span><br />'.
  '</p><p>'.   '<label><input type="checkbox" name="permanent" /> '.
  '<label><input type="checkbox" name="sendbck" /> '.&mt('Send as critical message').'  ' .  &mt('Send copy to permanent e-mail address (if known)').'</label><br />'.
  &mt('and return receipt') . '</label>' . $crithelp .   '<label><input type="checkbox" name="rsspost" /> '.
  '</p><p><label><input type="checkbox" name="permanent" /> '.    $rsstxt.'</label><br />';
 &mt('Send copy to permanent email address (if known)').'</label></p>'.      }
 '<p><label><input type="checkbox" name="rsspost" /> '.      if ($broadcast ne 'group') {
   &mt('Include in course RSS newsfeed').'</label></p>';          if (&Apache::lonnet::allowed('dff',$env{'request.course.id'}) ||
      }              &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
                                        '/'.$env{'request.course.sec'})) {
   
               my $rectxt;
               if (&Apache::loncommon::course_type() eq 'Community') {
                   $rectxt = &mt("Include in community's 'User records' for recipient(s)");
               } else {
                   $rectxt = &mt("Include in course's 'User records' for recipient(s)");
               }
   
               $dispcrit.='<label>'.
                          '<input type="checkbox" name="courserecord" value="1" /> '.
                          $rectxt.
                          '</label><br />';
           }
       }
   
     my %message;      my %message;
     my %content;      my %content;
       my ($hasfloat,$broadcast_js,$sendmode,$can_grp_broadcast);
     my $defdom=$env{'user.domain'};      my $defdom=$env{'user.domain'};
       if ($broadcast eq 'group') {
           my %access_status = (
                              active => 0,
                              previous => 0,
                              future => 0,
                         );
    
           if ($group eq '') {
               my $studentsel = &discourse(\%access_status);
               if ($studentsel) {
                   if ($env{'environment.wysiwygeditor'} eq 'on') {
                       $r->print($studentsel);
                   } else {
                       $r->print('<div class="LC_left_float">'.$studentsel.'</div>');
                   }
                   $hasfloat = 1;
               }
           } else {
               $can_grp_broadcast = &check_group_priv($group);
               if ($can_grp_broadcast) {
                   $hasfloat = &disgroup($r,$cdom,$cnum,$group,\%access_status);
               }
           }
           if ($hasfloat) {
               $sendmode = '<input type="hidden" name="sendmode" value="group" />'."\n";
               $broadcast_js = qq|
   <script type="text/javascript">
   // <![CDATA[
   function courseRecipients() {
   |;
           foreach my $type (keys(%access_status)) {
               if ($access_status{$type}) {
                   my $formname = $type.'users';
                   if ($type eq 'active' && $group ne '') {
                       $broadcast_js .= qq|
                       document.compemail.groupmail.value = document.$formname.groupmail[document.$formname.groupmail.selectedIndex].value;
   |;
                   }
                   $broadcast_js .= qq|
       if (typeof(document.$formname.selectedusers_forminput.length)=="undefined") {
           document.compemail.courserecips.value += '_&&&_'+document.$formname.selectedusers_forminput.value;
       } else {
           for (var i=0; i<document.$formname.selectedusers_forminput.length; i++) {
               if (document.$formname.selectedusers_forminput[i].checked) {
                   document.compemail.courserecips.value += '_&&&_'+document.$formname.selectedusers_forminput[i].value;  
               }
           }
       }
                   |;
               }
           }
           $broadcast_js .= qq|
       return;
   }
   // ]]>
   </script>
   
   |;
           }
       }
     if ($forwarding) {      if ($forwarding) {
  %message=&Apache::lonnet::get('nohist_email'.$suffix,[$forwarding]);   %message=&Apache::lonnet::get('nohist_email'.$suffix,[$forwarding]);
  %content=&Apache::lonmsg::unpackagemsg($message{$forwarding},$folder);   %content=&Apache::lonmsg::unpackagemsg($message{$forwarding},$folder);
  $dispcrit.='<input type="hidden" name="forwid" value="'.   $dispcrit.='<input type="hidden" name="forwid" value="'.
     $forwarding.'" />';      $forwarding.'" />';
  $func=&mt('Forward');   $func1='Forward'; # do not translate here!
   
  $dissub=&mt('Forwarding').': '.$content{'subject'};   $dissub=&mt('Forwarding').': '.$content{'subject'};
  $dismsg=&mt('Forwarded message from').' '.   $dismsg=&mt('Forwarded message from').' '.
Line 1255  sub compout { Line 1475  sub compout {
  %content=&Apache::lonmsg::unpackagemsg($message{$replying},$folder);   %content=&Apache::lonmsg::unpackagemsg($message{$replying},$folder);
  $dispcrit.='<input type="hidden" name="replyid" value="'.   $dispcrit.='<input type="hidden" name="replyid" value="'.
     $replying.'" />';      $replying.'" />';
  $func=&mt('Send Reply to');   $func1='Send Reply to'; # do not translate here!
   
  $dissub=&mt('Reply').': '.$content{'subject'};          $dissub=&mt('Reply').': '.$content{'subject'};       
  $dismsg='> '.$content{'message'};   $dismsg='> '.$content{'message'};
Line 1265  sub compout { Line 1485  sub compout {
  if ($content{'baseurl'}) {   if ($content{'baseurl'}) {
     $disbase='<input type="hidden" name="baseurl" value="'.&escape($content{'baseurl'}).'" />';      $disbase='<input type="hidden" name="baseurl" value="'.&escape($content{'baseurl'}).'" />';
     if ($env{'user.adv'}) {      if ($env{'user.adv'}) {
  $disbase.='<label><input type="checkbox" name="storebasecomment" />'.&mt('Store message for re-use').   $disbase.='<label><input type="checkbox" name="storebasecomment" />'.&mt('Save message for re-use').
     '</label> <a href="/adm/email?showcommentbaseurl='.      '</label> <a href="/adm/email?showcommentbaseurl='.
     &escape($content{'baseurl'}).'" target="comments">'.      &escape($content{'baseurl'}).'" target="comments">'.
     &mt('Show re-usable messages').'</a><br />';      &mt('Show re-usable messages').'</a><br />';
     }      }
  }   }
           my $jscript = &Apache::loncommon::check_uncheck_jscript();
           $r->print(<<"ENDREPSCRIPT");
   <script type="text/javascript">
   // <![CDATA[
   $jscript
   // ]]>
   </script>
   ENDREPSCRIPT
     }      }
     my $citation=&displayresource(%content);      my $citation=&displayresource(%content);
     my ($can_grp_broadcast,$viewgrps,$editgrps);      my $onsubmit;
     if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; }      if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; }
     if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }      if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }
     if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }      if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }
       if ($hasfloat) {
           if ($env{'environment.wysiwygeditor'} eq 'on') {
               $r->print($broadcast_js);
           } else {
               $r->print($broadcast_js.'<div class="LC_left_float">');
           }
           $onsubmit = ' onsubmit="javascript:courseRecipients();" ';
       }
     $r->print(      $r->print(
                 '<form action="/adm/email"  name="compemail" method="post"'.                  '<form action="/adm/email"  name="compemail" method="post"'.
                 ' enctype="multipart/form-data">'."\n".                  ' enctype="multipart/form-data"'.$onsubmit.'>'."\n".
                 '<input type="hidden" name="sendmail" value="on" />'."\n");                  '<input type="hidden" name="sendmail" value="on" />'."\n".
     if ($broadcast eq 'group' && $env{'form.group'} ne '') {                  '<table>');
         $can_grp_broadcast =       if (($broadcast eq 'group') && ($group ne '') && (!$can_grp_broadcast)) {
                 &Apache::lonnet::allowed('sgb',$env{'request.course.id'}.'/'.  
                                          $group);  
         $viewgrps =   
                &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.  
                ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));  
         $editgrps =   
                &Apache::lonnet::allowed('mdg',$env{'request.course.id'}.  
                ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));  
         if ($viewgrps || $editgrps || $can_grp_broadcast) {  
             $r->print(&disgroup($cdom,$cnum,$group,$viewgrps,$editgrps));  
         }  
     }  
     $r->print('<table>');  
     if (($broadcast eq 'group') && ($group ne '') &&   
         (!$can_grp_broadcast && !$viewgrps && !$editgrps)) {  
         $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')) {
  if ($replying) {   if ($replying) {
     $r->print('<tr><td colspan="2">'.&mt('Replying to').' '.              if ($content{'noreplies'}) {
       &Apache::loncommon::aboutmewrapper(                  $r->print('<tr><td>'.&mt('This message was designated by the sender not to allow replies.').'</td></tr></table></form>');
                   return;
               }
               $r->print('<tr><td colspan="3"><b>'.&mt('Replying to').'</b> ');
               if ($content{'replytoaddr'}) {
                   my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
                   if ($replytoname ne '' && $replytodom ne '') {
                       $r->print(&Apache::loncommon::plainname($replytoname,
                                    $replytodom).' ('.$replytoname.':'.
                                    $replytodom.')');
                       $r->print('<input type="hidden" name="recuname" value="'.
                             $replytoname.'" />'.
                             '<input type="hidden" name="recdomain" value="'.
                             $replytodom.'" /></td></tr>');
   
                   } else {
                       $r->print(&mt('The sender did not designate a reply to address for this message.').'</td></tr></table>');
                       return;
                   }
               } else {
           $r->print(&Apache::loncommon::aboutmewrapper(
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('.   &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('.
       $content{'sendername'}.':'.        $content{'sendername'}.':'.
       $content{'senderdomain'}.')'.        $content{'senderdomain'}.')');
       '<input type="hidden" name="recuname" value="'.$content{'sendername'}.'" />'.                  $r->print('<input type="hidden" name="recuname" value="'.
       '<input type="hidden" name="recdomain" value="'.$content{'senderdomain'}.'" />'.            $content{'sendername'}.'" />'.
       '</td></tr>');            '<input type="hidden" name="recdomain" value="'.
                             $content{'senderdomain'}.'" /></td></tr>');
               }
               if ($content{'recipid'}) {
                   my %recips;
                   &retrieve_recips('replying',\%content,\%recips);
                   if (ref($recips{'to'}) eq 'ARRAY') {
                       if (@{$recips{'to'}} > 0) {
                           my $replyall;
                           if (@{$recips{'to'}} > 1) {
                               $replyall = qq|
    <span class="LC_nobreak">
         <input type="button" value="check all"
           onclick="javascript:checkAll(document.compemail.replying_to)" />
           &nbsp;&nbsp;
         <input type="button" value="uncheck all"
           onclick="javascript:uncheckAll(document.compemail.replying_to)" />
    </span>
   |;
                           }
                           my $tolist = join(' ',@{$recips{'to'}});
                           $r->print('<tr><td colspan="3"><table><tr><td>'.&mt('[_1]Send reply[_2] to other recipients','<b>','</b>').':<br />'.$replyall.'</td><td>'.$tolist.'</td></tr></table></td></tr>');
                       }
                   }
                   if (ref($recips{'cc'}) eq 'ARRAY') {
                       if (@{$recips{'cc'}} > 0) {
                           my $replyall;
                           if (@{$recips{'cc'}} > 1) {
                               $replyall = qq|
    <span class="LC_nobreak">
         <input type="button" value="check all"
           onclick="javascript:checkAll(document.compemail.replying_cc)" />
           &nbsp;&nbsp;
         <input type="button" value="uncheck all"
           onclick="javascript:uncheckAll(document.compemail.replying_cc)" />
    </span>
   |;
                           }
                           my $cclist = join(' ',@{$recips{'cc'}});
                           $r->print('<tr><td colspan="3"><table><tr><td>'.&mt('[_1]Cc[_2] to other copied recipients','<b>','</b>').':<br />'.$replyall.'</td><td>'.$cclist.'</td></tr></table></td></tr>');
                       }
                   }
                   if ($content{'group'} ne '') {
                       if (&check_group_priv($content{'group'})) {
                           if (ref($recips{'group_cc_broadcast'}) eq 'ARRAY') {
                               if (@{$recips{'group_cc_broadcast'}} > 0) {
                                   my $replyall;
                                   if (@{$recips{'group_cc_broadcast'}} > 1) {
                                       $replyall = qq|
    <span class="LC_nobreak">
         <input type="button" value="check all"
           onclick="javascript:checkAll(document.compemail.replying_groupcc)" />
           &nbsp;&nbsp;
         <input type="button" value="uncheck all"
           onclick="javascript:uncheckAll(document.compemail.replying_groupcc)" />
    </span>
   |;
                                   }
                                   my $groupcclist = join(' ',@{$recips{'group_cc_broadcast'}});
                                   $r->print('<tr><td colspan="3"><table><tr><td>'.&mt('[_1]Cc[_2] to other copied group members','<b>','</b>').':<br />'.$replyall.'</td><td>'.$groupcclist.'<input type="hidden" name="group" value="'.$content{'group'}.'" /><input type="hidden" name="sendmode" value="group" /><input type="hidden" name="groupmail" value="cc" /></td></tr></table></td></tr>');
                               }
                           }
                       }
                   }
               }
  } else {   } else {
             $r->print(&recipient_input_row($defdom,%lt));              $r->print(&recipient_input_row($defdom,%lt));
         }          }
     }      }
     my $latexHelp = Apache::loncommon::helpLatexCheatsheet();      my $latexHelp = &Apache::loncommon::helpLatexCheatsheet(undef,undef,1);
       my $wysiwyglink=&Apache::lonhtmlcommon::htmlareaselectactive('message').'<br />';
     my $subj_size;      my $subj_size;
     if ($multiforward) {      if ($multiforward) {
         $r->print(&additional_rec_row(\%lt));          $r->print(&additional_rec_row(\%lt));
Line 1322  sub compout { Line 1628  sub compout {
                   &mt('Unless you choose otherwise:').'<ul><li>'.                    &mt('Unless you choose otherwise:').'<ul><li>'.
         &mt("The subject in each forwarded message will be <i>'Forwarding:'</i> followed by the original subject.").'</li><li>'.          &mt("The subject in each forwarded message will be <i>'Forwarding:'</i> followed by the original subject.").'</li><li>'.
         &mt("The message itself will begin with a first line: <i>'Forwarded message from'</i> followed by the original sender's name.").'</li></ul></td></tr>');          &mt("The message itself will begin with a first line: <i>'Forwarded message from'</i> followed by the original sender's name.").'</li></ul></td></tr>');
         $func=&mt('Forward');          $func1='Forward'; # do not translate here!
         $dissub = &mt('Forwarding').': ';          $dissub = &mt('Forwarding').': ';
         $subj_size = '10';          $subj_size = '10';
         my $extra = '&lt;'.&mt('original subject').'&gt;&nbsp;&nbsp;&nbsp;'.          my $extra = '&lt;'.&mt('original subject').'&gt;&nbsp;&nbsp;&nbsp;'.
Line 1332  sub compout { Line 1638  sub compout {
         $r->print(&msg_subject_row($dissub,\%lt,$subj_size,$extra));          $r->print(&msg_subject_row($dissub,\%lt,$subj_size,$extra));
         $r->print('<tr><td>'.&mt('Message begins with:').'</td><td><input type="text" name="msgheader" value="'.$dismsg.'" />&nbsp;'.$sender.'&nbsp;&nbsp;&nbsp;<input type="radio" name="showorigsender" value="1" checked="checked" />'.&mt('Yes').'&nbsp;<input type="radio" name="showorigsender" value="0" />'.&mt('No').'<input type="hidden" name="multiforward" value="'.$multiforward.'" /></td></tr>          $r->print('<tr><td>'.&mt('Message begins with:').'</td><td><input type="text" name="msgheader" value="'.$dismsg.'" />&nbsp;'.$sender.'&nbsp;&nbsp;&nbsp;<input type="radio" name="showorigsender" value="1" checked="checked" />'.&mt('Yes').'&nbsp;<input type="radio" name="showorigsender" value="0" />'.&mt('No').'<input type="hidden" name="multiforward" value="'.$multiforward.'" /></td></tr>
 </table>  </table>
 <br />'.  <br /><table>
 $latexHelp.  <tr><td align="left">'."\n".
 &mt("Any new text to display before the text of the original messages:").'<br />  $latexHelp."<br />\n".
 <textarea name="message" id="message" cols="80" rows="5" wrap="hard">  &mt("Any new text to display before the text of the original messages:").'<br />'."\n".
 </textarea></p><br />');  '<textarea name="message" id="message" cols="80" rows="5" wrap="hard"></textarea>'.
   $wysiwyglink);
         my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');          my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');
         foreach my $msg (@to_forward) {          foreach my $msg (@to_forward) {
             $r->print('<input type="hidden" name="delmark" value="'.$msg.'" />');              $r->print('<input type="hidden" name="delmark" value="'.$msg.'" />');
         }          }
         $r->print(&submit_button_row($folder,$dismode,$func.' '.$lt{'msg'},          $r->print(&submit_button_row($folder,$dismode,&mt($func1.' '.$func2{'msg'}),
                                      \%lt));                                       \%lt));
     } elsif ($broadcast ne 'upload') {      } elsif ($broadcast ne 'upload') {
         $subj_size = '50';          $subj_size = '50';
         $r->print(&additional_rec_row(\%lt));          $r->print(&additional_rec_row(\%lt));
           if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})
               || &Apache::lonnet::allowed('srm',$env{'request.course.id'}.
                                           '/'.$env{'request.course.sec'})) {
               $r->print(&reply_to_row(\%lt));
           }
         $r->print(&msg_subject_row($dissub,\%lt,$subj_size));          $r->print(&msg_subject_row($dissub,\%lt,$subj_size));
         $r->print(<<"ENDCOMP");          $r->print(<<"ENDCOMP");
 </table>  $attachrow
 $latexHelp  </table><br />
   $latexHelp<br />
 <textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg  <textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg
 </textarea></p><br />  </textarea>$wysiwyglink
   $sendmode
 $dispcrit  $dispcrit
 $disbase  $disbase
 ENDCOMP  ENDCOMP
         $r->print(&submit_button_row($folder,$dismode,$func.' '.$lt{'ma'},          $r->print(&submit_button_row($folder,$dismode,&mt($func1.' '.$func2{'ma'}),
                                      \%lt));                                       \%lt,$hasfloat,$group));
         $r->print($citation);          $r->print($citation);
         if (exists($env{'form.ref'})) {          if (exists($env{'form.ref'})) {
             $r->print('<input type="hidden" name="ref" value="'.              $r->print('<input type="hidden" name="ref" value="'.
Line 1376  Subject: <input type="text" size="50" na Line 1690  Subject: <input type="text" size="50" na
 </p>  </p>
 <p>$lt{'gmt'}:<br />  <p>$lt{'gmt'}:<br />
 <textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg  <textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg
 </textarea></p>  </textarea>$wysiwyglink</p>
 <p>  <p>
 $lt{'tff'}:  $lt{'tff'}:
 ENDBLOCK  ENDBLOCK
Line 1397  $dispcrit Line 1711  $dispcrit
 <input type="submit" value="$lt{'uas'}" /></p>  <input type="submit" value="$lt{'uas'}" /></p>
 ENDUPLOAD  ENDUPLOAD
     }      }
     if ($broadcast eq 'group') {  
        if ($group eq '') {  
            my $studentsel = &discourse();  
            $r->print($studentsel);  
        }  
     }  
     if ($env{'form.displayedcrit'}) {      if ($env{'form.displayedcrit'}) {
  $r->print('<input type="hidden" name="displayedcrit" value="true" />');   $r->print('<input type="hidden" name="displayedcrit" value="true" />');
     }      }
     $r->print('</form>'.      $r->print('</form>');
       &Apache::lonfeedback::generate_preview_button('compemail','message').      if ($hasfloat) {
       &Apache::lonhtmlcommon::htmlareaselectactive('message'));          unless($env{'environment.wysiwygeditor'} eq 'on') {
               $r->print('</div><div class="LC_clear_float_footer"></div>');
           }
       }
       $r->print(&generate_preview_form);
   }
   
   sub check_group_priv {
       my ($group) = @_;
       my $cid = $env{'request.course.id'};
       my $sec = $env{'request.course.sec'};
       return if !$cid;
       my $can_broadcast = &Apache::lonnet::allowed('sgb',$cid.'/'.$group);
       my $viewgrps = &Apache::lonnet::allowed('vcg',$cid.($sec?'/'.$sec:''));
       my $editgrps = &Apache::lonnet::allowed('mdg',$cid.($sec?'/'.$sec:''));
       if ($viewgrps || $editgrps || $can_broadcast) {
           return 1;
       }
       return;
 }  }
   
 # ---------------------------------------------------- Display all face to face  
   
 sub recipient_input_row {  sub recipient_input_row {
     my ($dom,%lt) = @_;      my ($dom,%lt) = @_;
     my $domform = &Apache::loncommon::select_dom_form($dom,'recdomain');      my $domform = &Apache::loncommon::select_dom_form($dom,'recdomain');
Line 1420  sub recipient_input_row { Line 1744  sub recipient_input_row {
       &Apache::loncommon::selectstudent_link('compemail','recuname',        &Apache::loncommon::selectstudent_link('compemail','recuname',
                                              'recdomain');                                               'recdomain');
     my $output = <<"ENDREC";      my $output = <<"ENDREC";
 <tr><td>$lt{'us'}:</td><td><input type="text" size="12" name="recuname" value="$env{'form.recname'}" /></td><td rowspan="2">$selectlink</td></tr>  <tr><td colspan="3"><span class="LC_nobreak"><b>$lt{'to'}</b> $lt{'us'}:&nbsp;<input type="text" size="12" name="recuname" value="$env{'form.recname'}" />&nbsp;$lt{'do'}:&nbsp;$domform&nbsp;&nbsp;$selectlink</span></td></tr>
 <tr><td>$lt{'do'}:</td>  
 <td>$domform</td></tr>  
 ENDREC  ENDREC
     return $output;      return $output;
 }  }
   
   sub reply_to_row {
       my ($lt) = @_;
       my $radioyes = &mt('Yes');
       my $radiono = &mt('No');
       my $output = <<"ENDREP";
   <tr><td colspan="3"><span class="LC_nobreak"><b>$lt->{'ar'}</b>:<label><input type="radio" name="can_reply" value="Y" checked="checked" />$radioyes</label>&nbsp;&nbsp;<label><input type="radio" name="can_reply" value="N" />$radiono</label></span>&nbsp;&nbsp;&nbsp;&nbsp;<span class="LC_nobreak">$lt->{'rt'}:&nbsp;<input type="text" size="25" name="reply_to_addr" value="$env{'user.name'}:$env{'user.domain'}" /></span></td></tr>
   ENDREP
       return $output;
   }
   
 sub additional_rec_row {  sub additional_rec_row {
     my ($lt) = @_;      my ($lt) = @_;
       my $cc = &mt('Cc:');
       my $bcc = &mt('Bcc:');
       my $exmpl = &mt('username:domain,username:domain,...'); 
     my $output = <<"ENDADD";      my $output = <<"ENDADD";
 <tr><td>$lt->{'ad'}:<br /><tt>username:domain,username:domain, ...  <tr><td colspan="3"><fieldset id="LC_additionalrecips"><legend>$lt->{'ad'} <tt>($exmpl)</tt></legend><table>
 </tt></td><td>  <tr><td>&nbsp;</td><td>$lt->{'to'}</td><td><input type="text" size="50" name="additionalrec_to" /></td></tr>
 <input type="text" size="50" name="additionalrec" /></td></tr>  <tr><td>&nbsp;</td><td>$cc</td><td><input type="text" size="50" name="additionalrec_cc" /></td></tr> 
   <tr><td>&nbsp;</td><td>$bcc</td><td><input type="text" size="50" name="additionalrec_bcc" /></td></tr></table></fieldset></td></tr>
 ENDADD  ENDADD
     return $output;      return $output;
 }  }
   
 sub submit_button_row {  sub submit_button_row {
     my ($folder,$dismode,$sendtext,$lt) = @_;      my ($folder,$dismode,$sendtext,$lt,$is_crsform,$group) = @_;
     my $output = qq|       my $pre=&mt("Show Preview and Check Spelling");
       my $value=&mt('Send');
       my $prevbutton = '<input type="button" name="preview" value="'.$pre.'" onclick="if (typeof(document.compemail.onsubmit)=='."'function'".') {document.compemail.onsubmit();};document.preview.comment.value=document.compemail.message.value;document.preview.subject.value=document.compemail.subject.value;document.preview.submit();" />';
       my $output = qq|
 <input type="hidden" name="folder" value="$folder" />  <input type="hidden" name="folder" value="$folder" />
 <input type="hidden" name="dismode" value="$dismode" />  <input type="hidden" name="dismode" value="$dismode" />|;
 <input type="submit" name="send" value="$sendtext" />      if ($is_crsform) {
 <input type="submit" name="cancel" value="$lt->{'ca'}" /><hr />          $output .= '<input type="hidden" name="courserecips" value="" />'."\n";
           if ($group ne '') {
               $output .= '<input type="hidden" name="groupmail" value="" />'."\n";
           }
       }
       $output .= qq|
   <table><tr><td align="left">
   <input type="submit" name="send" value="$value" title="$sendtext" />
   <input type="submit" name="cancel" value="$lt->{'ca'}" />
   </td><td width="60">&nbsp;</td><td align="right">$prevbutton</td></tr></table>
 |;  |;
     return $output;      return $output;
 }  }
   
 sub msg_subject_row {  sub msg_subject_row {
     my ($dissub,$lt,$subj_size,$extra) = @_;      my ($dissub,$lt,$subj_size,$extra) = @_;
     my $output = '<tr><td>'.$lt->{'sb'}.':</td><td><input type="text" size="'.      my $output = '<tr><td colspan="3"><b>'.$lt->{'sb'}.'</b>:&nbsp;<input type="text" size="'.
                  $subj_size.'" name="subject" value="'.$dissub.'" />'.$extra.                   $subj_size.'" name="subject" value="'.$dissub.'" />'.$extra.
                  '</td></tr>';                   '</td></tr>';
     return $output;      return $output;
 }  }
   
   sub generate_preview_form {
       my $prevbutton = (<<ENDPREVIEW);
   <form name="preview" action="/adm/feedback?preview=1" method="post" target="preview">
   <input type="hidden" name="subject" />
   <input type="hidden" name="comment" />
   </form>
   ENDPREVIEW
   }
   
   # ---------------------------------------------------- Display all face to face
   
 sub retrieve_instructor_comments {  sub retrieve_instructor_comments {
     my ($user,$domain)=@_;      my ($user,$domain)=@_;
     my $target=$env{'form.grade_target'};      my $target=$env{'form.grade_target'};
Line 1484  sub retrieve_instructor_comments { Line 1843  sub retrieve_instructor_comments {
 }  }
   
 sub disfacetoface {  sub disfacetoface {
     my ($r,$user,$domain)=@_;      my ($r,$user,$domain,$target)=@_;
     my $target=$env{'form.grade_target'};      if ($target eq '') {
           $target=$env{'form.grade_target'};
       }
     unless ($env{'request.course.id'}) { return; }      unless ($env{'request.course.id'}) { return; }
     if  (!&Apache::lonnet::allowed('dff',$env{'request.course.id'})      if  (!&Apache::lonnet::allowed('dff',$env{'request.course.id'})
  && ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}.   && ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
Line 1497  sub disfacetoface { Line 1858  sub disfacetoface {
  $env{'course.'.$env{'request.course.id'}.'.domain'},   $env{'course.'.$env{'request.course.id'}.'.domain'},
  $env{'course.'.$env{'request.course.id'}.'.num'},   $env{'course.'.$env{'request.course.id'}.'.num'},
                          '%255b'.$user.'%253a'.$domain.'%255d');                           '%255b'.$user.'%253a'.$domain.'%255d');
     my $result='';      my $result='<div>';
     foreach my $key (sort(keys(%records))) {      foreach my $key (sort(keys(%records))) {
         my %content=&Apache::lonmsg::unpackagemsg($records{$key});          my %content=&Apache::lonmsg::unpackagemsg($records{$key});
         next if ($content{'senderdomain'} eq '');          next if ($content{'senderdomain'} eq '');
  &Apache::lonfeedback::newline_to_br(\$content{'message'});      if (!&Apache::lonfeedback::contains_block_html($content{'message'})) {
    &Apache::lonfeedback::newline_to_br(\$content{'message'});
    }
         if ($content{'subject'}=~/^Record/) {          if ($content{'subject'}=~/^Record/) {
     $result.='<h3>'.&mt('Record').'</h3>';      $result.='<h3>'.&mt('Record').'</h3>';
         } elsif ($content{'subject'}=~/^Broadcast/) {          } elsif ($content{'subject'}=~/^Broadcast/) {
Line 1517  sub disfacetoface { Line 1880  sub disfacetoface {
                     '<b>'.&mt('Subject').': '.$content{'subject'}.'</b><br />'.                      '<b>'.&mt('Subject').': '.$content{'subject'}.'</b><br />'.
                     $content{'message'};                      $content{'message'};
                 }                  }
             }                  }
           } elsif ($content{'subject'}=~/^Archive/) {
               $result.='<h3>'.&mt('Archived Message').'</h3>';
               if (defined($content{'coursemsgid'})) {
                   my $crsmsgid = &escape($content{'coursemsgid'});
                   my $archive_message = &general_message($crsmsgid);
                   $content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$archive_message;
               } else {
                   %content=&Apache::lonmsg::unpackagemsg($content{'message'});
                   $content{'message'} =
                   '<b>'.&mt('Subject').': '.$content{'subject'}.'</b><br
   '.
                   $content{'message'};
               }
         } else {          } else {
             $result.='<h3>'.&mt('Critical Message').'</h3>';              $result.='<h3>'.&mt('Critical Message').'</h3>';
             if (defined($content{'coursemsgid'})) {              if (defined($content{'coursemsgid'})) {
Line 1542  $content{'sendername'}.':'. Line 1918  $content{'sendername'}.':'.
      }       }
     # Check to see if there were any messages.      # Check to see if there were any messages.
     if ($result eq '') {      if ($result eq '') {
         my $lctype = lc(&Apache::loncommon::course_type());          my $lctype = &mt(lc(&Apache::loncommon::course_type()));
  if ($target ne 'tex') {    if ($target ne 'tex') { 
     $r->print("<p><b>".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."</b></p>");      $r->print("<p><b>".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."</b></p>");
  } else {   } else {
     $r->print('\textbf{'.&mt('No notes, face-to-face discussion records, critical messages or broadcast messages in this [_1].',$lctype).'}\\\\');      $r->print('\textbf{'.&mt('No notes, face-to-face discussion records, critical messages or broadcast messages in this [_1].',$lctype).'}\\\\');
  }   }
       } elsif ($target ne 'tex') {
          $r->print($result.'</div>');
     } else {      } else {
        $r->print($result);   $r->print(&Apache::lonxml::xmlparse($r, 'tex', $result));
     }   }
 }  }
   
 sub general_message {  sub general_message {
Line 1576  sub facetoface { Line 1954  sub facetoface {
  return;   return;
     }      }
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
     my $leaders = ($crstype eq 'Group') ? 'coordinators and leaders'      my $leaders = ($crstype eq 'Community') ? 'coordinators and leaders'
                                         : 'faculty and staff';                                              : 'faculty and staff';
     &printheader($r,      &printheader($r,
  '/adm/email?recordftf=query',   '/adm/email?recordftf=query',
  "User Notes, Face-to-Face, Critical Messages, Broadcast Messages");   "User Notes, Face-to-Face, Critical Messages, Broadcast Messages, Archived Messages");
 # from query string  # from query string
   
     if ($env{'form.recname'}) { $env{'form.recuname'}=$env{'form.recname'}; }      if ($env{'form.recname'}) { $env{'form.recuname'}=$env{'form.recname'}; }
Line 1595  sub facetoface { Line 1973  sub facetoface {
  ('stdselect','recuname','recdomain');   ('stdselect','recuname','recdomain');
     my %lt=&Apache::lonlocal::texthash('user' => 'Username',      my %lt=&Apache::lonlocal::texthash('user' => 'Username',
        'dom' => 'Domain',         'dom' => 'Domain',
        'head' => "User Notes, Records of Face-To-Face Discussions, Critical Messages, and Broadcast Messages in $crstype",         'head' => "User Notes, Records of Face-To-Face Discussions, Critical Messages, Broadcast Messages and Archived Messages in $crstype",
        'subm' => 'Retrieve discussion and message records',         'subm' => 'Retrieve discussion and message records',
        'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',         'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',
        'post' => 'Post this Record');         'post' => 'Post this Record');
     $r->print(<<"ENDTREC");  
 <h3>$lt{'head'}</h3>      $r->print('<h2>'.$lt{'head'}.'</h2>'
 <form method="post" action="/adm/email" name="stdselect">               .'<form method="post" action="/adm/email" name="stdselect">'
 <input type="hidden" name="recordftf" value="retrieve" />               .'<input type="hidden" name="recordftf" value="retrieve" />'
 <table>               .&Apache::lonhtmlcommon::start_pick_box()
 <tr><td>$lt{'user'}:</td><td><input type="text" size="12" name="recuname" value="$env{'form.recuname'}" /></td>               .&Apache::lonhtmlcommon::row_title($lt{'user'})
 <td rowspan="2">               .'<input type="text" size="12" name="recuname" value="'.$env{'form.recuname'}.'" />'
 $stdbrws               .' '.$stdbrws
 <input type="submit" value="$lt{'subm'}" /></td>               .&Apache::lonhtmlcommon::row_closure()
 </tr>               .&Apache::lonhtmlcommon::row_title($lt{'dom'})
 <tr><td>$lt{'dom'}:</td>               .$domform
 <td>$domform</td></tr>               .&Apache::lonhtmlcommon::row_closure(1)
 </table>               .&Apache::lonhtmlcommon::end_pick_box()
 </form>               .'<br />'
 ENDTREC               .'<input type="submit" value="'.$lt{'subm'}.'" />'
       );
   
     if (($stage ne 'query') &&      if (($stage ne 'query') &&
         ($env{'form.recdomain'}) && ($env{'form.recuname'})) {          ($env{'form.recdomain'}) && ($env{'form.recuname'})) {
         chomp($env{'form.newrecord'});          chomp($env{'form.newrecord'});
Line 1622  ENDTREC Line 2002  ENDTREC
       $env{'form.recuname'},        $env{'form.recuname'},
       $env{'form.recdomain'});        $env{'form.recdomain'});
         }          }
         $r->print('<h3>'.&Apache::loncommon::plainname($env{'form.recuname'},          my $aboutmelink=&Apache::loncommon::aboutmewrapper(
      $env{'form.recdomain'}).'</h3>');                              &Apache::loncommon::plainname($env{'form.recuname'}
                                                            ,$env{'form.recdomain'})
                              ,$env{'form.recuname'},$env{'form.recdomain'});
           $r->print('<hr />'
                    .'<h2>'
                    .&mt('Discussion and message records for [_1] ([_2])'
                        ,$aboutmelink
                        ,$env{'form.recuname'}.':'.$env{'form.recdomain'})
                    .'<h2>'
          );
         &disfacetoface($r,$env{'form.recuname'},$env{'form.recdomain'});          &disfacetoface($r,$env{'form.recuname'},$env{'form.recdomain'});
  $r->print(<<ENDRHEAD);   $r->print(<<ENDRHEAD);
 <form method="post" action="/adm/email">  <form method="post" action="/adm/email">
Line 1652  sub examblock { Line 2041  sub examblock {
  $r->print('Not allowed');   $r->print('Not allowed');
  return;   return;
     }      }
     my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members'      my $usertype;
                                                           : 'students';      my $crstype = &Apache::loncommon::course_type();
       if ($crstype eq 'Community') {
           $usertype = 'members';
       } else {
    $usertype = 'students';
       }
       my $lctype = lc($crstype);
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
             'comb' => 'Communication Blocking',              'comb' => 'Communication Blocking',
             'cbds' => 'Communication blocking during scheduled exams',              'cbds' => 'Communication blocking during scheduled exams',
             'desc' => "You can use communication blocking to prevent $usertype enrolled in this course from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.",              'desc' => "You can use communication blocking to prevent $usertype enrolled in this $lctype from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course or community, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.",
              'mecb' => 'Modify existing communication blocking periods',               'mecb' => 'Modify existing communication blocking periods',
              'ncbc' => 'No communication blocks currently stored',               'ncbc' => 'No communication blocks currently saved',
              'stor' => 'Store',               'stor' => 'Save',
     );      );
   
     my %ltext = &Apache::lonlocal::texthash(      my %ltext = &Apache::lonlocal::texthash(
Line 1834  sub display_blocker_status { Line 2229  sub display_blocker_status {
     <th>$ltext->{'setb'}</th>      <th>$ltext->{'setb'}</th>
     <th>$ltext->{'even'}</th>      <th>$ltext->{'even'}</th>
     <th>$ltext->{'blck'}</th>      <th>$ltext->{'blck'}</th>
     <th>$ltext->{'actn'}?</th>      <th>$ltext->{'actn'}</th>
   </tr>    </tr>
 END  END
     foreach my $record (sort(keys(%{$records}))) {      foreach my $record (sort(keys(%{$records}))) {
Line 1854  END Line 2249  END
                            $setuname,$setudom);                             $setuname,$setudom);
         $r->print(&Apache::loncommon::start_data_table_row());          $r->print(&Apache::loncommon::start_data_table_row());
         $r->print(<<"END");          $r->print(<<"END");
         <td>$ltext->{'star'}:&nbsp;$startform<br/>$ltext->{'endd'}:&nbsp;&nbsp;$endform</td>          <td>$ltext->{'star'}:&nbsp;$startform<br />$ltext->{'endd'}:&nbsp;&nbsp;$endform</td>
         <td>$settername</td>          <td>$settername</td>
         <td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$record" /></td>          <td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$record" /></td>
         <td>          <td>
Line 1862  END Line 2257  END
         foreach my $block (@{$typeorder}) {          foreach my $block (@{$typeorder}) {
             my $blockstatus = '';              my $blockstatus = '';
             if ($blocks->{$block} eq 'on') {              if ($blocks->{$block} eq 'on') {
                 $blockstatus = 'checked="true"';                  $blockstatus = 'checked="checked"';
             }              }
             $r->print('<label><input type="checkbox" name="'.$block.'_'.$parmcount.'" '.$blockstatus.' value="1" />'.$types->{$block}.'</label><br />');              $r->print('<label><input type="checkbox" name="'.$block.'_'.$parmcount.'" '.$blockstatus.' value="1" />'.$types->{$block}.'</label><br />');
         }          }
         $r->print(<<"END");          $r->print(<<"END");
         </td>                </td>      
         <td><label>$lt{'modi'}?&nbsp;<input type="checkbox" name="modify_$parmcount" /></label><br /><label>$lt{'canc'}?&nbsp;&nbsp;<input type="checkbox" name="cancel_$parmcount" /></label>          <td><span class="LC_nobreak"><label>
           <input type="checkbox" name="modify_$parmcount" />$lt{'modi'}
           </label><br />
           <label>
           <input type="checkbox" name="cancel_$parmcount" />$lt{'canc'}
           </label></span>
 END  END
         $r->print(&Apache::loncommon::end_data_table_row());          $r->print(&Apache::loncommon::end_data_table_row());
         $parmcount++;          $parmcount++;
Line 1905  END Line 2305  END
      <th>$ltext->{'dura'}</th>       <th>$ltext->{'dura'}</th>
      <th>$ltext->{'even'} $lt{'exam'}</th>       <th>$ltext->{'even'} $lt{'exam'}</th>
      <th>$ltext->{'blck'}</th>       <th>$ltext->{'blck'}</th>
      <th>$ltext->{'actn'}?</th>       <th>$ltext->{'actn'}</th>
    </tr>     </tr>
 END  END
     $r->print(&Apache::loncommon::start_data_table_row());      $r->print(&Apache::loncommon::start_data_table_row());
Line 1919  END Line 2319  END
      }       }
      $r->print(<<"END");       $r->print(<<"END");
      </td>        </td> 
      <td><label>$lt{'addb'}?&nbsp;<input type="checkbox" name="add_$parmcount" value="1" /></label></td>       <td><label>
        <input type="checkbox" name="add_$parmcount" value="1" />$lt{'addb'}
        </label></td>
 END  END
     $r->print(&Apache::loncommon::end_data_table_row());      $r->print(&Apache::loncommon::end_data_table_row());
     $r->print(&Apache::loncommon::end_data_table());      $r->print(&Apache::loncommon::end_data_table());
Line 1929  END Line 2331  END
 sub blocktype_text {  sub blocktype_text {
     my %types = &Apache::lonlocal::texthash(      my %types = &Apache::lonlocal::texthash(
         'com' => 'Messaging',          'com' => 'Messaging',
         'chat' => 'Chat',          'chat' => 'Chat Room',
         'boards' => 'Discussion',          'boards' => 'Discussion',
         'port' => 'Portfolio',          'port' => 'Portfolio',
         'groups' => 'Groups',          'groups' => 'Groups',
Line 1954  sub displaymessage { Line 2356  sub displaymessage {
     my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);      my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);
     if ( $blocked{$msgid} eq 'ON' ) {      if ( $blocked{$msgid} eq 'ON' ) {
         &printheader($r,'/adm/email',&mt('Display a Message'));          &printheader($r,'/adm/email',&mt('Display a Message'));
         $r->print(&mt('You attempted to display a message that is currently blocked because you are enrolled in one or more courses for which there is an ongoing online exam.'));          #$r->print(&mt('You attempted to display a message that is currently blocked because you are enrolled in one or more courses for which there is an ongoing online exam.'));
         &build_block_table($r,$startblock,$endblock,\%setters);          #&build_block_table($r,$startblock,$endblock,\%setters);
           my($blocked, $blocktext) = &Apache::loncommon::blocking_status("com");
           $r->print("<br />".$blocktext);
         return;          return;
     }      }
     if ($msgstatus eq '') {      if ($msgstatus eq '') {
Line 1963  sub displaymessage { Line 2367  sub displaymessage {
     }      }
     my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);      my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
     my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});      my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});
   
     my $counter=0;      my $counter=0;
     $r->print('<pre>');  
     my $escmsgid=&escape($msgid);      my $escmsgid=&escape($msgid);
     foreach (@messages) {      foreach (@messages) {
  if ($_->[5] eq $escmsgid){   if ($_->[5] eq $escmsgid){
Line 1973  sub displaymessage { Line 2375  sub displaymessage {
  }   }
  $counter++;   $counter++;
     }      }
     $r->print('</pre>');  
       my $see_anonymous;
       my $from_student = 0;
       if ($env{'request.course.id'} eq $content{'courseid'}) {
    my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
    my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
    my $username = $content{'sendername'}.':'.$content{'senderdomain'};
    my %classlist_entry =
       &Apache::lonnet::get('classlist',[$username],$cdom,$cnum);
    if (exists($classlist_entry{$username})) {
       $from_student = 1;
       $see_anonymous = &Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
    }
       }
   
   
     my $number_of_messages = scalar(@messages); #subtract 1 for last index      my $number_of_messages = scalar(@messages); #subtract 1 for last index
 # start output  # start output
     &printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'});      &printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'});
     my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});      my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
 # Functions  
     $r->print('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'.  # Prepare available functions
       '<td><a href="/adm/email?replyto='.&escape($msgid).$sqs.      my @functionlist;
       '"><b>'.&mt('Reply').'</b></a></td>'.      if (!$content{'noreplies'}) {
       '<td><a href="/adm/email?forward='.&escape($msgid).$sqs.          push(@functionlist,'<a href="/adm/email?replyto='.&escape($msgid).$sqs.'">'
       '"><b>'.&mt('Forward').'</b></a></td>'.                       .&mt('Reply')
       '<td><a href="/adm/email?markunread='.&escape($msgid).$sqs.                       .'</a>');
       '"><b>'.&mt('Mark Unread').'</b></a></td>'.      }
       '<td><a href="/adm/email?markdel='.&escape($msgid).$sqs.      push(@functionlist,'<a href="/adm/email?forward='.&escape($msgid).$sqs.'">'
       '"><b>'.&mt('Delete').'</b></a></td>'.                    .&mt('Forward')
       '<td><a href="/adm/email?'.$sqs.                    .'</a>');
       '"><b>'.&mt('Back to Folder Display').'</b></a></td>');      push(@functionlist,'<a href="/adm/email?markunread='.&escape($msgid).$sqs.'">'
                     .&mt('Mark Unread')
                     .'</a>');
       push(@functionlist,'<a href="/adm/email?markdel='.&escape($msgid).$sqs.'">'
                     .&mt('Delete')
                     .'</a>');
       push(@functionlist,'<a href="/adm/email?'.$sqs.'">'
                     .&mt('Back to Folder Display')
                     .'</a>');
     if ($counter > 0){      if ($counter > 0){
  $r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.          push(@functionlist,'<a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.'">'
   '"><b>'.&mt('Previous').'</b></a></td>');                            .&mt('Previous')
                             .'</a>');
     }      }
     if ($counter < $number_of_messages - 1){      if ($counter < $number_of_messages - 1){
  $r->print('<td><a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs.          push(@functionlist,'<a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs.'">'
   '"><b>'.&mt('Next').'</b></a></td>');                            .&mt('Next')
                             .'</a>');
     }      }
     $r->print('</tr></table>');  
   # Prepare available actions
     my $symb;      my $symb;
     if (defined($content{'symb'})) {      if (defined($content{'symb'})) {
         $symb = $content{'symb'};          $symb = $content{'symb'};
     } elsif (defined($content{'baseurl'})) {      } elsif (defined($content{'baseurl'})) {
         $symb=&Apache::lonnet::symbread($content{'baseurl'});          $symb=&Apache::lonnet::symbread($content{'baseurl'});
     }      }
           my @actionlist;
     if ($env{'user.adv'}) {      if ($env{'user.adv'}) {
  $r->print('<table border="2" width="100%"><tr bgcolor="#FFAAAA"><td>'.&mt('Currently available actions (will open extra window)').':</td>');  
  if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {   if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
  $r->print('<td><b>'.&Apache::loncommon::track_student_link(&mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check').'</b></td>');   push(@actionlist,&Apache::loncommon::track_student_link(
     }                                        &mt('View recent activity')
                                        ,$content{'sendername'}
                                        ,$content{'senderdomain'}
                                        ,'check'));
    }
  if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {   if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {
     $r->print('<td><b>'.&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');      push(@actionlist,&Apache::loncommon::pprmlink(
                                     &mt('Set/Change parameters')
                                        ,$content{'sendername'}
                                        ,$content{'senderdomain'}
                                        ,$symb
                                        ,'check'));
  }   }
  if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {   if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {
     $r->print('<td><b>'.&Apache::loncommon::pgrdlink(&mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');      push(@actionlist,&Apache::loncommon::pgrdlink(
                                    &mt('Set/Change grades')
                                        ,$content{'sendername'}
                                        ,$content{'senderdomain'}
                                        ,$symb
                                        ,'check'));
  }   }
  $r->print('</tr></table>');  
     }      }
     my $tolist;  
     my @recipients = ();  # Print functionlist and actionlist in page header
     for (my $i=0; $i<@{$content{'recuser'}}; $i++) {          my $functions='<div class="LC_columnSection">';
         $recipients[$i] =  &Apache::loncommon::aboutmewrapper(  
            &Apache::loncommon::plainname($content{'recuser'}[$i],          # Functionlist
           $functions.=&Apache::lonhtmlcommon::start_funclist();
           foreach my $item (@functionlist) {
               $functions.=&Apache::lonhtmlcommon::add_item_funclist($item);
           }
           $functions .= &Apache::lonhtmlcommon::end_funclist();
   
           # Actionlist
           if (@actionlist) {
               my $legendtext=&mt('Currently available actions (will open extra window)');
               $functions.=&Apache::lonhtmlcommon::start_funclist($legendtext);
               foreach my $item (@actionlist) {
                   $functions.=&Apache::lonhtmlcommon::add_item_funclist($item);
               }
               $functions.=&Apache::lonhtmlcommon::end_funclist();
           }
   
           $functions.='</div>';
           $r->print(&Apache::loncommon::head_subbox($functions));
   
   
       my ($tonum,$tolist,$cclist,$bcclist,$groupcclist,%recipients);
       if ($content{'recipid'}) {
           $tonum = &retrieve_recips('display',\%content,\%recipients);
           if (ref($recipients{'cc'}) eq 'ARRAY') {
               $cclist = join(', ',@{$recipients{'cc'}});
           }
           if (ref($recipients{'to'}) eq 'ARRAY') {
               $tolist = join(', ',@{$recipients{'to'}});
           }
           if (ref($recipients{'bcc'}) eq 'ARRAY') {
               $bcclist = join(', ',@{$recipients{'bcc'}});
           }
       }
   
       my $broadcast_link;
       if (($content{'courseid'}) && ($content{'recipid'} &&
           (ref($recipients{'course_broadcast'}) eq 'ARRAY') ||
           (ref($recipients{'group_cc_broadcast'}) eq 'ARRAY') ||
           (ref($recipients{'group_bcc_broadcast'}) eq 'ARRAY'))) {
           $broadcast_link = &recipients_link($r,\%content,\%recipients);
       }
   
       if (((!$tolist) && (!$broadcast_link)) && ref($content{'recuser'}) eq 'ARRAY') {
           my @recipients;
           for (my $i=0; $i<@{$content{'recuser'}}; $i++) {
               $recipients[$i] =  &Apache::loncommon::aboutmewrapper(
                  &Apache::loncommon::plainname($content{'recuser'}[$i],
                                       $content{'recdomain'}[$i]),                                        $content{'recdomain'}[$i]),
               $content{'recuser'}[$i],$content{'recdomain'}[$i]).                    $content{'recuser'}[$i],$content{'recdomain'}[$i]).
        ' ('.$content{'recuser'}[$i].' at '.$content{'recdomain'}[$i].') ';             ' ('.$content{'recuser'}[$i].':'.$content{'recdomain'}[$i].') ';
           }
           $tolist = join(', ',@recipients);
     }      }
     $tolist = join(', ',@recipients);  
     my ($restitle,$baseurl,$refers_to);      my ($restitle,$baseurl,$refers_to);
     if (defined($content{'resource_title'})) {      if (defined($content{'resource_title'})) {
         $restitle = $content{'resource_title'};          $restitle = $content{'resource_title'};
Line 2039  sub displaymessage { Line 2529  sub displaymessage {
     if (defined($content{'baseurl'})) {      if (defined($content{'baseurl'})) {
         $baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'});          $baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'});
     }      }
     $r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}.      $r->print('<div class="LC_clear_float_footer">');
       ($folder ne 'sent'?'<br /><b>'.&mt('From').':</b> '.      if ($from_student && $see_anonymous ) {
       &Apache::loncommon::aboutmewrapper(   $r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}).'</br>');
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),      }
  $content{'sendername'},$content{'senderdomain'}).' ('.  
       $content{'sendername'}.' at '.      # Display LON-CAPA Message (Start)
       $content{'senderdomain'}.') ':'<br /><b>'.&mt('To').':</b> '.      # Subject
               $tolist).      $r->print('</div>'
       ($content{'courseid'}?'<br /><b>'.&mt($crstype).':</b> '.$courseinfo{'description'}.               .&Apache::lonhtmlcommon::start_pick_box()
        ($content{'coursesec'}?' ('.&mt('Section').': '.$content{'coursesec'}.')':''):'').               .&Apache::lonhtmlcommon::row_title(&mt('Subject'))
       '<br /><b>'.&mt('Time').':</b> '.$content{'time'});               .$content{'subject'}
                .&Apache::lonhtmlcommon::row_closure()
       );
       if ($folder eq 'sent') {
           # To
           if ($tolist) {
               $r->print(&Apache::lonhtmlcommon::row_title(&mt('To'))
                        .$tolist
                        .&Apache::lonhtmlcommon::row_closure()
               );
           }
           if ($cclist) {
               $r->print(&Apache::lonhtmlcommon::row_title(&mt('Cc'))
                        .$cclist
                        .&Apache::lonhtmlcommon::row_closure()
               );
           }
           if ($bcclist) {
               $r->print(&Apache::lonhtmlcommon::row_title(&mt('Bcc'))
                        .$bcclist
                        .&Apache::lonhtmlcommon::row_closure()
               );
           }
           if (($content{'courseid'}) && ($content{'recipid'})) {
               my %broadcast_types = 
                   &Apache::lonlocal::texthash (
                       course_broadcast    => 'Broadcast to', 
                       group_cc_broadcast  => 'Cc to group',
                       group_bcc_broadcast => 'Bcc to group',
                   );                   
               foreach my $type (sort(keys(%broadcast_types))) {
                   if (ref($recipients{$type}) eq 'ARRAY') {
                       my $num = @{$recipients{$type}};
                       my $broadcastlist = join(', ',@{$recipients{$type}});
                       if ($broadcastlist && $broadcast_link) {
                           if ($type eq 'group_cc_broadcast') {
                               $groupcclist = $broadcastlist;
                           }
                           $r->print(&Apache::lonhtmlcommon::row_title(
                                               $broadcast_types{$type})
                                     .&mt('[quant,_1,recipient]',$num)
                                     .' <a href="javascript:showBroadcastList();">['
                                     .&mt('Show').']</a>' 
                                     .&Apache::lonhtmlcommon::row_closure());
                       }
                   }
               }
           }
           if ($content{'replytoaddr'}) {
               my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
               if ($replytoname ne '' && $replytodom ne '') {
                   $r->print(&Apache::lonhtmlcommon::row_title(&mt('Reply To'))
                            .$replytoname.':'.$replytodom
                            .&Apache::lonhtmlcommon::row_closure()
                   );
               }
           }
       } else {
           # From, Reply
           $r->print(&Apache::lonhtmlcommon::row_title(&mt('From'))
                    .&Apache::loncommon::aboutmewrapper(
                        &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
                                                    $content{'sendername'},$content{'senderdomain'})
           );
           if ($content{'noreplies'}) {
               $r->print(' ('.&mt('No replies to sender').')'
                        .&Apache::lonhtmlcommon::row_closure()
               );
           } else {
               if ($content{'replytoaddr'}) {
                   my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
                   if ($replytoname ne '' && $replytodom ne '') {
                       $r->print(&Apache::lonhtmlcommon::row_closure()
                                .&Apache::lonhtmlcommon::row_title(&mt('Reply To'))
                                .$replytoname.':'.$replytodom
                                .&Apache::lonhtmlcommon::row_closure()
                       );
                   } else {
                       $r->print(&Apache::lonhtmlcommon::row_closure());
                   }
               } else {
                   $r->print(' ('.$content{'sendername'}.':'.$content{'senderdomain'}.') '
                            .&Apache::lonhtmlcommon::row_closure()
                   );
               }
               if ($tonum && $tolist) {
                   $r->print(&Apache::lonhtmlcommon::row_title(&mt('To'))
                            .$tolist
                            .&Apache::lonhtmlcommon::row_closure()
                       );
               }
               if ($cclist) { 
                   $r->print(&Apache::lonhtmlcommon::row_title(&mt('Cc'))
                            .$cclist
                            .&Apache::lonhtmlcommon::row_closure()
                       );
               }
               if ($content{'group'} ne '') {
                   if (&check_group_priv($content{'group'})) {
                       $groupcclist = join(', ',@{$recipients{'group_cc_broadcast'}});
                       if ($groupcclist) {
                           $r->print(&Apache::lonhtmlcommon::row_title(&mt('Group Cc'))
                                    .$groupcclist
                                    .&Apache::lonhtmlcommon::row_closure()
                           );
                       }
                   }
               }
           }
       }
   
       # Course
       if ($content{'courseid'}) {
           $r->print(&Apache::lonhtmlcommon::row_title(&mt($crstype))
                    .$courseinfo{'description'}
           );
           if ($content{'coursesec'}) {
               $r->print(' ('.&mt('Section').': '.$content{'coursesec'}.')');
           }
           $r->print(&Apache::lonhtmlcommon::row_closure());
       }
       $r->print(&Apache::lonhtmlcommon::row_title(&mt('Time'))
                .$content{'time'}
                .&Apache::lonhtmlcommon::row_closure()
       );
   
       # Refers to
     if ($baseurl) {      if ($baseurl) {
         if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {          if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {
             if ($content{'courseid'} eq $env{'request.course.id'}) {              if ($content{'courseid'} eq $env{'request.course.id'}) {
Line 2067  sub displaymessage { Line 2683  sub displaymessage {
                 if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {                  if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
                     $showurl = $baseurl;                      $showurl = $baseurl;
                 }                  }
                 $r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$showurl.$symblink.'">'.$restitle.'</a>');                  $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                            .'<a href="'.$showurl.$symblink.'">'.$restitle.'</a>'
                            .&Apache::lonhtmlcommon::row_closure()
                   );
                 $refers_to = 1;                  $refers_to = 1;
             }              }
         }          }
Line 2080  sub displaymessage { Line 2699  sub displaymessage {
                                                         $content{'courseid'});                                                          $content{'courseid'});
                         if ($unencurl ne '') {                          if ($unencurl ne '') {
                             if (&Apache::lonnet::allowed('bre',$unencurl)) {                              if (&Apache::lonnet::allowed('bre',$unencurl)) {
                                 $r->print('<br /><b>'.&mt('Refers to').                                  $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                                           ':</b> <a href="'.$unencurl.'">'.                                           .'<a href="'.$unencurl.'">'.$restitle.'</a>'
                                           $restitle.'</a>');                                           .&Apache::lonhtmlcommon::row_closure()
                                   );
                             }                              }
                         }                          }
                     }                      }
                 }                  }
             } else {              } else {
                 if (&Apache::lonnet::allowed('bre',$baseurl)) {                  if (&Apache::lonnet::allowed('bre',$baseurl)) {
                     $r->print('<br /><b>'.&mt('Refers to').                      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                               ':</b> <a href="'.$baseurl.                               .'<a href="'.$baseurl.'">'.$restitle.'</a>'
                               '">'.$restitle.'</a>');                               .&Apache::lonhtmlcommon::row_closure()
                       );
   
                 }                  }
             }              }
         }          }
     }      }
     $r->print('<p><pre>'.  
       &Apache::lontexconvert::msgtexconverted($content{'message'},1).      # Message
       '</pre><hr />'.&displayresource(%content).'</p>');      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Message'))
                .'<pre>'
        .&Apache::lontexconvert::msgtexconverted($content{'message'},1)
        .'</pre>'
       );
       if (&displayresource(%content)) {
           $r->print(&Apache::lonhtmlcommon::row_closure()
                    .&Apache::lonhtmlcommon::row_title(&mt('Resource Details'))
                    .&displayresource(%content)
           );
       } 
       $r->print(&Apache::lonhtmlcommon::row_closure(1).
                 &Apache::lonhtmlcommon::end_pick_box());
       # Display LON-CAPA Message (End)
       return;
   }
   
   sub retrieve_recips {
       my ($context,$content,$recips)= @_;
       my $tonum = 0;
       if (ref($content) eq 'HASH') {
           my %reciphash =
               &Apache::lonnet::get('nohist_emailrecip',[$content->{'recipid'}],
                                    $content->{'senderdomain'},$content->{'sendername'});
           my $recipinfo = $reciphash{$content->{'recipid'}};
           if (ref($recipinfo) eq 'HASH') {
               foreach my $type ('to','cc','course_broadcast','group_cc_broadcast','group_bcc_broadcast') {
                   if (ref($recipinfo->{$type}) eq 'HASH') {
                       if ($type eq 'to') {
                           $tonum = keys(%{$recipinfo->{$type}});
                       }
                       foreach my $user (sort(keys(%{$recipinfo->{$type}}))) {
                           my ($uname,$udom) = split(/:/,$user);
                           next if (($context eq 'replying') && ($uname eq $env{'user.name'})
                                    && ($udom eq $env{'user.domain'}));
                           my $showuser ='<span class="LC_nobreak">';
                           if ($context eq 'replying') {
                               if (($type eq 'to') || ($type eq 'cc')) { 
                                   $showuser = '<label><input type="checkbox" name="replying_'.$type.'" value="'.$user.'" />';
                               } elsif ($type eq 'group_cc_broadcast') {
                                   $showuser = '<label><input type="checkbox" name="replying_groupcc" value="'.$user.'" />';
                               }
                           }
                           $showuser .= &Apache::loncommon::aboutmewrapper(
                                              &Apache::loncommon::plainname($uname,
                                              $udom),$uname,$udom);
           if ($context eq 'replying') {
               $showuser .='</label>';
           }
           $showuser .= '</span>';
                           if (ref($recips) eq 'HASH') {
               push(@{$recips->{$type}},$showuser);
                           }
                       }
                   }
               }
           }
       }
       return $tonum;
   }
   
   sub recipients_link {
       my ($r,$content,$recipients) = @_;
       my ($broadcast_link,$show);
       if ((ref($content) eq 'HASH') && (ref($recipients) eq 'HASH')) {
           if (ref($recipients->{'course_broadcast'}) eq 'ARRAY') {
               if (@{$recipients->{'course_broadcast'}} > 0) {
                   $show = 'course';
               }
           } elsif (ref($recipients->{'group_cc_broadcast'}) eq 'ARRAY') {
               if (@{$recipients->{'group_cc_broadcast'}} > 0) {
                   $show = 'group_cc';
               }
           } elsif (ref($recipients->{'group_bcc_broadcast'}) eq 'ARRAY') {
               if (@{$recipients->{'group_bcc_broadcast'}} > 0) {
                   $show = 'group_bcc';
               }
           }
           if ($show) {
               my ($nothing,$height,$width,$start_page,$end_page,$body);
               $nothing=&Apache::lonhtmlcommon::javascript_nothing();
               $height = 400;
               $width = 600;
               $start_page =
                   &Apache::loncommon::start_page('Broadcast List', undef,
                                                  {only_body => 1,
                                                   js_ready  => 1,});
               $end_page = &Apache::loncommon::end_page({js_ready => 1,});
               $body = '<h3>'.&mt("Recipients of broadcast message").'</h3>'.
                       &Apache::loncommon::start_data_table();
               my $cell = 0;
               $body .= &Apache::loncommon::start_data_table_row();
               foreach my $item (@{$recipients->{$show.'_broadcast'}}) {
                   $item =~ s/'/\\'/g;
                   if (!($cell%2) && $cell > 0) {
                       $body .= &Apache::loncommon::end_data_table_row().
                                &Apache::loncommon::start_data_table_row();
                   }
                   $cell ++;
                   $body .= '<td>'.$cell.'&nbsp;'.$item.'&nbsp;&nbsp;</td>';
               }
               if ($cell%2) {
                   $body .= '<td>&nbsp;</td>';
               }
               $body .= &Apache::loncommon::end_data_table_row().
                        &Apache::loncommon::end_data_table();
               $body =~ s{</}{<\\/}g;
               $body =~ s{\n}{}g;
               $r->print(<<ENDJS);
   <script type="text/javascript">
   // <![CDATA[
   function showBroadcastList() {
       var caller = this;
       var newWindow = null;
       try {
           newWindow =  window.open($nothing,"broadcast","HEIGHT=$height,WIDTH=$width,resizable=yes,scrollbars=yes" );
       }
       catch(error) {
           writeWin(caller);
           return;
       }
       if (newWindow) {
           caller = newWindow;
       }
       writeWin(caller);
     return;      return;
 }  }
   
   function writeWin(caller) {
       caller.document.writeln('$start_page $body $end_page');
       caller.document.close();
       caller.focus();
   }
   // ]]>
   </script>
   
   ENDJS
               $broadcast_link = 1;
           }
       }
       return $broadcast_link;
   }
   
 # =========================================================== Show the citation  # =========================================================== Show the citation
   
 sub displayresource {  sub displayresource {
Line 2146  sub displayresource { Line 2907  sub displayresource {
   
 sub header {  sub header {
     my ($r,$title,$baseurl)=@_;      my ($r,$title,$baseurl)=@_;
       
     my $extra = &Apache::loncommon::studentbrowser_javascript();      my $extra = &Apache::loncommon::studentbrowser_javascript();
     if ($baseurl) {      if ($baseurl) {
  $extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";   $extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";
     }      }
     $r->print(&Apache::loncommon::start_page('Communication and Messages',      $r->print(&Apache::loncommon::start_page('Messages',
   $extra));    $extra));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs      $r->print(&Apache::lonhtmlcommon::breadcrumbs
       (($title?$title:'Communication and Messages')));        (($title?$title:'Send and display messages')));
 }  }
   
 # ---------------------------------------------------------------- Print header  # ---------------------------------------------------------------- Print header
Line 2186  sub storedcommentlisting { Line 2946  sub storedcommentlisting {
     my ($r)=@_;      my ($r)=@_;
     my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef,      my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef,
        '^'.&escape(&escape($env{'form.showcommentbaseurl'})));         '^'.&escape(&escape($env{'form.showcommentbaseurl'})));
     $r->print(&Apache::loncommon::start_page('Stored Comment Listing',undef,      $r->print(&Apache::loncommon::start_page('Saved Comment Listing',undef,
      {'onlybody' => 1}));       {'onlybody' => 1}));
     if ((keys %msgs)[0]=~/^error\:/) {      if ((keys %msgs)[0]=~/^error\:/) {
  $r->print(&mt('No stored comments yet.'));   $r->print(&mt('No saved comments yet.'));
     } else {      } else {
  my $found=0;   my $found=0;
  foreach my $key (sort(keys(%msgs))) {   foreach my $key (sort(keys(%msgs))) {
Line 2197  sub storedcommentlisting { Line 2957  sub storedcommentlisting {
     $found=1;      $found=1;
  }   }
  unless ($found) {   unless ($found) {
     $r->print(&mt('No stored comments yet for this resource.'));      $r->print(&mt('No saved comments yet for this resource.'));
  }   }
     }      }
 }  }
Line 2208  sub sendoffmail { Line 2968  sub sendoffmail {
     my ($r,$folder)=@_;      my ($r,$folder)=@_;
     my $suffix=&Apache::lonmsg::foldersuffix($folder);      my $suffix=&Apache::lonmsg::foldersuffix($folder);
     my $sendstatus='';      my $sendstatus='';
     my %specialmsg_status;      my %msg_status;
     my $numspecial = 0;      my $numsent = 0;
       my $nosentstore = 1;
       my $attachmenturl;
       my $now = time;
     my ($cdom,$cnum,$group);      my ($cdom,$cnum,$group);
     if (exists($env{'form.group'})) {      if (exists($env{'form.group'})) {
         $group = $env{'form.group'};          $group = $env{'form.group'};
Line 2232  sub sendoffmail { Line 2995  sub sendoffmail {
  if ($env{'form.forwid'}) {   if ($env{'form.forwid'}) {
     my $msgid=$env{'form.forwid'};      my $msgid=$env{'form.forwid'};
     my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);      my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
     %content=&Apache::lonmsg::unpackagemsg($message{$msgid},1);      %content=&Apache::lonmsg::unpackagemsg($message{$msgid},1,1);
     &statuschange($msgid,'forwarded',$folder);      &statuschange($msgid,'forwarded',$folder);
     $env{'form.message'}.="\n\n-- Forwarded message --\n\n".              if ($content{'attachmenturl'} ne '') {
  $content{'message'};                  $attachmenturl = $content{'attachmenturl'};
               }
       $env{'form.message'} .= "\n\n-- Forwarded message --\n\n".
                       $content{'message'};
  }   }
  if ($env{'form.replyid'}) {   if ($env{'form.replyid'}) {
     my $msgid=$env{'form.replyid'};      my $msgid=$env{'form.replyid'};
Line 2244  sub sendoffmail { Line 3010  sub sendoffmail {
     &statuschange($msgid,'replied',$folder);      &statuschange($msgid,'replied',$folder);
  }   }
   
  my @to =  
     &Apache::loncommon::get_env_multiple('form.selectedusers_forminput');  
  my $mode = $env{'form.sendmode'};   my $mode = $env{'form.sendmode'};
    my (%toaddr,$tos,$cc,$bcc,$broadcast);
   
  my %toaddr;   if ($mode eq 'group') {
  if (@to) {              if (defined($env{'form.courserecips'})) {
     foreach my $dest (@to) {                  my $courseusers = $env{'form.courserecips'};
  my ($user,$domain) = split(/:/, $dest);                  $courseusers =~ s/^_\&\&\&_//;
  if (($user ne '') && ($domain ne '')) {                  my @to = split('_&&&_',$courseusers);
     my $address = $user.":".$domain; # How the code below expects it.                  foreach my $dest (@to) {
     $toaddr{$address} = '';                      my ($user,$domain) = split(/:/, $dest);
  }                      if (($user ne '') && ($domain ne '')) {
     }                          my $rec = $user.":".$domain;
  }                          $toaddr{$rec} = '';
                           $broadcast->{$rec} = '';
  if ($env{'form.sendmode'} eq 'group') {                      }
      foreach my $address (keys(%env)) {                  }
  if ($address=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {              }
     $toaddr{$1}='';   } elsif ($mode eq 'upload') {
  }              $nosentstore = 0;
     }  
  } elsif ($env{'form.sendmode'} eq 'upload') {  
     foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {      foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {
                 my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/);                  my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/);
  if ($txt) {   if ($txt) {
                     $rec =~ s/^\s+//;                      $rec =~ s/^\s+//;
                     $rec =~ s/\s+$//;                      $rec =~ s/\s+$//;
     $toaddr{$rec}.=$txt."\n";      $toaddr{$rec}.=$txt."\n";
                       $broadcast->{$rec} = '';
  }   }
     }      }
  } else {   } else {
     if (($env{'form.recuname'} ne '') && ($env{'form.recdomain'} ne '')) {      if (($env{'form.recuname'} ne '') && ($env{'form.recdomain'} ne '')) {
  $toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';   $toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';
                   $tos->{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';
     }      }
  }   }
  if ($env{'form.additionalrec'}) {          if ($env{'form.additionalrec_to'}) {
     foreach my $rec (split(/\s*,\s*/,$env{'form.additionalrec'})) {              foreach my $rec (split(/\s*,\s*/,$env{'form.additionalrec_to'})) {
                   my ($auname,$audom)=split(/:/,$rec);
                   if (($auname ne "") && ($audom ne "")) {
                       $toaddr{$auname.':'.$audom}='';
                       $tos->{$auname.':'.$audom}='';
                   }
               }
           }
           if ($env{'form.replying_to'}) {
               my @toreplies =
                   &Apache::loncommon::get_env_multiple('form.replying_to');
               foreach my $rec (@toreplies) {
                   my ($auname,$audom)=split(/:/,$rec);
                   if (($auname ne "") && ($audom ne "")) {
                       $toaddr{$auname.':'.$audom}='';
                       $tos->{$auname.':'.$audom}='';
                   }
               }
           }
    if ($env{'form.additionalrec_cc'}) {
       foreach my $rec (split(/\s*,\s*/,$env{'form.additionalrec_cc'})) {
  my ($auname,$audom)=split(/:/,$rec);   my ($auname,$audom)=split(/:/,$rec);
  if (($auname ne "") && ($audom ne "")) {   if (($auname ne "") && ($audom ne "")) {
     $toaddr{$auname.':'.$audom}='';                      $toaddr{$auname.':'.$audom}='';
                       if (!defined($tos->{$auname.':'.$audom})) {
           $cc->{$auname.':'.$audom}='';
                       }
  }   }
     }      }
  }   }
           if ($env{'form.replying_cc'}) {
               my @ccreplies =
                   &Apache::loncommon::get_env_multiple('form.replying_cc');
               foreach my $rec (@ccreplies) {
                   my ($auname,$audom)=split(/:/,$rec);
                   if (($auname ne "") && ($audom ne "")) {
                       $toaddr{$auname.':'.$audom}='';
                       if (!defined($tos->{$auname.':'.$audom})) {
                           $cc->{$auname.':'.$audom}='';
                       }
                   }
               }
           }
           if ($env{'form.replying_groupcc'}) {
               my @groupreplies =
                   &Apache::loncommon::get_env_multiple('form.replying_groupcc');
               foreach my $rec (@groupreplies) {
                   my ($auname,$audom)=split(/:/,$rec);
                   if (($auname ne "") && ($audom ne "")) {
                       $toaddr{$auname.':'.$audom}='';
                       if (!defined($tos->{$auname.':'.$audom})) {
                           $broadcast->{$auname.':'.$audom}='';
                       }
                   }
               }
           }
           if ($env{'form.additionalrec_bcc'}) {
               foreach my $rec (split(/\s*,\s*/,$env{'form.additionalrec_bcc'})) {
                   my ($auname,$audom)=split(/:/,$rec);
                   if (($auname ne "") && ($audom ne "")) {
                       $toaddr{$auname.':'.$audom}='';
                       if ((!defined($tos->{$auname.':'.$audom})) && 
                           (!defined($cc->{$auname.':'.$audom}))) {
                           $bcc->{$auname.':'.$audom}='';
                       }
                   }
               }
           }
         my $savemsg;          my $savemsg;
         my $msgtype;          my $msgtype;
         my %sentmessage;          my %sentmessage;
Line 2303  sub sendoffmail { Line 3128  sub sendoffmail {
         } else {          } else {
             $savemsg=&Apache::lonfeedback::clear_out_html($env{'form.message'});              $savemsg=&Apache::lonfeedback::clear_out_html($env{'form.message'});
         }          }
           my %reciphash = (
                              to => $tos,
                              cc => $cc,
                              bcc => $bcc,
                           );
           if ($mode eq 'group') {
               if ($group eq '') {
                   $reciphash{'course_broadcast'} = $broadcast;
               } else {
                   if ($env{'form.groupmail'} eq 'cc') {
                       $reciphash{'group_cc_broadcast'} = $broadcast;
                   } else {
                       $reciphash{'group_bcc_broadcast'} = $broadcast;
                   }
               }
           }
           my ($recipid,$recipstatus) = 
               &Apache::lonmsg::store_recipients($msgsubj,$env{'user.name'},
                                          $env{'user.domain'},\%reciphash);
           if ($recipstatus ne 'ok') {
               &Apache::lonnet::logthis('Failed to store To, Bcc and Cc recipients for '.$env{'user.name'}.':'.$env{'user.domain'});
           }
           if ($env{'form.attachment'}) {
               if (length($env{'form.attachment'})<131072) {
                   $attachmenturl=&Apache::lonnet::userfileupload('attachment',undef,'feedback/'.$now);
               } else {
                   $r->print('<p><span class="LC_warning">'.&mt('Attachment not included - exceeded permitted length').'</span><br /></p>');
               }
           } elsif ($env{'form.multiforward'}) {
               if ($env{'form.attachmenturl'} ne '') {
                   $attachmenturl = $env{'form.attachmenturl'};
               }
           }
           my @recusers;
           my @recudoms;
  foreach my $address (sort(keys(%toaddr))) {   foreach my $address (sort(keys(%toaddr))) {
     my ($recuname,$recdomain)=split(/\:/,$address);      my ($recuname,$recdomain)=split(/\:/,$address);
             my $msgtxt = $savemsg;              my $msgtxt = $savemsg;
     if ($toaddr{$address}) { $msgtxt.='<hr />'.$toaddr{$address}; }              if ($toaddr{$address}) {
           $msgtxt.='<hr />'.$toaddr{$address};
               }
     my @thismsg;      my @thismsg;
     if ($msgtype eq 'critical') {      if ($msgtype eq 'critical') {
  $r->print(&mt('Sending critical message').' '.   $r->print(&mt('Sending critical message').' '.
Line 2317  sub sendoffmail { Line 3178  sub sendoffmail {
    $msgsubj,$msgtxt,     $msgsubj,$msgtxt,
    $env{'form.sendbck'},     $env{'form.sendbck'},
    $env{'form.permanent'},     $env{'form.permanent'},
    \$sentmessage{$address});     \$sentmessage{$address},
                                                      $nosentstore,$recipid);
     } else {      } else {
  $r->print(&mt('Sending').' '.$recuname.':'.$recdomain.': ');   $r->print(&mt('Sending').' '.$recuname.':'.$recdomain.': ');
  @thismsg=   @thismsg=
     &Apache::lonmsg::user_normal_msg($recuname,$recdomain,      &Apache::lonmsg::user_normal_msg($recuname,$recdomain,
      $msgsubj,$msgtxt,       $msgsubj,$msgtxt,
      $content{'citation'},       $content{'citation'},
      undef,undef,       undef,$attachmenturl,
      $env{'form.permanent'},       $env{'form.permanent'},
      \$sentmessage{$address});       \$sentmessage{$address},
             }                                                       undef,undef,undef,
     if (($env{'request.course.id'}) && (($msgtype eq 'critical') ||                                                        $nosentstore,$recipid);
                                          ($env{'form.sendmode'} eq 'group'))) {              }
         $specialmsg_status{$recuname.':'.$recdomain} =      $msg_status{$recuname.':'.$recdomain}=join(' ',@thismsg);
     join(' ',@thismsg);      if ($msg_status{$recuname.':'.$recdomain} =~ /(ok|con_delayed)/) {  
  foreach my $result (@thismsg) {          $numsent++;
     if ($result eq 'ok' || $result eq 'con_delayed') {                  push(@recusers,$recuname);
  $numspecial++;                  push(@recudoms,$recdomain);
     }  
  }  
     }      }
     $sendstatus.=' '.join(' ',@thismsg);      $sendstatus.=' '.join(' ',@thismsg);
  }   }
         if (($env{'request.course.id'}) && (($env{'form.sendmode'} eq 'group')          my $subj_prefix;
                                               || ($msgtype eq 'critical'))) {          if ($numsent > 0) {
             my $subj_prefix;              if (($env{'request.course.id'}) && 
             if ($msgtype eq 'critical') {                  (($mode eq 'group') ||
                 $subj_prefix = 'Critical.';                   ($env{'form.courserecord'}) ||
             } else {                   ($msgtype eq 'critical')) ||
                 $subj_prefix = 'Broadcast.';                  ($env{'form.replyid'} && 
             }                   (($content{'courseid'} ne '') && 
             my ($specialmsgid,$specialresult);                    ($mode eq 'group')))) {
             my $course_str = &escape('['.$cnum.':'.$cdom.']');                  if ($msgtype eq 'critical') {
                       $subj_prefix = 'Critical.';
             if ($numspecial) {                  } elsif ($mode eq 'group') {
                 $specialresult = &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix.                      $subj_prefix = 'Broadcast.';
                     ' '.$course_str,$savemsg,undef,undef,undef,                  } else {
                     undef,undef,\$specialmsgid);                      $subj_prefix = 'Archive';
                   }
                   my ($specialmsgid,$specialresult);
                   my $course_str;
                   if ($env{'form.replyid'}) {
                       if ($content{'courseid'} ne '') {
                           my %crsdesc = 
                               &Apache::lonnet::coursedescription($content{'courseid'},
                                                                  {'one_time' => 1});
                           $course_str = &escape('['.$crsdesc{'num'}.':'.$crsdesc{'domain'}.']');
                       }
                   } elsif ($env{'request.course.id'}) {
                       $course_str = &escape('['.$cnum.':'.$cdom.']');
                   }
                   $specialresult = 
                       &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,
                           $subj_prefix.' '.$course_str,$savemsg,undef,undef,
                           $attachmenturl,undef,undef,\$specialmsgid,undef,undef,undef,
                           undef,undef,1);
                 $specialmsgid = &unescape($specialmsgid);                  $specialmsgid = &unescape($specialmsgid);
             }                  if ($specialresult eq 'ok') {
             if ($specialresult eq 'ok') {                      my ($stamp,$crssubj,$msgname,$msgdom,$msgcount,$context,$pid) =
                 my $record_sent;          split(/\:/,&unescape($specialmsgid));
                 my @recusers;  
                 my @recudoms;                      foreach my $recipient (sort(keys(%toaddr))) {
                 my ($stamp,$crssubj,$msgname,$msgdom,$msgcount,$context,$pid) =                          if ($msg_status{$recipient} =~ /\s*(ok|con_delayed)\s*/) {
     split(/\:/,&unescape($specialmsgid));                              my $usersubj = $subj_prefix.'['.$recipient.']';
                               my $usermsgid = 
                 foreach my $recipient (sort(keys(%toaddr))) {          &Apache::lonmsg::buildmsgid($stamp,$usersubj,
                     if ($specialmsg_status{$recipient} eq 'ok') {      $msgname,$msgdom,
                         my $usersubj = $subj_prefix.'['.$recipient.']';      $msgcount,$context,
                         my $usermsgid =       $pid);
     &Apache::lonmsg::buildmsgid($stamp,$usersubj,                              &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,
  $msgname,$msgdom,                                  $subj_prefix.' ['.$recipient.']',$msgsubj,
  $msgcount,$context,                                  undef,undef,$attachmenturl,undef,$usermsgid,undef,
  $pid);                                  undef,$specialmsgid,undef,undef,undef,1);
                         &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix.                          }
                                              ' ['.$recipient.']',$msgsubj,undef,                      }
                         undef,undef,undef,$usermsgid,undef,undef,$specialmsgid);                      if (($mode ne 'upload') && (@recusers > 0)) {
                         my ($uname,$udom) = split(/:/,$recipient);                          &Apache::lonmsg::process_sent_mail($msgsubj,
                         push(@recusers,$uname);                             $subj_prefix,$numsent,$stamp,$msgname,$msgdom,
                         push(@recudoms,$udom);                             $msgcount,$context,$pid,$savemsg,\@recusers,
                     }                             \@recudoms,undef,$attachmenturl,'','','','',$recipid);
                 }                      }
                 if (@recusers) {                  } else {
                     my $specialmessage;                      &Apache::lonnet::logthis('Failed to create record of critical, broadcast or archived message in '.$env{'course.'.$env{'request.course.id'}.'.num'}.' '&mt('at').' '.$env{'course.'.$env{'request.course.id'}.'.domain'}.' - no msgid generated');
                     my $sentsubj =   
  $subj_prefix.' ('.$numspecial.' sent) '.$msgsubj;  
                     $sentsubj = &HTML::Entities::encode($sentsubj,'<>&"');  
                     my $sentmsgid =   
  &Apache::lonmsg::buildmsgid($stamp,$sentsubj,$msgname,  
     $msgdom,$msgcount,$context,  
     $pid);  
                     ($specialmsgid,$specialmessage) = &Apache::lonmsg::packagemsg($msgsubj,$savemsg,  
                             undef,undef,undef,\@recusers,\@recudoms,$sentmsgid);  
                     $record_sent = &Apache::lonmsg::store_sent_mail($specialmsgid,$specialmessage);  
                 }                  }
             } else {              } else {
                 &Apache::lonnet::logthis('Failed to create record of critical message or broadcast in '.$env{'course.'.$env{'request.course.id'}.'.num'}.' at '.$env{'course.'.$env{'request.course.id'}.'.domain'}.' - no msgid generated');                  my $stamp = time;
             }                  my $msgcount = &Apache::lonmsg::get_uniq();
         }                  my $context = &Apache::lonmsg::get_course_context();
     } else {                  &Apache::lonmsg::process_sent_mail($msgsubj,$subj_prefix,
  &printheader($r,'','No messages sent.');                          $numsent,$stamp,$env{'user.name'},
     }                         $env{'user.domain'},$msgcount,$context,
     if (!$env{'form.multiforward'}) {                          $$,$savemsg,\@recusers,\@recudoms,undef,$attachmenturl,
         if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) {                         '','','','',$recipid);
     $r->print('<br /><span class="LC_success">'.&mt('Completed.').              }
                       '</span>');          }
     if ($env{'form.displayedcrit'}) {          if (!$env{'form.multiforward'}) {
         &discrit($r);              if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) {
                   my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Completed.'));
                   $message = &Apache::loncommon::confirmwrapper($message);
                   $r->print($message);
           if ($env{'form.displayedcrit'}) {
               &discrit($r);
                   }
                   if ($group ne '') {
                       $r->print(&groupmail_sent($group,$cdom,$cnum)); 
           } else {
               &Apache::loncommunicate::menu($r);
           }
               } else {
                   my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Could not deliver message'),1);
                   $message .= '<br />'.&mt('Please use the browser "Back" button and correct the recipient addresses ([_1]).',$sendstatus);
                   $message = &Apache::loncommon::confirmwrapper($message);
                   $r->print($message);
             }              }
             if ($group ne '') {  
                 $r->print(&groupmail_sent($group,$cdom,$cnum));   
     } else {  
         &Apache::loncommunicate::menu($r);  
     }  
         } else {  
     $r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '.  
   &mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'</p>');  
         }          }
     }      }
     return $sendstatus;      return $sendstatus;
Line 2439  sub handler { Line 3315  sub handler {
          'recordftf','sortedby','block','folder','startdis','interdis',           'recordftf','sortedby','block','folder','startdis','interdis',
  'showcommentbaseurl','dismode','group','subject','text','ref',   'showcommentbaseurl','dismode','group','subject','text','ref',
          'msgstatus']);           'msgstatus']);
     $sqs='&sortedby='.$env{'form.sortedby'};      $sqs='&amp;sortedby='.$env{'form.sortedby'};
   
 # ------------------------------------------------------ They checked for email  # ------------------------------------------------------ They checked for email
     unless ($env{'form.block'}) {      unless ($env{'form.block'}) {
Line 2451  sub handler { Line 3327  sub handler {
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"/adm/communicate",          ({href=>"/adm/communicate",
           text=>"Communication/Messages",            text=>"Messages",
           faq=>12,bug=>'Communication Tools',});            faq=>12,bug=>'Communication Tools',});
   
 # ------------------------------------------------------------------ Get Folder  # ------------------------------------------------------------------ Get Folder
Line 2460  sub handler { Line 3336  sub handler {
     unless ($folder) {       unless ($folder) { 
  $folder='';    $folder=''; 
     } else {      } else {
  $sqs.='&folder='.&escape($folder);   $sqs.='&amp;folder='.&escape($folder);
     }      }
 # ------------------------------------------------------------ Get Display Mode  # ------------------------------------------------------------ Get Display Mode
   
Line 2492  sub handler { Line 3368  sub handler {
  $startdis++;   $startdis++;
     }      }
     my $postedstartdis=$startdis+1;      my $postedstartdis=$startdis+1;
     $sqs.='&startdis='.$postedstartdis;      $sqs.='&amp;startdis='.$postedstartdis;
   
 # --------------------------------------------------------------- Render Output  # --------------------------------------------------------------- Render Output
   
Line 2504  sub handler { Line 3380  sub handler {
  &printheader($r,'','Confirmed Receipt');   &printheader($r,'','Confirmed Receipt');
  my $replying = 0;   my $replying = 0;
  foreach my $envkey (keys(%env)) {   foreach my $envkey (keys(%env)) {
     if ($envkey=~/^form\.rec\_(.*)$/) {      if ($envkey=~/^form\.(rep)?rec\_(.*)$/) {
  $r->print('<b>'.&mt('Confirming Receipt').':</b> '.                  my $repchk = $1;
   &Apache::lonmsg::user_crit_received($1).'<br>');          my $msgid = $2;
     }   $r->print('<b>'.&mt('Confirming Receipt').':</b> ');
     if ($envkey=~/^form\.reprec\_(.*)$/) {   my $result = &Apache::lonmsg::user_crit_received($msgid);
  my $msgid=$1;                  if ($result =~ /trans:\s+ok/) {
  $r->print('<b>'.&mt('Confirming Receipt').':</b> '.                      &statuschange($msgid,'read');
   &Apache::lonmsg::user_crit_received($msgid).'<br>');                  }
  &compout($r,'','','',$msgid);                  $r->print($result.'<br />');
  $replying = 1;                  if ($repchk eq 'rep') {
       &compout($r,'','','',$msgid);
       $replying = 1;
                   }
     }      }
  }   }
  if (!$replying) {   if (!$replying) {
Line 2529  sub handler { Line 3408  sub handler {
  my ($result,$msg) =    my ($result,$msg) = 
     &statuschange($env{'form.markdel'},'deleted',$folder);      &statuschange($env{'form.markdel'},'deleted',$folder);
  if (!$result) {   if (!$result) {
     $r->print('<p class="LC_error">'.              my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Failed to delete the message.'),1);
       &mt('Failed to delete the message.').'</p>'.              $message .= '<p class="LC_error">'.$msg.'</p>';
       '<p class="LC_error">'.$msg."</p>\n");              $message = &Apache::loncommon::confirmwrapper($message);
               $r->print($message);
  }   }
  &Apache::loncommunicate::menu($r);   &Apache::loncommunicate::menu($r);
  &disall($r,($folder?$folder:$dismode),$msgstatus);   &disall($r,($folder?$folder:$dismode),$msgstatus);
Line 2553  sub handler { Line 3433  sub handler {
             $total ++;              $total ++;
         }          }
         &printheader($r,'','Marked Messages Read');          &printheader($r,'','Marked Messages Read');
         $r->print(&mt('Marked [_1] message(s) read',$total).'<p>');          my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Marked [quant,_1,message] read',$total));
           $message = &Apache::loncommon::confirmwrapper($message);
           $r->print($message);
         # $r->print('<p>');
         &Apache::loncommunicate::menu($r);          &Apache::loncommunicate::menu($r);
         &disall($r,($folder?$folder:$dismode),$msgstatus);          &disall($r,($folder?$folder:$dismode),$msgstatus);
     } elsif ($env{'form.markedaction'} eq 'markedunread') {      } elsif ($env{'form.markedaction'} eq 'markedunread') {
Line 2564  sub handler { Line 3447  sub handler {
             $total ++;              $total ++;
         }          }
         &printheader($r,'','Marked Messages Unread');          &printheader($r,'','Marked Messages Unread');
         $r->print(&mt('Marked [_1] message(s) unread',$total).'<p>');          my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Marked [quant,_1,message] unread',$total));
           $message = &Apache::loncommon::confirmwrapper($message);
           $r->print($message);
         # $r->print('<p>');
         &Apache::loncommunicate::menu($r);          &Apache::loncommunicate::menu($r);
         &disall($r,($folder?$folder:$dismode),$msgstatus);          &disall($r,($folder?$folder:$dismode),$msgstatus);
     } elsif ($env{'form.markedaction'} eq 'markedmove') {      } elsif ($env{'form.markedaction'} eq 'markedmove') {
Line 2587  sub handler { Line 3473  sub handler {
     push(@failed_msg,$msg);      push(@failed_msg,$msg);
         }          }
     }      }
     if ($failed) {              my $message = '';
         $r->print('<p class="LC_error">              if ($failed) {
                           '.&mt('Failed to move [_1] message(s)',$failed).                  $message .= &Apache::lonhtmlcommon::confirm_success(&mt('Failed to move [quant,_1,message]',$failed),1);
       '</p>');                  $message .= '<p class="LC_error">'.
         $r->print('<p class="LC_error">'.              join("</p>\n<p class=\"LC_error\">",@failed_msg).
             join("</p>\n<p class=\"LC_error\">",@failed_msg).              "</p>\n";
           "</p>\n");              }
     }              $message .= &Apache::lonhtmlcommon::confirm_success(&mt('Moved [quant,_1,message]',$total));
     $r->print(&mt('Moved [_1] message(s)',$total).'<p>');              $message = &Apache::loncommon::confirmwrapper($message);
               $r->print($message);
             # $r->print('<p>');
         }          }
  &Apache::loncommunicate::menu($r);   &Apache::loncommunicate::menu($r);
  &disall($r,($folder?$folder:$dismode),$msgstatus);   &disall($r,($folder?$folder:$dismode),$msgstatus);
Line 2613  sub handler { Line 3501  sub handler {
     }      }
  }   }
  &printheader($r,'','Deleted Messages');   &printheader($r,'','Deleted Messages');
           my $message = '';
  if ($failed) {   if ($failed) {
     $r->print('<p class="LC_error">              $message .= &Apache::lonhtmlcommon::confirm_success(&mt('Failed to delete [quant,_1,message]',$failed),1);
                           '.&mt('Failed to delete [_1] message(s)',$failed).              $message .= '<p class="LC_error">'.
       '</p>');  
     $r->print('<p class="LC_error">'.  
       join("</p>\n<p class=\"LC_error\">",@failed_msg).        join("</p>\n<p class=\"LC_error\">",@failed_msg).
       "</p>\n");        "</p>\n";
  }   }
  $r->print(&mt('Deleted [_1] message(s)',$total).'<p>');          $message .= &Apache::lonhtmlcommon::confirm_success(&mt('Deleted [quant,_1,message]',$total));
           $message = &Apache::loncommon::confirmwrapper($message);
           $r->print($message);
         # $r->print('<p>');
  &Apache::loncommunicate::menu($r);   &Apache::loncommunicate::menu($r);
  &disall($r,($folder?$folder:$dismode),$msgstatus);   &disall($r,($folder?$folder:$dismode),$msgstatus);
     } elsif ($env{'form.markunread'}) {      } elsif ($env{'form.markunread'}) {
Line 2645  sub handler { Line 3535  sub handler {
             foreach my $item (@to_forward) {              foreach my $item (@to_forward) {
                 my $msgid=&unescape($item);                  my $msgid=&unescape($item);
                 my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);                  my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
                 my %content=&Apache::lonmsg::unpackagemsg($message{$msgid},1);                  my %content=&Apache::lonmsg::unpackagemsg($message{$msgid},1,1);
                 if ($env{'form.showorigsubj'}) {                  if ($env{'form.showorigsubj'}) {
                     $env{'form.subject'} = $fixed_subj.$content{'subject'};                      $env{'form.subject'} = $fixed_subj.$content{'subject'};
                 } else {                  } else {
Line 2659  sub handler { Line 3549  sub handler {
                         &Apache::loncommon::plainname($uname,$udom).' ('.                          &Apache::loncommon::plainname($uname,$udom).' ('.
                                            $uname.':'.$udom.')';                                             $uname.':'.$udom.')';
                 }                  }
                 $env{'form.message'} .= "\n\n-- Forwarded message --\n\n".                  $env{'form.message'}.="\n\n-- Forwarded message --\n\n".
                                         $content{'message'};                                        $content{'message'};
                   $env{'form.attachmenturl'} = $content{'attachmenturl'};
                   $env{'form.multiforwid'} = $item;
                 $fwdcount ++;                  $fwdcount ++;
                 $r->print($fwdcount.': ');                   $r->print($fwdcount.': '); 
                 $sendresult{$msgid} = &sendoffmail($r,$folder);                  $sendresult{$msgid} = &sendoffmail($r,$folder);
Line 2675  sub handler { Line 3567  sub handler {
             }              }
             if (keys(%forwardok) > 0) {              if (keys(%forwardok) > 0) {
                 my $count = keys(%forwardok);                  my $count = keys(%forwardok);
                 $r->print('<br /><span class="LC_success">'.                  my $message = &Apache::lonhtmlcommon::confirm_success(&mt('[quant,_1,message] forwarded.',$count));
                           &mt('[quant,_1,message] forwarded.',$count).                  $message = &Apache::loncommon::confirmwrapper($message);
                           '</span>');                  $r->print($message);
             }              }
             if (keys(%forwardfail) > 0) {              if (keys(%forwardfail) > 0) {
                 my $count = keys(%forwardfail);                  my $count = keys(%forwardfail);
                 $r->print('<p><span class="LC_error">'.                  my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Could not forward [quant,_1,message].',$count),1);
                           &mt('Could not forward [quant,_1,message].',$count).  
                           '</span> ');  
                 foreach my $key (keys(%forwardfail)) {                  foreach my $key (keys(%forwardfail)) {
                     $r->print(&mt('Could not deliver forwarded message.').'</span> '.                      $message .= '<br />'.&mt('Could not deliver forwarded message.').'</span> '.
                               &mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.').<br /><br />');                                  &mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.')';
                 }                  }
                   $message = &Apache::loncommon::confirmwrapper($message);
                   $r->print($message);
             }              }
             &Apache::loncommunicate::menu($r);              &Apache::loncommunicate::menu($r);
         } else {          } else {
Line 2711  sub handler { Line 3603  sub handler {
         my $showfolder = $env{'form.newfolder'};          my $showfolder = $env{'form.newfolder'};
  my ($makeresult,$warning) = &makefolder($env{'form.newfolder'});   my ($makeresult,$warning) = &makefolder($env{'form.newfolder'});
         if ($makeresult eq 'ok') {          if ($makeresult eq 'ok') {
             $r->print(&mt('Mail folder "[_1]" created.',$showfolder).'<br />');              my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Folder "[_1]" created.',$showfolder));
               $message = &Apache::loncommon::confirmwrapper($message);
               $r->print($message);
         } else {          } else {
             $r->print(&mt('Creation failed.').' '.$makeresult.'<br />'.              my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Creation failed.').' '.$makeresult.'<br />'.$warning,1);
                       $warning);              $message = &Apache::loncommon::confirmwrapper($message);
               $r->print($message);
             $showfolder = $folder;              $showfolder = $folder;
         }          }
         &Apache::loncommunicate::menu($r);          &Apache::loncommunicate::menu($r);
Line 2726  sub handler { Line 3621  sub handler {
         my $showfolder = '';          my $showfolder = '';
         my $delresult = &deletefolder($folder);          my $delresult = &deletefolder($folder);
         if ($delresult eq 'ok') {          if ($delresult eq 'ok') {
             $r->print(&mt('Mail folder "[_1]" deleted.',$folder).'<br />');              my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Folder "[_1]" deleted.',$folder));
               $message = &Apache::loncommon::confirmwrapper($message);
               $r->print($message);
             $env{'form.folder'} = '';              $env{'form.folder'} = '';
         } else {          } else {
             $r->print(&mt('Deletion failed.').' '.$delresult.'<br />');              my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Deletion failed.').' '.$delresult,1);
               $message = &Apache::loncommon::confirmwrapper($message);
               $r->print($message);
             $showfolder = $folder;              $showfolder = $folder;
         }          }
         &Apache::loncommunicate::menu($r);          &Apache::loncommunicate::menu($r);
Line 2739  sub handler { Line 3638  sub handler {
         my $showfolder = $env{'form.renamed'};          my $showfolder = $env{'form.renamed'};
         my $renresult = &renamefolder($folder);          my $renresult = &renamefolder($folder);
         if ($renresult eq 'ok') {          if ($renresult eq 'ok') {
             $r->print(&mt('Mail folder "[_1]" renamed "[_2]".',$folder,$showfolder).'<br />');              my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Folder "[_1]" renamed to "[_2]".',$folder,$showfolder));
               $message = &Apache::loncommon::confirmwrapper($message);
               $r->print($message);
         } else {          } else {
             $r->print(&mt('Renaming failed.').' '.$renresult.'<br />');              my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Renaming failed.').' '.$renresult,1);
               $message = &Apache::loncommon::confirmwrapper($message);
               $r->print($message);
             $showfolder = $folder;              $showfolder = $folder;
         }          }
         &Apache::loncommunicate::menu($r);          &Apache::loncommunicate::menu($r);
Line 2758  sub handler { Line 3661  sub handler {
   
 =pod  =pod
   
 =back  
   
 =cut  =cut
   
 1;   1; 

Removed from v.1.66  
changed lines
  Added in v.1.145


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