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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.52 and 1.181.2.10

version 1.52, 2006/12/17 15:52:37 version 1.181.2.10, 2023/09/13 13:57:55
Line 33  package Apache::lonmsgdisplay; Line 33  package Apache::lonmsgdisplay;
   
 =head1 NAME  =head1 NAME
   
 Apache::lonmsg: supports internal messaging  Apache::lonmsgdisplay: supports internal messaging
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 lonmsg provides routines for sending messages, receiving messages, and  lonmsgdisplay provides a handler to allow users to read, send, 
 a handler to allow users to read, send, and delete messages.  and delete messages, and to create and delete message folders,
   and to move messages between folders.
   
 =head1 OVERVIEW  =head1 OVERVIEW
   
Line 93  addresses on their B<PREF> screen, but g Line 94  addresses on their B<PREF> screen, but g
 are much more useful than traditional email can be made to be, even  are much more useful than traditional email can be made to be, even
 with HTML support.  with HTML support.
   
 Right now, this document will cover just how to send a message, since  
 it is likely you will not need to programmatically read messages,  
 since lonmsg already implements that functionality.  
   
 The routines used to package messages and unpackage messages are not  
 only used by lonmsg when creating/extracting messages for LON-CAPA's  
 internal messaging system, but also by lonnotify.pm which is available  
 for use by Domain Coordinators to broadcast standard e-mail to specified  
 users in their domain.  The XML packaging used in the two cases is very  
 similar.  The differences are the use of <recuser>$uname</recuser> and   
 <recdomain>$udom</recdomain> in stored internal messages, compared   
 with <recipient username="$uname:$udom">$email</recipient> in stored  
 Domain Coordinator e-mail for the storage of information about   
 recipients of the message/e-mail.  
   
 =head1 FUNCTIONS  
   
 =over 4  
   
 =cut  =cut
   
 use strict;  use strict;
Line 119  use Apache::lonnet; Line 101  use Apache::lonnet;
 use HTML::TokeParser();  use HTML::TokeParser();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonhtmlcommon();
   use Apache::longroup;
   use Apache::lonnavmaps;
 use Apache::lontexconvert();  use Apache::lontexconvert();
 use HTML::Entities();  use HTML::Entities();
 use Apache::lonlocal;  use Apache::lonlocal;
Line 126  use Apache::loncommunicate; Line 111  use Apache::loncommunicate;
 use Apache::lonfeedback;  use Apache::lonfeedback;
 use Apache::lonrss();  use Apache::lonrss();
 use Apache::lonselstudent();  use Apache::lonselstudent();
   use Apache::lonenc();
 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',                  nnff => 'New Name for Folder',
                 newn => 'New Name',                  newn => 'New Name',
                 thfm => 'The folder may not be renamed',                  fmnb => 'Folder may not be renamed as it is a folder provided by the system.',
                 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.',
                 asth => 'as this name is already in use for a system-provided or user-defined folder.',  
                 the => 'The',  
                 tnfm => 'The new folder may not be named',  
   
     );      );
       &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 160  sub folderlist { Line 151  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 173  sub folderlist { Line 168  sub folderlist {
     my %userfolders;      my %userfolders;
   
     foreach my $key (keys(%gotfolders)) {      foreach my $key (keys(%gotfolders)) {
         $key =~ s/(['"])/\$1/g;          $key =~ s/(['"])/\$1/g; #' stupid emacs
         $userfolders{$key} = $key;          $userfolders{$key} = $key;
     }      }
     my @userorder = sort(keys(%userfolders));      my @userorder = sort(keys(%userfolders));
Line 181  sub folderlist { Line 176  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 191  function folder_choice(targetform,caller Line 187  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("$lt{'the'} '"+permfolders_vals[i]+"' $lt{'fmnb'}");                      alert("'"+permfolders_vals[i]+"' -- $js_lt{'fmnb'}");
                     return;                      return;
                 }                  }
             }              }
             var foldername=prompt('$lt{'nnff'}','$lt{'newn'}');              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("$lt{'thfm'} '"+foldername+"' $lt{'asth'}");                          alert("'"+foldername+"' $js_lt{'asth'}");
                         return;                          return;
                     }                      }
                 }                  }
