Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.49 and 1.181.2.2

version 1.49, 2006/12/07 21:21:04 version 1.181.2.2, 2019/08/06 17:53:56
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 74  email program, so they have full access Line 75  email program, so they have full access
 interface, or other features they may wish to use in response to the  interface, or other features they may wish to use in response to the
 student's query.  student's query.
   
 =item * B<Blocking>: LON-CAPA can block display of e-mails that are   =item * B<Blocking>: LON-CAPA can block selected communication 
 sent to a student during an online exam. A course coordinator or  features for students during an online exam. A course coordinator or
 instructor can set an open and close date/time for scheduled online  instructor can set an open and close date/time for scheduled online
 exams in a course. If a user uses the LON-CAPA internal messaging   exams in a course. If a user uses the LON-CAPA internal messaging 
 system to display e-mails during the scheduled blocking event,    system to display e-mails during the scheduled blocking event,  
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::longroup;
   use Apache::lonnavmaps;
 use Apache::lontexconvert();  use Apache::lontexconvert();
 use HTML::Entities();  use HTML::Entities();
 use Apache::lonlocal;  use Apache::lonlocal;
Line 127  use Apache::lonfeedback; Line 112  use Apache::lonfeedback;
 use Apache::lonrss();  use Apache::lonrss();
 use Apache::lonselstudent();  use Apache::lonselstudent();
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA;  use LONCAPA qw(:DEFAULT :match);
   
 # Querystring component with sorting type  # Querystring component with sorting type
 my $sqs;  my $sqs='';
 my $startdis;  my $startdis='';
 my $interdis;  
   
 # ============================================================ List all folders  # ============================================================ List all folders
   
 sub folderlist {  sub folderlist {
     my $folder=shift;      my ($folder,$msgstatus) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %html_lt = &Apache::lonlocal::texthash(
                 actn => 'Action',                  actn => 'Action',
                 fold => 'Folder',                  fold => 'Folder',
                 show => 'Show',                  show => 'Show',
                   status => 'Message Status',
                 go   => 'Go',                  go   => 'Go',
   
     );      );
       &html_escape(\%html_lt);
       my %js_lt = &Apache::lonlocal::texthash(
                   nnff => 'New Name for Folder',
                   newn => 'New Name',
                   fmnb => 'Folder may not be renamed as it is a folder provided by the system.',
                   asth => 'Requested name already in use for a system-provided or user-defined folder.',
   
       );
       &js_escape(\%js_lt);
   
    # 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',
Line 152  sub folderlist { Line 150  sub folderlist {
     );      );
     $actions{'select_form_order'} = ['view','rename','delete'];      $actions{'select_form_order'} = ['view','rename','delete'];
   
       my %statushash = &Apache::lonlocal::texthash(&get_msgstatus_types());
   
       $statushash{'select_form_order'} = ['','new','read','replied','forwarded'];
   
     my %permfolders = &get_permanent_folders();      my %permfolders = &get_permanent_folders();
     my $permlist = join("','",sort(keys(%permfolders)));      my $permlist = join("','",sort(keys(%permfolders)));
     my ($permlistkeys,$permlistvals);      my ($permlistkeys,$permlistvals);
Line 165  sub folderlist { Line 167  sub folderlist {
     my %userfolders;      my %userfolders;
   
     foreach my $key (keys(%gotfolders)) {      foreach my $key (keys(%gotfolders)) {
           $key =~ s/(['"])/\$1/g; #' stupid emacs
         $userfolders{$key} = $key;          $userfolders{$key} = $key;
     }      }
     my @userorder = sort(keys(%userfolders));      my @userorder = sort(keys(%userfolders));
Line 172  sub folderlist { Line 175  sub folderlist {
     my $folderlist = join("','",@userorder);      my $folderlist = join("','",@userorder);
     $folderlist .= "','".$permlistvals;      $folderlist .= "','".$permlistvals;
   
     $formhash{'select_form_order'} = ['','critical','new',@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 182  function folder_choice(targetform,caller Line 186  function folder_choice(targetform,caller
         if (targetform.folderaction.options[targetform.folderaction.selectedIndex].value == 'rename') {          if (targetform.folderaction.options[targetform.folderaction.selectedIndex].value == 'rename') {
             for (var i=0; i<permfolders_keys.length; i++) {              for (var i=0; i<permfolders_keys.length; i++) {
                 if (permfolders_keys[i] == targetform.folder.value) {                  if (permfolders_keys[i] == targetform.folder.value) {
                     alert("The '"+permfolders_vals[i]+"' folder may not be renamed as it is a mail folder provided by the system.");                      alert("'"+permfolders_vals[i]+"' -- $js_lt{'fmnb'}");
                     return;                      return;
                 }                  }
             }              }
             var foldername=prompt('New Name for Folder','New Name');              var foldername=prompt('$js_lt{'nnff'}','$js_lt{'newn'}');
             if (foldername) {              if (foldername) {
                 targetform.renamed.value=foldername;                  targetform.renamed.value=foldername;
                 for (var i=0; i<allfolders.length; i++) {                  for (var i=0; i<allfolders.length; i++) {
                     if (allfolders[i] == foldername) {                      if (allfolders[i] == foldername) {
                         alert("The folder may not be renamed '"+foldername+"' as this name is already in use for a system-provided or user-defined folder.");                          alert("'"+foldername+"' $js_lt{'asth'}");
                         return;                          return;
                     }                      }
                 }                  }
Line 207  function folder_choice(targetform,caller Line 211  function folder_choice(targetform,caller
         if (newname) {          if (newname) {
             for (var i=0; i<allfolders.length; i++) {              for (var i=0; i<allfolders.length; i++) {
                 if (allfolders[i] == newname) {                  if (allfolders[i] == newname) {
                     alert("The new folder may not be named '"+newname+"' as this name is already in use for a system-provided or user-defined folder.");                      alert("'"+newname+"' -- $js_lt{'asth'}");
                     return;                      return;
                 }                  }
             }              }
Line 215  function folder_choice(targetform,caller Line 219  function folder_choice(targetform,caller
         }          }
     }      }
 }  }
   // ]]>
 </script>|;  </script>|;
       my %show = ('select_form_order' => [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">     <div class="LC_columnSection"><fieldset>
  <tr>     <legend>'.&mt('Folder Actions').'</legend>
   <td align="left">     <table border="0" cellspacing="2" cellpadding="8">
    <table border="0" cellspacing="2" cellpadding="2">  
     <tr>      <tr>
      <td align="center"><b>'.$lt{'fold'}.'</b><br />'."\n".       <td><b>'.$html_lt{'fold'}.'</b><br />'."\n".
          &Apache::loncommon::select_form($folder,'folder',%formhash).'           &Apache::loncommon::select_form($folder,'folder',\%formhash).'
        </td>
        <td><b>'.$html_lt{'show'}.'</b><br />'."\n".
            &Apache::loncommon::select_form($env{'form.interdis'},'interdis',
    \%show).'
      </td>       </td>
      <td align="center"><b>'.$lt{'show'}.'</b><br />       <td><b>'.$html_lt{'status'}.'</b><br />'."\n".
       <select name="interdis">'.         &Apache::loncommon::select_form($msgstatus,'msgstatus',\%statushash).'
           join("\n",map { '<option value="'.$_.'"'.  
       ($_==$interdis?' selected="selected"':'').'>'.$_.'</option>'   
  }  
        (10,20,50,100,200)).'</select>  
      </td>       </td>
      <td align="center"><b>'.$lt{'actn'}.'</b><br />'.       <td style="padding-right: 40px;">
          &Apache::loncommon::select_form('view','folderaction',%actions).'           <b>'.$html_lt{'actn'}.'</b><br />'."\n".'
      </td><td><br />'.           <span class="LC_nobreak">'.
     '<input type="button" value="'.$lt{'go'}.'" onClick="javascript:folder_choice(this.form,'."'change'".');" />           &Apache::loncommon::select_form('view','folderaction',\%actions).
            ' <input type="button" value="'.$html_lt{'go'}.
            '" onclick="javascript:folder_choice(this.form,'."'change'".');" />
            </span>
        </td>
        <td style="border-left: 1px solid;padding-left: 40px;">
            <b>'.&mt('New Folder').'</b><br />'."\n".'
            <span class="LC_nobreak">
            <input type="text" size="15" name="newfolder" value="" />
            <input type="button" value="'.$html_lt{'go'}.
            '" onclick="javascript:folder_choice(this.form,'."'new'".');" />
            </span>
      </td>       </td>
     </tr>      </tr>
    </table>     </table>
   </td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>     </fieldset></div>
   <td align="right">  '."\n".
    <table><tr><td><br />  
     <input type="button" value="'.&mt('Make New Folder').  
     '" onClick="javascript:folder_choice(this.form,'."'new'".');" /></td>'.  
     '<td align="center"><b>'.&mt('New Folder').'</b><br />'.  
     '<input type="text" size="15" name="newfolder" value="" />  
     </td></tr></table>  
   </td>  
  </tr>  
 </table>'."\n".  
     '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />'.      '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />'.
     '<input type="hidden" name="renamed" value="" />'.      '<input type="hidden" name="renamed" value="" />'.
         ($folder=~/^(new|critical)/?'</form>':'');          ($folder=~/^critical/?'</form>':'');
     return $output;      return $output;
 }  }
   
Line 261  sub get_permanent_folders { Line 270  sub get_permanent_folders {
     my %permfolders =       my %permfolders = 
  &Apache::lonlocal::texthash(''         => 'INBOX',   &Apache::lonlocal::texthash(''         => 'INBOX',
     'trash'    => 'TRASH',      'trash'    => 'TRASH',
     'new'      => 'New Messages Only',      'critical' => 'CRITICAL',
     'critical' => 'Critical',      'sent'     => 'SENT MESSAGES',
     'sent'     => 'Sent Messages',  
     );      );
     return %permfolders;      return %permfolders;
 }  }
   
   sub get_msgstatus_types {
       # Don't translate here!
       my %statushash = (
           ''          => 'Any',
           'new'       => 'Unread',
           'read'      => 'Read',
           'replied'   => 'Replied to',
           'forwarded' => 'Forwarded',
       );
       return %statushash;
   }
   
 sub scrollbuttons {  sub scrollbuttons {
     my ($start,$maxdis,$first,$finish,$total)=@_;      my ($start,$maxdis,$first,$finish,$total,$msgstatus)=@_;
     unless ($total>0) { return ''; }      unless ($total>0) { return ''; }
     $start++; $maxdis++;$first++;$finish++;      $start++; $maxdis++;$first++;$finish++;
     return  
    &mt('Page').': '.       my %statushash = &get_msgstatus_types();
    '<input type="submit" name="firstview" value="'.&mt('First').'" />'.      my $status;
    '<input type="submit" name="prevview" value="'.&mt('Previous').'" />'.      if ($msgstatus eq '') {
    '<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis.          $status = 'All'; # Don't translate here!
    '<input type="submit" name="nextview" value="'.&mt('Next').'" />'.      } else {
    '<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'.          $status = $statushash{$msgstatus};
    &mt('Showing messages [_1] through [_2] of [_3]',$first,$finish,$total).'</form>';      }
       my $output = '<b>'.&mt('Page:').'</b> ';
       if ($maxdis == 1) {
           # No buttons if only one page is displayed
           $output .= '1/1';
       } else {
           $output .=
              '<input type="submit" name="firstview" value="|&lt;" />'.
              '<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 .=
           '<p>'
          .'<b>'.&mt($status.' messages:').'</b> '
          .&mt('showing messages [_1] through [_2] of [_3].',
               $first,$finish,$total)
          .'</p>'
          .'</form>';
   
       return $output;
 }  }
 # =============================================================== Status Change  # =============================================================== Status Change
   
Line 335  sub makefolder { Line 376  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 346  sub deletefolder { Line 387  sub deletefolder {
     my ($folder)=@_;      my ($folder)=@_;
     my %permfolders = &get_permanent_folders();      my %permfolders = &get_permanent_folders();
     if (defined($permfolders{$folder})) {      if (defined($permfolders{$folder})) {
         return &mt('The folder [_1] may not be deleted',$folder);           return &mt('The folder "[_1]" may not be deleted.',$permfolders{$folder}); 
     }      }
     my %userfolders = &Apache::lonmsg::get_user_folders();      my %userfolders = &Apache::lonmsg::get_user_folders();
     if (!defined($userfolders{$folder})) {      if (!defined($userfolders{$folder})) {
         return &mt('The folder [_1] does not exist so deletion is not required.',          return &mt('The folder "[_1]" does not exist so deletion is not required.',
                    $folder);                     $folder);
     }      }
     # check folder is empty;      # check folder is empty;
     my $suffix=&Apache::lonmsg::foldersuffix($folder);      my $suffix=&Apache::lonmsg::foldersuffix($folder);
     my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);      my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);
     if (@messages > 0) {      if (@messages > 0) {
         return &mt('The folder [_1] contains messages so it may not be deleted.').          return &mt('The folder "[_1]" contains messages so it may not be deleted.',$folder).
                '<br />'.                 '<br />'.
                &mt('Delete or move the messages to a different folder first.');                 &mt('Delete or move the messages to a different folder first.');
     }      }
Line 372  sub renamefolder { Line 413  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 481  sub movemsg { Line 525  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 490  sub discourse { Line 536  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" action="">';
          $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" action="">';
          $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" action="">';
          $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;
           $r->print('<div class="LC_left_float">');
         my %Sortby = (          my %Sortby = (
                          active   => {},                           active   => {},
                          previous => {},                           previous => {},
Line 544  sub disgroup { Line 645  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 560  sub disgroup { Line 661  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="check all" '.                      }
                              'onclick="javascript:toggleAll('."'".$status."','check'".')" />'.                      $r->print('<fieldset>'.
                              '&nbsp;&nbsp;'.                                '<legend>'.$lt{$status}.'</legend>'.
                              '<input type="button" value="uncheck all" '.                                '<form name="'.$formname.'" action="">'.
                              '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>';          $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 658  sub groupmail_header { Line 764  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});
       }
       my $view_permission =
             &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
       my $navmap=Apache::lonnavmaps::navmap->new();
       my $grouppagelink = &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission,$refarg);
       if ($grouppagelink) {
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>$grouppagelink,
                 text=>"Group: $description",
                 title=>"Go to group's home page"},);
       } else {
           &Apache::lonhtmlcommon::add_breadcrumb
               ({text=>"Group: $description",});
     }      }
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",           ({href=>"/adm/email?compose=group&amp;group=".
           text=>"Group: $description",                   "$env{'form.group'}&amp;$refarg",
           title=>"Go to group's home page"},             text=>"Send a Message in a Group",
          {href=>"/adm/email?compose=group&amp;group=".             title=>"Compose Group Message"},);
                 "$env{'form.group'}&amp;$refarg",  
           text=>"Send a Message in a Group",  
           title=>"Compose Group Email 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 690  sub groupmail_sent { Line 812  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 700  sub groupmail_sent { Line 822  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))) {      # Sort by date in descending order
       foreach my $key (sort{$b <=> $a}(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>'.          my $description;
 &Apache::loncommon::aboutmewrapper(          if ($content{'courseid'} ne '') {
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.              if ($content{'courseid'} =~ m{/^$match_domain\_$match_courseid$}) {
 $content{'sendername'}.':'.                  my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'},{'one_time' => 1});
             $content{'senderdomain'}.') '.$content{'time'}.                  if ($courseinfo{'description'} ne '') {
             '<br />'.&mt('Subject').': '.$content{'subject'}.                      $description = $courseinfo{'description'};
             '<br /><pre>'.                  }
               &Apache::lontexconvert::msgtexconverted($content{'message'}).              }
             '</pre><small>'.          }
 &mt('You have to confirm that you received this message. After confirmation, this message will be moved to your regular inbox').          $result .= &Apache::lonhtmlcommon::start_pick_box()
             '</small><br />'.                    .&Apache::lonhtmlcommon::row_title(&mt('From'),undef,'LC_oddrow_value')
             '<input type="submit" name="rec_'.$key.'" value="'.&mt('Confirm Receipt').'" />'.                    .'<b>'.&Apache::loncommon::aboutmewrapper(
             '<input type="submit" name="reprec_'.$key.'" '.                     &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b>'
                   'value="'.&mt('Confirm Receipt and Reply').'" />';                    .' ('.$content{'sendername'}.':'.$content{'senderdomain'}.')'
                     .&Apache::lonhtmlcommon::row_closure(1)
                     .&Apache::lonhtmlcommon::row_title(&mt('Date'),undef,'LC_evenrow_value')
                     .$content{'time'}
                     .&Apache::lonhtmlcommon::row_closure(1)
                     .&Apache::lonhtmlcommon::row_title(&mt('Subject'),undef,'LC_oddrow_value')
                     .$content{'subject'}
                     .&Apache::lonhtmlcommon::row_closure(1);
           if ($description ne '') {
               $result .= &Apache::lonhtmlcommon::row_title(&mt('Course'),undef,'LC_oddrow_value')
                         .$description
                         .&Apache::lonhtmlcommon::row_closure(1);
           }
           $result .= &Apache::lonhtmlcommon::row_title(&mt('Message'),undef,'LC_evenrow_value')
                     .'<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">'.
             '<a href="/adm/email">'.&mt('Communicate').'</a>';              &mt('You have no critical messages.').
               '</p>'.
               &Apache::lonhtmlcommon::actionbox(
                   ['<a href="/adm/roles">'.&mt('Select a course').'</a>',
                    '<a href="/adm/email">'.&mt('Communicate').'</a>']);
     } else {      } else {
         $r->print($header);          $r->print($header);
     }      }
Line 736  $content{'sendername'}.':'. Line 908  $content{'sendername'}.':'.
 }  }
   
 sub sortedmessages {  sub sortedmessages {
     my ($blocked,$startblock,$endblock,$numblocked,$folder) = @_;      my ($blocked,$startblock,$endblock,$numblocked,$folder,$msgstatus) = @_;
     my $suffix=&Apache::lonmsg::foldersuffix($folder);      my $suffix=&Apache::lonmsg::foldersuffix($folder);
     my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);      my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);
   
     #unpack the varibles and repack into temp for sorting      #unpack the varibles and repack into temp for sorting
     my @temp;      my @temp;
     my %descriptions;      my %descriptions;
Line 753  sub sortedmessages { Line 924  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)=   my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,$processid,$symb,$error) =
     &Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef,      &Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef,
  \%status_cache);   \%status_cache);
           next if ($msgstatus ne '' && $msgstatus ne $status);
         my $description = &get_course_desc($fromcid,\%descriptions);          my $description = &get_course_desc($fromcid,\%descriptions);
  my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,   my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,
      $esc_msgid,$description);       $esc_msgid,$description);
Line 843  sub get_course_desc { Line 1016  sub get_course_desc {
             if (defined($env{'course.'.$fromcid.'.description'})) {              if (defined($env{'course.'.$fromcid.'.description'})) {
                 $description = $env{'course.'.$fromcid.'.description'};                  $description = $env{'course.'.$fromcid.'.description'};
             } else {              } else {
                 my %courseinfo=&Apache::lonnet::coursedescription($fromcid);                  if ($fromcid =~ m{/^$match_domain\_$match_courseid$}) {
                 $description = $courseinfo{'description'};                      my %courseinfo=&Apache::lonnet::coursedescription($fromcid,
                                                                         {'one_time' => 1});
                       $description = $courseinfo{'description'};
                   }
               }
               if ($description ne '') {
                   $$descriptions{$fromcid} = $description;
             }              }
             $$descriptions{$fromcid} = $description;  
         }          }
         return $description;          return $description;
     }      }
 }  }
   
 # ======================================================== Display new messages  # ======================================================== Display all messages
   
   
 sub disnew {  sub disall {
     my $r=shift;      my ($r,$folder,$msgstatus)=@_;
     my %lt=&Apache::lonlocal::texthash(      my %saveable = ('msgstatus' => 'scalar',
        'nm' => 'New Messages',      'sortedby'  => 'scalar',
        'su' => 'Subject',      'interdis'  => 'scalar',
                                        'co' => 'Course',      );
        'da' => 'Date',      &Apache::loncommon::store_settings('user','mail',\%saveable);
        'us' => 'Username',      &Apache::loncommon::restore_settings('user','mail',\%saveable);
        'op' => 'Open',      $folder    ||= $env{'form.folder'};
        'do' => 'Domain'      # Always show critical messages if present
        );      my @what=&Apache::lonnet::dump('critical',$env{'user.domain'},$env{'user.name'});
     my @msgids = sort(&Apache::lonnet::getkeys('nohist_email'));      if ($what[0]) {
     my @newmsgs;   if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
     my %setters = ();              $folder = 'critical';
     my %blocked = ();  
     my $numblocked = 0;  
     # Check for blocking of display because of scheduled online exams.  
     my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');  
     my %status_cache =   
  &Apache::lonnet::get('email_status',\@msgids);  
     my %descriptions;  
     foreach my $id (@msgids) {  
  my $msgid=&escape($id);  
         my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)=  
     &Apache::lonmsg::unpackmsgid($msgid,undef,undef,\%status_cache);  
         if (defined($sendtime) && $sendtime!~/error/) {  
             my $description = &get_course_desc($fromcid,\%descriptions);  
             my $numsendtime = $sendtime;  
             $sendtime = &Apache::lonlocal::locallocaltime($sendtime);  
             if ($status eq 'new') {  
                 if ($numsendtime >= $startblock && ($numsendtime <= $endblock && $endblock > 0) ) {  
                     $blocked{$id} = 'ON';  
                     $numblocked ++;  
                 } else {  
                     push(@newmsgs, {   
                         msgid    => $msgid,  
                         sendtime => $sendtime,  
                         shortsub => $shortsubj,  
                         from     => $fromname,  
                         fromdom  => $fromdom,  
                         course   => $description,   
     });  
                 }  
             }  
         }          }
     }      }
     if ($#newmsgs >= 0) {      $msgstatus ||= $env{'form.msgstatus'};
         $r->print(<<TABLEHEAD);      $env{'form.interdis'} ||= 20;
 <h2>$lt{'nm'}</h2>  
 <table class="LC_mail_list"><tr><th>&nbsp;</th>  
 <th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th><th>$lt{'co'}</th></tr>  
 TABLEHEAD  
         foreach my $msg (@newmsgs) {  
             $r->print(<<"ENDLINK");  
 <tr class="LC_mail_new">  
 <td><a href="/adm/email?dismode=new&amp;display=$msg->{'msgid'}">$lt{'op'}</a></td>  
 ENDLINK  
             foreach my $item ('sendtime','from','fromdom','shortsub','course') {  
                 $r->print("<td>$msg->{$item}</td>");  
             }  
             $r->print("</tr>");  
         }  
         $r->print('</table>');  
     } elsif ($numblocked == 0) {  
         $r->print("<h3>".&mt('You have no unread messages')."</h3>");  
     }  
     if ($numblocked > 0) {  
         my $beginblock = &Apache::lonlocal::locallocaltime($startblock);  
         my $finishblock = &Apache::lonlocal::locallocaltime($endblock);  
         $r->print('<h3>'.&mt('You have [quant,_1,blocked unread message,blocked unread messages].',$numblocked).'</h3>'."\n".  
                  &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).'<br />'."\n".  
                  &Apache::loncommon::build_block_table($startblock,$endblock,  
                                                        \%setters));  
     }  
 }  
   
   
 # ======================================================== Display all messages  
   
 sub disall {      $r->print(&folderlist($folder,$msgstatus));
     my ($r,$folder)=@_;      if ($folder eq 'critical') {
     $r->print(&folderlist($folder));  
     if ($folder eq 'new') {  
  &disnew($r);  
     } elsif ($folder eq 'critical') {  
  &discrit($r);   &discrit($r);
     } else {      } else {
  &disfolder($r,$folder);   &disfolder($r,$folder,$msgstatus);
     }      }
 }  }
   
 # ============================================================ Display a folder  # ============================================================ Display a folder
   
 sub disfolder {  sub disfolder {
     my ($r,$folder)=@_;      my ($r,$folder,$msgstatus)=@_;
       my %statushash = &get_msgstatus_types();
     my %blocked = ();      my %blocked = ();
     my %setters = ();      my %setters = ();
     my $numblocked = 0;      my $numblocked = 0;
     my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');      my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');
       my %js_lt = &Apache::lonlocal::texthash(
                         sede => 'Select a destination folder to which the messages will be moved.',
                         nome => 'No messages have been selected to apply this action to.',
                         chec => 'Check the checkbox for at least one message.',  
       );
       &js_escape(\%js_lt);
       my $jscript = &Apache::loncommon::check_uncheck_jscript();
     $r->print(<<ENDDISHEADER);      $r->print(<<ENDDISHEADER);
 <script type="text/javascript">  <script type="text/javascript">
     function checkall() {  // <![CDATA[
  for (i=0; i<document.forms.disall.elements.length; i++) {      $jscript
             if   
           (document.forms.disall.elements[i].name.indexOf('delmark_')==0) {  
       document.forms.disall.elements[i].checked=true;  
             }  
         }  
     }  
   
     function uncheckall() {      function validate_checkedaction() {
  for (i=0; i<document.forms.disall.elements.length; i++) {          document.disall.markedaction.value = document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value;
             if           if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') {
           (document.forms.disall.elements[i].name.indexof('delmark_')==0) {              if (document.disall.movetofolder.options[document.disall.movetofolder.selectedIndex].value == "") {
       document.forms.disall.elements[i].checked=false;                  alert("$js_lt{'sede'}");
                   return;
               } 
           }
           var checktotal = 0;
           if (document.forms.disall.delmark.length > 0) {
               for (var i=0; i<document.forms.disall.delmark.length; i++) {
                   if (document.forms.disall.delmark[i].checked) {
                       checktotal ++;
                   }
               }
           } else {
               if (document.forms.disall.delmark.checked) {
                   checktotal ++;
             }              }
           }   
           if (checktotal == 0) {
               alert("$js_lt{'nome'}\\n$js_lt{'chec'}");
               return;
         }          }
           document.disall.submit();
     }      }
   // ]]>
 </script>  </script>
 ENDDISHEADER  ENDDISHEADER
     my $fsqs='&folder='.$folder;  
     my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder);      my $fsqs='&amp;folder='.$folder;
       my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);
     my $totalnumber=$#temp+1;      my $totalnumber=$#temp+1;
     unless ($totalnumber>0) {      if ($totalnumber < 1) {
  $r->print('<h2>'.&mt('Empty Folder').'</h2>');          $r->print('<p class="LC_info">');
  return;          if ($msgstatus eq '') {
     }              $r->print(&mt('There are no messages in this folder.'));
     unless ($interdis) {          } elsif ($msgstatus eq 'replied') {
  $interdis=20;              $r->print(&mt('You have not replied to any messages in this folder.'));
           } else {
               $r->print(&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.'));
           }
           $r->print('</p>');
           if ($numblocked > 0) {
               $r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
                                            \%setters));
           }
           return;
     }      }
       my $interdis = $env{'form.interdis'};
     my $number=int($totalnumber/$interdis);      my $number=int($totalnumber/$interdis);
       if ($totalnumber%$interdis == 0) {
    $number--; 
       }
   
     if (($startdis<0) || ($startdis>$number)) { $startdis=$number; }      if (($startdis<0) || ($startdis>$number)) { $startdis=$number; }
     my $firstdis=$interdis*$startdis;      my $firstdis=$interdis*$startdis;
     if ($firstdis>$#temp) { $firstdis=$#temp-$interdis+1; }      if ($firstdis>$#temp) { $firstdis=$#temp-$interdis+1; }
     my $lastdis=$firstdis+$interdis-1;      my $lastdis=$firstdis+$interdis-1;
     if ($lastdis>$#temp) { $lastdis=$#temp; }      if ($lastdis>$#temp) { $lastdis=$#temp; }
     $r->print(&scrollbuttons($startdis,$number,$firstdis,$lastdis,$totalnumber));      $r->print(&scrollbuttons($startdis,$number,$firstdis,$lastdis,$totalnumber,$msgstatus));
     $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="3">&nbsp;</th><th>');        &Apache::loncommon::start_data_table().
             &Apache::loncommon::start_data_table_row().
             '<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 colspan="2">');
     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/) {
     if ($status eq 'new') {              my $class_msgstatus = '';
  $r->print('<tr class="LC_mail_new">');              $count ++;
     } elsif ($status eq 'read') {              if ($status eq 'new') {
  $r->print('<tr class="LC_mail_read">');                  $class_msgstatus = 'LC_mail_new';
     } elsif ($status eq 'replied') {              } elsif ($status eq 'read') {
  $r->print('<tr class="LC_mail_replied">');                   $class_msgstatus = 'LC_mail_read';
     } else {              } elsif ($status eq 'replied') {
  $r->print('<tr class="LC_mail_other">');                  $class_msgstatus = 'LC_mail_replied'; 
     }              } else {
                   $class_msgstatus = 'LC_mail_other';
               }
               $r->print(&Apache::loncommon::start_data_table_row($class_msgstatus));
     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'}});
                       }
  }   }
     }      }
     $r->print('<td><input type="checkbox" name="delmark_'.$origID.'" /></td><td><a href="/adm/email?display='.$origID.$sqs.               my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime);
       '">'.&mt('Open').'</a></td><td>'.      $r->print('<td align="right"><span class="LC_nobreak">'.(($status eq 'new')?'<b>':'').
       ($folder ne 'trash'?'<a href="/adm/email?markdel='.$origID.$sqs.                        $count.'.'.(($status eq 'new')?'</b>':'').'&nbsp;'.
       '">'.&mt('Delete'):'&nbsp').'</a></td>'.                        '<input type="checkbox" name="delmark"'. 
       '<td>'.&Apache::lonlocal::locallocaltime($sendtime).'</td><td>'.                        ' value="'.$origID.'" /></span></td>');
       $dis_name.'</td><td>'.$dis_domain.'</td><td>'.              foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) {
       $shortsubj.'</td><td>'.                  $r->print('<td>'.(($status eq 'new')?'<b>':'').
                       $description.'</td><td>'.$status.'</td></tr>'."\n");                            '<a href="/adm/email?display='.$origID.$sqs.'">'.
  } elsif ($status eq 'deleted') {                            $item.'</a>'.(($status eq 'new')?'</b>':'').'</td>');
               }
               # Description and Status
               my $showstatus;
               my %statushash = &get_msgstatus_types();
               if ($status eq '') {
                   $showstatus = '';
               } else {
                   $showstatus = $statushash{$status};
               }
               $r->print('<td>'.(($status eq 'new')?'<b>':'').$description.
                         (($status eq 'new')?'</b>':'').
                         '</td>');
               $r->print('<td class="'.$class_msgstatus.'">&nbsp;&nbsp;</td>'.
                         '<td>'.
                         (($status eq 'new')?'<b>':'').&mt($showstatus).
                         (($status eq 'new')?'</b>':'').
                         '</td>');
   
               $r->print(&Apache::loncommon::end_data_table_row());
   
           } elsif ($status eq 'deleted') {
 # purge  # purge
     my ($result,$msg) =               my ($result,$msg) = 
  &movemsg(&unescape($origID),$folder,'trash');          &movemsg(&unescape($origID),$folder,'trash');
               }
  }  
     }         }   
     $r->print("</table>\n<p>".      $r->print(&Apache::loncommon::end_data_table());
   '<a href="javascript:checkall()">'.&mt('Check All').'</a>&nbsp;'.  
   '<a href="javascript:uncheckall()">'.&mt('Uncheck All').'</a></p>'.  
   '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />');      # Bottom Functions
       $r->print('
   <div class="LC_columnSection"><fieldset>
   <legend>'.&mt('Message Actions').'</legend>
   <table border="0" cellspacing="2" cellpadding="8">
    <tr>
     <td><b>'.&mt('Select Messages').'</b><br />
      <span class="LC_nobreak">
      <input type="button" onclick="javascript:checkAll(document.disall.delmark)" value="'.&mt('Check 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'}.'" />
     </span>
     </td>'."\n".
     '<td><b>'.&mt('Action').'</b><br />'."\n".
     '  <select name="checkedaction">'."\n");
   
     if ($folder ne 'trash') {      if ($folder ne 'trash') {
  $r->print(          $r->print('    <option value="markeddel">'.&mt('Delete').'</option>'."\n");
       '<p><input type="submit" name="markeddel" value="'.&mt('Delete Checked').'" /></p>');  
     }      }
     $r->print('<p><input type="submit" name="markedmove" value="'.&mt('Move Checked to Folder').'" />');      if ($msgstatus ne 'read') {
     my %gotfolders = &Apache::lonmsg::get_user_folders();          $r->print('    <option value="markedread">'.&mt('Mark Read').'</option>'."\n");
     my %userfolders;  
     foreach my $key (keys(%gotfolders)) {  
         $userfolders{$key} = $key;  
     }      }
     $r->print(      if ($msgstatus ne 'unread') {
  &Apache::loncommon::select_form('','movetofolder',          $r->print('    <option value="markedunread">'.&mt('Mark Unread').'</option>'."\n");
                 %userfolders));      }
       $r->print('   <option value="markedforward">'.&mt('Forward').'</option>'."\n");
   
       my %gotfolders = &Apache::lonmsg::get_user_folders();
       if (keys(%gotfolders) > 0) {
           $r->print('   <option value="markedmove">'.&mt('Move to Folder ->').
                     '</option>');
       }
       $r->print("\n".'</select></td>'."\n");
   
       if (keys(%gotfolders) > 0) {
           $r->print('<td><b>'.&mt('Destination folder').'</b><br />');
    my %userfolders;
           foreach my $key (keys(%gotfolders)) {
               $userfolders{$key} = $key;
           }
           $userfolders{''} = "";
           $r->print(&Apache::loncommon::select_form('','movetofolder',\%userfolders).
                     '</td>');
       }
       $r->print('<td style="vertical-align:bottom;">'.
                 '<input type="button" name="go" value="'.&mt('Go').
                 '" onclick="javascript:validate_checkedaction()"/></td>'."\n".
                 '</tr></table>'."\n".
                 '</fieldset></div>'."\n"
       );
     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'}.'" /></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) {
         my $beginblock = &Apache::lonlocal::locallocaltime($startblock);          $r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
         my $finishblock = &Apache::lonlocal::locallocaltime($endblock);                                       \%setters));
         $r->print('<br /><br />'.  
                   &mt('[_1,quant,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));  
         $r->print(&Apache::loncommon::build_block_table($startblock,$endblock,  
                                                         \%setters));  
     }      }
 }  }
   
   sub blocked_in_folder {
       my ($numblocked,$startblock,$endblock,$setters) = @_;
       my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
       my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
       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);
       #$output .= &Apache::loncommon::build_block_table($startblock,$endblock,
       #                                                 $setters);
       
       my ($blocked, $blocktext) = &Apache::loncommon::blocking_status("com");
       $output .="<br /><br />".$blocktext;
   
       return $output;
   }
   
 # ============================================================== Compose output  # ============================================================== Compose output
   
 sub compout {  sub compout {
     my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder,$dismode)=@_;      my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder,$dismode,
           $multiforward)=@_;
     my $suffix=&Apache::lonmsg::foldersuffix($folder);      my $suffix=&Apache::lonmsg::foldersuffix($folder);
     my ($cdom,$cnum,$group,$refarg);      my ($cdom,$cnum,$group,$refarg);
     if (exists($env{'form.group'})) {      if (exists($env{'form.group'})) {
Line 1137  sub compout { Line 1367  sub compout {
     } elsif ($replycrit) {      } elsif ($replycrit) {
  $r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>');   $r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>');
  $replying=$replycrit;   $replying=$replycrit;
       } elsif ($multiforward) {
           &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"/adm/email?folder=".&escape($folder),
             text=>"Display All Messages"});
           &printheader($r,'/adm/email?compose=multiforward',
                'Forwarding Multiple Messages');
           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 1146  sub compout { Line 1391  sub compout {
     my $dissub='';      my $dissub='';
     my $dismsg='';      my $dismsg='';
     my $disbase='';      my $disbase='';
     my $func=&mt('Send New');      my $attachrow;
     my %lt=&Apache::lonlocal::texthash('us' => 'Username',      my $func1='Send'; # do not translate here!
        'do' => 'Domain',      my %func2=( # do not translate here!
        'ad' => 'Additional Recipients',                 'ma'  => 'Message',
        'sb' => 'Subject',                 'msg' => 'Messages',
        'ca' => 'Cancel',                );
        'ma' => 'Mail');      my %lt=&Apache::lonlocal::texthash('us'  => 'Username',
          'do'  => 'Domain',
          'ad'  => 'Additional Recipients',
                                          'rt'  => 'Reply to',
                                          'ar'  => 'Allow replies',
          'sb'  => 'Subject',
          'ca'  => 'Cancel',
                                          'gen' => 'Generate messages from a file',
                                          'gmt' => 'General message text',
                                          'tff' => 'The file format for the uploaded portion of the message is',
                                          '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) {
                   $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;
   |;
                   }
                   #typeof(...forminput.length) returns 'undefined' if only one entry exists
                   $broadcast_js .= qq|
       if (typeof(document.$formname.selectedusers_forminput.length)=="undefined") {
           if (document.$formname.selectedusers_forminput.checked) {
               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 1190  sub compout { Line 1537  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 1200  sub compout { Line 1547  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) {
           $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);
     if ($broadcast ne 'upload') {      my $textareaclass;
        $r->print(<<"ENDCOMP");      if (&Apache::lonhtmlcommon::htmlareabrowser()) {
 <tr><td>$lt{'ad'}<br /><tt>username:domain,username:domain, ...          $r->print(&Apache::lonhtmlcommon::htmlareaselectactive());
 </tt></td><td>          $textareaclass = 'class="LC_richDefaultOff"';
 <input type="text" size="50" name="additionalrec" /></td></tr>      }
 <tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub" />      my $subj_size;
 </td></tr></table>      if ($multiforward) {
 $latexHelp          $r->print(&additional_rec_row(\%lt));
 <textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg          $r->print('<tr><td colspan="2">'.
 </textarea></p><br />                    &mt('Unless you choose otherwise:').'<ul><li>'.
           &mt("The subject in each forwarded message will be [_1]'Forwarding:'[_2] followed by the original subject.",'<i>','</i>').'</li><li>'.
           &mt("The message itself will begin with a first line: [_1]'Forwarded message from'[_2] followed by the original sender's name.",'<i>','</i>').'</li></ul></td></tr>');
           $func1='Forward'; # do not translate here!
           $dissub = &mt('Forwarding').': ';
           $subj_size = '10';
           my $extra = '&lt;'.&mt('original subject').'&gt;&nbsp;&nbsp;&nbsp;'.
                       '<input type="radio" name="showorigsubj" value="1" checked="checked" />'.&mt('Yes').'&nbsp;<input type="radio" name="showorigsubj" value="0" />'.&mt('No');
           $dismsg = &mt('Forwarded message from ').' ';
           my $sender = &mt("sender's name");
           $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>
   </table>
   <br /><table>
   <tr><td align="left">'."\n".
   $latexHelp."<br />\n".
   &mt("Any new text to display before the text of the original messages:").'<br />'."\n".
   '<textarea name="message" id="message" cols="80" rows="5" wrap="hard" $textareaclass></textarea>');
           my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');
           foreach my $msg (@to_forward) {
               $r->print('<input type="hidden" name="delmark" value="'.$msg.'" />');
           }
           $r->print(&submit_button_row($folder,$dismode,&mt($func1.' '.$func2{'msg'}),
                                        \%lt));
       } elsif ($broadcast ne 'upload') {
           $subj_size = '50';
           $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(<<"ENDCOMP");
   $attachrow
   </table><br />
   $latexHelp<br />
   <textarea name="message" id="message" cols="80" rows="15" wrap="hard" $textareaclass>$dismsg
   </textarea>
   <br />
   $sendmode
 $dispcrit  $dispcrit
 $disbase  $disbase
 <input type="hidden" name="folder" value="$folder" />  
 <input type="hidden" name="dismode" value="$dismode" />  
 <input type="submit" name="send" value="$func $lt{'ma'}" />  
 <input type="submit" name="cancel" value="$lt{'ca'}" /><hr />  
 $citation  
 ENDCOMP  ENDCOMP
           $r->print(&submit_button_row($folder,$dismode,&mt($func1.' '.$func2{'ma'}),
                                        \%lt,$hasfloat,$group));
           $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="'.
                       $env{'form.ref'}.'" />');                        $env{'form.ref'}.'" />');
Line 1277  ENDCOMP Line 1743  ENDCOMP
                       $env{'form.group'}.'" />');                        $env{'form.group'}.'" />');
         }          }
     } else { # $broadcast is 'upload'      } else { # $broadcast is 'upload'
  $r->print(<<ENDUPLOAD);   $r->print(<<ENDBLOCK);
 <input type="hidden" name="sendmode" value="upload" />  <input type="hidden" name="sendmode" value="upload" />
 <input type="hidden" name="send" value="on" />  <input type="hidden" name="send" value="on" />
 <h3>Generate messages from a file</h3>  <h3>$lt{'gen'}</h3>
 <p>  <p>
 Subject: <input type="text" size="50" name="subject" />  Subject: <input type="text" size="50" name="subject" />
 </p>  </p>
 <p>General message text<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" $textareaclass>$dismsg
 </textarea></p>  </textarea></p>
 <p>  <p>
 The file format for the uploaded portion of the message is:  $lt{'tff'}:
 <pre>  ENDBLOCK
 username1:domain1: text         $r->print('
 username2:domain2: text  <pre>'."\n".
 username3:domain1: text  &mt('username1:domain1: text')."\n".
 </pre>  &mt('username2:domain2: text')."\n".
   &mt('username3:domain1: text')."\n".
   '</pre>
 </p>  </p>
 <p>  <p>
 The messages will be assembled from all lines with the respective   '.&mt('The messages will be assembled from all lines with the respective [_1][_2]username:domain[_3], and appended to the general message text.','<br />','<tt>','</tt>'));
 <tt>username:domain</tt>, and appended to the general message text.</p>          $r->print(<<ENDUPLOAD);
   </p>
 <p>  <p>
 <input type="file" name="upfile" size="40" /></p><p>  <input type="file" name="upfile" size="40" /></p><p>
 $dispcrit  $dispcrit
 <input type="submit" value="Upload and Send" /></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'));          $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 1327  sub recipient_input_row { Line 1804  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 {
       my ($lt) = @_;
       my $cc = &mt('Cc:');
       my $bcc = &mt('Bcc:');
       my $exmpl = &mt('username:domain,username:domain,...'); 
       my $output = <<"ENDADD";
   <tr><td colspan="3"><fieldset id="LC_additionalrecips"><legend>$lt->{'ad'} <tt>($exmpl)</tt></legend><table>
   <tr><td>&nbsp;</td><td>$lt->{'to'}</td><td><input type="text" size="50" name="additionalrec_to" /></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
       return $output;
   }
   
   sub submit_button_row {
       my ($folder,$dismode,$sendtext,$lt,$is_crsform,$group) = @_;
       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="dismode" value="$dismode" />|;
       if ($is_crsform) {
           $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;
   }
   
   sub msg_subject_row {
       my ($dissub,$lt,$subj_size,$extra) = @_;
       my $output = '<tr><td colspan="3"><b>'.$lt->{'sb'}.'</b>:&nbsp;<input type="text" size="'.
                    $subj_size.'" name="subject" value="'.$dissub.'" />'.$extra.
                    '</td></tr>';
       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 1362  sub retrieve_instructor_comments { Line 1903  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'}.
        '/'.$env{'request.course.sec'})) {         '/'.$env{'request.course.sec'})) {
  $r->print('Not allowed');   $r->print(&mt('Not allowed'));
  return;   return;
     }      }
     my %records=&Apache::lonnet::dump('nohist_email',      my %records=&Apache::lonnet::dump('nohist_email',
Line 1379  sub disfacetoface { Line 1922  sub disfacetoface {
     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 1395  sub disfacetoface { Line 1940  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 1420  $content{'sendername'}.':'. Line 1977  $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 '.$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 '.$lctype.'.').'}\\\\');
  }   }
       } elsif ($target eq 'tex') {
           $r->print(&Apache::lonxml::xmlparse($r,$target,$result));
     } else {      } else {
        $r->print($result);          $r->print('<div>'.$result.'</div>');
     }      }
 }  }
   
