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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.7 and 1.55

version 1.7, 2006/04/23 03:50:54 version 1.55, 2006/12/23 04:39:32
Line 74  email program, so they have full access Line 74  email program, so they have full access
 interface, or other features they may wish to use in response to the  interface, or other features they may wish to use in response to the
 student's query.  student's query.
   
 =item * B<Blocking>: LON-CAPA can block display of e-mails that are   =item * B<Blocking>: LON-CAPA can block selected communication 
 sent to a student during an online exam. A course coordinator or  features for students during an online exam. A course coordinator or
 instructor can set an open and close date/time for scheduled online  instructor can set an open and close date/time for scheduled online
 exams in a course. If a user uses the LON-CAPA internal messaging   exams in a course. If a user uses the LON-CAPA internal messaging 
 system to display e-mails during the scheduled blocking event,    system to display e-mails during the scheduled blocking event,  
Line 125  use Apache::lonlocal; Line 125  use Apache::lonlocal;
 use Apache::loncommunicate;  use Apache::loncommunicate;
 use Apache::lonfeedback;  use Apache::lonfeedback;
 use Apache::lonrss();  use Apache::lonrss();
   use Apache::lonselstudent();
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
   
 # Querystring component with sorting type  # Querystring component with sorting type
 my $sqs;  my $sqs;
