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

Diff for /loncom/interface/lonnotify.pm between versions 1.5 and 1.7

version 1.5, 2005/10/13 22:37:40 version 1.7, 2005/10/28 19:24:25
Line 216  sub print_display { Line 216  sub print_display {
     my $start = &Apache::lonhtmlcommon::get_date_from_form('startdate');      my $start = &Apache::lonhtmlcommon::get_date_from_form('startdate');
     my $end = &Apache::lonhtmlcommon::get_date_from_form('enddate');      my $end = &Apache::lonhtmlcommon::get_date_from_form('enddate');
     my @senders = &Apache::loncommon::get_env_multiple('form.sender');      my @senders = &Apache::loncommon::get_env_multiple('form.sender');
     my $senderlist = join('&',@senders);       my %sentmail = &Apache::lonnet::dcmaildump($cdom,$start,$end,\@senders);
     my %sentmail = &Apache::lonnet::dcmaildump($cdom,$start,$end,$senderlist);  
     my %dcmail = ();      my %dcmail = ();
     my %Sortby = ();      my %Sortby = ();
     my $jscript = <<"ENDSCRIPT";      my $jscript = <<"ENDSCRIPT";
Line 456  sub print_composition_form { Line 455  sub print_composition_form {
 $html  $html
 <head>  <head>
  <title>LON-CAPA $lt{'note'}</title>   <title>LON-CAPA $lt{'note'}</title>
 <script type"text/javascript">  <script type="text/javascript">
 $jscript  $jscript
 </script>  </script>
 </head>  </head>
Line 756  sub store_mail { Line 755  sub store_mail {
 # Store in dc email db files on appropriate servers.  # Store in dc email db files on appropriate servers.
     foreach my $server (keys(%servers)) {      foreach my $server (keys(%servers)) {
         unless (&Apache::lonnet::dcmailput($domain,$msgid,\%servers,$server) eq 'ok') {          unless (&Apache::lonnet::dcmailput($domain,$msgid,\%servers,$server) eq 'ok') {
             &logthis('Storage of dc mail failed for domain'.$domain.' for server: '.              &Apache::lonnet::logthis('Storage of dc mail failed for domain'.$domain.' for server: '.
                       $server.'.  Message ID was '.$msgid);                        $server.'.  Message ID was '.$msgid);
         }          }
     }      }
Removed from v.1.5  
changed lines
  Added in v.1.7

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