Line 1450  sub facetoface { Line 2009  sub facetoface {
     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'}.
       '/'.$env{'request.course.sec'})) {        '/'.$env{'request.course.sec'})) {
  $r->print('Not allowed');   $r->print(&mt('Not allowed'));
  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 1473  sub facetoface { Line 2032  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'}.'" />'
                .'</form>'
       );
   
     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 1500  ENDTREC Line 2062  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 1519  ENDBFORM Line 2090  ENDBFORM
     }      }
 }  }
   
 # ----------------------------------------------------------- Blocking during exams  
   
 sub examblock {  
     my ($r,$action) = @_;  
     unless ($env{'request.course.id'}) { return;}  
     if (!&Apache::lonnet::allowed('dcm',$env{'request.course.id'})  
  && ! &Apache::lonnet::allowed('dcm',$env{'request.course.id'}.  
       '/'.$env{'request.course.sec'})) {  
  $r->print('Not allowed');  
  return;  
     }  
     my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members'  
                                                           : 'students';  
     my %lt=&Apache::lonlocal::texthash(  
             'comb' => 'Communication Blocking',  
             '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.",  
              'mecb' => 'Modify existing communication blocking periods',  
              'ncbc' => 'No communication blocks currently stored'  
     );  
   
     my %ltext = &Apache::lonlocal::texthash(  
             'dura' => 'Duration',  
             'setb' => 'Set by',  
             'even' => 'Event',  
             'blck' => 'Blocked?',  
             'actn' => 'Action',  
             'star' => 'Start',  
             'endd' => 'End'  
     );  
   
     &printheader($r,'/adm/email?block=display',$lt{'comb'});  
     $r->print('<h3>'.$lt{'cbds'}.'</h3>');  
   
     if ($action eq 'store') {  
         &blockstore($r);  
     }  
   
     $r->print($lt{'desc'}.'<br /><br />  
                <form name="blockform" method="post" action="/adm/email?block=store">  
              ');  
   
     $r->print('<h4>'.$lt{'mecb'}.'</h4>');  
     my %records = ();  
     my $blockcount = 0;  
     my $parmcount = 0;  
     &get_blockdates(\%records,\$blockcount);  
     if ($blockcount > 0) {  
         $parmcount = &display_blocker_status($r,\%records,\%ltext);  
     } else {  
         $r->print($lt{'ncbc'}.'<br /><br />');  
     }  
     &display_addblocker_table($r,$parmcount,\%ltext);  
     my $end_page=&Apache::loncommon::end_page();  
     $r->print(<<"END");  
 <br />  
 <input type="hidden" name="blocktotal" value="$blockcount" />  
 <input type ="submit" value="Save Changes" />  
 </form>  
 $end_page  
 END  
     return;  
 }  
   
 sub blockstore {  
     my $r = shift;  
     my %lt=&Apache::lonlocal::texthash(  
             'tfcm' => 'The following changes were made',  
             'cbps' => 'communication blocking period(s)',  
             'werm' => 'was/were removed',  
             'wemo' => 'was/were modified',  
             'wead' => 'was/were added',  
             'ncwm' => 'No changes were made.'   
     );  
     my %adds = ();  
     my %removals = ();  
     my %cancels = ();  
     my $modtotal = 0;  
     my $canceltotal = 0;  
     my $addtotal = 0;  
     my %blocking = ();  
     $r->print('<h3>'.$lt{'head'}.'</h3>');  
     foreach my $envkey (keys(%env)) {  
         if ($envkey =~ m/^form\.modify_(\d+)$/) {  
             $adds{$1} = $1;  
             $removals{$1} = $1;  
             $modtotal ++;  
         } elsif ($envkey =~ m/^form\.cancel_(\d+)$/) {  
             $cancels{$1} = $1;  
             unless ( defined($removals{$1}) ) {  
                 $removals{$1} = $1;  
                 $canceltotal ++;  
             }  
         } elsif ($envkey =~ m/^form\.add_(\d+)$/) {  
             $adds{$1} = $1;  
             $addtotal ++;  
         }   
     }  
   
     foreach my $key (keys(%removals)) {  
         my $hashkey = $env{'form.key_'.$key};  
         &Apache::lonnet::del('comm_block',["$hashkey"],  
                          $env{'course.'.$env{'request.course.id'}.'.domain'},  
                          $env{'course.'.$env{'request.course.id'}.'.num'}  
                          );  
     }  
     foreach my $key (keys(%adds)) {  
         unless ( defined($cancels{$key}) ) {  
             my ($newstart,$newend) = &get_dates_from_form($key);  
             my $newkey = $newstart.'____'.$newend;  
             my $blocktypes = &get_block_choices($key);  
             $blocking{$newkey} = {  
                           setter => $env{'user.name'}.':'.$env{'user.domain'},  
                           event  => &escape($env{'form.title_'.$key}),  
                           blocks => $blocktypes,  
                         };  
         }  
     }  
     if ($addtotal + $modtotal > 0) {  
         &Apache::lonnet::put('comm_block',\%blocking,  
                      $env{'course.'.$env{'request.course.id'}.'.domain'},  
                      $env{'course.'.$env{'request.course.id'}.'.num'}  
                      );  
     }  
     my $chgestotal = $canceltotal + $modtotal + $addtotal;  
     if ($chgestotal > 0) {  
         $r->print($lt{'tfcm'}.'<ul>');  
         if ($canceltotal > 0) {  
             $r->print('<li>'.$canceltotal.' '.$lt{'cbps'},' '.$lt{'werm'}.'</li>');  
         }  
         if ($modtotal > 0) {  
             $r->print('<li>'.$modtotal.' '.$lt{'cbps'},' '.$lt{'wemo'}.'</li>');  
         }  
         if ($addtotal > 0) {  
             $r->print('<li>'.$addtotal.' '.$lt{'cbps'},' '.$lt{'wead'}.'</li>');  
         }  
         $r->print('</ul>');  
     } else {  
         $r->print($lt{'ncwm'});  
     }  
     $r->print('<br />');  
     return;  
 }  
   
 sub get_dates_from_form {  
     my $item = shift;  
     my $startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate_'.$item);  
     my $enddate   = &Apache::lonhtmlcommon::get_date_from_form('enddate_'.$item);  
     return ($startdate,$enddate);  
 }  
   
 sub get_blockdates {  
     my ($records,$blockcount) = @_;  
     $$blockcount = 0;  
     %{$records} = &Apache::lonnet::dump('comm_block',  
                          $env{'course.'.$env{'request.course.id'}.'.domain'},  
                          $env{'course.'.$env{'request.course.id'}.'.num'}  
                          );  
     $$blockcount = keys(%{$records});  
   
     if ((keys(%{$records}))[0] =~ /^error: 2 /) {  
  $records = {};  
  $$blockcount = 0;  
     }  
 }  
   
 sub get_block_choices {  
     my $item = shift;  
     my $blocklist;  
     my ($typeorder,$types) = &blocktype_text();  
     foreach my $type (@{$typeorder}) {  
         if ($env{'form.'.$type.'_'.$item}) {  
             $blocklist->{$type} = 'on';   
         } else {  
             $blocklist->{$type} = 'off';  
         }  
     }  
     return $blocklist;  
 }  
   
 sub display_blocker_status {  
     my ($r,$records,$ltext) = @_;  
     my $parmcount = 0;  
     
     my %lt = &Apache::lonlocal::texthash(  
         'modi' => 'Modify',  
         'canc' => 'Cancel',  
     );  
     my ($typeorder,$types) = &blocktype_text();  
     $r->print(&Apache::loncommon::start_data_table());  
     $r->print(<<"END");  
   <tr>  
     <th>$ltext->{'dura'}</th>  
     <th>$ltext->{'setb'}</th>  
     <th>$ltext->{'even'}</th>  
     <th>$ltext->{'blck'}</th>  
     <th>$ltext->{'actn'}?</th>  
   </tr>  
 END  
     foreach my $record (sort(keys(%{$records}))) {  
         my $onchange = 'onFocus="javascript:window.document.forms['.  
                        "'blockform'].elements['modify_".$parmcount."'].".  
                        'checked=true;"';  
         my ($start,$end) = split(/____/,$record);  
         my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);  
         my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);  
   
  my ($setuname,$setudom,$title,$blocks) =   
     &Apache::loncommon::parse_block_record($$records{$record});  
  $title = &HTML::Entities::encode($title,'"<>&');  
         my $settername =   
            &Apache::loncommon::aboutmewrapper(  
                            &Apache::loncommon::plainname($setuname,$setudom),  
                            $setuname,$setudom);  
         $r->print(&Apache::loncommon::start_data_table_row());  
         $r->print(<<"END");  
         <td>$ltext->{'star'}:&nbsp;$startform<br/>$ltext->{'endd'}:&nbsp;&nbsp;$endform</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>  
 END  
         foreach my $block (@{$typeorder}) {  
             my $blockstatus = '';  
             if ($blocks->{$block} eq 'on') {  
                 $blockstatus = 'checked="true"';  
             }  
             $r->print('<label><input type="checkbox" name="'.$block.'_'.$parmcount.'" '.$blockstatus.' value="1" />'.$types->{$block}.'</label><br />');  
         }  
         $r->print(<<"END");  
         </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>  
 END  
         $r->print(&Apache::loncommon::end_data_table_row());  
         $parmcount++;  
     }  
     $r->print(<<"END");  
 </table>  
 <br />  
 <br />  
 END  
     return $parmcount;  
 }  
   
 sub display_addblocker_table {  
     my ($r,$parmcount,$ltext) = @_;  
     my $start = time;  
     my $end = $start + (60 * 60 * 2); #Default is an exam of 2 hours duration.  
     my $onchange = 'onFocus="javascript:window.document.forms['.  
                    "'blockform'].elements['add_".$parmcount."'].".  
                    'checked=true;"';  
     my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);  
     my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);  
     my %lt = &Apache::lonlocal::texthash(  
         'addb' => 'Add block',  
         'exam' => 'e.g., Exam 1',  
         'addn' => 'Add new communication blocking periods'  
     );  
     my ($typeorder,$types) = &blocktype_text();  
     $r->print(<<"END");  
 <h4>$lt{'addn'}</h4>   
 END  
     $r->print(&Apache::loncommon::start_data_table());  
     $r->print(<<"END");  
    <tr>  
      <th>$ltext->{'dura'}</th>  
      <th>$ltext->{'even'} $lt{'exam'}</th>  
      <th>$ltext->{'blck'}</th>  
      <th>$ltext->{'actn'}?</th>  
    </tr>  
 END  
     $r->print(&Apache::loncommon::start_data_table_row());  
     $r->print(<<"END");  
      <td>$ltext->{'star'}:&nbsp;$startform<br />$ltext->{'endd'}:&nbsp;&nbsp;$endform</td>  
      <td><input type="text" name="title_$parmcount" size="15" value="" /></td>  
      <td>  
 END  
     foreach my $block (@{$typeorder}) {  
         $r->print('<label><input type="checkbox" name="'.$block.'_'.$parmcount.'" value="1" />'.$types->{$block}.'</label><br />');  
      }  
      $r->print(<<"END");  
      </td>   
      <td><label>$lt{'addb'}?&nbsp;<input type="checkbox" name="add_$parmcount" value="1" /></label></td>  
 END  
     $r->print(&Apache::loncommon::end_data_table_row());  
     $r->print(&Apache::loncommon::end_data_table());  
     return;  
 }  
   
 sub blocktype_text {  
     my %types = &Apache::lonlocal::texthash(  
         'com' => 'Messaging',  
         'chat' => 'Chat',  
         'boards' => 'Discussion',  
         'port' => 'Portfolio',  
         'groups' => 'Groups',  
         'blogs' => 'Blogs',  
     );  
     my $typeorder = ['com','chat','boards','port','groups','blogs'];  
     return ($typeorder,\%types);  
 }  
   
 # ----------------------------------------------------------- Display a message  # ----------------------------------------------------------- Display a message
   
 sub displaymessage {  sub displaymessage {
     my ($r,$msgid,$folder)=@_;      my ($r,$msgid,$folder,$msgstatus)=@_;
     my $suffix=&Apache::lonmsg::foldersuffix($folder);      my $suffix=&Apache::lonmsg::foldersuffix($folder);
     my %blocked = ();      my %blocked = ();
     my %setters = ();      my %setters = ();
Line 1832  sub displaymessage { Line 2102  sub displaymessage {
   
 # info to generate "next" and "previous" buttons and check if message is blocked  # info to generate "next" and "previous" buttons and check if message is blocked
     my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');      my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');
     my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder);      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);          my($blocked, $blocktext) = &Apache::loncommon::blocking_status("com");
           $r->print("<br />".$blocktext);
         return;          return;
     }      }
     &statuschange($msgid,'read',$folder);      if ($msgstatus eq '') {
           &statuschange($msgid,'read',$folder);
       }
     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 1852  sub displaymessage { Line 2123  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'});  
 # Functions  # Prepare available functions
     $r->print('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'.      my @functionlist;
       '<td><a href="/adm/email?replyto='.&escape($msgid).$sqs.      if (!$content{'noreplies'}) {
       '"><b>'.&mt('Reply').'</b></a></td>'.          push(@functionlist,'<a href="/adm/email?replyto='.&escape($msgid).$sqs.'">'
       '<td><a href="/adm/email?forward='.&escape($msgid).$sqs.                       .&mt('Reply')
       '"><b>'.&mt('Forward').'</b></a></td>'.                       .'</a>');
       '<td><a href="/adm/email?markunread='.&escape($msgid).$sqs.      }
       '"><b>'.&mt('Mark Unread').'</b></a></td>'.      push(@functionlist,'<a href="/adm/email?forward='.&escape($msgid).$sqs.'">'
       '<td><a href="/adm/email?markdel='.&escape($msgid).$sqs.                    .&mt('Forward')
       '"><b>'.&mt('Delete').'</b></a></td>'.                    .'</a>');
       '<td><a href="/adm/email?'.$sqs.      push(@functionlist,'<a href="/adm/email?markunread='.&escape($msgid).$sqs.'">'
       ($env{'form.dismode'} eq 'new'?'&folder=new':'').                    .&mt('Mark Unread')
       '"><b>'.&mt('Back to Folder Display').'</b></a></td>');                    .'</a>');
       push(@functionlist,'<a href="/adm/email?markdel='.&escape($msgid).$sqs.'">'
                     .&mt('Delete')
                     .'</a>');
   
   # Prepare available navigation
       my @navigationlist;
     if ($counter > 0){      if ($counter > 0){
  $r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.          push(@navigationlist,'<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(@navigationlist,'<a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs.'">'
   '"><b>'.&mt('Next').'</b></a></td>');                            .&mt('Next')
                             .'</a>');
       }
       push(@navigationlist,'<a href="/adm/email?'.$sqs.'">'
                     .&mt('Back to Folder Display')
                     .'</a>');
   
   # Prepare available actions
       my $symb;
       if (defined($content{'symb'})) {
           $symb = $content{'symb'};
       } elsif (defined($content{'baseurl'})) {
           $symb=&Apache::lonnet::symbread($content{'baseurl'});
     }      }
     $r->print('</tr></table>');      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>');  
  my $symb=&Apache::lonnet::symbread($content{'baseurl'});         if (($env{'request.course.id'}) && ($from_student) &&
  if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {              (&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(
     }                                        '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, navigationlist, 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();
   
           # Navigationlist
           $functions.=&Apache::lonhtmlcommon::start_funclist(
                       &mt('Navigation'));
           foreach my $item (@navigationlist) {
               $functions.=&Apache::lonhtmlcommon::add_item_funclist($item);
           }
           $functions .= &Apache::lonhtmlcommon::end_funclist();
   
           # Actionlist
           if (@actionlist) {
               $functions.=&Apache::lonhtmlcommon::start_funclist(
                               &mt('Currently available actions (will open extra window)'));
               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);
       }
       my ($restitle,$baseurl,$refers_to);
       if (defined($content{'resource_title'})) {
           $restitle = $content{'resource_title'};
       } else {
           if (defined($content{'baseurl'})) {
               $restitle = &Apache::lonnet::gettitle($content{'baseurl'});
           }
       }
       if (defined($content{'baseurl'})) {
           $baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'});
       }
       $r->print('<div class="LC_clear_float_footer">');
       if ($from_student && $see_anonymous ) {
    $r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}).'</br>');
       }
   
       # Display LON-CAPA Message (Start)
       # Subject
       $r->print('</div>'
                .&Apache::lonhtmlcommon::start_pick_box()
                .&Apache::lonhtmlcommon::row_title(&mt('Subject'))
                .$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'})) {
                       if (ref($recipients{'group_cc_broadcast'}) eq 'ARRAY') { 
                           $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'} ne '') {
           if ($content{'courseid'} =~ m{^$match_domain\_$match_courseid$}) {
               my %courseinfo;
               %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'},
                                                              {'one_time' => 1});
               my $description = $courseinfo{'description'};
               if ($description ne '') {
                   $r->print(&Apache::lonhtmlcommon::row_title(&mt($crstype))
                            .$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 (defined($content{'courseid'}) && defined($env{'request.course.id'})) {
               if ($content{'courseid'} eq $env{'request.course.id'}) {
                   my $symblink;
                   my $showsymb = &Apache::lonenc::check_decrypt($symb);
                   my $showurl = &Apache::lonenc::check_decrypt($baseurl);
                   my $encrypturl = &Apache::lonnet::EXT('resource.0.encrypturl',
                                 $showsymb,$env{'user.domain'},$env{'user.name'});
                   if ($symb) {
                       if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
                           $showsymb = &Apache::lonenc::check_encrypt($symb);
                       }
                       $symblink = '?symb='.$showsymb;
                   }
                   if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
                       $showurl = $baseurl;
                   }
                   $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                            .'<a href="'.$showurl.$symblink.'">'.$restitle.'</a>'
                            .&Apache::lonhtmlcommon::row_closure()
                   );
                   $refers_to = 1;
               }
           }
           if (!$refers_to) {
               if ($baseurl =~ m-^/enc/-) {
                   if (defined($content{'courseid'})) {
                       if (!$env{'request.course.id'}) {
                           my $unencurl =
                              &Apache::lonenc::unencrypted($baseurl,
                                                           $content{'courseid'});
                           if ($unencurl ne '') {
                               if (&Apache::lonnet::allowed('bre',$unencurl)) {
                                   $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                                            .'<a href="'.$unencurl.'">'.$restitle.'</a>'
                                            .&Apache::lonhtmlcommon::row_closure()
                                   );
                               }
                           }
                       }
                   }
               } else {
                   if (&Apache::lonnet::allowed('bre',$baseurl)) {
                       $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                                .'<a href="'.$baseurl.'">'.$restitle.'</a>'
                                .&Apache::lonhtmlcommon::row_closure()
                       );
   
                   }
               }
           }
       }
   
       # Message
       $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;
     }      }
     $tolist = join(', ',@recipients);      if (newWindow) {
     $r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}.          caller = newWindow;
       ($folder ne 'sent'?'<br /><b>'.&mt('From').':</b> '.      }
       &Apache::loncommon::aboutmewrapper(      writeWin(caller);
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),      return;
  $content{'sendername'},$content{'senderdomain'}).' ('.  }
       $content{'sendername'}.' at '.  
       $content{'senderdomain'}.') ':'<br /><b>'.&mt('To').':</b> '.  function writeWin(caller) {
               $tolist).      caller.document.writeln('$start_page $body $end_page');
       ($content{'courseid'}?'<br /><b>'.&mt($crstype).':</b> '.$courseinfo{'description'}.      caller.document.close();
        ($content{'coursesec'}?' ('.&mt('Section').': '.$content{'coursesec'}.')':''):'').      caller.focus();
       '<br /><b>'.&mt('Time').':</b> '.$content{'time'}.  }
       ($content{'baseurl'}?'<br /><b>'.&mt('Refers to').':</b> <a href="'.$content{'baseurl'}.'">'.  // ]]>
        $content{'baseurl'}.' ('.&Apache::lonnet::gettitle($content{'baseurl'}).')</a>':'').  </script>
       '<p><pre>'.  
       &Apache::lontexconvert::msgtexconverted($content{'message'},1).  ENDJS
       '</pre><hr />'.&displayresource(%content).'</p>');              $broadcast_link = 1;
     return;             }
       }
       return $broadcast_link;
 }  }
   
 # =========================================================== Show the citation  # =========================================================== Show the citation