Line 216  function folder_choice(targetform,caller Line 212  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("$lt{'tnfm'} '"+newname+"' $lt{'asth'}");                      alert("'"+newname+"' -- $js_lt{'asth'}");
                     return;                      return;
                 }                  }
             }              }
Line 224  function folder_choice(targetform,caller Line 220  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><b>'.$html_lt{'status'}.'</b><br />'."\n".
          &Apache::loncommon::select_form($msgstatus,'msgstatus',\%statushash).'
      </td>       </td>
      <td align="center"><b>'.$lt{'show'}.'</b><br />       <td style="padding-right: 40px;">
       <select name="interdis">'.           <b>'.$html_lt{'actn'}.'</b><br />'."\n".'
           join("\n",map { '<option value="'.$_.'"'.           <span class="LC_nobreak">'.
       ($_==$interdis?' selected="selected"':'').'>'.$_.'</option>'            &Apache::loncommon::select_form('view','folderaction',\%actions).
  }           ' <input type="button" value="'.$html_lt{'go'}.
        (10,20,50,100,200)).'</select>           '" onclick="javascript:folder_choice(this.form,'."'change'".');" />
            </span>
      </td>       </td>
      <td align="center"><b>'.$lt{'actn'}.'</b><br />'.       <td style="border-left: 1px solid;padding-left: 40px;">
          &Apache::loncommon::select_form('view','folderaction',%actions).'           <b>'.&mt('New Folder').'</b><br />'."\n".'
      </td><td><br />'.           <span class="LC_nobreak">
     '<input type="button" value="'.$lt{'go'}.'" onClick="javascript:folder_choice(this.form,'."'change'".');" />           <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 270  sub get_permanent_folders { Line 271  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 344  sub makefolder { Line 377  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 355  sub deletefolder { Line 388  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 381  sub renamefolder { Line 414  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 490  sub movemsg { Line 526  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 499  sub discourse { Line 537  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 553  sub disgroup { Line 646  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 569  sub disgroup { Line 662  sub disgroup {
                 push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);                  push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);
             }              }
         }          }
         $result .= &group_check_uncheck();          $r->print(&group_check_uncheck());
         $result .= '<table border="0" cellspacing="8" cellpadding="2">'.  
                    '<tr>';  
         foreach my $status (@statustypes)  {          foreach my $status (@statustypes)  {
             if (ref($numitems) eq 'HASH') {              if (ref($numitems) eq 'HASH') {
                 if ((defined($$numitems{$status})) && ($$numitems{$status})) {                  if ((defined($$numitems{$status})) && ($$numitems{$status})) {
                     $result.='<td valign="top">'.                      my $formname = $status.'users';
                              '<fieldset><legend><b>'.$lt{$status}.                      if (ref($access_status) eq 'HASH') {
                              '</b></legend><nobr>'.                          $access_status->{$status} = $$numitems{$status};
                              '<input type="button" value="'.&mt('Check All').'" '.                      }
                              'onclick="javascript:toggleAll('."'".$status."','check'".')" />'.                      $r->print('<fieldset>'.
                              '&nbsp;&nbsp;'.                                '<legend>'.$lt{$status}.'</legend>'.
                              '<input type="button" value="'.&mt('Uncheck All').'" '.                                '<form name="'.$formname.'" 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 667  sub groupmail_header { Line 765  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=>&mt('Group').": $description",
                 title=>&mt("Go to group's home page"),
                 no_mt=>1,
                },);
       } else {
           &Apache::lonhtmlcommon::add_breadcrumb
               ({text=>&mt('Group').": $description",
                 no_mt=>1,});
     }      }
     &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');                                      &mt('Group messages - [_1]',$description),
                                                           undef,undef,undef,undef,1);
     return $groupheader;      return $groupheader;
 }  }
   
