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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.35 and 1.54

version 1.35, 2006/06/29 13:52:19 version 1.54, 2006/12/18 23:09:37
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 137  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 195  sub statuschange { Line 340  sub statuschange {
 # ============================================================= 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 270  sub discourse { Line 524  sub discourse {
     &Apache::lonselstudent::get_people_in_class($env{'request.course.sec'});      &Apache::lonselstudent::get_people_in_class($env{'request.course.sec'});
     unshift @$current_members, (@$course_personnel);      unshift @$current_members, (@$course_personnel);
     my %defaultUsers;      my %defaultUsers;
       
       $result .= '<input type="hidden" name="sendmode" value="group" />'."\n";
   
     $result = &Apache::lonselstudent::render_student_list($current_members,      $result .= &Apache::lonselstudent::render_student_list($current_members,
   "compemail",     "compemail",
   "current",     "current",
   \%defaultUsers,     \%defaultUsers,
   1,"selectedusers",1);     1,"selectedusers",1);
   
     $result .= &Apache::lonselstudent::render_student_list($expired_members,      $result .= &Apache::lonselstudent::render_student_list($expired_members,
    "compemail",     "compemail",
Line 290  sub discourse { Line 546  sub discourse {
     return $result;      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">'.
                      '<tr>';
           foreach my $status (@statustypes)  {
               if (ref($numitems) eq 'HASH') {
                   if ((defined($$numitems{$status})) && ($$numitems{$status})) {
                       $result.='<td valign="top">'.
                                '<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;
   }
   
   sub group_check_uncheck {
       my $output = qq|
   <script type="text/javascript">
   function toggleAll(caller,action) {
       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>
       |;
   }
   
   sub groupmail_header {
       my ($action,$group,$cdom,$cnum) = @_;
       my ($description,$refarg);
       if (!$cdom || !$cnum) {
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       }
       if (exists($env{'form.ref'})) {
           $refarg = 'ref='.$env{'form.ref'};
       }
       if (!$group) {
           $group = $env{'form.group'};
       }
       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
   
 sub discrit {  sub discrit {
Line 299  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(
Line 313  $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.
     if ($result eq '') {      if ($result eq '') {
         $result = "<h2>".&mt('You have no critical messages.')."</h2>".          $result = "<h2>".&mt('You have no critical messages.')."</h2>".
     '<a href="/adm/roles">'.&mt('Select a course or group').'</a><br />'.      '<a href="/adm/roles">'.&mt('Select a course').'</a><br />'.
             '<a href="/adm/email">'.&mt('Communicate').'</a>';              '<a href="/adm/email">'.&mt('Communicate').'</a>';
     } else {      } else {
         $r->print($header);          $r->print($header);
Line 330  $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;
Line 350  sub sortedmessages { Line 792  sub sortedmessages {
  my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid)=   my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid)=
     &Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef,      &Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef,
  \%status_cache);   \%status_cache);
           next if ($msgstatus ne '' && $msgstatus ne $status);
         my $description = &get_course_desc($fromcid,\%descriptions);          my $description = &get_course_desc($fromcid,\%descriptions);
  my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,   my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,
      $esc_msgid,$description);       $esc_msgid,$description);
Line 436  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 445  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/Group',  
        '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=&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 => $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 type="text/javascript">  <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 [_1] messages in this folder',lc($statushash{$msgstatus})).'</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 622  ENDDISHEADER Line 1017  ENDDISHEADER
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($env{'form.sortedby'} eq "revcourse") {      if ($env{'form.sortedby'} eq "revcourse") {
         $r->print('<a href = "?sortedby=course'.$fsqs.'">'.&mt('Course/Group').'</a>');          $r->print('<a href = "?sortedby=course'.$fsqs.'">'.&mt('Course').'</a>');
     } else {      } else {
         $r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course/Group').'</a>');          $r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>');
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($env{'form.sortedby'} eq "revstatus") {      if ($env{'form.sortedby'} eq "revstatus") {
Line 663  ENDDISHEADER Line 1058  ENDDISHEADER
     $dis_domain = join('<br />',@{$content{'recdomain'}});      $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>');
       $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
     my ($result,$msg) =       my ($result,$msg) = 
Line 678  ENDDISHEADER Line 1087  ENDDISHEADER
           
  }   }
     }         }   
     $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 731  sub compout { Line 1175  sub compout {
     } elsif ($replycrit) {      } elsif ($replycrit) {
  $r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>');   $r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>');
  $replying=$replycrit;   $replying=$replycrit;
       } elsif ($multiforward) {
           &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"/adm/email?folder=".&escape($folder),
             text=>"Display All Messages"});
           &printheader($r,'/adm/email?compose=multiforward',
                'Forwarding Multiple Messages');
           $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 741  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 802  sub compout { Line 1258  sub compout {
  }   }
     }      }
     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'}; }
     if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }      if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }
     if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }      if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }
     $r->print(      $r->print(
                 '<form action="/adm/email"  name="compemail" method="post"'.                  '<form action="/adm/email"  name="compemail" method="post"'.
                 ' enctype="multipart/form-data">'."\n".                  ' enctype="multipart/form-data">'."\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(
Line 821  sub compout { Line 1296  sub compout {
       '<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();             my $studentsel = &discourse();
        $r->print($studentsel);             $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 890  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 904  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'});
Line 921  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 932  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 1003  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 $crstype = &Apache::loncommon::course_type();
Line 1080  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;
Line 1093  sub examblock { Line 1644  sub examblock {
             'cbds' => 'Communication blocking during scheduled exams',              'cbds' => 'Communication blocking during scheduled exams',
             'desc' => "You can use communication blocking to prevent $usertype enrolled in this course from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.",              'desc' => "You can use communication blocking to prevent $usertype enrolled in this 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 1131  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 1142  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 1156  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 1197  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 1235  sub get_blockdates { Line 1789  sub get_blockdates {
     }      }
 }  }
   
   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;
Line 1243  sub display_blocker_status { Line 1811  sub display_blocker_status {
         'modi' => 'Modify',          'modi' => 'Modify',
         'canc' => 'Cancel',          'canc' => 'Cancel',
     );      );
       my ($typeorder,$types) = &blocktype_text();
     $r->print(&Apache::loncommon::start_data_table());      $r->print(&Apache::loncommon::start_data_table());
     $r->print(<<"END");      $r->print(<<"END");
   <tr>    <tr>
     <th>$$ltext{'dura'}</th>      <th>$ltext->{'dura'}</th>
     <th>$$ltext{'setb'}</th>      <th>$ltext->{'setb'}</th>
     <th>$$ltext{'even'}</th>      <th>$ltext->{'even'}</th>
     <th>$$ltext{'actn'}?</th>      <th>$ltext->{'blck'}</th>
       <th>$ltext->{'actn'}?</th>
   </tr>    </tr>
 END  END
     foreach my $record (sort(keys(%{$records}))) {      foreach my $record (sort(keys(%{$records}))) {
Line 1260  END Line 1830  END
         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 ($setuname,$setudom,$title) =    my ($setuname,$setudom,$title,$blocks) = 
     &parse_block_record($$records{$record});      &Apache::loncommon::parse_block_record($$records{$record});
  $title = &HTML::Entities::encode($title,'"<>&');   $title = &HTML::Entities::encode($title,'"<>&');
         my $settername = &Apache::loncommon::plainname($setuname,$setudom);          my $settername = 
              &Apache::loncommon::aboutmewrapper(
                              &Apache::loncommon::plainname($setuname,$setudom),
                              $setuname,$setudom);
         $r->print(&Apache::loncommon::start_data_table_row());          $r->print(&Apache::loncommon::start_data_table_row());
         $r->print(<<"END");          $r->print(<<"END");
         <td>$$ltext{'star'}:&nbsp;$startform<br/>$$ltext{'endd'}:&nbsp;&nbsp;$endform</td>          <td>$ltext->{'star'}:&nbsp;$startform<br/>$ltext->{'endd'}:&nbsp;&nbsp;$endform</td>
         <td>$settername</td>          <td>$settername</td>
         <td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$record" /></td>          <td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$record" /></td>
           <td>
   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>
 END  END
         $r->print(&Apache::loncommon::end_data_table_row());          $r->print(&Apache::loncommon::end_data_table_row());
Line 1282  END Line 1866  END
     return $parmcount;      return $parmcount;
 }  }
   
 sub parse_block_record {  
     my ($record) = @_;  
     my ($setuname,$setudom,$title);  
     my @data = split(/:/,$record,3);  
     if (scalar(@data) eq 2) {  
  $title = $data[1];  
  ($setuname,$setudom) = split(/@/,$data[0]);  
     } else {  
  ($setuname,$setudom,$title) = @data;  
     }  
     return ($setuname,$setudom,$title);  
 }  
   
 sub display_addblocker_table {  sub display_addblocker_table {
     my ($r,$parmcount,$ltext) = @_;      my ($r,$parmcount,$ltext) = @_;
     my $start = time;      my $start = time;
Line 1309  sub display_addblocker_table { Line 1880  sub display_addblocker_table {
         '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> 
 END  END
     $r->print(&Apache::loncommon::start_data_table());      $r->print(&Apache::loncommon::start_data_table());
     $r->print(<<"END");      $r->print(<<"END");
    <tr>     <tr>
      <th>$$ltext{'dura'}</th>       <th>$ltext->{'dura'}</th>
      <th>$$ltext{'even'} $lt{'exam'}</th>       <th>$ltext->{'even'} $lt{'exam'}</th>
      <th>$$ltext{'actn'}?</th>       <th>$ltext->{'blck'}</th>
        <th>$ltext->{'actn'}?</th>
    </tr>     </tr>
 END  END
    $r->print(&Apache::loncommon::start_data_table_row());      $r->print(&Apache::loncommon::start_data_table_row());
     $r->print(<<"END");      $r->print(<<"END");
      <td>$$ltext{'star'}:&nbsp;$startform<br />$$ltext{'endd'}:&nbsp;&nbsp;$endform</td>       <td>$ltext->{'star'}:&nbsp;$startform<br />$ltext->{'endd'}:&nbsp;&nbsp;$endform</td>
      <td><input type="text" name="title_$parmcount" size="15" value="" /></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>       <td><label>$lt{'addb'}?&nbsp;<input type="checkbox" name="add_$parmcount" value="1" /></label></td>
 END  END
     $r->print(&Apache::loncommon::end_data_table_row());      $r->print(&Apache::loncommon::end_data_table_row());
Line 1331  END Line 1911  END
     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 %live_courses =          'chat' => 'Chat',
  map { $_ => 1} &Apache::loncommon::findallcourses();          'boards' => 'Discussion',
     # FIXME should really probe for apriv, but ::allowed can only probe the           'port' => 'Portfolio',
     #       currently active role          'groups' => 'Groups',
     my %staff_of =          'blogs' => 'Blogs',
  map { $_ => 1} &Apache::loncommon::findallcourses(['cc','in']);  
   
     # Retrieve blocking times and identity of blocker for active courses  
     # for students.  
     return if (!%live_courses);  
   
     foreach my $course (keys(%live_courses)) {  
  my $cdom = $env{'course.'.$course.'.domain'};  
  my $cnum = $env{'course.'.$course.'.num'};  
   
  # if they are a staff member and are currently not playing student  
  next if ( $staff_of{$course}   
   && ($env{'request.role'} !~ m{^st\./$cdom/$cnum}));  
   
  $setters->{$course} = {};  
  $setters->{$course}{'staff'} = [];  
  $setters->{$course}{'times'} = [];  
  my %records = &Apache::lonnet::dump('comm_block',$cdom,$cnum);  
  foreach my $record (keys %records) {  
     my ($start,$end) = ($record =~ m/^(\d+)____(\d+)$/);  
     if ($start <= time && $end >= time) {  
  my ($staff_name,$staff_dom,$title) =   
     &parse_block_record($records{$record});  
  push(@{$$setters{$course}{'staff'}}, [$staff_name,$staff_dom]);  
  push(@{$$setters{$course}{'times'}}, [$start,$end]);  
  if ( ($$startblock == 0) || ($$startblock > $1) ) {  
     $$startblock = $1;  
  }  
  if ( ($$endblock == 0) || ($$endblock < $2) ) {  
     $$endblock = $2;  
  }  
     }  
  }  
     }  
 }  
   
 sub build_block_table {  
     my ($r,$startblock,$endblock,$setters) = @_;  
     my %lt = &Apache::lonlocal::texthash(  
         'cacb' => 'Currently active communication blocks',  
         'cour' => 'Course/Group',  
         'dura' => 'Duration',  
         'blse' => 'Block set by'  
     );      );
     $r->print(<<"END");      my $typeorder = ['com','chat','boards','port','groups','blogs'];
 <br /><br />$lt{'cacb'}:<br /><br />      return ($typeorder,\%types);
 END  
     $r->print(&Apache::loncommon::start_data_table());  
     $r->print(<<"END");  
 <tr>  
  <th>$lt{'cour'}</th>  
  <th>$lt{'dura'}</th>  
  <th>$lt{'blse'}</th>  
 </tr>  
 END  
     foreach my $course (keys(%{$setters})) {  
         my %courseinfo=&Apache::lonnet::coursedescription($course);  
         for (my $i=0; $i<@{$$setters{$course}{staff}}; $i++) {  
             my ($uname,$udom) = @{$$setters{$course}{staff}[$i]};  
             my $fullname = &Apache::loncommon::plainname($uname,$udom);  
             my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]};  
             $openblock = &Apache::lonlocal::locallocaltime($openblock);  
             $closeblock= &Apache::lonlocal::locallocaltime($closeblock);  
             $r->print(&Apache::loncommon::start_data_table_row().  
       '<td>'.$courseinfo{'description'}.'</td>'.  
                       '<td>'.$openblock.' to '.$closeblock.'</td>'.  
                       '<td>'.$fullname.' ('.$uname.':'.$udom.  
                       ')</td>'.  
        &Apache::loncommon::end_data_table_row());  
         }  
     }  
     $r->print(&Apache::loncommon::end_data_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();      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 1463  sub displaymessage { Line 1972  sub displaymessage {
       '<td><a href="/adm/email?markdel='.&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 1559  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
       (($title?$title:'Communication and Messages')));        (($title?$title:'Communication and Messages')));
   
 }  }
   
 # ---------------------------------------------------------------- Print header  # ---------------------------------------------------------------- Print header
Line 1584  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=&escape($env{'form.baseurl'}).'___'.time;      my $key=&escape($env{'form.baseurl'}).'___'.time;
Line 1603  sub storedcommentlisting { Line 2110  sub storedcommentlisting {
  $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 1621  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 1642  sub sendoffmail { Line 2163  sub sendoffmail {
  }   }
   
  my @to =   my @to =
     &Apache::loncommon::get_env_multiple('form.selectedusers.forminput');      &Apache::loncommon::get_env_multiple('form.selectedusers_forminput');
  my $mode = $env{'form.sendmode'};   my $mode = $env{'form.sendmode'};
   
  my %toaddr;   my %toaddr;
Line 1664  sub sendoffmail { Line 2185  sub sendoffmail {
     }      }
  } elsif ($env{'form.sendmode'} eq 'upload') {   } elsif ($env{'form.sendmode'} eq 'upload') {
     foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {      foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {
  my ($rec,$txt)=split(/\s*\:\s*/,$line);                  my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/);
  if ($txt) {   if ($txt) {
     $rec=~s/\@/\:/;                      $rec =~ s/^\s+//;
                       $rec =~ s/\s+$//;
     $toaddr{$rec}.=$txt."\n";      $toaddr{$rec}.=$txt."\n";
  }   }
     }      }
Line 1676  sub sendoffmail { Line 2198  sub sendoffmail {
     }      }
  }   }
  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);
  if (($auname ne "") && ($audom ne "")) {   if (($auname ne "") && ($audom ne "")) {
     $toaddr{$auname.':'.$audom}='';      $toaddr{$auname.':'.$audom}='';
  }   }
Line 1747  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 $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
             my $course_str = &escape('['.$cnum.':'.$cdom.']');              my $course_str = &escape('['.$cnum.':'.$cdom.']');
   
             if ($numspecial) {              if ($numspecial) {
Line 1800  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)); 
       } 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>');    &mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'</p>');
           }
     }      }
       return $sendstatus;
 }  }
   
 # ===================================================================== Handler  # ===================================================================== Handler