Line 134  my $interdis; Line 137  my $interdis;
 # ============================================================ List all folders  # ============================================================ List all folders
   
 sub folderlist {  sub folderlist {
     my $folder=shift;      my ($folder,$msgstatus) = @_;
     my @allfolders=&Apache::lonnet::getkeys('email_folders');      my %lt = &Apache::lonlocal::texthash(
     if ($allfolders[0]=~/^error:/) { @allfolders=(); }                  actn => 'Action',
     return '<form method="post" action="/adm/email">'.                  fold => 'Folder',
  &mt('Folder').': '.                  show => 'Show',
  &Apache::loncommon::select_form($folder,'folder',                  status => 'Message Status',
      ('' => &mt('INBOX'),'trash' => &mt('TRASH'),                  go   => 'Go',
       'new' => &mt('New Messages Only'),                  nnff => 'New Name for Folder',
                               'critical' => &mt('Critical'),                  newn => 'New Name',
       'sent' => &mt('Sent Messages'),                  thfm => 'The folder may not be renamed',
       map { $_ => $_ } @allfolders)).                  fmnb => 'folder may not be renamed as it is a folder provided by the system.',
       ' '.&mt('Show').                  asth => 'as this name is already in use for a system-provided or user-defined folder.',
       '<select name="interdis">'.                  the => 'The',
       join("\n",map { '<option value="'.$_.'"'.                  tnfm => 'The new folder may not be named',
  ($_==$interdis?' selected="selected"':'').'>'.$_.'</option>' }  
    (10,20,50,100,200)).'</select>'.      );
    '<input type="submit" value="'.&mt('View Folder').'" /><br />'.  
       my %actions = &Apache::lonlocal::texthash(
                                   view => 'View Folder',
                                   rename => 'Rename Folder',
                                   delete => 'Delete Folder',
       );
       $actions{'select_form_order'} = ['view','rename','delete'];
   
       my %statushash = &get_msgstatus_types();
   
       $statushash{'select_form_order'} = ['','new','read','replied','forwarded'];
   
       my %permfolders = &get_permanent_folders();
       my $permlist = join("','",sort(keys(%permfolders)));
       my ($permlistkeys,$permlistvals);
       foreach my $key (sort(keys(%permfolders))) {
           $permlistvals .= $permfolders{$key}."','";
           $permlistkeys .= $key."','";
       }
       $permlistvals =~ s/','$//;
       $permlistkeys =~ s/','$//;
       my %gotfolders = &Apache::lonmsg::get_user_folders();
       my %userfolders;
   
       foreach my $key (keys(%gotfolders)) {
           $key =~ s/(['"])/\$1/g; #' stupid emacs
           $userfolders{$key} = $key;
       }
       my @userorder = sort(keys(%userfolders));
       my %formhash = (%permfolders,%userfolders);
       my $folderlist = join("','",@userorder);
       $folderlist .= "','".$permlistvals;
   
       $formhash{'select_form_order'} = ['','critical',@userorder,'sent','trash'];
       my $output = qq|<script type="text/javascript">
   function folder_choice(targetform,caller) {
       var permfolders_keys = new Array('$permlistkeys');
       var permfolders_vals = new Array('$permlistvals');
       var allfolders = new Array('$folderlist');
       if (caller == 'change') {
           if (targetform.folderaction.options[targetform.folderaction.selectedIndex].value == 'rename') {
               for (var i=0; i<permfolders_keys.length; i++) {
                   if (permfolders_keys[i] == targetform.folder.value) {
                       alert("$lt{'the'} '"+permfolders_vals[i]+"' $lt{'fmnb'}");
                       return;
                   }
               }
               var foldername=prompt('$lt{'nnff'}','$lt{'newn'}');
               if (foldername) {
                   targetform.renamed.value=foldername;
                   for (var i=0; i<allfolders.length; i++) {
                       if (allfolders[i] == foldername) {
                           alert("$lt{'thfm'} '"+foldername+"' $lt{'asth'}");
                           return;
                       }
                   }
                   targetform.submit();
               }
           }
           else {
               targetform.submit();
           }
       }
       if (caller == 'new') {
           var newname=targetform.newfolder.value;
           if (newname) {
               for (var i=0; i<allfolders.length; i++) {
                   if (allfolders[i] == newname) {
                       alert("$lt{'tnfm'} '"+newname+"' $lt{'asth'}");
                       return;
                   }
               }
               targetform.submit();
           }
       }
   }
   </script>|;
       $output .= '
   <form method="post" action="/adm/email" name="folderlist">
   <table border="0" cellspacing="2" cellpadding="2">
    <tr>
     <td align="left">
      <table border="0" cellspacing="2" cellpadding="2">
       <tr>
        <td align="center"><b>'.$lt{'fold'}.'</b><br />'."\n".
            &Apache::loncommon::select_form($folder,'folder',%formhash).'
        </td>
        <td align="center"><b>'.$lt{'show'}.'</b><br />
         <select name="interdis">'.
             join("\n",map { '<option value="'.$_.'"'.
         ($_==$interdis?' selected="selected"':'').'>'.$_.'</option>' 
    }
          (10,20,50,100,200)).'</select>
        </td>
        <td align="center"><b>'.$lt{'status'}.'</b><br />'."\n".
          &Apache::loncommon::select_form($msgstatus,'msgstatus',%statushash).'
        </td>
        <td align="center"><b>'.$lt{'actn'}.'</b><br />'.
            &Apache::loncommon::select_form('view','folderaction',%actions).'
        </td><td><br />'.
       '<input type="button" value="'.$lt{'go'}.'" onClick="javascript:folder_choice(this.form,'."'change'".');" />
        </td>
       </tr>
      </table>
     </td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>
     <td align="right">
      <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'}.'" />'.
       ($folder=~/^(new|critical)/?'</form>':'');      '<input type="hidden" name="renamed" value="" />'.
           ($folder=~/^critical/?'</form>':'');
       return $output;
   }
   
   sub get_permanent_folders {
       my %permfolders = 
    &Apache::lonlocal::texthash(''         => 'INBOX',
       'trash'    => 'TRASH',
       'critical' => 'Critical',
       'sent'     => 'Sent Messages',
       );
       return %permfolders;
   }
   
   sub get_msgstatus_types {
       my %statushash = &Apache::lonlocal::texthash(
                                   '' => '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++;
   
       my %statushash = &get_msgstatus_types();
       my $status;
       if ($msgstatus eq '') {
           $status = &mt('All');
       } else {
           $status = $statushash{$msgstatus};
       }
     return      return
    &mt('Page').': '.      '<b>'.&mt('Page').'</b>: '. 
    '<input type="submit" name="firstview" value="'.&mt('First').'" />'.     '<input type="submit" name="firstview" value="'.&mt('First').'" />'.
    '<input type="submit" name="prevview" value="'.&mt('Previous').'" />'.     '<input type="submit" name="prevview" value="'.&mt('Previous').'" />'.
    '<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis.     '<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis.
    '<input type="submit" name="nextview" value="'.&mt('Next').'" />'.     '<input type="submit" name="nextview" value="'.&mt('Next').'" />'.
    '<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'.     '<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'.
    &mt('Showing messages [_1] through [_2] of [_3]',$first,$finish,$total).'</form>';     &mt('<b>[_1] messages</b>: showing messages [_2] through [_3] of [_4].',$status,$first,$finish,$total).'</form>';
 }  }
 # =============================================================== Status Change  # =============================================================== Status Change
   
Line 184  sub statuschange { Line 332  sub statuschange {
  &Apache::lonnet::put('email_status'.$suffix,{$msgid => $newstatus});   &Apache::lonnet::put('email_status'.$suffix,{$msgid => $newstatus});
     }      }
     if ($newstatus eq 'deleted') {      if ($newstatus eq 'deleted') {
        &movemsg(&Apache::lonnet::unescape($msgid),$folder,'trash');   return &movemsg($msgid,$folder,'trash');
    }      }
       return ;
 }  }
   
 # ============================================================= Make new folder  # ============================================================= Make new folder
   
 sub makefolder {  sub makefolder {
     my ($newfolder)=@_;      my ($newfolder) = @_;
     if (($newfolder eq 'sent')      my %permfolders = &get_permanent_folders();
      || ($newfolder eq 'critical')      my %userfolders = &Apache::lonmsg::get_user_folders();
      || ($newfolder eq 'trash')      my ($outcome,$warning);
      || ($newfolder eq 'new')) { return; }      if (defined($userfolders{$newfolder})) {
     &Apache::lonnet::put('email_folders',{$newfolder => time});          return &mt('The folder name: "[_1]" is already in use for an existing folder.',$newfolder);
       }
       foreach my $perm (keys(%permfolders)) {
           if ($permfolders{$perm} eq $newfolder) {
               return &mt('The folder name: "[_1]" is already used for one of the folders automatically generated by the system.',$newfolder);
           }
       } 
       if (&get_msgfolder_lock() eq 'ok') {
           my %counter_hash = &Apache::lonnet::get('email_folders',["\0".'idcount']);
           my $lastcount = $counter_hash{"\0".'idcount'};
           my $folder_id = $lastcount + 1;
           while (defined($userfolders{$folder_id})) {
               $folder_id ++;
           }
           my %folderinfo = ( id      => $folder_id,
                              created => time, );
           $outcome =  
       &Apache::lonnet::put('email_folders',{$newfolder => \%folderinfo,
     "\0".'idcount' => $folder_id});
           my $releaseresult = &release_msgfolder_lock();
           if ($releaseresult ne 'ok') {
               $warning = $releaseresult;
           }
       } else {
           $outcome = 
       &mt('Error - could not obtain lock on email folders record.');
       }
       return ($outcome,$warning);
   }
   
   # ============================================================= Delete folder
   
   sub deletefolder {
       my ($folder)=@_;
       my %permfolders = &get_permanent_folders();
       if (defined($permfolders{$folder})) {
           return &mt('The folder [_1] may not be deleted',$folder); 
       }
       my %userfolders = &Apache::lonmsg::get_user_folders();
       if (!defined($userfolders{$folder})) {
           return &mt('The folder [_1] does not exist so deletion is not required.',
                      $folder);
       }
       # check folder is empty;
       my $suffix=&Apache::lonmsg::foldersuffix($folder);
       my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);
       if (@messages > 0) {
           return &mt('The folder [_1] contains messages so it may not be deleted.').
                  '<br />'.
                  &mt('Delete or move the messages to a different folder first.');
       }
       my $delresult = &Apache::lonnet::del('email_folders',[$folder]);
       return $delresult;
   }
   
   sub renamefolder {
       my ($folder) = @_;
       my $newname = $env{'form.renamed'};
       my %permfolders = &get_permanent_folders();
       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);
       }
       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);
       }
       my %userfolders = &Apache::lonmsg::get_user_folders();
       if (defined($userfolders{$newname})) {
           return &mt('The folder "[_1]" may not be renamed to "[_2]" because the new name you requested is already being used for an existing folder.',$folder,$newname);
       }
       if (!defined($userfolders{$folder})) {
           return &mt('The folder "[_1]" could not be renamed to "[_2]" because the folder does not exist.',$folder,$newname);
       }
       my %folderinfo;
       if (ref($userfolders{$folder}) eq 'HASH') {
           %folderinfo = %{$userfolders{$folder}};
       } else {
           %folderinfo = ( id      => $folder,
                           created => $userfolders{$folder},);
       }
       my $outcome =
        &Apache::lonnet::put('email_folders',{$newname => \%folderinfo});
       if ($outcome eq 'ok') {
           $outcome = &Apache::lonnet::del('email_folders',[$folder]);
       }
       return $outcome;
   }
   
   sub get_msgfolder_lock {
       # get lock for mail folder counter.
       my $lockhash = { "\0".'lock_counter' => time, };
       my $tries = 0;
       my $gotlock = &Apache::lonnet::newput('email_folders',$lockhash);
       while (($gotlock ne 'ok') && $tries <3) {
           $tries ++;
           sleep(1);
           $gotlock = &Apache::lonnet::newput('email_folders',$lockhash);
       }
       return $gotlock;
   }
   
   sub release_msgfolder_lock {
       #  remove lock
       my @del_lock = ("\0".'lock_counter');
       my $dellockoutcome=&Apache::lonnet::del('email_folders',\@del_lock);
       if ($dellockoutcome ne 'ok') {
           return ('<br />'.&mt('Warning: failed to release lock for counter').'<br />');
       } else {
           return 'ok';
       }
 }  }
   
   
 # ======================================================== Move between folders  # ======================================================== Move between folders
   
 sub movemsg {  sub movemsg {
Line 206  sub movemsg { Line 464  sub movemsg {
     if ($srcfolder eq 'new') { $srcfolder=''; }      if ($srcfolder eq 'new') { $srcfolder=''; }
     my $srcsuffix=&Apache::lonmsg::foldersuffix($srcfolder);      my $srcsuffix=&Apache::lonmsg::foldersuffix($srcfolder);
     my $trgsuffix=&Apache::lonmsg::foldersuffix($trgfolder);      my $trgsuffix=&Apache::lonmsg::foldersuffix($trgfolder);
       if ($srcsuffix eq $trgsuffix) {
    return (0,&mt('Message not moved, Attempted to move message to the same folder as it already is in.'));
       }
   
 # Copy message  # Copy message
     my %message=&Apache::lonnet::get('nohist_email'.$srcsuffix,[$msgid]);      my %message=&Apache::lonnet::get('nohist_email'.$srcsuffix,[$msgid]);
     &Apache::lonnet::put('nohist_email'.$trgsuffix,{$msgid => $message{$msgid}});      if (!exists($message{$msgid}) || $message{$msgid} eq '') {
    if (&Apache::lonnet::error(%message)) {
       return (0,&mt('Message not moved, A network error occurred.'));
    } else {
       return (0,&mt('Message not moved as the message is no longer in the source folder.'));
    }
       }
   
       my $result =&Apache::lonnet::put('nohist_email'.$trgsuffix,
        {$msgid => $message{$msgid}});
       if (&Apache::lonnet::error($result)) {
    return (0,&mt('Message not moved, A network error occurred.'));
       }
   
 # Copy status  # Copy status
     unless ($trgfolder eq 'trash') {      unless ($trgfolder eq 'trash') {
  my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$msgid]);          my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$msgid]);
  &Apache::lonnet::put('email_status'.$trgsuffix,{$msgid => $status{$msgid}});   # a non-existant status is the mark of an unread msg
    if (&Apache::lonnet::error(%status)) {
       return (0,&mt('Message copied to new folder but status was not, A network error occurred.'));
    }
    my $result=&Apache::lonnet::put('email_status'.$trgsuffix,
    {$msgid => $status{$msgid}});
    if (&Apache::lonnet::error($result)) {
       return (0,&mt('Message copied to new folder but status was not, A network error occurred.'));
    }
     }      }
   
 # Delete orginals  # Delete orginals
     &Apache::lonnet::del('nohist_email'.$srcsuffix,[$msgid]);      my $result_del_msg = 
     &Apache::lonnet::del('email_status'.$srcsuffix,[$msgid]);   &Apache::lonnet::del('nohist_email'.$srcsuffix,[$msgid]);
       my $result_del_stat =
    &Apache::lonnet::del('email_status'.$srcsuffix,[$msgid]);
       if (&Apache::lonnet::error($result_del_msg)) {
    return (0,&mt('Message copied, but unable to delete the original from the source folder.'));
       }
       if (&Apache::lonnet::error($result_del_stat)) {
    return (0,&mt('Message copied, but unable to delete the original status from the source folder.'));
       }
   
       return (1);
 }  }
   
 # ======================================================= Display a course list  # ======================================================= Display a course list
   
 sub discourse {  sub discourse {
     my $r=shift;      my $result;
     my $classlist = &Apache::loncoursedata::get_classlist();      my ($course_personnel,
     my $now=time;   $current_members,
     my %lt=&Apache::lonlocal::texthash('cfa' => 'Check All',   $expired_members,
             'cfs' => 'Check Section/Group',   $future_members) = 
             'cfn' => 'Uncheck All');      &Apache::lonselstudent::get_people_in_class($env{'request.course.sec'});
     $r->print(<<ENDDISHEADER);      unshift @$current_members, (@$course_personnel);
 <input type="hidden" name="sendmode" value="group" />      my %defaultUsers;
 <script>      
     function checkall() {      $result .= '<input type="hidden" name="sendmode" value="group" />'."\n";
  for (i=0; i<document.forms.compemail.elements.length; i++) {  
             if       $result .= &Apache::lonselstudent::render_student_list($current_members,
           (document.forms.compemail.elements[i].name.indexOf('send_to_')==0) {     "compemail",
       document.forms.compemail.elements[i].checked=true;     "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;
   }
   
   sub disgroup {
       my ($cdom,$cnum,$group,$viewgrps,$editgrps) = @_;
       my $result;
       #  Needs to be in a course
       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.');
           return $result;
       }
       if ($cdom eq '' || $cnum eq '') {
           $result = &mt('Error: could not determine domain or number of course');
           return $result;
       }
       my ($memberinfo,$numitems) =
                    &Apache::longroup::group_memberlist($cdom,$cnum,$group,{},[]);
       my @statustypes = ('active');
       if ($viewgrps || $editgrps) {
           push(@statustypes,('future','previous'));
       }
       if (keys(%{$memberinfo}) == 0) {
           $result = &mt('As this group has no members, there are no '.
                         'recipients to select.');
           return $result;
       } else {
           $result = &mt('Select message recipients from the group members listed below.<br />');  
           my %Sortby = (
                            active   => {},
                            previous => {},
                            future   => {},
                        );
           my %lt = &Apache::lonlocal::texthash(
                                        'name'     => 'Name',
                                        'usnm'     => 'Username',
                                        'doma'     => 'Domain',
                                        'active'   => 'Active Members',
                                        'previous' => 'Former Members',
                                        'future'   => 'Future Members',
                                       );
           foreach my $user (sort(keys(%{$memberinfo}))) {
               my $status = $$memberinfo{$user}{status};
               if ($env{'form.'.$status.'.sortby'} eq 'fullname') {
                   push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);
               } elsif ($env{'form.'.$status.'.sortby'} eq 'username') {
                   push(@{$Sortby{$status}{$$memberinfo{$user}{uname}}},$user);
               } elsif ($env{'form.'.$status.'.sortby'} eq 'domain') {
                   push(@{$Sortby{$status}{$$memberinfo{$user}{udom}}},$user);
               } else {
                   push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);
             }              }
         }          }
     }          $result .= &group_check_uncheck();
           $result .= '<table border="0" cellspacing="8" cellpadding="2">'.
     function checksec() {                     '<tr>';
  for (i=0; i<document.forms.compemail.elements.length; i++) {          foreach my $status (@statustypes)  {
             if               if (ref($numitems) eq 'HASH') {
           (document.forms.compemail.elements[i].name.indexOf                  if ((defined($$numitems{$status})) && ($$numitems{$status})) {
            ('send_to_&&&'+document.forms.compemail.chksec.value+'&&&')==0) {                      $result.='<td valign="top">'.
       document.forms.compemail.elements[i].checked=true;                               '<fieldset><legend><b>'.$lt{$status}.
                                '</b></legend><nobr>'.
                                '<input type="button" value="'.&mt('Check All').'" '.
                                'onclick="javascript:toggleAll('."'".$status."','check'".')" />'.
                                '&nbsp;&nbsp;'.
                                '<input type="button" value="'.&mt('Uncheck All').'" '.
                                'onclick="javascript:toggleAll('."'".$status."','uncheck'".')" />'.
                                '</nobr></fieldset><br />'.
                                &Apache::loncommon::start_data_table().
                                &Apache::loncommon::start_data_table_header_row();
                       $result .= "<th>$lt{'name'}</a></th>".
                                  "<th>$lt{'usnm'}</a></th>".
                                  "<th>$lt{'doma'}</a></th>".
                       &Apache::loncommon::end_data_table_header_row();
                       foreach my $key (sort(keys(%{$Sortby{$status}}))) {
                           foreach my $user (@{$Sortby{$status}{$key}}) {
                               $result .=
                                   &Apache::loncommon::start_data_table_row().
                                   '<td><input type="checkbox" '.
                                   'name="selectedusers_forminput" value="'.
                                   $user.':'.$status.'" />'.
                                   $$memberinfo{$user}{'fullname'}.'</td>'.
                                   '<td>'.$$memberinfo{$user}{'uname'}.'</td>'.
                                   '<td>'.$$memberinfo{$user}{'udom'}.'</td>'.
                                   &Apache::loncommon::end_data_table_row();
                           }
                       }
                       $result .= &Apache::loncommon::end_data_table();
                   }
             }              }
               $result .= '</td><td>&nbsp;&nbsp;</td>';
         }          }
           $result .= '</tr></table>';
     }      }
       return $result;
   }
   
     function uncheckall() {  sub group_check_uncheck {
  for (i=0; i<document.forms.compemail.elements.length; i++) {      my $output = qq|
             if   <script type="text/javascript">
           (document.forms.compemail.elements[i].name.indexOf('send_to_')==0) {  function toggleAll(caller,action) {
       document.forms.compemail.elements[i].checked=false;      var pattern = new RegExp(":"+caller+"\$");
       if (typeof(document.compemail.selectedusers_forminput.length)=="undefined") {
           if (document.compemail.selectedusers_forminput.value.match(pattern)) {
               if (action == 'check') {
                   document.groupmail.selectedusers_forminput.checked = true;
               } else {
                   document.groupmail.selectedusers_forminput.checked = false;
               }
           }
       } else {
           for (var i=0; i<document.compemail.selectedusers_forminput.length; i++) {
               if (document.compemail.selectedusers_forminput[i].value.match(pattern)) {
                   if (action == 'check') {
                       document.compemail.selectedusers_forminput[i].checked = true;
                   } else {
                       document.compemail.selectedusers_forminput[i].checked = false;
                   }
             }              }
         }          }
     }      }
   }
 </script>  </script>
 <input type="button" onClick="checkall()" value="$lt{'cfa'}" />&nbsp;      |;
 <input type="button" onClick="checksec()" value="$lt{'cfs'}" />  }
 <input type="text" size="5" name="chksec" />&nbsp;  
 <input type="button" onClick="uncheckall()" value="$lt{'cfn'}" />  sub groupmail_header {
 <p>      my ($action,$group,$cdom,$cnum) = @_;
 ENDDISHEADER      my ($description,$refarg);
     my %coursepersonnel=&Apache::lonnet::get_course_adv_roles();      if (!$cdom || !$cnum) {
     $r->print('<table>');          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     foreach my $role (sort keys %coursepersonnel) {          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         foreach (split(/\,/,$coursepersonnel{$role})) {      }
             my ($puname,$pudom)=split(/\:/,$_);      if (exists($env{'form.ref'})) {
             $r->print('<tr><td><label>'.          $refarg = 'ref='.$env{'form.ref'};
                       '<input type="checkbox" name="send_to_&&&&&&_'.      }
                       $puname.':'.$pudom.'" /> '.      if (!$group) {
                       &Apache::loncommon::plainname($puname,$pudom).          $group = $env{'form.group'};
                       '</label></td>'.  
                       '<td>('.$_.'),</td><td><i>'.$role.'</i></td></tr>');  
         }  
     }  
     $r->print('</table><table>');  
     my $sort = sub {  
  my $aname=lc($classlist->{$a}[&Apache::loncoursedata::CL_FULLNAME()]);  
  if (!$aname) { $aname=$a; }  
  my $bname=lc($classlist->{$b}[&Apache::loncoursedata::CL_FULLNAME()]);  
  if (!$bname) { $bname=$b; }  
  return $aname cmp $bname;  
     };  
     foreach my $student (sort $sort (keys(%{$classlist}))) {  
  my $info=$classlist->{$student};  
         my ($sname,$sdom,$status,$fullname,$section) =  
             (@{$info}[&Apache::loncoursedata::CL_SNAME(),  
                       &Apache::loncoursedata::CL_SDOM(),  
                       &Apache::loncoursedata::CL_STATUS(),  
                       &Apache::loncoursedata::CL_FULLNAME(),  
                       &Apache::loncoursedata::CL_SECTION()]);  
         next if ($status ne 'Active');  
  next if ($env{'request.course.sec'} &&  
  $section ne $env{'request.course.sec'});  
         my $key = 'send_to_&&&'.$section.'&&&_'.$student;  
         if (! defined($fullname) || $fullname eq '') { $fullname = $sname; }  
         $r->print('<tr><td><label>'.  
                   qq{<input type="checkbox" name="$key" />}.('&nbsp;'x2).  
                   $fullname.'</label></td><td>'.$sname.'@'.$sdom.'</td><td>'.$section.  
                   '</td></tr>');  
     }      }
     $r->print('</table>');      if ($group eq '') {
           return  '';
       } else {
           my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
           if (defined($curr_groups{$group})) {
               my %groupinfo =
                       &Apache::longroup::get_group_settings($curr_groups{$group});
               $description = &unescape($groupinfo{'description'});
           }
       }
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       if ($refarg) {
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>"/adm/coursegroups",
                 text=>"Groups",
                 title=>"View course groups"});
       }
       &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",
             text=>"Group: $description",
             title=>"Go to group's home page"},
            {href=>"/adm/email?compose=group&amp;group=".
                   "$env{'form.group'}&amp;$refarg",
             text=>"Send a Message in a Group",
             title=>"Compose Group Email Message"},);
       if ($action eq 'sending') {
               &Apache::lonhtmlcommon::add_breadcrumb
                            ({text=>"Messages being sent.",
                              title=>"Messages sent"},);
       }
       my $groupheader = &Apache::loncommon::start_page('Group Email');
       $groupheader .= &Apache::lonhtmlcommon::breadcrumbs
                   ('Group - '.$env{'form.group'}.' Email');
       return $groupheader;
   }
   
   sub groupmail_sent {
       my ($group,$cdom,$cnum) = @_;
       my $refarg;
       if (exists($env{'form.ref'})) {
           $refarg = 'ref='.$env{'form.ref'};
       }
       my $output .= '<br /><br /><a href="/adm/email?compose=group&amp;group='.
                     $group.'&amp;'.$refarg.'">'.
                     &mt('Send another group email').'</a>'.'&nbsp;&nbsp;&nbsp;'.
                     '<a href="/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg?'.
                     $refarg.'">'. &mt('Return to group page').'</a>';
       return $output;
 }  }
   
 # ==================================================== Display Critical Message  # ==================================================== Display Critical Message