Line 699  sub groupmail_sent { Line 817  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 709  sub groupmail_sent { Line 827  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 class="LC_wordwrap">'.&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 745  $content{'sendername'}.':'. Line 913  $content{'sendername'}.':'.
 }  }
   
 sub sortedmessages {  sub sortedmessages {
     my ($blocked,$startblock,$endblock,$numblocked,$folder) = @_;      my ($blocked,$startblock,$endblock,$by_ip,$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 762  sub sortedmessages { Line 929  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 776  sub sortedmessages { Line 945  sub sortedmessages {
     push(@temp1,$content{'recuser'},$content{'recdomain'});      push(@temp1,$content{'recuser'},$content{'recdomain'});
  }   }
         # Check whether message was sent during blocking period.          # Check whether message was sent during blocking period.
         if ($sendtime >= $startblock && ($sendtime <= $endblock && $endblock > 0) ) {          if (($by_ip) ||
               (($sendtime >= $startblock) && ($sendtime <= $endblock && $endblock > 0))) {
             $$blocked{$msgid} = 'ON';              $$blocked{$msgid} = 'ON';
             $$numblocked ++;              $$numblocked ++;
         } else {           } else { 
Line 852  sub get_course_desc { Line 1022  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 $clientip = &Apache::lonnet::get_requestor_ip($r);
       my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) =
           &Apache::loncommon::blockcheck(\%setters,'com',$clientip);
       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,$by_ip,\$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,$by_ip,$clientip,$blockdom,
                                            \%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) {
           $r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
                                        $by_ip,$clientip,$blockdom,\%setters));
       }
   }
   
   sub blocked_in_folder {
       my ($numblocked,$startblock,$endblock,$by_ip,$clientip,$blockdom,$setters) = @_;
       my $output;
       if ($by_ip) {
           $output = '<br /><br />'.
                     &mt('[quant,_1,message is, messages are] not viewable because display of LON-CAPA messages is blocked for your current IP address: [_2].',$numblocked,$clientip).'<br />'.
                     &mt('Note: communication is being blocked for certain IP address(es).');
       } else {
         my $beginblock = &Apache::lonlocal::locallocaltime($startblock);          my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
         my $finishblock = &Apache::lonlocal::locallocaltime($endblock);          my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
         $r->print('<br /><br />'.          $output = '<br /><br />'.
                   &mt('[quant,_1,message is, messages are] not viewable because display of LON-CAPA messages sent to you by other students between [_2] and [_3] is currently being blocked because of online exams.',$numblocked,$beginblock,$finishblock));                    &mt('[quant,_1,message is, messages are] not viewable because display of LON-CAPA messages sent to you by other students between [_2] and [_3] is currently being blocked because of online exams.',$numblocked,$beginblock,$finishblock);
         $r->print(&Apache::loncommon::build_block_table($startblock,$endblock,  
                                                         \%setters));  
     }      }
       #$output .= &Apache::loncommon::build_block_table($startblock,$endblock,
       #                                                 $setters);
       my ($blocked, $blocktext) = &Apache::loncommon::blocking_status("com",$clientip);
       $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 $clientip = &Apache::lonnet::get_requestor_ip($r);
       my %setters;
       my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) =
           &Apache::loncommon::blockcheck(\%setters,'com',$clientip);
       if ($by_ip) {
           my $showdom = &Apache::lonnet::domain($blockdom);
           if ($showdom eq '') {
               $showdom = $blockdom;
           }
           $r->print(&Apache::loncommon::start_page('Messages'));
           $r->print(&Apache::lonhtmlcommon::breadcrumbs('Send and display messages'));
           $r->print('<p class="LC_warning">'.
                    &mt('Sending of LON-CAPA messages is blocked for your current IP address: [_1].',$clientip).'</p>'.
                    '<ul><li>'.
                    &mt('Note: communication is being blocked for certain IP address(es).').
                    '</li><li>'.
                    &mt('This restriction was set by an administrator in the [_1] LON-CAPA domain.',$showdom).
                    '</li></ul>');
           return;
       }
     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 1146  sub compout { Line 1401  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 1155  sub compout { Line 1425  sub compout {
     my $dissub='';      my $dissub='';
     my $dismsg='';      my $dismsg='';
     my $disbase='';      my $disbase='';
     my $func=&mt('Send New');      my $attachrow;
       my $func1='Send'; # do not translate here!
       my %func2=( # do not translate here!
                  'ma'  => 'Message',
                  'msg' => 'Messages',
                 );
     my %lt=&Apache::lonlocal::texthash('us'  => 'Username',      my %lt=&Apache::lonlocal::texthash('us'  => 'Username',
        'do'  => 'Domain',         'do'  => 'Domain',
        'ad'  => 'Additional Recipients',         'ad'  => 'Additional Recipients',
                                          'rt'  => 'Reply to',
                                          'ar'  => 'Allow replies',
        'sb'  => 'Subject',         'sb'  => 'Subject',
        'ca'  => 'Cancel',         'ca'  => 'Cancel',
        'ma'  => 'Mail',  
                                        'gen' => 'Generate messages from a file',                                         'gen' => 'Generate messages from a file',
                                        'gmt' => 'General message text',                                         'gmt' => 'General message text',
                                        'tff' => 'The file format for the uploaded portion of the message is',                                         'tff' => 'The file format for the uploaded portion of the message is',
                                        'uas' => 'Upload and Send',                                         'uas' => 'Upload and Send',
                                          'atta' => 'Attachment',
                                          'to'   => 'To:',
                                       );                                        );
       my %attachmax = (
                        text => &mt('(1 MB max size)'),
                        num  => 1048576,
                       );
       if (!$forwarding && !$multiforward) {
           $attachrow = '<tr><td colspan="3"><b>'.$lt{'atta'}.'</b> '.$attachmax{'text'}
               .': <input type="file" name="attachment" class="LC_flUpload" />'
               .'<input type="hidden" id="LC_free_space" value="'.$attachmax{'num'}.'" />'
               .'</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 1203  sub compout { Line 1574  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 1213  sub compout { Line 1584  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 1298  ENDCOMP Line 1788  ENDCOMP
 Subject: <input type="text" size="50" name="subject" />  Subject: <input type="text" size="50" name="subject" />
 </p>  </p>
 <p>$lt{'gmt'}:<br />  <p>$lt{'gmt'}:<br />
 <textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg  <textarea name="message" id="message" cols="60" rows="10" wrap="hard" $textareaclass>$dismsg
 </textarea></p>  </textarea></p>
 <p>  <p>
 $lt{'tff'}:  $lt{'tff'}:
Line 1311  ENDBLOCK Line 1801  ENDBLOCK
 '</pre>  '</pre>
 </p>  </p>
 <p>  <p>
 '.&mt('The messages will be assembled from all lines with the respective'."\n".'<tt>username:domain</tt>, and appended to the general message text.'));  '.&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>'));
         $r->print(<<ENDUPLOAD);          $r->print(<<ENDUPLOAD);
 </p>  </p>
 <p>  <p>
Line 1320  $dispcrit Line 1810  $dispcrit
 <input type="submit" value="$lt{'uas'}" /></p>  <input type="submit" value="$lt{'uas'}" /></p>
 ENDUPLOAD  ENDUPLOAD
     }      }
     if ($broadcast eq 'group') {  
        if ($group eq '') {  
            my $studentsel = &discourse();  
            $r->print($studentsel);  
        }  
     }  
     if ($env{'form.displayedcrit'}) {      if ($env{'form.displayedcrit'}) {
  $r->print('<input type="hidden" name="displayedcrit" value="true" />');   $r->print('<input type="hidden" name="displayedcrit" value="true" />');
     }      }
     $r->print('</form>'.      $r->print('</form>');
       &Apache::lonfeedback::generate_preview_button('compemail','message').      if ($hasfloat) {
       &Apache::lonhtmlcommon::htmlareaselectactive('message'));          $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 1343  sub recipient_input_row { Line 1841  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 1378  sub retrieve_instructor_comments { Line 1940  sub retrieve_instructor_comments {
 }  }
   
 sub disfacetoface {  sub disfacetoface {
     my ($r,$user,$domain)=@_;      my ($r,$user,$domain,$target)=@_;
     my $target=$env{'form.grade_target'};      if ($target eq '') {
           $target=$env{'form.grade_target'};
       }
     unless ($env{'request.course.id'}) { return; }      unless ($env{'request.course.id'}) { return; }
     if  (!&Apache::lonnet::allowed('dff',$env{'request.course.id'})      if  (!&Apache::lonnet::allowed('dff',$env{'request.course.id'})
  && ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}.   && ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
Line 1395  sub disfacetoface { Line 1959  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 1411  sub disfacetoface { Line 1977  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 1430  sub disfacetoface { Line 2008  sub disfacetoface {
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.   &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.
 $content{'sendername'}.':'.  $content{'sendername'}.':'.
             $content{'senderdomain'}.') '.$content{'time'}.              $content{'senderdomain'}.') '.$content{'time'}.
             '<br /><pre>'.              '<br /><pre class="LC_wordwrap">'.
               &Apache::lontexconvert::msgtexconverted($content{'message'}).                &Apache::lontexconvert::msgtexconverted($content{'message'}).
       '</pre>';        '</pre>';
      }       }
     # 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 1470  sub facetoface { Line 2050  sub facetoface {
  return;   return;
     }      }
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
     my $leaders = ($crstype eq 'Group') ? 'coordinators and leaders'      my $leaders = ($crstype eq 'Community') ? 'coordinators and leaders'
                                         : 'faculty and staff';                                              : 'faculty and staff';
     &printheader($r,      &printheader($r,
  '/adm/email?recordftf=query',   '/adm/email?recordftf=query',
  "User Notes, Face-to-Face, Critical Messages, Broadcast Messages");   "User Notes, Face-to-Face, Critical Messages, Broadcast Messages, Archived Messages");
 # from query string  # from query string
   
     if ($env{'form.recname'}) { $env{'form.recuname'}=$env{'form.recname'}; }      if ($env{'form.recname'}) { $env{'form.recuname'}=$env{'form.recname'}; }
Line 1489  sub facetoface { Line 2069  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 1516  ENDTREC Line 2099  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 1535  ENDBFORM Line 2127  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',  
              'stor' => 'Store',  
     );  
   
     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="$lt{'stor'}" />  
 </form>  
 $end_page  
 END  
     return;  
 }  
   
 sub blockstore {  
     my $r = shift;  
     my %lt=&Apache::lonlocal::texthash(  
             'tfcm' => 'The following changes were made',  
             '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>'.&mt('[quant,_1,communication blocking period was,communication blocking periods were] removed.',$canceltotal).'</li>');  
         }  
         if ($modtotal > 0) {  
             $r->print('<li>'.&mt('[quant,_1,communication blocking period was,communication blocking periods were] modified.',$modtotal).'</li>');  
         }  
         if ($addtotal > 0) {  
             $r->print('<li>'.&mt('[quant,_1,communication blocking period was,communication blocking periods were] added.',$addtotal).'</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 = ();
     my $numblocked = 0;      my $numblocked = 0;
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
       my $clientip = &Apache::lonnet::get_requestor_ip($r);
   
 # 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,$triggerblock,$by_ip,$blockdom) = 
     my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder);          &Apache::loncommon::blockcheck(\%setters,'com',$clientip);
       my @messages=&sortedmessages(\%blocked,$startblock,$endblock,$by_ip,\$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",$clientip);
           $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 1865  sub displaymessage { Line 2162  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
       my $head_extra;
   
   # if student's view of resource will be included
   # get <link> tag(s) for css file(s) in use, and pass to &header to include
   # in call to loncommon::start_page()
   
       if (($env{'request.course.id'} eq $content{'courseid'}) &&
           (&Apache::lonnet::allowed('vgr',$content{'courseid'}))) {
           my $symb;
           if (defined($content{'symb'})) {
               $symb = $content{'symb'};
           } elsif (defined($content{'baseurl'})) {
               $symb=&Apache::lonnet::symbread($content{'baseurl'});
           }
           if ($symb) {
               $head_extra = &Apache::loncommon::css_links($symb);
           }
       }
   
 # 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','',
     my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});                   $content{'baseurl'},$head_extra);
 # Functions  
     $r->print('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'.  # Prepare available functions
       '<td><a href="/adm/email?replyto='.&escape($msgid).$sqs.      my @functionlist;
       '"><b>'.&mt('Reply').'</b></a></td>'.      if (!$content{'noreplies'}) {
       '<td><a href="/adm/email?forward='.&escape($msgid).$sqs.          push(@functionlist,'<a href="/adm/email?replyto='.&escape($msgid).$sqs.'">'
       '"><b>'.&mt('Forward').'</b></a></td>'.                       .&mt('Reply')
       '<td><a href="/adm/email?markunread='.&escape($msgid).$sqs.                       .'</a>');
       '"><b>'.&mt('Mark Unread').'</b></a></td>'.      }
       '<td><a href="/adm/email?markdel='.&escape($msgid).$sqs.      push(@functionlist,'<a href="/adm/email?forward='.&escape($msgid).$sqs.'">'
       '"><b>'.&mt('Delete').'</b></a></td>'.                    .&mt('Forward')
       '<td><a href="/adm/email?'.$sqs.                    .'</a>');
       ($env{'form.dismode'} eq 'new'?'&folder=new':'').      push(@functionlist,'<a href="/adm/email?markunread='.&escape($msgid).$sqs.'">'
       '"><b>'.&mt('Back to Folder Display').'</b></a></td>');                    .&mt('Mark Unread')
                     .'</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()
                       );
   
                   }
               }
           }
     }      }
     $tolist = join(', ',@recipients);  
     $r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}.      # Message
       ($folder ne 'sent'?'<br /><b>'.&mt('From').':</b> '.      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Message'))
       &Apache::loncommon::aboutmewrapper(               .'<pre class="LC_wordwrap">'
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),       .&Apache::lontexconvert::msgtexconverted($content{'message'},1)
  $content{'sendername'},$content{'senderdomain'}).' ('.       .'</pre>'
       $content{'sendername'}.' at '.      );
       $content{'senderdomain'}.') ':'<br /><b>'.&mt('To').':</b> '.      if (&displayresource(%content)) {
               $tolist).          $r->print(&Apache::lonhtmlcommon::row_closure()
       ($content{'courseid'}?'<br /><b>'.&mt($crstype).':</b> '.$courseinfo{'description'}.                   .&Apache::lonhtmlcommon::row_title(&mt('Resource Details'))
        ($content{'coursesec'}?' ('.&mt('Section').': '.$content{'coursesec'}.')':''):'').                   .&displayresource(%content)
       '<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>':'').      $r->print(&Apache::lonhtmlcommon::row_closure(1).
       '<p><pre>'.                &Apache::lonhtmlcommon::end_pick_box());
       &Apache::lontexconvert::msgtexconverted($content{'message'},1).      # Display LON-CAPA Message (End)
       '</pre><hr />'.&displayresource(%content).'</p>');      return;
     return;     }
   
   sub retrieve_recips {
       my ($context,$content,$recips)= @_;
       my $tonum = 0;
       if (ref($content) eq 'HASH') {
           my %reciphash =
               &Apache::lonnet::get('nohist_emailrecip',[$content->{'recipid'}],
                                    $content->{'senderdomain'},$content->{'sendername'});
           my $recipinfo = $reciphash{$content->{'recipid'}};
           if (ref($recipinfo) eq 'HASH') {
               foreach my $type ('to','cc','course_broadcast','group_cc_broadcast','group_bcc_broadcast') {
                   if (ref($recipinfo->{$type}) eq 'HASH') {
                       if ($type eq 'to') {
                           $tonum = keys(%{$recipinfo->{$type}});
                       }
                       foreach my $user (sort(keys(%{$recipinfo->{$type}}))) {
                           my ($uname,$udom) = split(/:/,$user);
                           next if (($context eq 'replying') && ($uname eq $env{'user.name'})
                                    && ($udom eq $env{'user.domain'}));
                           my $showuser ='<span class="LC_nobreak">';
                           if ($context eq 'replying') {
                               if (($type eq 'to') || ($type eq 'cc')) { 
                                   $showuser = '<label><input type="checkbox" name="replying_'.$type.'" value="'.$user.'" />';
                               } elsif ($type eq 'group_cc_broadcast') {
                                   $showuser = '<label><input type="checkbox" name="replying_groupcc" value="'.$user.'" />';
                               }
                           }
                           $showuser .= &Apache::loncommon::aboutmewrapper(
                                              &Apache::loncommon::plainname($uname,
                                              $udom),$uname,$udom);
           if ($context eq 'replying') {
               $showuser .='</label>';
           }
           $showuser .= '</span>';
                           if (ref($recips) eq 'HASH') {
               push(@{$recips->{$type}},$showuser);
                           }
                       }
                   }
               }
           }
       }
       return $tonum;
   }
   
   sub recipients_link {
       my ($r,$content,$recipients) = @_;
       my ($broadcast_link,$show);
       if ((ref($content) eq 'HASH') && (ref($recipients) eq 'HASH')) {
           if (ref($recipients->{'course_broadcast'}) eq 'ARRAY') {
               if (@{$recipients->{'course_broadcast'}} > 0) {
                   $show = 'course';
               }
           } elsif (ref($recipients->{'group_cc_broadcast'}) eq 'ARRAY') {
               if (@{$recipients->{'group_cc_broadcast'}} > 0) {
                   $show = 'group_cc';
               }
           } elsif (ref($recipients->{'group_bcc_broadcast'}) eq 'ARRAY') {
               if (@{$recipients->{'group_bcc_broadcast'}} > 0) {
                   $show = 'group_bcc';
               }
           }
           if ($show) {
               my ($nothing,$height,$width,$start_page,$end_page,$body);
               $nothing=&Apache::lonhtmlcommon::javascript_nothing();
               $height = 400;
               $width = 600;
               $start_page =
                   &Apache::loncommon::start_page('Broadcast List', undef,
                                                  {only_body => 1,
                                                   js_ready  => 1,});
               $end_page = &Apache::loncommon::end_page({js_ready => 1,});
               $body = '<h3>'.&mt("Recipients of broadcast message").'</h3>'.
                       &Apache::loncommon::start_data_table();
               my $cell = 0;
               $body .= &Apache::loncommon::start_data_table_row();
               foreach my $item (@{$recipients->{$show.'_broadcast'}}) {
                   $item =~ s/'/\\'/g;
                   if (!($cell%2) && $cell > 0) {
                       $body .= &Apache::loncommon::end_data_table_row().
                                &Apache::loncommon::start_data_table_row();
                   }
                   $cell ++;
                   $body .= '<td>'.$cell.'&nbsp;'.$item.'&nbsp;&nbsp;</td>';
               }
               if ($cell%2) {
                   $body .= '<td>&nbsp;</td>';
               }
               $body .= &Apache::loncommon::end_data_table_row().
                        &Apache::loncommon::end_data_table();
               $body =~ s{</}{<\\/}g;
               $body =~ s{\n}{}g;
               $r->print(<<ENDJS);
   <script type="text/javascript">
   // <![CDATA[
   function showBroadcastList() {
       var caller = this;
       var newWindow = null;
       try {
           newWindow =  window.open($nothing,"broadcast","HEIGHT=$height,WIDTH=$width,resizable=yes,scrollbars=yes" );
       }
       catch(error) {
           writeWin(caller);
           return;
       }
       if (newWindow) {
           caller = newWindow;
       }
       writeWin(caller);
       return;
   }
   
   function writeWin(caller) {
       caller.document.writeln('$start_page $body $end_page');
       caller.document.close();
       caller.focus();
   }
   // ]]>
   </script>
   
   ENDJS
               $broadcast_link = 1;
           }
       }
       return $broadcast_link;
 }  }
   
 # =========================================================== Show the citation  # =========================================================== Show the citation