Line 1830  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','group','subject','text']);   '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 1860  sub handler { Line 2388  sub handler {
     unless ($dismode) {       unless ($dismode) { 
  $dismode='';    $dismode=''; 
     } else {      } else {
  $sqs.='&dismode='.&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 1891  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 1924  sub handler { Line 2458  sub handler {
       '<p class="LC_error">'.$msg."</p>\n");        '<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,$failed,@failed_msg)=(0,0);          my $total = 0;
  foreach my $key (keys(%env)) {          my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');
     if ($key=~/^form\.delmark_(.*)$/) {          foreach my $msgid (@to_forward) {
  my ($result,$msg) =              &statuschange(&unescape($msgid),'forwarded',$folder);
     &movemsg(&unescape($1),$folder,              $total ++;
      $env{'form.movetofolder'});          }
  if ($result) {          if ($total > 0) {
               &compout($r,undef,undef,undef,undef,$folder,$dismode,$total);
           }
       } elsif ($env{'form.markedaction'} eq 'markedread') {
           my $total = 0;
           my @to_markread = &Apache::loncommon::get_env_multiple('form.delmark');
           foreach my $msgid (@to_markread) {
               &statuschange(&unescape($msgid),'read',$folder);
               $total ++;
           }
           &printheader($r,'','Marked Messages Read');
           $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++;      $total++;
  } else {          } else {
     $failed++;      $failed++;
     push(@failed_msg,$msg);      push(@failed_msg,$msg);
  }          }
     }      }
  }      if ($failed) {
  &printheader($r,'','Moved Messages');          $r->print('<p class="LC_error">
  if ($failed) {  
     $r->print('<p class="LC_error">  
                           '.&mt('Failed to move [_1] message(s)',$failed).                            '.&mt('Failed to move [_1] message(s)',$failed).
       '</p>');        '</p>');
     $r->print('<p class="LC_error">'.          $r->print('<p class="LC_error">'.
       join("</p>\n<p class=\"LC_error\">",@failed_msg).              join("</p>\n<p class=\"LC_error\">",@failed_msg).
       "</p>\n");            "</p>\n");
  }      }
  $r->print(&mt('Moved [_1] message(s)',$total).'<p>');      $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,$failed,@failed_msg)=(0,0);   my ($total,$failed,@failed_msg)=(0,0);
  foreach my $key (keys(%env)) {          my @to_delete = &Apache::loncommon::get_env_multiple('form.delmark');
     if ($key=~/^form\.delmark_(.*)$/) {          foreach my $msgid (@to_delete) {
  my ($result,$msg) =       my ($result,$msg) = &statuschange(&unescape($msgid),'deleted', 
     &statuschange(&unescape($1),'deleted',                $folder);
   $folder);      if ($result) {
  if ($result) {          $total++;
     $total++;      } else {
  } else {          $failed++;
     $failed++;   push(@failed_msg,$msg);
     push(@failed_msg,$msg);  
  }  
     }      }
  }   }
  &printheader($r,'','Deleted Messages');   &printheader($r,'','Deleted Messages');
Line 1978  sub handler { Line 2547  sub handler {
  }   }
  $r->print(&mt('Deleted [_1] message(s)',$total).'<p>');   $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 1991  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 2030  sub handler { Line 2689  sub handler {
   
 __END__  __END__
   
   
   
   
   
   
   
Removed from v.1.35  
changed lines
  Added in v.1.54

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