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

Diff for /loncom/interface/lonmsg.pm between versions 1.64 and 1.65

version 1.64, 2003/08/18 17:37:42 version 1.65, 2003/08/29 20:38:12
Line 116  use Apache::lontexconvert(); Line 116  use Apache::lontexconvert();
 use HTML::Entities();  use HTML::Entities();
 use Mail::Send;  use Mail::Send;
   
   # Querystring component with sorting type
   my $sqs;
   
 # ===================================================================== Package  # ===================================================================== Package
   
 sub packagemsg {  sub packagemsg {
Line 613  $dispcrit Line 616  $dispcrit
 ENDREPLY  ENDREPLY
 }  }
   
   sub sortedmessages {
       my @messages = &Apache::lonnet::getkeys('nohist_email');
       #unpack the varibles and repack into temp for sorting
       my @temp;
       foreach (@messages) {
    my $msgid=&Apache::lonnet::escape($_);
    my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
       &Apache::lonmsg::unpackmsgid($msgid);
    my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,
        $msgid);
    push @temp ,\@temp1;
       }
       #default sort
       @temp = sort  {$a->[0] <=> $b->[0]} @temp;    
       if ($ENV{'form.sortedby'} eq "date"){
           @temp = sort  {$a->[0] <=> $b->[0]} @temp;    
       }
       if ($ENV{'form.sortedby'} eq "revdate"){
       @temp = sort  {$b->[0] <=> $a->[0]} @temp; 
       }
       if ($ENV{'form.sortedby'} eq "user"){
    @temp = sort  {lc($a->[2]) cmp lc($b->[2])} @temp;
       }
       if ($ENV{'form.sortedby'} eq "revuser"){
    @temp = sort  {lc($b->[2]) cmp lc($a->[2])} @temp;
       }
       if ($ENV{'form.sortedby'} eq "domain"){
           @temp = sort  {$a->[3] cmp $b->[3]} @temp;
       }
       if ($ENV{'form.sortedby'} eq "revdomain"){
           @temp = sort  {$b->[3] cmp $a->[3]} @temp;
       }
       if ($ENV{'form.sortedby'} eq "subject"){
           @temp = sort  {lc($a->[1]) cmp lc($b->[1])} @temp;
       }
       if ($ENV{'form.sortedby'} eq "revsubject"){
           @temp = sort  {lc($b->[1]) cmp lc($a->[1])} @temp;
       }
       if ($ENV{'form.sortedby'} eq "status"){
           @temp = sort  {$a->[4] cmp $b->[4]} @temp;
       }
       if ($ENV{'form.sortedby'} eq "revstatus"){
           @temp = sort  {$b->[4] cmp $a->[4]} @temp;
       }
       return @temp;
   }
   
 # ======================================================== Display all messages  # ======================================================== Display all messages
   
 sub disall {  sub disall {
Line 671  ENDDISHEADER Line 721  ENDDISHEADER
       $r->print('<a href = "?sortedby=revstatus">Status</th>');        $r->print('<a href = "?sortedby=revstatus">Status</th>');
     }      }
     $r->print('</tr>');      $r->print('</tr>');
     my @messages = split(/\&/,&Apache::lonnet::reply('keys:'.$ENV{'user.domain'}.':'.$ENV{'user.name'}.':nohist_email',$ENV{'user.home'}));      my @temp=sortedmessages();
     #unpack the varibles and repack into temp for sorting  
     my @temp;  
     foreach (@messages) {  
  my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=  
     &Apache::lonmsg::unpackmsgid($_);  
  my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$_);  
  push @temp ,\@temp1;  
     }  
     #default sort  
     @temp = sort  {$a->[0] <=> $b->[0]} @temp;      
     if ($ENV{'form.sortedby'} eq "date"){  
         @temp = sort  {$a->[0] <=> $b->[0]} @temp;      
     }  
     if ($ENV{'form.sortedby'} eq "revdate"){  
     @temp = sort  {$b->[0] <=> $a->[0]} @temp;   
     }  
     if ($ENV{'form.sortedby'} eq "user"){  
  @temp = sort  {lc($a->[2]) cmp lc($b->[2])} @temp;  
     }  
     if ($ENV{'form.sortedby'} eq "revuser"){  
  @temp = sort  {lc($b->[2]) cmp lc($a->[2])} @temp;  
     }  
     if ($ENV{'form.sortedby'} eq "domain"){  
         @temp = sort  {$a->[3] cmp $b->[3]} @temp;  
     }  
     if ($ENV{'form.sortedby'} eq "revdomain"){  
         @temp = sort  {$b->[3] cmp $a->[3]} @temp;  
     }  
     if ($ENV{'form.sortedby'} eq "subject"){  
         @temp = sort  {lc($a->[1]) cmp lc($b->[1])} @temp;  
     }  
     if ($ENV{'form.sortedby'} eq "revsubject"){  
         @temp = sort  {lc($b->[1]) cmp lc($a->[1])} @temp;  
     }  
     if ($ENV{'form.sortedby'} eq "status"){  
         @temp = sort  {$a->[4] cmp $b->[4]} @temp;  
     }  
     if ($ENV{'form.sortedby'} eq "revstatus"){  
         @temp = sort  {$b->[4] cmp $a->[4]} @temp;  
     }  
     foreach (@temp){      foreach (@temp){
  my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @$_;   my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @$_;
  if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {   if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {
Line 724  ENDDISHEADER Line 734  ENDDISHEADER
     } else {      } else {
  $r->print('<tr bgcolor="#99BBBB">');   $r->print('<tr bgcolor="#99BBBB">');
     }      }
     $r->print('<td><a href="/adm/email?display='.$origID.       $r->print('<td><a href="/adm/email?display='.$origID.$sqs. 
       '">Open</a></td><td><a href="/adm/email?markdel='.$origID.        '">Open</a></td><td><a href="/adm/email?markdel='.$origID.$sqs.
       '">Delete</a><input type=checkbox name="delmark_'.$origID.'"></td>'.        '">Delete</a><input type=checkbox name="delmark_'.$origID.'"></td>'.
       '<td>'.localtime($sendtime).'</td><td>'.        '<td>'.localtime($sendtime).'</td><td>'.
       $fromname.'</td><td>'.$fromdomain.'</td><td>'.        $fromname.'</td><td>'.$fromdomain.'</td><td>'.
Line 736  ENDDISHEADER Line 746  ENDDISHEADER
     $r->print('</table><p>'.      $r->print('</table><p>'.
               '<a href="javascript:checkall()">Check All</a>&nbsp;'.                '<a href="javascript:checkall()">Check All</a>&nbsp;'.
               '<a href="javascript:uncheckall()">Uncheck All</a><p>'.                '<a href="javascript:uncheckall()">Uncheck All</a><p>'.
         '<input type="hidden" name="sortedby" value="'.$ENV{'form.sortedby'}.'" />'.
               '<input type=submit name="markeddel" value="Delete Checked">'.                '<input type=submit name="markeddel" value="Delete Checked">'.
               '</form></body></html>');                '</form></body></html>');
 }  }
Line 954  sub handler { Line 965  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']);           'recordftf','sortedby']);
       $sqs='&sortedby='.$ENV{'form.sortedby'};
 # ------------------------------------------------------ They checked for email  # ------------------------------------------------------ They checked for email
   &Apache::lonnet::put('email_status',{'recnewemail'=>0});    &Apache::lonnet::put('email_status',{'recnewemail'=>0});
 # --------------------------------------------------------------- Render Output  # --------------------------------------------------------------- Render Output
Line 968  sub handler { Line 979  sub handler {
       &statuschange($msgid,'read');        &statuschange($msgid,'read');
       my %message=&Apache::lonnet::get('nohist_email',[$msgid]);        my %message=&Apache::lonnet::get('nohist_email',[$msgid]);
       my %content=&unpackagemsg($message{$msgid});        my %content=&unpackagemsg($message{$msgid});
   # info to generate "next" and "previous" buttons
         my @messages=&sortedmessages();
         my $counter=0;
         $r->print('<pre>');
         my $escmsgid=&Apache::lonnet::escape($msgid);
         foreach (@messages) {
      if ($_->[5] eq $escmsgid){
          last;
      }
      $counter++;
         }
         $r->print('</pre>');
         my $number_of_messages = scalar(@messages); #subtract 1 for last index
   # start output
       $r->print('<html><head><title>EMail and Messaging</title>');        $r->print('<html><head><title>EMail and Messaging</title>');
       if (defined($content{'baseurl'})) {        if (defined($content{'baseurl'})) {
   $r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$content{'baseurl'}\" />");    $r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$content{'baseurl'}\" />");
Line 984  $content{'sendername'},$content{'senderd Line 1009  $content{'sendername'},$content{'senderd
                                  $content{'senderdomain'}.') '.                                   $content{'senderdomain'}.') '.
              '<br><b>Time:</b> '.$content{'time'}.'<p>'.               '<br><b>Time:</b> '.$content{'time'}.'<p>'.
              '<table border=2><tr bgcolor="#FFFFAA"><td>Functions:</td>'.               '<table border=2><tr bgcolor="#FFFFAA"><td>Functions:</td>'.
            '<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).             '<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs.
              '"><b>Reply</b></a></td>'.               '"><b>Reply</b></a></td>'.
            '<td><a href="/adm/email?forward='.&Apache::lonnet::escape($msgid).             '<td><a href="/adm/email?forward='.&Apache::lonnet::escape($msgid).$sqs.
              '"><b>Forward</b></a></td>'.               '"><b>Forward</b></a></td>'.
         '<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).          '<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).$sqs.
              '"><b>Mark Unread</b></a></td>'.               '"><b>Mark Unread</b></a></td>'.
         '<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).          '<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs.
              '"><b>Delete</b></a></td>'.               '"><b>Delete</b></a></td>'.
         '<td><a href="/adm/email"><b>Display all Messages</b></a></td>'.   '<td><a href="/adm/email?sortedby='.$ENV{'form.sortedby'}.
              '</tr></table><p><pre>'.   '"><b>Display all Messages</b></a></td>');
         if ($counter > 0){
      $r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.
              '"><b>Previous</b></a></td>');
          }
          if ($counter < $number_of_messages - 1){
      $r->print('<td><a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs.
              '"><b>Next</b></a></td>');
          }
          $r->print('</tr></table><p><pre>'.
              &Apache::lontexconvert::msgtexconverted($content{'message'}).               &Apache::lontexconvert::msgtexconverted($content{'message'}).
              '</pre><hr>'.$content{'citation'});               '</pre><hr>'.$content{'citation'});
   } elsif ($ENV{'form.replyto'}) {    } elsif ($ENV{'form.replyto'}) {
Removed from v.1.64  
changed lines
  Added in v.1.65

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