Line 1945  sub displayresource { Line 2701  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 = &Apache::lonenc::check_decrypt($content{'symb'});
           } elsif (defined($content{'baseurl'})) {
               $symb =
                   &Apache::lonnet::symbread(&Apache::lonenc::check_decrypt($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 1973  sub displayresource { Line 2735  sub displayresource {
 # ================================================================== The Header  # ================================================================== The Header
   
 sub header {  sub header {
     my ($r,$title,$baseurl)=@_;      my ($r,$title,$baseurl,$head_extra)=@_;
       
     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',      $extra .= '<script type="text/javascript"
                   src="/res/adm/includes/file_upload.js"></script>';
       if ($head_extra) {
           $extra .= "\n$head_extra";
       }
       $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
   
 sub printheader {  sub printheader {
     my ($r,$url,$desc,$title,$baseurl)=@_;      my ($r,$url,$desc,$title,$baseurl,$head_extra)=@_;
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
  ({href=>$url,   ({href=>$url,
   text=>$desc});    text=>$desc});
     &header($r,$title,$baseurl);      &header($r,$title,$baseurl,$head_extra);
 }  }
   
 # ------------------------------------------------------------ Store the comment  # ------------------------------------------------------------ Store the comment
Line 2014  sub storedcommentlisting { Line 2780  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 2025  sub storedcommentlisting { Line 2791  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 2036  sub sendoffmail { Line 2802  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 2046  sub sendoffmail { Line 2815  sub sendoffmail {
         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     }      }
     if ($env{'form.send'}) {      my $clientip = &Apache::lonnet::get_requestor_ip($r);
         if ($group eq '') {      my %setters;
     &printheader($r,'','Messages being sent.');      my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) =
         } else {          &Apache::loncommon::blockcheck(\%setters,'com',$clientip);
             $r->print(&groupmail_header('sending',$group));      if ($by_ip) {
           &printheader($r,'','Sending messages blocked from your location.');
           return 'blocked';
       } elsif ($env{'form.send'}) {
           if (!$env{'form.multiforward'}) { 
               if ($group eq '') {
           &printheader($r,'','Messages being sent.');
               } else {
                   $r->print(&groupmail_header('sending',$group));
               }
         }          }
  $r->rflush();   $r->rflush();
  my %content=();   my %content=();
Line 2058  sub sendoffmail { Line 2836  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 2070  sub sendoffmail { Line 2851  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 2129  sub sendoffmail { Line 2969  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'}) <= 1048576) {
                   $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 2260  sub handler { Line 3165  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 2283  sub handler { Line 3187  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 2295  sub handler { Line 3199  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 2317  sub handler { Line 3219  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 2354  sub handler { Line 3259  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.').' ';
                       if ($forwardfail{$key} eq 'blocked') {
                           $message .= &mt('Sending messages is blocked from your IP address');
                       } else {
                           $message .= &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 2438  sub handler { Line 3449  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 2460  sub handler { Line 3474  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 2491  sub handler { Line 3514  sub handler {
   
 =pod  =pod
   
 =back  
   
 =cut  =cut
   
 1;   1; 
Removed from v.1.52  
changed lines
  Added in v.1.181.2.10

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