Line 1932  sub displayresource { Line 2642  sub displayresource {
 #  #
     if (($env{'request.course.id'} eq $content{'courseid'})      if (($env{'request.course.id'} eq $content{'courseid'})
      && (&Apache::lonnet::allowed('vgr',$content{'courseid'}))) {       && (&Apache::lonnet::allowed('vgr',$content{'courseid'}))) {
  my $symb=&Apache::lonnet::symbread($content{'baseurl'});          my $symb;
           if (defined($content{'symb'})) {
               $symb = $content{'symb'};
           } else { 
       $symb=&Apache::lonnet::symbread($content{'baseurl'});
           }
 # Could not get a symb, give up  # Could not get a symb, give up
  unless ($symb) { return $content{'citation'}; }   unless ($symb) { return $content{'citation'}; }
 # Have a symb, can render  # Have a symb, can render
Line 1961  sub displayresource { Line 2676  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 2001  sub storedcommentlisting { Line 2715  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 2012  sub storedcommentlisting { Line 2726  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 2023  sub sendoffmail { Line 2737  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 2034  sub sendoffmail { Line 2751  sub sendoffmail {
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     }      }
     if ($env{'form.send'}) {      if ($env{'form.send'}) {
         if ($group eq '') {          if (!$env{'form.multiforward'}) { 
     &printheader($r,'','Messages being sent.');              if ($group eq '') {
         } else {          &printheader($r,'','Messages being sent.');
             $r->print(&groupmail_header('sending',$group));              } else {
                   $r->print(&groupmail_header('sending',$group));
               }
         }          }
  $r->rflush();   $r->rflush();
  my %content=();   my %content=();
Line 2045  sub sendoffmail { Line 2764  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 2057  sub sendoffmail { Line 2779  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(/\,/,$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 2116  sub sendoffmail { Line 2897  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;
           my %permresults;
  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.="\n".'<hr />'."\n".$toaddr{$address};
               }
     my @thismsg;      my @thismsg;
     if ((($env{'form.critmsg'}) || ($env{'form.sendbck'})) &&       if ($msgtype eq 'critical') {
  (&Apache::lonnet::allowed('srm',$env{'request.course.id'})   $r->print(&mt('Sending critical message').' '.
  || &Apache::lonnet::allowed('srm',$env{'request.course.id'}.                                $recuname.':'.$recdomain.': ');
      '/'.$env{'request.course.sec'}))) {  
  $r->print(&mt('Sending critical message').' '.$recuname.':'.$recdomain.': ');  
  @thismsg=   @thismsg=
     &Apache::lonmsg::user_crit_msg($recuname,$recdomain,      &Apache::lonmsg::user_crit_msg($recuname,$recdomain,
    $msgsubj,$msgtxt,     $msgsubj,$msgtxt,
    $env{'form.sendbck'},     $env{'form.sendbck'},
    $env{'form.permanent'},     $env{'form.permanent'},
    \$sentmessage{$address});     \$sentmessage{$address},
                                                      $nosentstore,$recipid,
                                                      $attachmenturl,\%permresults);
     } 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,
                                                        $nosentstore,$recipid,
                                                        \%permresults);
             }              }
     if (($env{'request.course.id'}) && (($msgtype eq 'critical') ||       $msg_status{$recuname.':'.$recdomain}=join(' ',@thismsg);
                                          ($env{'form.sendmode'} eq 'group'))) {      if ($msg_status{$recuname.':'.$recdomain} =~ /(ok|con_delayed)/) {  
         $specialmsg_status{$recuname.':'.$recdomain} =          $numsent++;
     join(' ',@thismsg);                  push(@recusers,$recuname);
  foreach my $result (@thismsg) {                  push(@recudoms,$recdomain);
     if ($result eq 'ok') {                  if ($1 eq 'ok') {
  $numspecial++;                      $r->print('ok ');
     }                  }
  }                  if ($permresults{$recuname.':'.$recdomain}) {
                       $r->print(' (email) ');
                   }
     }      }
     $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();
                   &Apache::lonmsg::process_sent_mail($msgsubj,$subj_prefix,
                          $numsent,$stamp,$env{'user.name'},
                          $env{'user.domain'},$msgcount,$context,
                          $$,$savemsg,\@recusers,\@recudoms,undef,$attachmenturl,
                          '','','','',$recipid);
             }              }
         }          }
     } else {          if (!$env{'form.multiforward'}) {
  &printheader($r,'','No messages sent.');               if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) {
     }                  my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Completed.'));
     if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) {                  $message = &Apache::loncommon::confirmwrapper($message);
  $r->print('<br /><span class="LC_success">'.&mt('Completed.').'</span>');                  $r->print($message);
  if ($env{'form.displayedcrit'}) {          if ($env{'form.displayedcrit'}) {
     &discrit($r);              &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 {      } else {
  $r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '.          &printheader($r,'','Messages cancelled.');
   &mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'</p>');          return 'cancelled';
     }      }
       return $sendstatus;
 }  }
   
 # ===================================================================== Handler  # ===================================================================== Handler
Line 2247  sub handler { Line 3093  sub handler {
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
         ['display','replyto','forward','markread','markdel','markunread',          ['display','replyto','forward','markread','markdel','markunread',
          'sendreply','compose','sendmail','critical','recname','recdom',           'sendreply','compose','sendmail','critical','recname','recdom',
          'recordftf','sortedby','block','folder','startdis','interdis',           'recordftf','sortedby','folder','startdis','interdis',
  'showcommentbaseurl','dismode','group','subject','text','ref']);   'showcommentbaseurl','dismode','group','subject','text','ref',
     $sqs='&sortedby='.$env{'form.sortedby'};           'msgstatus']);
       $sqs='&amp;sortedby='.$env{'form.sortedby'};
   
 # ------------------------------------------------------ They checked for email  # ------------------------------------------------------ They checked for email
     unless ($env{'form.block'}) {      &Apache::lonnet::put('email_status',{'recnewemail'=>0});
         &Apache::lonnet::put('email_status',{'recnewemail'=>0});  
     }  
   
 # ----------------------------------------------------------------- Breadcrumbs  # ----------------------------------------------------------------- Breadcrumbs
   
     &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 2270  sub handler { Line 3115  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 2282  sub handler { Line 3127  sub handler {
     }      }
   
 # --------------------------------------------------------------------- Display  # --------------------------------------------------------------------- Display
       my $msgstatus = $env{'form.msgstatus'};
     $startdis=$env{'form.startdis'};      $startdis=$env{'form.startdis'};
     $startdis--;      if ($startdis ne '') {
           $startdis--;
       }
     unless ($startdis) { $startdis=0; }      unless ($startdis) { $startdis=0; }
   
     $interdis=$env{'form.interdis'};  
     unless ($interdis) { $interdis=20; }  
     $sqs.='&interdis='.$interdis;  
   
     if ($env{'form.firstview'}) {      if ($env{'form.firstview'}) {
  $startdis=0;   $startdis=0;
     }      }
Line 2304  sub handler { Line 3147  sub handler {
  $startdis++;   $startdis++;
     }      }
     my $postedstartdis=$startdis+1;      my $postedstartdis=$startdis+1;
     $sqs.='&startdis='.$postedstartdis;      $sqs.='&amp;startdis='.$postedstartdis;
   
 # --------------------------------------------------------------- Render Output  # --------------------------------------------------------------- Render Output
   
     if ($env{'form.display'}) {      if ($env{'form.display'}) {
  &displaymessage($r,$env{'form.display'},$folder);   &displaymessage($r,$env{'form.display'},$folder,$msgstatus);
     } elsif ($env{'form.replyto'}) {      } elsif ($env{'form.replyto'}) {
  &compout($r,'',$env{'form.replyto'},undef,undef,$folder,$dismode);   &compout($r,'',$env{'form.replyto'},undef,undef,$folder,$dismode);
     } elsif ($env{'form.confirm'}) {      } elsif ($env{'form.confirm'}) {
  &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 2341  sub handler { Line 3187  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" style="font-size: inherit;">'.$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));   &disall($r,($folder?$folder:$dismode),$msgstatus);
     } elsif ($env{'form.markedmove'}) {      } elsif ($env{'form.markedaction'} eq 'markedforward') {
  my ($total,$failed,@failed_msg)=(0,0);          my $total = 0;
  foreach my $key (keys(%env)) {          my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');
     if ($key=~/^form\.delmark_(.*)$/) {          foreach my $msgid (@to_forward) {
  my ($result,$msg) =              &statuschange(&unescape($msgid),'forwarded',$folder);
     &movemsg(&unescape($1),$folder,              $total ++;
      $env{'form.movetofolder'});          }
  if ($result) {          if ($total > 0) {
               &compout($r,undef,undef,undef,undef,$folder,$dismode,$total);
           }
       } elsif ($env{'form.markedaction'} eq 'markedread') {
           my $total = 0;
           my @to_markread = &Apache::loncommon::get_env_multiple('form.delmark');
           foreach my $msgid (@to_markread) {
               &statuschange(&unescape($msgid),'read',$folder);
               $total ++;
           }
           &printheader($r,'','Marked Messages Read');
           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);
           &disall($r,($folder?$folder:$dismode),$msgstatus);
       } elsif ($env{'form.markedaction'} eq 'markedunread') {
           my $total = 0;
           my @to_markunread = &Apache::loncommon::get_env_multiple('form.delmark');
           foreach my $msgid (@to_markunread) {
               &statuschange(&unescape($msgid),'new',$folder);
               $total ++;
           }
           &printheader($r,'','Marked Messages Unread');
           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);
           &disall($r,($folder?$folder:$dismode),$msgstatus);
       } elsif ($env{'form.markedaction'} eq 'markedmove') {
           my $destfolder = $env{'form.movetofolder'};
           my %gotfolders = &Apache::lonmsg::get_user_folders();
           &printheader($r,'','Moved Messages');
           if (!defined($gotfolders{$destfolder})) {
               $r->print(&mt('Destination folder [_1] is not a valid folder',
                             '<span class="LC_filename">'.$destfolder.'</span>'));
           } else {
       my ($total,$failed,@failed_msg)=(0,0);
               my @to_move = &Apache::loncommon::get_env_multiple('form.delmark');
               foreach my $msgid (@to_move) {
           my ($result,$msg) = &movemsg(&unescape($msgid),$folder,
                        $env{'form.movetofolder'});
           if ($result) {
     $total++;      $total++;
  } else {          } else {
     $failed++;      $failed++;
     push(@failed_msg,$msg);      push(@failed_msg,$msg);
  }          }
     }      }
  }              my $message = '';
  &printheader($r,'','Moved Messages');              if ($failed) {
  if ($failed) {                  $message .= &Apache::lonhtmlcommon::confirm_success(&mt('Failed to move [quant,_1,message]',$failed),1);
     $r->print('<p class="LC_error">                  $message .= '<p class="LC_error" style="font-size: inherit;">'.
                           '.&mt('Failed to move [_1] message(s)',$failed).              join("</p>\n<p class=\"LC_error\" style=\"font-size: inherit;\">",@failed_msg).
       '</p>');              "</p>\n";
     $r->print('<p class="LC_error">'.              }
       join("</p>\n<p class=\"LC_error\">",@failed_msg).              $message .= &Apache::lonhtmlcommon::confirm_success(&mt('Moved [quant,_1,message]',$total));
       "</p>\n");              $message = &Apache::loncommon::confirmwrapper($message);
  }              $r->print($message);
  $r->print(&mt('Moved [_1] message(s)',$total).'<p>');            # $r->print('<p>');
           }
  &Apache::loncommunicate::menu($r);   &Apache::loncommunicate::menu($r);
  &disall($r,($folder?$folder:$dismode));   &disall($r,($folder?$folder:$dismode),$msgstatus);
     } elsif ($env{'form.markeddel'}) {      } elsif ($env{'form.markedaction'} eq 'markeddel') {
  my ($total,$failed,@failed_msg)=(0,0);   my ($total,$failed,@failed_msg)=(0,0);
  foreach my $key (keys(%env)) {          my @to_delete = &Apache::loncommon::get_env_multiple('form.delmark');
     if ($key=~/^form\.delmark_(.*)$/) {          foreach my $msgid (@to_delete) {
  my ($result,$msg) =       my ($result,$msg) = &statuschange(&unescape($msgid),'deleted', 
     &statuschange(&unescape($1),'deleted',                $folder);
   $folder);      if ($result) {
  if ($result) {          $total++;
     $total++;      } else {
  } else {          $failed++;
     $failed++;   push(@failed_msg,$msg);
     push(@failed_msg,$msg);  
  }  
     }      }
  }   }
  &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" style="font-size: inherit;">'.
       '</p>');        join("</p>\n<p class=\"LC_error\" style=\"font-size: inherit;\">",@failed_msg).
     $r->print('<p class="LC_error">'.        "</p>\n";
       join("</p>\n<p class=\"LC_error\">",@failed_msg).   }
       "</p>\n");          $message .= &Apache::lonhtmlcommon::confirm_success(&mt('Deleted [quant,_1,message]',$total));
  }          $message = &Apache::loncommon::confirmwrapper($message);
  $r->print(&mt('Deleted [_1] message(s)',$total).'<p>');          $r->print($message);
         # $r->print('<p>');
  &Apache::loncommunicate::menu($r);   &Apache::loncommunicate::menu($r);
  &disall($r,($folder?$folder:$dismode));   &disall($r,($folder?$folder:$dismode),$msgstatus);
     } elsif ($env{'form.markunread'}) {      } elsif ($env{'form.markunread'}) {
  &printheader($r,'','Marked Message as Unread');   &printheader($r,'','Marked Message as Unread');
  &statuschange($env{'form.markunread'},'new');   &statuschange($env{'form.markunread'},'new');
  &Apache::loncommunicate::menu($r);   &Apache::loncommunicate::menu($r);
  &disall($r,($folder?$folder:$dismode));   &disall($r,($folder?$folder:$dismode),$msgstatus);
     } elsif ($env{'form.compose'}) {      } elsif ($env{'form.compose'}) {
  &compout($r,'','',$env{'form.compose'});   &compout($r,'','',$env{'form.compose'});
     } elsif ($env{'form.recordftf'}) {      } elsif ($env{'form.recordftf'}) {
  &facetoface($r,$env{'form.recordftf'});   &facetoface($r,$env{'form.recordftf'});
     } elsif ($env{'form.block'}) {  
         &examblock($r,$env{'form.block'});  
     } elsif ($env{'form.sendmail'}) {      } elsif ($env{'form.sendmail'}) {
  &sendoffmail($r,$folder);          if ($env{'form.multiforward'}) {
               &printheader($r,'','Messages being sent.');
               my $fixed_subj = $env{'form.subject'};
               my $suffix=&Apache::lonmsg::foldersuffix($folder);
               my (%sendresult,%forwardok,%forwardfail,$fwdcount);
               my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');
               foreach my $item (@to_forward) {
                   my $msgid=&unescape($item);
                   my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
                   my %content=&Apache::lonmsg::unpackagemsg($message{$msgid},1,1);
                   if ($env{'form.showorigsubj'}) {
                       $env{'form.subject'} = $fixed_subj.$content{'subject'};
                   } else {
                       $env{'form.subject'} = '';
                   }
                   my $uname = $content{'sendername'};
                   my $udom = $content{'senderdomain'};
                   &statuschange($msgid,'forwarded',$folder);
                   if ($env{'form.showorigsender'}) {
                       $env{'form.message'} = $env{'form.msgheader'}.' '.
                           &Apache::loncommon::plainname($uname,$udom).' ('.
                                              $uname.':'.$udom.')';
                   }
                   $env{'form.message'}.="\n\n-- Forwarded message --\n\n".
                                         $content{'message'};
                   $env{'form.attachmenturl'} = $content{'attachmenturl'};
                   $env{'form.multiforwid'} = $item;
                   $fwdcount ++;
                   $r->print($fwdcount.': '); 
                   $sendresult{$msgid} = &sendoffmail($r,$folder);
                   $r->print('<br />');
               }
               foreach my $key (keys(%sendresult)) {
                   if ($sendresult{$key} =~/^(\s*(?:ok|con_delayed)\s*)*$/) {
                       $forwardok{$key} = $sendresult{$key};
                   } else {
                       $forwardfail{$key} = $sendresult{$key}; 
                   }
               }
               if (keys(%forwardok) > 0) {
                   my $count = keys(%forwardok);
                   my $message = &Apache::lonhtmlcommon::confirm_success(&mt('[quant,_1,message] forwarded.',$count));
                   $message = &Apache::loncommon::confirmwrapper($message);
                   $r->print($message);
               }
               if (keys(%forwardfail) > 0) {
                   my $count = keys(%forwardfail);
                   my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Could not forward [quant,_1,message].',$count),1);
                   foreach my $key (keys(%forwardfail)) {
                       $message .= '<br />'.&mt('Could not deliver forwarded message.').'</span> '.
                                   &mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.')';
                   }
                   $message = &Apache::loncommon::confirmwrapper($message);
                   $r->print($message);
               }
               &Apache::loncommunicate::menu($r);
           } else {
       &sendoffmail($r,$folder);
           }
  if ($env{'form.storebasecomment'}) {   if ($env{'form.storebasecomment'}) {
     &storecomment($r);      &storecomment($r);
         }          }
Line 2425  sub handler { Line 3373  sub handler {
       $env{'form.message'},'/adm/communicate','public');        $env{'form.message'},'/adm/communicate','public');
  }   }
  if ((!exists($env{'form.group'})) && (!$env{'form.displayedcrit'})) {   if ((!exists($env{'form.group'})) && (!$env{'form.displayedcrit'})) {
     &disall($r,($folder?$folder:$dismode));      &disall($r,($folder?$folder:$dismode),$msgstatus);
  }   }
     } elsif ($env{'form.newfolder'}) {      } elsif ($env{'form.newfolder'}) {
  &printheader($r,'','New Folder');   &printheader($r,'','New Folder');
         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);
  &disall($r,$showfolder);   &disall($r,$showfolder,$msgstatus);
     } elsif ($env{'form.showcommentbaseurl'}) {      } elsif ($env{'form.showcommentbaseurl'}) {
  &storedcommentlisting($r);   &storedcommentlisting($r);
     } elsif ($env{'form.folderaction'} eq 'delete') {      } elsif ($env{'form.folderaction'} eq 'delete') {
Line 2447  sub handler { Line 3398  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'} = '';
         } 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);
         &disall($r,$showfolder);          &disall($r,$showfolder,$msgstatus);
     } elsif ($env{'form.folderaction'} eq 'rename') {      } elsif ($env{'form.folderaction'} eq 'rename') {
         &printheader($r,'','Renamed Folder');          &printheader($r,'','Renamed Folder');
         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);
         &disall($r,$showfolder);          &disall($r,$showfolder,$msgstatus);
     } else {      } else {
  &printheader($r,'','Display All Messages');   &printheader($r,'','Display All Messages');
  &Apache::loncommunicate::menu($r);   &Apache::loncommunicate::menu($r);
  &disall($r,($folder?$folder:$dismode));   &disall($r,($folder?$folder:$dismode),$msgstatus);
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
Line 2478  sub handler { Line 3438  sub handler {
   
 =pod  =pod
   
 =back  
   
 =cut  =cut
   
 1;   1; 

Removed from v.1.49  
changed lines
  Added in v.1.181.2.2


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