Line 318  sub discrit { Line 740  sub discrit {
         '<input type="hidden" name="confirm" value="true" />';          '<input type="hidden" name="confirm" value="true" />';
     my %what=&Apache::lonnet::dump('critical');      my %what=&Apache::lonnet::dump('critical');
     my $result = '';      my $result = '';
     foreach (sort keys %what) {      foreach my $key (sort(keys(%what))) {
         my %content=&Apache::lonmsg::unpackagemsg($what{$_});          my %content=&Apache::lonmsg::unpackagemsg($what{$key});
         next if ($content{'senderdomain'} eq '');          next if ($content{'senderdomain'} eq '');
         $result.='<hr />'.&mt('From').': <b>'.          $result.='<hr />'.&mt('From').': <b>'.
 &Apache::loncommon::aboutmewrapper(  &Apache::loncommon::aboutmewrapper(
  &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 />'.&mt('Subject').': '.$content{'subject'}.              '<br />'.&mt('Subject').': '.$content{'subject'}.
             '<br /><pre>'.              '<br /><pre>'.
Line 332  $content{'sendername'}.'@'. Line 754  $content{'sendername'}.'@'.
             '</pre><small>'.              '</pre><small>'.
 &mt('You have to confirm that you received this message. After confirmation, this message will be moved to your regular inbox').  &mt('You have to confirm that you received this message. After confirmation, this message will be moved to your regular inbox').
             '</small><br />'.              '</small><br />'.
             '<input type="submit" name="rec_'.$_.'" value="'.&mt('Confirm Receipt').'" />'.              '<input type="submit" name="rec_'.$key.'" value="'.&mt('Confirm Receipt').'" />'.
             '<input type="submit" name="reprec_'.$_.'" '.              '<input type="submit" name="reprec_'.$key.'" '.
                   'value="'.&mt('Confirm Receipt and Reply').'" />';                    'value="'.&mt('Confirm Receipt and Reply').'" />';
     }      }
     # Check to see if there were any messages.      # Check to see if there were any messages.
Line 349  $content{'sendername'}.'@'. Line 771  $content{'sendername'}.'@'.
 }  }
   
 sub sortedmessages {  sub sortedmessages {
     my ($blocked,$startblock,$endblock,$numblocked,$folder) = @_;      my ($blocked,$startblock,$endblock,$numblocked,$folder,$msgstatus) = @_;
     my $suffix=&Apache::lonmsg::foldersuffix($folder);      my $suffix=&Apache::lonmsg::foldersuffix($folder);
     my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);      my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);
   
     #unpack the varibles and repack into temp for sorting      #unpack the varibles and repack into temp for sorting
     my @temp;      my @temp;
     my %descriptions;      my %descriptions;
     my %status_cache =       my %status_cache = 
  &Apache::lonnet::get('email_status'.&Apache::lonmsg::foldersuffix($folder),\@messages);   &Apache::lonnet::get('email_status'.&Apache::lonmsg::foldersuffix($folder),\@messages);
     foreach (@messages) {  
  my $msgid=&Apache::lonnet::escape($_);      my $get_received;
       if ($folder eq 'sent' 
    && ($env{'form.sortedby'} =~ m/^(rev)?(user|domain)$/)) {
    $get_received = 1;
       }
   
       foreach my $msgid (@messages) {
    my $esc_msgid=&escape($msgid);
  my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid)=   my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid)=
     &Apache::lonmsg::unpackmsgid($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,
      $msgid,$description);       $esc_msgid,$description);
    if ($get_received) {
       my %message = &Apache::lonnet::get('nohist_email'.$suffix,
          [$msgid]);
       my %content = &Apache::lonmsg::unpackagemsg($message{$msgid});
       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 ($sendtime >= $startblock && ($sendtime <= $endblock && $endblock > 0) ) {
             my $escid = &Apache::lonnet::unescape($msgid);              $$blocked{$msgid} = 'ON';
             $$blocked{$escid} = 'ON';  
             $$numblocked ++;              $$numblocked ++;
         } else {           } else { 
             push @temp ,\@temp1;              push @temp ,\@temp1;
Line 383  sub sortedmessages { Line 819  sub sortedmessages {
     @temp = sort  {$b->[0] <=> $a->[0]} @temp;       @temp = sort  {$b->[0] <=> $a->[0]} @temp; 
     }      }
     if ($env{'form.sortedby'} eq "user"){      if ($env{'form.sortedby'} eq "user"){
  @temp = sort  {lc($a->[2]) cmp lc($b->[2])} @temp;   if ($get_received) {
       @temp = sort  {lc($a->[7][0]) cmp lc($b->[7][0])} @temp;
    } else {
       @temp = sort  {lc($a->[2])    cmp lc($b->[2])}    @temp;
    }
     }      }
     if ($env{'form.sortedby'} eq "revuser"){      if ($env{'form.sortedby'} eq "revuser"){
  @temp = sort  {lc($b->[2]) cmp lc($a->[2])} @temp;   if ($get_received) {
       @temp = sort  {lc($b->[7][0]) cmp lc($a->[7][0])} @temp;
    } else {
       @temp = sort  {lc($b->[2])    cmp lc($a->[2])}    @temp;
    }
     }      }
     if ($env{'form.sortedby'} eq "domain"){      if ($env{'form.sortedby'} eq "domain"){
         @temp = sort  {$a->[3] cmp $b->[3]} @temp;   if ($get_received) {
       @temp = sort  {$a->[8][0] cmp $b->[8][0]} @temp;
    } else {
       @temp = sort  {$a->[3]    cmp $b->[3]}    @temp;
    }
     }      }
     if ($env{'form.sortedby'} eq "revdomain"){      if ($env{'form.sortedby'} eq "revdomain"){
         @temp = sort  {$b->[3] cmp $a->[3]} @temp;   if ($get_received) {
       @temp = sort  {$b->[8][0] cmp $a->[8][0]} @temp;
    } else {
       @temp = sort  {$b->[3]    cmp $a->[3]}    @temp;
    }
     }      }
     if ($env{'form.sortedby'} eq "subject"){      if ($env{'form.sortedby'} eq "subject"){
         @temp = sort  {lc($a->[1]) cmp lc($b->[1])} @temp;          @temp = sort  {lc($a->[1]) cmp lc($b->[1])} @temp;
Line 427  sub get_course_desc { Line 879  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);                $description = $courseinfo{'description'};                  my %courseinfo=&Apache::lonnet::coursedescription($fromcid);
                 $description = $courseinfo{'description'};                  $description = $courseinfo{'description'};
             }              }
             $$descriptions{$fromcid} = $description;              $$descriptions{$fromcid} = $description;
Line 436  sub get_course_desc { Line 888  sub get_course_desc {
     }      }
 }  }
   
 # ======================================================== Display new messages  
   
   
 sub disnew {  
     my $r=shift;  
     my %lt=&Apache::lonlocal::texthash(  
        'nm' => 'New Messages',  
        'su' => 'Subject',  
                                        'co' => 'Course',  
        'da' => 'Date',  
        'us' => 'Username',  
        'op' => 'Open',  
        'do' => 'Domain'  
        );  
     my @msgids = sort(&Apache::lonnet::getkeys('nohist_email'));  
     my @newmsgs;  
     my %setters = ();  
     my $startblock = 0;  
     my $endblock = 0;  
     my %blocked = ();  
     my $numblocked = 0;  
     # Check for blocking of display because of scheduled online exams.  
     &blockcheck(\%setters,\$startblock,\$endblock);  
     my %status_cache =   
  &Apache::lonnet::get('email_status',\@msgids);  
     my %descriptions;  
     foreach (@msgids) {  
  my $msgid=&Apache::lonnet::escape($_);  
         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{$_} = 'ON';  
                     $numblocked ++;  
                 } else {  
                     push @newmsgs, {   
                         msgid    => $msgid,  
                         sendtime => $sendtime,  
                         shortsub => &Apache::lonnet::unescape($shortsubj),  
                         from     => $fromname,  
                         fromdom  => $fromdom,  
                         course   => $description   
                         }  
                 }  
             }  
         }  
     }  
     if ($#newmsgs >= 0) {  
         $r->print(<<TABLEHEAD);  
 <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&display=$msg->{'msgid'}">$lt{'op'}</a></td>  
 ENDLINK  
             foreach ('sendtime','from','fromdom','shortsub','course') {  
                 $r->print("<td>$msg->{$_}</td>");  
             }  
             $r->print("</td></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);  
         if ($numblocked == 1) {  
             $r->print("<h3>".&mt('You have').' '.$numblocked.' '.&mt('blocked unread message').".</h3>");  
             $r->print(&mt('This message is not viewable because').' ');  
         } else {  
             $r->print("<h3>".&mt('You have').' '.$numblocked.' '.&mt('blocked unread messages').".</h3>");  
             $r->print(&mt('These').' '.$numblocked.' '.&mt('messages are not viewable because '));  
         }  
         $r->print(  
 &mt('display of LON-CAPA messages sent to you by other students between').' '.$beginblock.' '.&mt('and').' '.$finishblock.' '.&mt('is currently being blocked because of online exams').'.');  
         &build_block_table($r,$startblock,$endblock,\%setters);  
     }  
 }  
   
   
 # ======================================================== Display all messages  # ======================================================== Display all messages
   
 sub disall {  sub disall {
     my ($r,$folder)=@_;      my ($r,$folder,$msgstatus)=@_;
     $r->print(&folderlist($folder));      $r->print(&folderlist($folder,$msgstatus));
     if ($folder eq 'new') {      if ($folder eq 'critical') {
  &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 $startblock;  
     my $endblock;  
     my $numblocked = 0;      my $numblocked = 0;
     &blockcheck(\%setters,\$startblock,\$endblock);      my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');
       my %lt = &Apache::lonlocal::texthash(
                         sede => 'Select a destination folder to which the messages will be moved.',
                         nome => 'No messages have been selected to apply ths action to.',
                         chec => 'Check the checkbox for at least one message.',  
       );
     $r->print(<<ENDDISHEADER);      $r->print(<<ENDDISHEADER);
 <script>  <script type="text/javascript">
     function checkall() {      function checkall() {
  for (i=0; i<document.forms.disall.elements.length; i++) {   for (i=0; i<document.forms.disall.delmark.length; i++) {
             if       document.forms.disall.delmark[i].checked=true;
           (document.forms.disall.elements[i].name.indexOf('delmark_')==0) {  
       document.forms.disall.elements[i].checked=true;  
             }  
         }          }
     }      }
   
     function uncheckall() {      function uncheckall() {
  for (i=0; i<document.forms.disall.elements.length; i++) {   for (i=0; i<document.forms.disall.delmark.length; i++) {
             if       document.forms.disall.delmark[i].checked=false;
           (document.forms.disall.elements[i].name.indexOf('delmark_')==0) {          }
       document.forms.disall.elements[i].checked=false;      }
       function checkfoldermove() {
           if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') {
               if (document.disall.movetofolder.options[document.disall.movetofolder.selectedIndex].value == "") {
                   alert("$lt{'sede'}");
                   return;
               }
           }
           return; 
       }
   
       function validate_checkedaction() {
           document.disall.markedaction.value = document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value;
           if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') {
               if (document.disall.movetofolder.options[document.disall.movetofolder.selectedIndex].value == "") {
                   alert("$lt{'sede'}");
                   return;
               } 
           }
           var checktotal = 0;
           for (var i=0; i<document.forms.disall.delmark.length; i++) {
               if (document.forms.disall.delmark[i].checked) {
                   checktotal ++;
             }              }
         }          }
           if (checktotal == 0) {
               alert("$lt{'nome'}\\n$lt{'chec'}");
               return;
           }
           document.disall.submit();
     }      }
   
 </script>  </script>
 ENDDISHEADER  ENDDISHEADER
   
     my $fsqs='&folder='.$folder;      my $fsqs='&folder='.$folder;
     my @temp=sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder);      my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);
     my $totalnumber=$#temp+1;      my $totalnumber=$#temp+1;
     unless ($totalnumber>0) {      if ($totalnumber < 1) {
  $r->print('<h2>'.&mt('Empty Folder').'</h2>');          if ($msgstatus eq '') {
       $r->print('<h2>'.&mt('Empty Folder').'</h2>');
           } elsif ($msgstatus eq 'replied') {
               $r->print('<h2>'.&mt('You have not replied to any messages in this folder.').'</h2>');
           } else { 
               $r->print('<h2>'.&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.').'</h2>');
           }
  return;   return;
     }      }
     unless ($interdis) {      unless ($interdis) {
  $interdis=20;   $interdis=20;
     }      }
     my $number=int($totalnumber/$interdis);      my $number=int($totalnumber/$interdis);
       if ($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>');        '<table class="LC_mail_list"><tr><th colspan="1">&nbsp;</th><th>');
     if ($env{'form.sortedby'} eq "revdate") {      if ($env{'form.sortedby'} eq "revdate") {
  $r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');   $r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');
     } else {      } else {
Line 627  ENDDISHEADER Line 1031  ENDDISHEADER
   
     my $suffix = &Apache::lonmsg::foldersuffix($folder);      my $suffix = &Apache::lonmsg::foldersuffix($folder);
     for (my $n=$firstdis;$n<=$lastdis;$n++) {      for (my $n=$firstdis;$n<=$lastdis;$n++) {
  my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID,$description)= @{$temp[$n]};   my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID,
       $description,$recv_name,$recv_domain)= 
    @{$temp[$n]};
  if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {   if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {
     if ($status eq 'new') {      if ($status eq 'new') {
  $r->print('<tr class="LC_mail_new">');   $r->print('<tr class="LC_mail_new">');
Line 640  ENDDISHEADER Line 1046  ENDDISHEADER
     }      }
     my ($dis_name,$dis_domain) = ($fromname,$fromdomain);      my ($dis_name,$dis_domain) = ($fromname,$fromdomain);
     if ($folder eq 'sent') {      if ($folder eq 'sent') {
  my $msg_id = &Apache::lonnet::unescape($origID);   if (defined($recv_name) && !defined($recv_domain)) {
  my %message=&Apache::lonnet::get('nohist_email'.$suffix,      $dis_name   = join('<br />',@{$recv_name});
  [$msg_id]);      $dis_domain = join('<br />',@{$recv_domain});
  my %content=&Apache::lonmsg::unpackagemsg($message{$msg_id});   } else {
  $dis_name   = join('<br />',@{$content{'recuser'}});      my $msg_id  = &unescape($origID);
  $dis_domain = join('<br />',@{$content{'recdomain'}});      my %message = &Apache::lonnet::get('nohist_email'.$suffix,
          [$msg_id]);
       my %content = &Apache::lonmsg::unpackagemsg($message{$msg_id});
       $dis_name   = join('<br />',@{$content{'recuser'}});
       $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>'.              my $count = $n +1;
       ($folder ne 'trash'?'<a href="/adm/email?markdel='.$origID.$sqs.      $r->print('<td align="right"><nobr>'.(($status eq 'new')?'<b>':'').
       '">'.&mt('Delete'):'&nbsp').'</a></td>'.                        $count.'.'.(($status eq 'new')?'</b>':'').'&nbsp;'.
       '<td>'.&Apache::lonlocal::locallocaltime($sendtime).'</td><td>'.                        '<input type="checkbox" name="delmark"'. 
       $dis_name.'</td><td>'.$dis_domain.'</td><td>'.                        ' value="'.$origID.'" /></nobr></td>');
       &Apache::lonnet::unescape($shortsubj).'</td><td>'.              foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) {
                       $description.'</td><td>'.$status.'</td></tr>'."\n");                  $r->print('<td>'.(($status eq 'new')?'<b>':'').
                             '<a href="/adm/email?display='.$origID.$sqs.'">'.
                             $item.(($status eq 'new')?'</b>':'').'</td>');
               }
               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><td>'.
                         (($status eq 'new')?'<b>':'').$showstatus.
                         (($status eq 'new')?'</b>':'').'</td></tr>'."\n");
  } elsif ($status eq 'deleted') {   } elsif ($status eq 'deleted') {
 # purge  # purge
     &movemsg(&Apache::lonnet::unescape($origID),$folder,'trash');      my ($result,$msg) = 
    &movemsg(&unescape($origID),$folder,'trash');
       
  }   }
     }         }   
     $r->print("</table>\n<p>".      $r->print("</table>\n");
   '<a href="javascript:checkall()">'.&mt('Check All').'</a>&nbsp;'.      $r->print('<table border="0" cellspacing="2" cellpadding="2">
   '<a href="javascript:uncheckall()">'.&mt('Uncheck All').'</a></p>'.   <tr>
   '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />');    <td>'.
     '<input type="button" onclick="javascript:checkall()" value="'.&mt('Check All').'" /><br />'."\n".
     '<input type="button" onclick="javascript:uncheckall()" value="'.&mt('Uncheck All').'" />'."\n".
     '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" /></td><td>&nbsp;</td>'."\n".
     '<td align="center"><b>'.&mt('Action').'</b><br />'."\n".
     '  <select name="checkedaction" onchange="javascript:checkfoldermove()">'."\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 @allfolders=&Apache::lonnet::getkeys('email_folders');          $r->print('    <option value="markedread">'.&mt('Mark Read').'</option>."\n"');
     if ($allfolders[0]=~/^error:/) { @allfolders=(); }      }
     $r->print(      if ($msgstatus ne 'unread') {
  &Apache::loncommon::select_form('','movetofolder',          $r->print('    <option value="markedunread">'.&mt('Mark Unread').'</option>'."\n");
      ( map { $_ => $_ } @allfolders))      }
       );      $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 align="center"><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>&nbsp;</td><td>&nbsp;&nbsp;'.
                 '<input type="button" name="go" value="'.&mt('Go').
                 '" onclick="javascript:validate_checkedaction()"/></td>'."\n".
                 '</tr></table>');
     my $postedstartdis=$startdis+1;      my $postedstartdis=$startdis+1;
     $r->print('<input type="hidden" name="folder" value="'.$folder.'" /><input type="hidden" name="startdis" value="'.$postedstartdis.'" /><input type="hidden" name="interdis" value="'.$env{'form.interdis'}.'" /></form>');      $r->print('<input type="hidden" name="folder" value="'.$folder.'" /><input type="hidden" name="startdis" value="'.$postedstartdis.'" /><input type="hidden" name="interdis" value="'.$env{'form.interdis'}.'" /><input type="hidden" name="msgstatus" value="'.$msgstatus.'" ><input type="hidden" name="markedaction" value="" /></form>');
     if ($numblocked > 0) {      if ($numblocked > 0) {
         my $beginblock = &Apache::lonlocal::locallocaltime($startblock);          my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
         my $finishblock = &Apache::lonlocal::locallocaltime($endblock);          my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
         $r->print('<br /><br />'.          $r->print('<br /><br />'.
                   $numblocked.' '.&mt('message(s) is/are not viewable because display of LON-CAPA messages sent to you by other students between').' '.$beginblock.' '.&mt('and').' '.$finishblock.' '.&mt('is currently being blocked because of online exams.'));                    &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));
         &build_block_table($r,$startblock,$endblock,\%setters);          $r->print(&Apache::loncommon::build_block_table($startblock,$endblock,
                                                           \%setters));
     }      }
 }  }
   
 # ============================================================== Compose output  # ============================================================== Compose output
   
 sub compout {  sub compout {
     my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder,$dismode)=@_;      my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder,$dismode,
           $multiforward)=@_;
     my $suffix=&Apache::lonmsg::foldersuffix($folder);      my $suffix=&Apache::lonmsg::foldersuffix($folder);
       my ($cdom,$cnum,$group,$refarg);
     if ($broadcast eq 'individual') {      if (exists($env{'form.group'})) {
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           $group = $env{'form.group'};
           my $action = 'composing';
           $r->print(&groupmail_header($action,$group,$cdom,$cnum));
       } elsif ($broadcast eq 'individual') {
  &printheader($r,'/adm/email?compose=individual',   &printheader($r,'/adm/email?compose=individual',
      'Send a Message');       'Send a Message');
     } elsif ($broadcast) {      } elsif ($broadcast) {
Line 700  sub compout { Line 1162  sub compout {
      'Broadcast Message');       'Broadcast Message');
     } elsif ($forwarding) {      } elsif ($forwarding) {
  &Apache::lonhtmlcommon::add_breadcrumb   &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"/adm/email?display=".&Apache::lonnet::escape($forwarding),          ({href=>"/adm/email?display=".&escape($forwarding),
           text=>"Display Message"});            text=>"Display Message"});
  &printheader($r,'/adm/email?forward='.&Apache::lonnet::escape($forwarding),   &printheader($r,'/adm/email?forward='.&escape($forwarding),
      'Forwarding a Message');       'Forwarding a Message');
     } elsif ($replying) {      } elsif ($replying) {
  &Apache::lonhtmlcommon::add_breadcrumb   &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"/adm/email?display=".&Apache::lonnet::escape($replying),          ({href=>"/adm/email?display=".&escape($replying),
           text=>"Display Message"});            text=>"Display Message"});
  &printheader($r,'/adm/email?replyto='.&Apache::lonnet::escape($replying),   &printheader($r,'/adm/email?replyto='.&escape($replying),
      'Replying to a Message');       'Replying to a Message');
     } 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');
           $r->print(&mt('Each of the <b>[quant,_1,message]</b> you checked will be forwarded to the recipient(s) you select below.',$multiforward).'<br />');
     } else {      } else {
  &printheader($r,'/adm/email?compose=upload',   &printheader($r,'/adm/email?compose=upload',
      'Distribute from Uploaded File');       'Distribute from Uploaded File');
Line 723  sub compout { Line 1192  sub compout {
     my $dismsg='';      my $dismsg='';
     my $disbase='';      my $disbase='';
     my $func=&mt('Send New');      my $func=&mt('Send New');
     my %lt=&Apache::lonlocal::texthash('us' => 'Username',      my %lt=&Apache::lonlocal::texthash('us'  => 'Username',
        'do' => 'Domain',         'do'  => 'Domain',
        'ad' => 'Additional Recipients',         'ad'  => 'Additional Recipients',
        'sb' => 'Subject',         'sb'  => 'Subject',
        'ca' => 'Cancel',         'ca'  => 'Cancel',
        'ma' => 'Mail');         'ma'  => 'Mail',
                                          'msg' => 'Messages',
                                          'gen' => 'Generate messages from a file',
                                          'gmt' => 'General message text',
                                          'tff' => 'The file format for the uploaded portion of the message is',
                                          'uas' => 'Upload and Send',
                                         );
     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'})) {
Line 758  sub compout { Line 1232  sub compout {
  $dismsg=&mt('Forwarded message from').' '.   $dismsg=&mt('Forwarded message from').' '.
     $content{'sendername'}.' '.&mt('at').' '.$content{'senderdomain'};      $content{'sendername'}.' '.&mt('at').' '.$content{'senderdomain'};
  if ($content{'baseurl'}) {   if ($content{'baseurl'}) {
     $disbase='<input type="hidden" name="baseurl" value="'.&Apache::lonnet::escape($content{'baseurl'}).'" />';      $disbase='<input type="hidden" name="baseurl" value="'.&escape($content{'baseurl'}).'" />';
  }   }
     }      }
     if ($replying) {      if ($replying) {
Line 774  sub compout { Line 1248  sub compout {
  $dismsg=~s/\f/\n/g;   $dismsg=~s/\f/\n/g;
  $dismsg=~s/\n+/\n\> /g;   $dismsg=~s/\n+/\n\> /g;
  if ($content{'baseurl'}) {   if ($content{'baseurl'}) {
     $disbase='<input type="hidden" name="baseurl" value="'.&Apache::lonnet::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('Store message for re-use').
     '</label> <a href="/adm/email?showcommentbaseurl='.      '</label> <a href="/adm/email?showcommentbaseurl='.
     &Apache::lonnet::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 $citation=&displayresource(%content);      my $citation=&displayresource(%content);
       my ($can_grp_broadcast,$viewgrps,$editgrps);
     if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; }      if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; }
       $r->print(      if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }
       if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }
       $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">'."\n".
                 '<input type="hidden" name="sendmail" value="on" />'."\n".                  '<input type="hidden" name="sendmail" value="on" />'."\n");
                 '<table>');      if ($broadcast eq 'group' && $env{'form.group'} ne '') {
     unless (($broadcast eq 'group') || ($broadcast eq 'upload')) {          $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));
       } 
       if (($broadcast ne 'group') && ($broadcast ne 'upload')) {
  if ($replying) {   if ($replying) {
     $r->print('<tr><td colspan="2">'.&mt('Replying to').' '.      $r->print('<tr><td colspan="2">'.&mt('Replying to').' '.
       &Apache::loncommon::aboutmewrapper(        &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'}.'" />'.        '<input type="hidden" name="recuname" value="'.$content{'sendername'}.'" />'.
       '<input type="hidden" name="recdomain" value="'.$content{'senderdomain'}.'" />'.        '<input type="hidden" name="recdomain" value="'.$content{'senderdomain'}.'" />'.
       '</td></tr>');        '</td></tr>');
  } else {   } else {
     my $domform = &Apache::loncommon::select_dom_form($defdom,'recdomain');              $r->print(&recipient_input_row($defdom,%lt));
     my $selectlink=&Apache::loncommon::selectstudent_link  
     ('compemail','recuname','recdomain');  
     $r->print(<<"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>$lt{'do'}:</td>  
 <td>$domform</td></tr>  
 ENDREC  
         }          }
     }      }
     my $latexHelp = Apache::loncommon::helpLatexCheatsheet();      my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
     if ($broadcast ne 'upload') {      my $subj_size;
        $r->print(<<"ENDCOMP");      if ($multiforward) {
 <tr><td>$lt{'ad'}<br /><tt>username\@domain,username\@domain, ...          $r->print(&additional_rec_row(\%lt));
 </tt></td><td>          $r->print('<tr><td colspan="2">'.
 <input type="text" size="50" name="additionalrec" /></td></tr>                    &mt('Unless you choose otherwise:').'<ul><li>'.
 <tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub" />          &mt("The subject in each forwarded message will be <i>'Forwarding:'</i> followed by the original subject.").'</li><li>'.
 </td></tr></table>          &mt("The message itself will begin with a first line: <i>'Forwarded message from'</i> followed by the original sender's name.").'</li></ul></td></tr>');
           $func=&mt('Forward');
           $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 />'.
   $latexHelp.
   &mt("Any new text to display before the text of the original messages:").'<br />
   <textarea name="message" id="message" cols="80" rows="5" wrap="hard">
   </textarea></p><br />');
           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,$func.' '.$lt{'msg'},
                                        \%lt));
       } elsif ($broadcast ne 'upload') {
           $subj_size = '50';
           $r->print(&additional_rec_row(\%lt));
           $r->print(&msg_subject_row($dissub,\%lt,$subj_size));
           $r->print(<<"ENDCOMP");
   </table>
 $latexHelp  $latexHelp
 <textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg  <textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg
 </textarea></p><br />  </textarea></p><br />
 $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,$func.' '.$lt{'ma'},
                                        \%lt));
           $r->print($citation);
           if (exists($env{'form.ref'})) {
               $r->print('<input type="hidden" name="ref" value="'.
                         $env{'form.ref'}.'" />');
           }
           if (exists($env{'form.group'})) {
               $r->print('<input type="hidden" name="group" value="'.
                         $env{'form.group'}.'" />');
           }
     } else { # $broadcast is 'upload'      } else { # $broadcast is 'upload'
  $r->print(<<ENDUPLOAD);   $r->print(<<ENDBLOCK);
 <input type="hidden" name="sendmode" value="upload" />  <input type="hidden" name="sendmode" value="upload" />
 <input type="hidden" name="send" value="on" />  <input type="hidden" name="send" value="on" />
 <h3>Generate messages from a file</h3>  <h3>$lt{'gen'}</h3>
 <p>  <p>
 Subject: <input type="text" size="50" name="subject" />  Subject: <input type="text" size="50" name="subject" />
 </p>  </p>
 <p>General message text<br />  <p>$lt{'gmt'}:<br />
 <textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg  <textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg
 </textarea></p>  </textarea></p>
 <p>  <p>
 The file format for the uploaded portion of the message is:  $lt{'tff'}:
 <pre>  ENDBLOCK
 username1\@domain1: text         $r->print('
 username2\@domain2: text  <pre>'."\n".
 username3\@domain1: text  &mt('username1:domain1: text')."\n".
 </pre>  &mt('username2:domain2: text')."\n".
   &mt('username3:domain1: text')."\n".
   '</pre>
 </p>  </p>
 <p>  <p>
 The messages will be assembled from all lines with the respective   '.&mt('The messages will be assembled from all lines with the respective'."\n".'<tt>username:domain</tt>, and appended to the general message text.'));
 <tt>username\@domain</tt>, and appended to the general message text.</p>          $r->print(<<ENDUPLOAD);
   </p>
 <p>  <p>
 <input type="file" name="upfile" size="40" /></p><p>  <input type="file" name="upfile" size="40" /></p><p>
 $dispcrit  $dispcrit
 <input type="submit" value="Upload and Send" /></p>  <input type="submit" value="$lt{'uas'}" /></p>
 ENDUPLOAD  ENDUPLOAD
     }      }
     if ($broadcast eq 'group') {      if ($broadcast eq 'group') {
        &discourse($r);         if ($group eq '') {
              my $studentsel = &discourse();
              $r->print($studentsel);
          }
       }
       if ($env{'form.displayedcrit'}) {
    $r->print('<input type="hidden" name="displayedcrit" value="true" />');
     }      }
     $r->print('</form>'.      $r->print('</form>'.
       &Apache::lonfeedback::generate_preview_button('compemail','message').        &Apache::lonfeedback::generate_preview_button('compemail','message').
Line 868  ENDUPLOAD Line 1398  ENDUPLOAD
   
 # ---------------------------------------------------- Display all face to face  # ---------------------------------------------------- Display all face to face
   
   sub recipient_input_row {
       my ($dom,%lt) = @_;
       my $domform = &Apache::loncommon::select_dom_form($dom,'recdomain');
       my $selectlink=
         &Apache::loncommon::selectstudent_link('compemail','recuname',
                                                'recdomain');
       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>$lt{'do'}:</td>
   <td>$domform</td></tr>
   ENDREC
       return $output;
   }
   
   sub additional_rec_row {
       my ($lt) = @_;
       my $output = <<"ENDADD";
   <tr><td>$lt->{'ad'}:<br /><tt>username:domain,username:domain, ...
   </tt></td><td>
   <input type="text" size="50" name="additionalrec" /></td></tr>
   ENDADD
       return $output;
   }
   
   sub submit_button_row {
       my ($folder,$dismode,$sendtext,$lt) = @_;
       my $output = qq| 
   <input type="hidden" name="folder" value="$folder" />
   <input type="hidden" name="dismode" value="$dismode" />
   <input type="submit" name="send" value="$sendtext" />
   <input type="submit" name="cancel" value="$lt->{'ca'}" /><hr />
   |;
       return $output;
   }
   
   sub msg_subject_row {
       my ($dissub,$lt,$subj_size,$extra) = @_;
       my $output = '<tr><td>'.$lt->{'sb'}.':</td><td><input type="text" size="'.
                    $subj_size.'" name="subject" value="'.$dissub.'" />'.$extra.
                    '</td></tr>';
       return $output;
   }
   
 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'};
     if (! $env{'request.course.id'}) { return; }      if (! $env{'request.course.id'}) { return; }
     if (! &Apache::lonnet::allowed('srm',$env{'request.course.id'})      if (! &Apache::lonnet::allowed('dff',$env{'request.course.id'})
  && ! &Apache::lonnet::allowed('srm',$env{'request.course.id'}.   && ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
       '/'.$env{'request.course.sec'})) {        '/'.$env{'request.course.sec'})) {
  return;   return;
     }      }
Line 882  sub retrieve_instructor_comments { Line 1455  sub retrieve_instructor_comments {
  $env{'course.'.$env{'request.course.id'}.'.num'},   $env{'course.'.$env{'request.course.id'}.'.num'},
                          '%255b'.$user.'%253a'.$domain.'%255d');                           '%255b'.$user.'%253a'.$domain.'%255d');
     my $result='';      my $result='';
     foreach (sort(keys(%records))) {      foreach my $key (sort(keys(%records))) {
         my %content=&Apache::lonmsg::unpackagemsg($records{$_});          my %content=&Apache::lonmsg::unpackagemsg($records{$key});
         next if ($content{'senderdomain'} eq '');          next if ($content{'senderdomain'} eq '');
         next if ($content{'subject'} !~ /^Record/);          next if ($content{'subject'} !~ /^Record/);
  # &Apache::lonfeedback::newline_to_br(\$content{'message'});   # &Apache::lonfeedback::newline_to_br(\$content{'message'});
  $result.='Recorded by '.   $result.='Recorded by '.
             $content{'sendername'}.'@'.$content{'senderdomain'}."\n";              $content{'sendername'}.':'.$content{'senderdomain'}."\n";
         $result.=          $result.=
             &Apache::lontexconvert::msgtexconverted($content{'message'})."\n";              &Apache::lontexconvert::msgtexconverted($content{'message'})."\n";
      }       }
Line 899  sub disfacetoface { Line 1472  sub disfacetoface {
     my ($r,$user,$domain)=@_;      my ($r,$user,$domain)=@_;
     my $target=$env{'form.grade_target'};      my $target=$env{'form.grade_target'};
     unless ($env{'request.course.id'}) { return; }      unless ($env{'request.course.id'}) { return; }
     if  (!&Apache::lonnet::allowed('srm',$env{'request.course.id'})      if  (!&Apache::lonnet::allowed('dff',$env{'request.course.id'})
  && ! &Apache::lonnet::allowed('srm',$env{'request.course.id'}.   && ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
        '/'.$env{'request.course.sec'})) {         '/'.$env{'request.course.sec'})) {
  $r->print('Not allowed');   $r->print(&mt('Not allowed'));
  return;   return;
     }      }
     my %records=&Apache::lonnet::dump('nohist_email',      my %records=&Apache::lonnet::dump('nohist_email',
Line 910  sub disfacetoface { Line 1483  sub disfacetoface {
  $env{'course.'.$env{'request.course.id'}.'.num'},   $env{'course.'.$env{'request.course.id'}.'.num'},
                          '%255b'.$user.'%253a'.$domain.'%255d');                           '%255b'.$user.'%253a'.$domain.'%255d');
     my $result='';      my $result='';
     foreach (sort keys %records) {      foreach my $key (sort(keys(%records))) {
         my %content=&Apache::lonmsg::unpackagemsg($records{$_});          my %content=&Apache::lonmsg::unpackagemsg($records{$key});
         next if ($content{'senderdomain'} eq '');          next if ($content{'senderdomain'} eq '');
  &Apache::lonfeedback::newline_to_br(\$content{'message'});   &Apache::lonfeedback::newline_to_br(\$content{'message'});
         if ($content{'subject'}=~/^Record/) {          if ($content{'subject'}=~/^Record/) {
Line 920  sub disfacetoface { Line 1493  sub disfacetoface {
             $result .='<h3>'.&mt('Broadcast Message').'</h3>';              $result .='<h3>'.&mt('Broadcast Message').'</h3>';
             if ($content{'subject'}=~/^Broadcast\./) {              if ($content{'subject'}=~/^Broadcast\./) {
                 if (defined($content{'coursemsgid'})) {                  if (defined($content{'coursemsgid'})) {
                     my $crsmsgid = &Apache::lonnet::escape($content{'coursemsgid'});                      my $crsmsgid = &escape($content{'coursemsgid'});
                     my $broadcast_message = &general_message($crsmsgid);                      my $broadcast_message = &general_message($crsmsgid);
                     $content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$broadcast_message;                      $content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$broadcast_message;
                 } else {                  } else {
Line 933  sub disfacetoface { Line 1506  sub disfacetoface {
         } else {          } else {
             $result.='<h3>'.&mt('Critical Message').'</h3>';              $result.='<h3>'.&mt('Critical Message').'</h3>';
             if (defined($content{'coursemsgid'})) {              if (defined($content{'coursemsgid'})) {
                 my $crsmsgid=&Apache::lonnet::escape($content{'coursemsgid'});                  my $crsmsgid=&escape($content{'coursemsgid'});
                 my $critical_message = &general_message($crsmsgid);                  my $critical_message = &general_message($crsmsgid);
                 $content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$critical_message;                  $content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$critical_message;
             } else {              } else {
Line 946  sub disfacetoface { Line 1519  sub disfacetoface {
         $result.=&mt('By').': <b>'.          $result.=&mt('By').': <b>'.
 &Apache::loncommon::aboutmewrapper(  &Apache::loncommon::aboutmewrapper(
  &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>'.
               &Apache::lontexconvert::msgtexconverted($content{'message'}).                &Apache::lontexconvert::msgtexconverted($content{'message'}).
Line 954  $content{'sendername'}.'@'. Line 1527  $content{'sendername'}.'@'.
      }       }
     # Check to see if there were any messages.      # Check to see if there were any messages.
     if ($result eq '') {      if ($result eq '') {
           my $lctype = lc(&Apache::loncommon::course_type());
  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 course.")."</b></p>");      $r->print("<p><b>".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."</b></p>");
  } else {   } else {
     $r->print('\textbf{'.&mt("No notes, face-to-face discussion records, critical messages or broadcast messages in this course.").'}\\\\');      $r->print('\textbf{'.&mt('No notes, face-to-face discussion records, critical messages or broadcast messages in this [_1].',$lctype).'}\\\\');
  }   }
     } else {      } else {
        $r->print($result);         $r->print($result);
Line 980  sub general_message { Line 1554  sub general_message {
   
 sub facetoface {  sub facetoface {
     my ($r,$stage)=@_;      my ($r,$stage)=@_;
     if (!&Apache::lonnet::allowed('srm',$env{'request.course.id'})      if (!&Apache::lonnet::allowed('dff',$env{'request.course.id'})
  && ! &Apache::lonnet::allowed('srm',$env{'request.course.id'}.   && ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
       '/'.$env{'request.course.sec'})) {        '/'.$env{'request.course.sec'})) {
  $r->print('Not allowed');   $r->print(&mt('Not allowed'));
  return;   return;
     }      }
       my $crstype = &Apache::loncommon::course_type();
       my $leaders = ($crstype eq 'Group') ? 'coordinators and leaders'
                                           : '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");
Line 1003  sub facetoface { Line 1580  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 Course',         'head' => "User Notes, Records of Face-To-Face Discussions, Critical Messages, and Broadcast Messages in $crstype",
        'subm' => 'Retrieve discussion and message records',         'subm' => 'Retrieve discussion and message records',
        'newr' => 'New Record (record is visible to course faculty and staff)',         'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',
        'post' => 'Post this Record');         'post' => 'Post this Record');
     $r->print(<<"ENDTREC");      $r->print(<<"ENDTREC");
 <h3>$lt{'head'}</h3>  <h3>$lt{'head'}</h3>
Line 1026  ENDTREC Line 1603  ENDTREC
         ($env{'form.recdomain'}) && ($env{'form.recuname'})) {          ($env{'form.recdomain'}) && ($env{'form.recuname'})) {
         chomp($env{'form.newrecord'});          chomp($env{'form.newrecord'});
         if ($env{'form.newrecord'}) {          if ($env{'form.newrecord'}) {
            my $recordtxt = $env{'form.newrecord'};      &Apache::lonmsg::store_instructor_comment($env{'form.newrecord'},
            &Apache::lonmsg::user_normal_msg_raw(        $env{'form.recuname'},
             $env{'course.'.$env{'request.course.id'}.'.num'},        $env{'form.recdomain'});
             $env{'course.'.$env{'request.course.id'}.'.domain'},  
             &mt('Record').  
      ' ['.$env{'form.recuname'}.':'.$env{'form.recdomain'}.']',  
     $recordtxt);  
         }          }
         $r->print('<h3>'.&Apache::loncommon::plainname($env{'form.recuname'},          $r->print('<h3>'.&Apache::loncommon::plainname($env{'form.recuname'},
      $env{'form.recdomain'}).'</h3>');       $env{'form.recdomain'}).'</h3>');
Line 1058  ENDBFORM Line 1631  ENDBFORM
 sub examblock {  sub examblock {
     my ($r,$action) = @_;      my ($r,$action) = @_;
     unless ($env{'request.course.id'}) { return;}      unless ($env{'request.course.id'}) { return;}
     if (!&Apache::lonnet::allowed('srm',$env{'request.course.id'})      if (!&Apache::lonnet::allowed('dcm',$env{'request.course.id'})
  && ! &Apache::lonnet::allowed('srm',$env{'request.course.id'}.   && ! &Apache::lonnet::allowed('dcm',$env{'request.course.id'}.
       '/'.$env{'request.course.sec'})) {        '/'.$env{'request.course.sec'})) {
  $r->print('Not allowed');   $r->print('Not allowed');
  return;   return;
     }      }
       my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members'
                                                             : 'students';
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
             'comb' => 'Communication Blocking',              'comb' => 'Communication Blocking',
             'cbds' => 'Communication blocking during scheduled exams',              'cbds' => 'Communication blocking during scheduled exams',
             'desc' => 'You can use communication blocking to prevent students enrolled in this course from displaying LON-CAPA messages sent by other students during an online exam. As blocking of communication could potentially interrupt legitimate communication between students who are also both enrolled in a different LON-CAPA course, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.',              'desc' => "You can use communication blocking to prevent $usertype enrolled in this 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',               'mecb' => 'Modify existing communication blocking periods',
              'ncbc' => 'No communication blocks currently stored'               'ncbc' => 'No communication blocks currently stored',
                'stor' => 'Store',
     );      );
   
     my %ltext = &Apache::lonlocal::texthash(      my %ltext = &Apache::lonlocal::texthash(
             'dura' => 'Duration',              'dura' => 'Duration',
             'setb' => 'Set by',              'setb' => 'Set by',
             'even' => 'Event',              'even' => 'Event',
               'blck' => 'Blocked?',
             'actn' => 'Action',              'actn' => 'Action',
             'star' => 'Start',              'star' => 'Start',
             'endd' => 'End'              'endd' => 'End'
Line 1107  sub examblock { Line 1684  sub examblock {
     $r->print(<<"END");      $r->print(<<"END");
 <br />  <br />
 <input type="hidden" name="blocktotal" value="$blockcount" />  <input type="hidden" name="blocktotal" value="$blockcount" />
 <input type ="submit" value="Save Changes" />  <input type ="submit" value="$lt{'stor'}" />
 </form>  </form>
 $end_page  $end_page
 END  END
Line 1118  sub blockstore { Line 1695  sub blockstore {
     my $r = shift;      my $r = shift;
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
             'tfcm' => 'The following changes were made',              'tfcm' => 'The following changes were made',
             'cbps' => 'communication blocking period(s)',  
             'werm' => 'was/were removed',  
             'wemo' => 'was/were modified',  
             'wead' => 'was/were added',  
             'ncwm' => 'No changes were made.'               'ncwm' => 'No changes were made.' 
     );      );
     my %adds = ();      my %adds = ();
Line 1132  sub blockstore { Line 1705  sub blockstore {
     my $addtotal = 0;      my $addtotal = 0;
     my %blocking = ();      my %blocking = ();
     $r->print('<h3>'.$lt{'head'}.'</h3>');      $r->print('<h3>'.$lt{'head'}.'</h3>');
     foreach (keys %env) {      foreach my $envkey (keys(%env)) {
         if ($_ =~ m/^form\.modify_(\w+)$/) {          if ($envkey =~ m/^form\.modify_(\d+)$/) {
             $adds{$1} = $1;              $adds{$1} = $1;
             $removals{$1} = $1;              $removals{$1} = $1;
             $modtotal ++;              $modtotal ++;
         } elsif ($_ =~ m/^form\.cancel_(\d+)$/) {          } elsif ($envkey =~ m/^form\.cancel_(\d+)$/) {
             $cancels{$1} = $1;              $cancels{$1} = $1;
             unless ( defined($removals{$1}) ) {              unless ( defined($removals{$1}) ) {
                 $removals{$1} = $1;                  $removals{$1} = $1;
                 $canceltotal ++;                  $canceltotal ++;
             }              }
         } elsif ($_ =~ m/^form\.add_(\d+)$/) {          } elsif ($envkey =~ m/^form\.add_(\d+)$/) {
             $adds{$1} = $1;              $adds{$1} = $1;
             $addtotal ++;              $addtotal ++;
         }          } 
     }      }
   
     foreach (keys %removals) {      foreach my $key (keys(%removals)) {
         my $hashkey = $env{'form.key_'.$_};          my $hashkey = $env{'form.key_'.$key};
         &Apache::lonnet::del('comm_block',["$hashkey"],          &Apache::lonnet::del('comm_block',["$hashkey"],
                          $env{'course.'.$env{'request.course.id'}.'.domain'},                           $env{'course.'.$env{'request.course.id'}.'.domain'},
                          $env{'course.'.$env{'request.course.id'}.'.num'}                           $env{'course.'.$env{'request.course.id'}.'.num'}
                          );                           );
     }      }
     foreach (keys %adds) {      foreach my $key (keys(%adds)) {
         unless ( defined($cancels{$_}) ) {          unless ( defined($cancels{$key}) ) {
             my ($newstart,$newend) = &get_dates_from_form($_);              my ($newstart,$newend) = &get_dates_from_form($key);
             my $newkey = $newstart.'____'.$newend;              my $newkey = $newstart.'____'.$newend;
             $blocking{$newkey} = $env{'user.name'}.'@'.$env{'user.domain'}.':'.$env{'form.title_'.$_};              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) {      if ($addtotal + $modtotal > 0) {
Line 1173  sub blockstore { Line 1751  sub blockstore {
     if ($chgestotal > 0) {      if ($chgestotal > 0) {
         $r->print($lt{'tfcm'}.'<ul>');          $r->print($lt{'tfcm'}.'<ul>');
         if ($canceltotal > 0) {          if ($canceltotal > 0) {
             $r->print('<li>'.$canceltotal.' '.$lt{'cbps'},' '.$lt{'werm'}.'</li>');              $r->print('<li>'.&mt('[quant,_1,communication blocking period was,communication blocking periods were] removed.',$canceltotal).'</li>');
         }          }
         if ($modtotal > 0) {          if ($modtotal > 0) {
             $r->print('<li>'.$modtotal.' '.$lt{'cbps'},' '.$lt{'wemo'}.'</li>');              $r->print('<li>'.&mt('[quant,_1,communication blocking period was,communication blocking periods were] modified.',$modtotal).'</li>');
         }          }
         if ($addtotal > 0) {          if ($addtotal > 0) {
             $r->print('<li>'.$addtotal.' '.$lt{'cbps'},' '.$lt{'wead'}.'</li>');              $r->print('<li>'.&mt('[quant,_1,communication blocking period was,communication blocking periods were] added.',$addtotal).'</li>');
         }          }
         $r->print('</ul>');          $r->print('</ul>');
     } else {      } else {
Line 1203  sub get_blockdates { Line 1781  sub get_blockdates {
                          $env{'course.'.$env{'request.course.id'}.'.domain'},                           $env{'course.'.$env{'request.course.id'}.'.domain'},
                          $env{'course.'.$env{'request.course.id'}.'.num'}                           $env{'course.'.$env{'request.course.id'}.'.num'}
                          );                           );
     $$blockcount = keys %{$records};      $$blockcount = keys(%{$records});
                                                                                                                
     foreach (keys %{$records}) {      if ((keys(%{$records}))[0] =~ /^error: 2 /) {
         if ($_ eq 'error: 2 tie(GDBM) Failed while attempting dump') {   $records = {};
             $$blockcount = 0;   $$blockcount = 0;
             last;      }
   }
   
   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 {  sub display_blocker_status {
     my ($r,$records,$ltext) = @_;      my ($r,$records,$ltext) = @_;
     my $parmcount = 0;      my $parmcount = 0;
     my @bgcols = ("#eeeeee","#dddddd");    
     my $function = &Apache::loncommon::get_users_function();  
     my $color = &Apache::loncommon::designparm($function.'.tabbg',  
                                                     $env{'user.domain'});  
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
         'modi' => 'Modify',          'modi' => 'Modify',
         'canc' => 'Cancel',          'canc' => 'Cancel',
     );      );
       my ($typeorder,$types) = &blocktype_text();
       $r->print(&Apache::loncommon::start_data_table());
     $r->print(<<"END");      $r->print(<<"END");
 <table border="0" cellpadding="0" cellspacing="0">    <tr>
  <tr>      <th>$ltext->{'dura'}</th>
   <td width="100%" bgcolor="#000000">      <th>$ltext->{'setb'}</th>
    <table width="100%" border="0" cellpadding="1" cellspacing="0">      <th>$ltext->{'even'}</th>
     <tr>      <th>$ltext->{'blck'}</th>
      <td width="100%" bgcolor="#000000">      <th>$ltext->{'actn'}?</th>
       <table border="0" cellpadding="3" cellspacing="3" bgcolor="#FFFFFF">    </tr>
        <tr bgcolor="$color">  
         <td><b>$$ltext{'dura'}</b></td>  
         <td><b>$$ltext{'setb'}</b></td>  
         <td><b>$$ltext{'even'}</b></td>  
         <td><b>$$ltext{'actn'}?</b></td>  
        </tr>  
 END  END
     foreach (sort keys %{$records}) {      foreach my $record (sort(keys(%{$records}))) {
         my $iter = $parmcount%2;  
         my $onchange = 'onFocus="javascript:window.document.forms['.          my $onchange = 'onFocus="javascript:window.document.forms['.
                        "'blockform'].elements['modify_".$parmcount."'].".                         "'blockform'].elements['modify_".$parmcount."'].".
                        'checked=true;"';                         'checked=true;"';
         my ($start,$end) = split/____/,$_;          my ($start,$end) = split(/____/,$record);
         my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);          my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);
         my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);          my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);
         my ($setter,$title) = split/:/,$$records{$_};  
         my ($setuname,$setudom) = split/@/,$setter;   my ($setuname,$setudom,$title,$blocks) = 
         my $settername = &Apache::loncommon::plainname($setuname,$setudom);      &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");          $r->print(<<"END");
        <tr bgcolor="$bgcols[$iter]">          <td>$ltext->{'star'}:&nbsp;$startform<br/>$ltext->{'endd'}:&nbsp;&nbsp;$endform</td>
         <td>$$ltext{'star'}:&nbsp;$startform<br/>$$ltext{'endd'}:&nbsp;&nbsp;$endform</td>  
         <td>$settername</td>          <td>$settername</td>
         <td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$_" /></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>          <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>
        </tr>  
 END  END
         $parmcount ++;          $r->print(&Apache::loncommon::end_data_table_row());
           $parmcount++;
     }      }
     $r->print(<<"END");      $r->print(<<"END");
       </table>  
      </td>  
     </tr>  
    </table>  
   </td>  
  </tr>  
 </table>  </table>
 <br />  <br />
 <br />  <br />
Line 1283  sub display_addblocker_table { Line 1875  sub display_addblocker_table {
                    'checked=true;"';                     'checked=true;"';
     my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);      my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);
     my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);      my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);
     my $function = &Apache::loncommon::get_users_function();  
     my $color = &Apache::loncommon::designparm($function.'.tabbg',  
                                                     $env{'user.domain'});  
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
         'addb' => 'Add block',          'addb' => 'Add block',
         'exam' => 'e.g., Exam 1',          'exam' => 'e.g., Exam 1',
         'addn' => 'Add new communication blocking periods'          'addn' => 'Add new communication blocking periods'
     );      );
       my ($typeorder,$types) = &blocktype_text();
     $r->print(<<"END");      $r->print(<<"END");
 <h4>$lt{'addn'}</h4>   <h4>$lt{'addn'}</h4> 
 <table border="0" cellpadding="0" cellspacing="0">  
  <tr>  
   <td width="100%" bgcolor="#000000">  
    <table width="100%" border="0" cellpadding="1" cellspacing="0">  
     <tr>  
      <td width="100%" bgcolor="#000000">  
       <table border="0" cellpadding="3" cellspacing="3" bgcolor="#FFFFFF">  
        <tr bgcolor="#CCCCFF">  
         <td><b>$$ltext{'dura'}</b></td>  
         <td><b>$$ltext{'even'} $lt{'exam'}</b></td>  
         <td><b>$$ltext{'actn'}?</b></td>  
        </tr>  
        <tr bgcolor="#eeeeee">  
         <td>$$ltext{'star'}:&nbsp;$startform<br />$$ltext{'endd'}:&nbsp;&nbsp;$endform</td>  
         <td><input type="text" name="title_$parmcount" size="15" value="" /></td>  
         <td><label>$lt{'addb'}?&nbsp;<input type="checkbox" name="add_$parmcount" value="1" /></label></td>  
        </tr>  
       </table>  
      </td>  
     </tr>  
    </table>  
   </td>  
  </tr>  
 </table>  
 END  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;      return;
 }  }
   
 sub blockcheck {  sub blocktype_text {
     my ($setters,$startblock,$endblock) = @_;      my %types = &Apache::lonlocal::texthash(
     # Retrieve active student roles and active course coordinator/instructor roles          'com' => 'Messaging',
     my @livecses = ();          'chat' => 'Chat',
     my @staffcses = ();          'boards' => 'Discussion',
     $$startblock = 0;          'port' => 'Portfolio',
     $$endblock = 0;          'groups' => 'Groups',
     foreach (keys %env) {          'blogs' => 'Blogs',
         if ($_ =~ m-^user\.role\.(st|cc|in)\./(.+)$-) {      );
             my $role = $1;      my $typeorder = ['com','chat','boards','port','groups','blogs'];
             my $cse = $2;      return ($typeorder,\%types);
             $cse =~ s|/|_|;  
             if ($env{$_} =~ m/^(\d*)\.(\d*)$/) {  
                 unless (($2 > 0 && $2 < time) || ($1 > time)) {  
                     if ($role eq 'st') {  
                         push @livecses, $cse;  
                     } else {  
                         unless (grep/^$cse$/,@staffcses) {  
                             push @staffcses, $cse;  
                         }  
                     }  
                 }  
             }  
         } elsif ($_ =~ m-user\.role\.cr/(\w+)/(\w+)/([^/]+)\./(.+)$- ) {   
             my $rolepriv = $env{'user.role..rolesdef_'.$3};  
         }  
     }  
     # Retrieve blocking times and identity of blocker for active courses for students.  
     if (@livecses > 0) {  
         foreach my $cse (@livecses) {  
             my ($cdom,$crs) = split/_/,$cse;  
             if ( (grep/^$cse$/,@staffcses) && ($env{'request.role'} !~ m-^st\./$cdom/$crs$-) ) {  
                 next;  
             } else {  
                 %{$$setters{$cse}} = ();  
                 @{$$setters{$cse}{'staff'}} = ();  
                 @{$$setters{$cse}{'times'}} = ();  
                 my %records = &Apache::lonnet::dump('comm_block',$cdom,$crs);  
                 foreach (keys %records) {  
                     if ($_ =~ m/^(\d+)____(\d+)$/) {  
                         if ($1 <= time && $2 >= time) {  
                             my ($staff,$title) = split/:/,$records{$_};  
                             push @{$$setters{$cse}{'staff'}}, $staff;  
                             push @{$$setters{$cse}{'times'}}, $_;  
                             if ( ($$startblock == 0) || ($$startblock > $1) ) {  
                                 $$startblock = $1;  
                             }  
                             if ( ($$endblock == 0) || ($$endblock < $2) ) {  
                                 $$endblock = $2;  
                             }  
                         }  
                     }  
                 }  
             }  
         }  
     }  
 }  
   
 sub build_block_table {  
     my ($r,$startblock,$endblock,$setters) = @_;  
     my $function = &Apache::loncommon::get_users_function();  
     my $color = &Apache::loncommon::designparm($function.'.tabbg',  
                                                     $env{'user.domain'});  
     my %lt = &Apache::lonlocal::texthash(  
         'cacb' => 'Currently active communication blocks',  
         'cour' => 'Course',  
         'dura' => 'Duration',  
         'blse' => 'Block set by'  
     );   
     $r->print(<<"END");  
 <br /<br />$lt{'cacb'}:<br /><br />  
 <table border="0" cellpadding="0" cellspacing="0">  
  <tr>  
   <td width="100%" bgcolor="#000000">  
    <table width="100%" border="0" cellpadding="1" cellspacing="0">  
     <tr>  
      <td width="100%" bgcolor="#000000">  
       <table border="0" cellpadding="3" cellspacing="3" bgcolor="#FFFFFF">  
        <tr bgcolor="$color">  
         <td><b>$lt{'cour'}</b></td>  
         <td><b>$lt{'dura'}</b></td>  
         <td><b>$lt{'blse'}</b></td>  
        </tr>  
 END  
     foreach (keys %{$setters}) {  
         my %courseinfo=&Apache::lonnet::coursedescription($_);  
         for (my $i=0; $i<@{$$setters{$_}{staff}}; $i++) {  
             my ($uname,$udom) = split/\@/,$$setters{$_}{staff}[$i];  
             my $fullname = &Apache::loncommon::plainname($uname,$udom);  
             my ($openblock,$closeblock) = split/____/,$$setters{$_}{times}[$i];  
             $openblock = &Apache::lonlocal::locallocaltime($openblock);  
             $closeblock= &Apache::lonlocal::locallocaltime($closeblock);  
             $r->print('<tr><td>'.$courseinfo{'description'}.'</td>'.  
                       '<td>'.$openblock.' to '.$closeblock.'</td>'.  
                       '<td>'.$fullname.' ('.$uname.'@'.$udom.  
                       ')</td></tr>');  
         }  
     }  
     $r->print('</table></td></tr></table></td></tr></table>');  
 }  }
   
 # ----------------------------------------------------------- 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 $startblock = 0;  
     my $endblock = 0;  
     my $numblocked = 0;      my $numblocked = 0;
       my $crstype = &Apache::loncommon::course_type();
   
 # 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
     &blockcheck(\%setters,\$startblock,\$endblock);      my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');
     my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder);      my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);
     if ( $blocked{$msgid} eq 'ON' ) {      if ( $blocked{$msgid} eq 'ON' ) {
         &printheader($r,'/adm/email',&mt('Display a Message'));          &printheader($r,'/adm/email',&mt('Display a Message'));
         $r->print(&mt('You attempted to display a message that is currently blocked because you are enrolled in one or more courses for which there is an ongoing online exam.'));          $r->print(&mt('You attempted to display a message that is currently blocked because you are enrolled in one or more courses for which there is an ongoing online exam.'));
Line 1447  sub displaymessage { Line 1949  sub displaymessage {
   
     my $counter=0;      my $counter=0;
     $r->print('<pre>');      $r->print('<pre>');
     my $escmsgid=&Apache::lonnet::escape($msgid);      my $escmsgid=&escape($msgid);
     foreach (@messages) {      foreach (@messages) {
  if ($_->[5] eq $escmsgid){   if ($_->[5] eq $escmsgid){
     last;      last;
Line 1457  sub displaymessage { Line 1959  sub displaymessage {
     $r->print('</pre>');      $r->print('</pre>');
     my $number_of_messages = scalar(@messages); #subtract 1 for last index      my $number_of_messages = scalar(@messages); #subtract 1 for last index
 # start output  # start output
     &printheader($r,'/adm/email?display='.&Apache::lonnet::escape($msgid),'Display a Message','',$content{'baseurl'});      &printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'});
     my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});      my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
 # Functions  # Functions
     $r->print('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'.      $r->print('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'.
       '<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs.        '<td><a href="/adm/email?replyto='.&escape($msgid).$sqs.
       '"><b>'.&mt('Reply').'</b></a></td>'.        '"><b>'.&mt('Reply').'</b></a></td>'.
       '<td><a href="/adm/email?forward='.&Apache::lonnet::escape($msgid).$sqs.        '<td><a href="/adm/email?forward='.&escape($msgid).$sqs.
       '"><b>'.&mt('Forward').'</b></a></td>'.        '"><b>'.&mt('Forward').'</b></a></td>'.
       '<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).$sqs.        '<td><a href="/adm/email?markunread='.&escape($msgid).$sqs.
       '"><b>'.&mt('Mark Unread').'</b></a></td>'.        '"><b>'.&mt('Mark Unread').'</b></a></td>'.
       '<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs.        '<td><a href="/adm/email?markdel='.&escape($msgid).$sqs.
       '"><b>'.&mt('Delete').'</b></a></td>'.        '"><b>'.&mt('Delete').'</b></a></td>'.
       '<td><a href="/adm/email?'.$sqs.        '<td><a href="/adm/email?'.$sqs.
       ($env{'form.dismode'} eq 'new'?'&folder=new':'').  
       '"><b>'.&mt('Back to Folder Display').'</b></a></td>');        '"><b>'.&mt('Back to Folder Display').'</b></a></td>');
     if ($counter > 0){      if ($counter > 0){
  $r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.   $r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.
Line 1513  sub displaymessage { Line 2014  sub displaymessage {
       $content{'sendername'}.' at '.        $content{'sendername'}.' at '.
       $content{'senderdomain'}.') ':'<br /><b>'.&mt('To').':</b> '.        $content{'senderdomain'}.') ':'<br /><b>'.&mt('To').':</b> '.
               $tolist).                $tolist).
       ($content{'courseid'}?'<br /><b>'.&mt('Course').':</b> '.$courseinfo{'description'}.        ($content{'courseid'}?'<br /><b>'.&mt($crstype).':</b> '.$courseinfo{'description'}.
        ($content{'coursesec'}?' ('.&mt('Group/Section').': '.$content{'coursesec'}.')':''):'').         ($content{'coursesec'}?' ('.&mt('Section').': '.$content{'coursesec'}.')':''):'').
       '<br /><b>'.&mt('Time').':</b> '.$content{'time'}.        '<br /><b>'.&mt('Time').':</b> '.$content{'time'}.
       ($content{'baseurl'}?'<br /><b>'.&mt('Refers to').':</b> <a href="'.$content{'baseurl'}.'">'.        ($content{'baseurl'}?'<br /><b>'.&mt('Refers to').':</b> <a href="'.$content{'baseurl'}.'">'.
        $content{'baseurl'}.' ('.&Apache::lonnet::gettitle($content{'baseurl'}).')</a>':'').         $content{'baseurl'}.' ('.&Apache::lonnet::gettitle($content{'baseurl'}).')</a>':'').
Line 1566  sub header { Line 2067  sub header {
           
     my $extra = &Apache::loncommon::studentbrowser_javascript();      my $extra = &Apache::loncommon::studentbrowser_javascript();
     if ($baseurl) {      if ($baseurl) {
  $extra .= "<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />";   $extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";
     }      }
     $r->print(&Apache::loncommon::start_page('Communication and Messages',      $r->print(&Apache::loncommon::start_page('Communication and Messages',
      $extra));    $extra));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs      $r->print(&Apache::lonhtmlcommon::breadcrumbs
       (undef,($title?$title:'Communication and Messages')));        (($title?$title:'Communication and Messages')));
   
 }  }
   
 # ---------------------------------------------------------------- Print header  # ---------------------------------------------------------------- Print header
Line 1591  sub storecomment { Line 2091  sub storecomment {
     my ($r)=@_;      my ($r)=@_;
     my $msgtxt=&Apache::lonfeedback::clear_out_html($env{'form.message'});      my $msgtxt=&Apache::lonfeedback::clear_out_html($env{'form.message'});
     my $cleanmsgtxt='';      my $cleanmsgtxt='';
     foreach (split(/[\n\r]/,$msgtxt)) {      foreach my $line (split(/[\n\r]/,$msgtxt)) {
  unless ($_=~/^\s*(\>|\&gt\;)/) {   unless ($line=~/^\s*(\>|\&gt\;)/) {
     $cleanmsgtxt.=$_."\n";      $cleanmsgtxt.=$line."\n";
  }   }
     }      }
     my $key=&Apache::lonnet::escape($env{'form.baseurl'}).'___'.time;      my $key=&escape($env{'form.baseurl'}).'___'.time;
     &Apache::lonnet::put('nohist_stored_comments',{ $key => $cleanmsgtxt });      &Apache::lonnet::put('nohist_stored_comments',{ $key => $cleanmsgtxt });
 }  }
   
 sub storedcommentlisting {  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,
        '^'.&Apache::lonnet::escape(&Apache::lonnet::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('Stored 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 stored comments yet.'));
     } else {      } else {
  my $found=0;   my $found=0;
  foreach (sort keys %msgs) {   foreach my $key (sort(keys(%msgs))) {
     $r->print("\n".$msgs{$_}."<hr />");      $r->print("\n".$msgs{$key}."<hr />");
     $found=1;      $found=1;
  }   }
  unless ($found) {   unless ($found) {
Line 1628  sub sendoffmail { Line 2128  sub sendoffmail {
     my $sendstatus='';      my $sendstatus='';
     my %specialmsg_status;      my %specialmsg_status;
     my $numspecial = 0;      my $numspecial = 0;
       my ($cdom,$cnum,$group);
       if (exists($env{'form.group'})) {
           $group = $env{'form.group'};
       }
       if (exists($env{'request.course.id'})) {
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       }
     if ($env{'form.send'}) {      if ($env{'form.send'}) {
  &printheader($r,'','Messages being sent.');          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=();
  undef %content;   undef %content;
Line 1647  sub sendoffmail { Line 2161  sub sendoffmail {
     %content=&Apache::lonmsg::unpackagemsg($message{$msgid},1);      %content=&Apache::lonmsg::unpackagemsg($message{$msgid},1);
     &statuschange($msgid,'replied',$folder);      &statuschange($msgid,'replied',$folder);
  }   }
  my %toaddr=();  
  undef %toaddr;   my @to =
  if ($env{'form.sendmode'} eq 'group') {      &Apache::loncommon::get_env_multiple('form.selectedusers_forminput');
     foreach (keys %env) {   my $mode = $env{'form.sendmode'};
  if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {  
     $toaddr{$1}='';   my %toaddr;
    if (@to) {
       foreach my $dest (@to) {
    my ($user,$domain) = split(/:/, $dest);
    if (($user ne '') && ($domain ne '')) {
       my $address = $user.":".$domain; # How the code below expects it.
       $toaddr{$address} = '';
  }   }
     }      }
    }
   
    if ($env{'form.sendmode'} eq 'group') {
        foreach my $address (keys(%env)) {
    if ($address=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {
       $toaddr{$1}='';
    }
       }
  } elsif ($env{'form.sendmode'} eq 'upload') {   } elsif ($env{'form.sendmode'} eq 'upload') {
     foreach (split(/[\n\r\f]+/,$env{'form.upfile'})) {      foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {
  my ($rec,$txt)=split(/\s*\:\s*/,$_);                  my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/);
  if ($txt) {   if ($txt) {
     $rec=~s/\@/\:/;                      $rec =~ s/^\s+//;
                       $rec =~ s/\s+$//;
     $toaddr{$rec}.=$txt."\n";      $toaddr{$rec}.=$txt."\n";
  }   }
     }      }
  } else {   } else {
     $toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';      if (($env{'form.recuname'} ne '') && ($env{'form.recdomain'} ne '')) {
    $toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';
       }
  }   }
  if ($env{'form.additionalrec'}) {   if ($env{'form.additionalrec'}) {
     foreach (split(/\,/,$env{'form.additionalrec'})) {      foreach my $rec (split(/\,/,$env{'form.additionalrec'})) {
  my ($auname,$audom)=split(/\@/,$_);   my ($auname,$audom)=split(/:/,$rec);
  $toaddr{$auname.':'.$audom}='';   if (($auname ne "") && ($audom ne "")) {
       $toaddr{$auname.':'.$audom}='';
    }
     }      }
  }   }
   
Line 1689  sub sendoffmail { Line 2222  sub sendoffmail {
             $savemsg=&Apache::lonfeedback::clear_out_html($env{'form.message'});              $savemsg=&Apache::lonfeedback::clear_out_html($env{'form.message'});
         }          }
   
  foreach (keys %toaddr) {   foreach my $address (sort(keys(%toaddr))) {
     my ($recuname,$recdomain)=split(/\:/,$_);      my ($recuname,$recdomain)=split(/\:/,$address);
             my $msgtxt = $savemsg;              my $msgtxt = $savemsg;
     if ($toaddr{$_}) { $msgtxt.='<hr />'.$toaddr{$_}; }      if ($toaddr{$address}) { $msgtxt.='<hr />'.$toaddr{$address}; }
     my $thismsg;      my @thismsg;
     if ((($env{'form.critmsg'}) || ($env{'form.sendbck'})) &&       if ((($env{'form.critmsg'}) || ($env{'form.sendbck'})) && 
  (&Apache::lonnet::allowed('srm',$env{'request.course.id'})   (&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'}))) {
  $r->print(&mt('Sending critical message').' '.$recuname.'@'.$recdomain.': ');   $r->print(&mt('Sending critical message').' '.$recuname.':'.$recdomain.': ');
  $thismsg=&Apache::lonmsg::user_crit_msg($recuname,$recdomain,$msgsubj,$msgtxt,   @thismsg=
  $env{'form.sendbck'},$env{'form.permanent'},      &Apache::lonmsg::user_crit_msg($recuname,$recdomain,
                                                              \$sentmessage{$_});     $msgsubj,$msgtxt,
      $env{'form.sendbck'},
      $env{'form.permanent'},
      \$sentmessage{$address});
     } else {      } else {
  $r->print(&mt('Sending').' '.$recuname.'@'.$recdomain.': ');   $r->print(&mt('Sending').' '.$recuname.':'.$recdomain.': ');
  $thismsg=&Apache::lonmsg::user_normal_msg($recuname,$recdomain,$msgsubj,$msgtxt,   @thismsg=
   $content{'citation'},undef,undef,$env{'form.permanent'},\$sentmessage{$_});      &Apache::lonmsg::user_normal_msg($recuname,$recdomain,
        $msgsubj,$msgtxt,
        $content{'citation'},
        undef,undef,
        $env{'form.permanent'},
        \$sentmessage{$address});
             }              }
     if (($env{'request.course.id'}) && (($msgtype eq 'critical') ||       if (($env{'request.course.id'}) && (($msgtype eq 'critical') || 
                                          ($env{'form.sendmode'} eq 'group'))) {                                           ($env{'form.sendmode'} eq 'group'))) {
         $specialmsg_status{$recuname.':'.$recdomain}  = $thismsg;          $specialmsg_status{$recuname.':'.$recdomain} =
                 if ($thismsg eq 'ok') {      join(' ',@thismsg);
                     $numspecial ++;   foreach my $result (@thismsg) {
                 }      if ($result eq 'ok') {
    $numspecial++;
       }
    }
     }      }
     $r->print($thismsg.'<br />');      $sendstatus.=' '.join(' ',@thismsg);
     $sendstatus.=' '.$thismsg;  
  }   }
         if (($env{'request.course.id'}) && (($env{'form.sendmode'} eq 'group')          if (($env{'request.course.id'}) && (($env{'form.sendmode'} eq 'group')
                                               || ($msgtype eq 'critical'))) {                                                || ($msgtype eq 'critical'))) {
Line 1726  sub sendoffmail { Line 2269  sub sendoffmail {
                 $subj_prefix = 'Broadcast.';                  $subj_prefix = 'Broadcast.';
             }              }
             my ($specialmsgid,$specialresult);              my ($specialmsgid,$specialresult);
             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};              my $course_str = &escape('['.$cnum.':'.$cdom.']');
             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
             my $course_str = &Apache::lonnet::escape('['.$cnum.':'.$cdom.']');  
   
             if ($numspecial) {              if ($numspecial) {
                 $specialresult = &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix.                  $specialresult = &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix.
                     ' '.$course_str,$savemsg,undef,undef,undef,                      ' '.$course_str,$savemsg,undef,undef,undef,
                     undef,undef,\$specialmsgid);                      undef,undef,\$specialmsgid);
                 $specialmsgid = &Apache::lonnet::unescape($specialmsgid);                  $specialmsgid = &unescape($specialmsgid);
             }              }
             if ($specialresult eq 'ok') {              if ($specialresult eq 'ok') {
                 my $record_sent;                  my $record_sent;
                 my @recusers = ();                  my @recusers;
                 my @recudoms = ();                  my @recudoms;
                 my ($stamp,$crssubj,$msgname,$msgdom,$msgcount,$context,$pid) =                   my ($stamp,$crssubj,$msgname,$msgdom,$msgcount,$context,$pid) =
                             split(/\:/,&Apache::lonnet::unescape($specialmsgid));      split(/\:/,&unescape($specialmsgid));
   
                 foreach my $recipient (sort(keys(%toaddr))) {                  foreach my $recipient (sort(keys(%toaddr))) {
                     if ($specialmsg_status{$recipient} eq 'ok') {                      if ($specialmsg_status{$recipient} eq 'ok') {
                         my $usersubj = $subj_prefix.'['.$recipient.']';                          my $usersubj = $subj_prefix.'['.$recipient.']';
Line 1753  sub sendoffmail { Line 2295  sub sendoffmail {
                         &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix.                          &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix.
                                              ' ['.$recipient.']',$msgsubj,undef,                                               ' ['.$recipient.']',$msgsubj,undef,
                         undef,undef,undef,$usermsgid,undef,undef,$specialmsgid);                          undef,undef,undef,$usermsgid,undef,undef,$specialmsgid);
                         my ($uname,$udom) = split/:/,$recipient;                          my ($uname,$udom) = split(/:/,$recipient);
                         push(@recusers,$uname);                          push(@recusers,$uname);
                         push(@recudoms,$udom);                          push(@recudoms,$udom);
                     }                      }
                 }                  }
                 if (@recusers) {                  if (@recusers) {
                     my $specialmessage;                      my $specialmessage;
                     my $sentsubj = $subj_prefix.' ('.$numspecial.' sent) '.                      my $sentsubj = 
                                                                        $msgsubj;   $subj_prefix.' ('.$numspecial.' sent) '.$msgsubj;
                     $sentsubj = &HTML::Entities::encode($sentsubj,'<>&"');                      $sentsubj = &HTML::Entities::encode($sentsubj,'<>&"');
                     my $sentmsgid =                       my $sentmsgid = 
  &Apache::lonmsg::buildmsgid($stamp,$sentsubj,$msgname,   &Apache::lonmsg::buildmsgid($stamp,$sentsubj,$msgname,
Line 1778  sub sendoffmail { Line 2320  sub sendoffmail {
     } else {      } else {
  &printheader($r,'','No messages sent.');    &printheader($r,'','No messages sent.'); 
     }      }
     if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) {      if (!$env{'form.multiforward'}) { 
  $r->print('<br /><span class="LC_success">'.&mt('Completed.').'</span>');          if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) {
  if ($env{'form.displayedcrit'}) {      $r->print('<br /><span class="LC_success">'.&mt('Completed.').
     &discrit($r);                        '</span>');
  } else {      if ($env{'form.displayedcrit'}) {
     &Apache::loncommunicate::menu($r);          &discrit($r);
  }              }
     } else {              if ($group ne '') {
  $r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '.                  $r->print(&groupmail_sent($group,$cdom,$cnum)); 
   &mt('Please use the browser "Back" button and correct the recipient addresses').'</p>');      } else {
           &Apache::loncommunicate::menu($r);
       }
           } else {
       $r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '.
     &mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'</p>');
           }
     }      }
       return $sendstatus;
 }  }
   
 # ===================================================================== Handler  # ===================================================================== Handler
Line 1808  sub handler { Line 2357  sub handler {
         ['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','block','folder','startdis','interdis',
  'showcommentbaseurl','dismode']);   'showcommentbaseurl','dismode','group','subject','text','ref',
            'msgstatus']);
     $sqs='&sortedby='.$env{'form.sortedby'};      $sqs='&sortedby='.$env{'form.sortedby'};
   
 # ------------------------------------------------------ They checked for email  # ------------------------------------------------------ They checked for email
Line 1830  sub handler { Line 2380  sub handler {
     unless ($folder) {       unless ($folder) { 
  $folder='';    $folder=''; 
     } else {      } else {
  $sqs.='&folder='.&Apache::lonnet::escape($folder);   $sqs.='&folder='.&escape($folder);
     }      }
 # ------------------------------------------------------------ Get Display Mode  # ------------------------------------------------------------ Get Display Mode
   
Line 1838  sub handler { Line 2388  sub handler {
     unless ($dismode) {       unless ($dismode) { 
  $dismode='';    $dismode=''; 
     } else {      } else {
  $sqs.='&dismode='.&Apache::lonnet::escape($dismode);   $sqs.='&amp;dismode='.&escape($dismode);
     }      }
   
 # --------------------------------------------------------------------- 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'};      $interdis=$env{'form.interdis'};
Line 1869  sub handler { Line 2421  sub handler {
 # --------------------------------------------------------------- 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');
  foreach (keys %env) {   my $replying = 0;
     if ($_=~/^form\.rec\_(.*)$/) {   foreach my $envkey (keys(%env)) {
       if ($envkey=~/^form\.rec\_(.*)$/) {
  $r->print('<b>'.&mt('Confirming Receipt').':</b> '.   $r->print('<b>'.&mt('Confirming Receipt').':</b> '.
   &Apache::lonmsg::user_crit_received($1).'<br>');    &Apache::lonmsg::user_crit_received($1).'<br>');
     }      }
     if ($_=~/^form\.reprec\_(.*)$/) {      if ($envkey=~/^form\.reprec\_(.*)$/) {
  my $msgid=$1;   my $msgid=$1;
  $r->print('<b>'.&mt('Confirming Receipt').':</b> '.   $r->print('<b>'.&mt('Confirming Receipt').':</b> '.
   &Apache::lonmsg::user_crit_received($msgid).'<br>');    &Apache::lonmsg::user_crit_received($msgid).'<br>');
  &compout($r,'','','',$msgid);   &compout($r,'','','',$msgid);
    $replying = 1;
     }      }
  }   }
  &discrit($r);   if (!$replying) {
       &discrit($r);
    }
     } elsif ($env{'form.critical'}) {      } elsif ($env{'form.critical'}) {
  &printheader($r,'','Displaying Critical Messages');   &printheader($r,'','Displaying Critical Messages');
  &discrit($r);   &discrit($r);
Line 1894  sub handler { Line 2450  sub handler {
  &compout($r,$env{'form.forward'},undef,undef,undef,$folder);   &compout($r,$env{'form.forward'},undef,undef,undef,$folder);
     } elsif ($env{'form.markdel'}) {      } elsif ($env{'form.markdel'}) {
  &printheader($r,'','Deleted Message');   &printheader($r,'','Deleted Message');
  &statuschange($env{'form.markdel'},'deleted',$folder);   my ($result,$msg) = 
       &statuschange($env{'form.markdel'},'deleted',$folder);
    if (!$result) {
       $r->print('<p class="LC_error">'.
         &mt('Failed to delete the message.').'</p>'.
         '<p class="LC_error">'.$msg."</p>\n");
    }
  &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=0;          my $total = 0;
  foreach (keys %env) {          my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');
     if ($_=~/^form\.delmark_(.*)$/) {          foreach my $msgid (@to_forward) {
  &movemsg(&Apache::lonnet::unescape($1),$folder,              &statuschange(&unescape($msgid),'forwarded',$folder);
  $env{'form.movetofolder'});              $total ++;
  $total++;          }
           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');
           $r->print(&mt('Marked [_1] message(s) read',$total).'<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');
           $r->print(&mt('Marked [_1] message(s) unread',$total).'<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',
                         $destfolder));
           } 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++;
           } else {
       $failed++;
       push(@failed_msg,$msg);
           }
     }      }
  }      if ($failed) {
  &printheader($r,'','Moved Messages');          $r->print('<p class="LC_error">
  $r->print('Moved '.$total.' message(s)<p>');                            '.&mt('Failed to move [_1] message(s)',$failed).
         '</p>');
           $r->print('<p class="LC_error">'.
               join("</p>\n<p class=\"LC_error\">",@failed_msg).
             "</p>\n");
       }
       $r->print(&mt('Moved [_1] message(s)',$total).'<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=0;   my ($total,$failed,@failed_msg)=(0,0);
  foreach (keys %env) {          my @to_delete = &Apache::loncommon::get_env_multiple('form.delmark');
     if ($_=~/^form\.delmark_(.*)$/) {          foreach my $msgid (@to_delete) {
  &statuschange(&Apache::lonnet::unescape($1),'deleted',$folder);      my ($result,$msg) = &statuschange(&unescape($msgid),'deleted', 
  $total++;                $folder);
       if ($result) {
           $total++;
       } else {
           $failed++;
    push(@failed_msg,$msg);
     }      }
  }   }
  &printheader($r,'','Deleted Messages');   &printheader($r,'','Deleted Messages');
  $r->print('Deleted '.$total.' message(s)<p>');   if ($failed) {
       $r->print('<p class="LC_error">
                             '.&mt('Failed to delete [_1] message(s)',$failed).
         '</p>');
       $r->print('<p class="LC_error">'.
         join("</p>\n<p class=\"LC_error\">",@failed_msg).
         "</p>\n");
    }
    $r->print(&mt('Deleted [_1] message(s)',$total).'<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'}) {
Line 1934  sub handler { Line 2560  sub handler {
     } elsif ($env{'form.block'}) {      } elsif ($env{'form.block'}) {
         &examblock($r,$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);
                   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'};
                   $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);
                   $r->print('<br /><span class="LC_success">'.
                             &mt('[quant,_1,message] forwarded.',$count).
                             '</span>');
               }
               if (keys(%forwardfail) > 0) {
                   my $count = keys(%forwardfail);
                   $r->print('<p><span class="LC_error">'.
                             &mt('Could not forward [quant,_1,message].',$count).
                             '</span> ');
                   foreach my $key (keys(%forwardfail)) {
                       $r->print(&mt('Could not deliver forwarded message.').'</span> '.
                                 &mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.').<br /><br />');
                   }
               }
               &Apache::loncommunicate::menu($r);
           } else {
       &sendoffmail($r,$folder);
           }
  if ($env{'form.storebasecomment'}) {   if ($env{'form.storebasecomment'}) {
     &storecomment($r);      &storecomment($r);
  }          }
  if (($env{'form.rsspost'}) && ($env{'request.course.id'})) {   if (($env{'form.rsspost'}) && ($env{'request.course.id'})) {
     &Apache::lonrss::addentry($env{'course.'.$env{'request.course.id'}.'.num'},          &Apache::lonrss::addentry($env{'course.'.$env{'request.course.id'}.'.num'},
       $env{'course.'.$env{'request.course.id'}.'.domain'},        $env{'course.'.$env{'request.course.id'}.'.domain'},
       'Course_Announcements',        'Course_Announcements',
       $env{'form.subject'},        $env{'form.subject'},
       $env{'form.message'},'/adm/communicate','public');        $env{'form.message'},'/adm/communicate','public');
  }   }
  &disall($r,($folder?$folder:$dismode));   if ((!exists($env{'form.group'})) && (!$env{'form.displayedcrit'})) {
       &disall($r,($folder?$folder:$dismode),$msgstatus);
    }
     } elsif ($env{'form.newfolder'}) {      } elsif ($env{'form.newfolder'}) {
  &printheader($r,'','New Folder');   &printheader($r,'','New Folder');
  &makefolder($env{'form.newfolder'});          my $showfolder = $env{'form.newfolder'};
  &Apache::loncommunicate::menu($r);   my ($makeresult,$warning) = &makefolder($env{'form.newfolder'});
  &disall($r,$env{'form.newfolder'});          if ($makeresult eq 'ok') {
               $r->print(&mt('Mail folder "[_1]" created.',$showfolder).'<br />');
           } else {
               $r->print(&mt('Creation failed.').' '.$makeresult.'<br />'.
                         $warning);
               $showfolder = $folder;
           }
           &Apache::loncommunicate::menu($r);
    &disall($r,$showfolder,$msgstatus);
     } elsif ($env{'form.showcommentbaseurl'}) {      } elsif ($env{'form.showcommentbaseurl'}) {
  &storedcommentlisting($r);   &storedcommentlisting($r);
       } elsif ($env{'form.folderaction'} eq 'delete') {
           &printheader($r,'','Deleted Folder');
           my $showfolder = '';
           my $delresult = &deletefolder($folder);
           if ($delresult eq 'ok') {
               $r->print(&mt('Mail folder "[_1]" deleted.',$folder).'<br />');
           } else {
               $r->print(&mt('Deletion failed.').' '.$delresult.'<br />');
               $showfolder = $folder;
           }
           &Apache::loncommunicate::menu($r);
           &disall($r,$showfolder,$msgstatus);
       } elsif ($env{'form.folderaction'} eq 'rename') {
           &printheader($r,'','Renamed Folder');
           my $showfolder = $env{'form.renamed'};
           my $renresult = &renamefolder($folder);
           if ($renresult eq 'ok') {
               $r->print(&mt('Mail folder "[_1]" renamed "[_2]".',$folder,$showfolder).'<br />');
           } else {
               $r->print(&mt('Renaming failed.').' '.$renresult.'<br />');
               $showfolder = $folder;
           }
           &Apache::loncommunicate::menu($r);
           &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 1973  sub handler { Line 2689  sub handler {
   
 __END__  __END__
   
   
   
   
   
   
   
Removed from v.1.7  
changed lines
  Added in v.1.55

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