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

Diff for /loncom/interface/lonnotify.pm between versions 1.14 and 1.17

version 1.14, 2006/03/16 20:27:26 version 1.17, 2006/04/23 04:04:38
Line 87  sub add_script { Line 87  sub add_script {
 sub start_page {  sub start_page {
     my ($jscript,$bread_title,$formname) = @_;      my ($jscript,$bread_title,$formname) = @_;
   
     my $html = &Apache::lonxml::xmlbegin();  
   
     my $head = &Apache::loncommon::head('Notification E-mail',$jscript);  
   
     my $loadcode;      my $loadcode;
     if ((defined($env{'form.origin'}))       if ((defined($env{'form.origin'})) 
  && ($env{'form.command'} eq 'compose'    && ($env{'form.command'} eq 'compose' 
Line 108  sub start_page { Line 104  sub start_page {
         }          }
     }      }
           
     $loadcode = ' onLoad="'.$loadcode.'" ';       my $start_page = 
     my $bodytag =    &Apache::loncommon::start_page('Broadcast e-mail to users', $jscript,
  &Apache::loncommon::bodytag('Broadcast e-mail to users', undef,         {'add_entries' => 
     $loadcode);      {'onload' => $loadcode,},});
   
     my $breadcrumbs =      my $breadcrumbs =
  &Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title,   &Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title,
     'Broadcast_system_email');      'Broadcast_system_email');
     my $output = <<"ENDONE";      my $output = <<"ENDONE";
 $html  $start_page
 $head  
 $bodytag  
 $breadcrumbs  $breadcrumbs
 <br />  <br />
 <form name="$formname" method="POST">  <form name="$formname" method="POST">
Line 301  ENDSCRIPT Line 294  ENDSCRIPT
                     $rowColor = $rowColor2;                      $rowColor = $rowColor2;
                 }                  }
                 my $recipients = '';                  my $recipients = '';
                 my ($date,$subj,$sname,$sdom) =                  my ($date,undef,$sname,$sdom) =
                                   &Apache::lonmsg::unpackmsgid($msgid,undef,1);                                    &Apache::lonmsg::unpackmsgid($msgid,undef,1);
                 $subj = &Apache::lonnet::escape($subj);  
                 $date = &Apache::lonlocal::locallocaltime($date);                  $date = &Apache::lonlocal::locallocaltime($date);
                 foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) {                  foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) {
                     $recipients .= $dcmail{$msgid}{recipient}{$user}.', ';                      $recipients .= $dcmail{$msgid}{recipient}{$user}.', ';
Line 314  ENDSCRIPT Line 306  ENDSCRIPT
             }              }
         } else {          } else {
             foreach my $msgid (sort(keys(%dcmail))) {              foreach my $msgid (sort(keys(%dcmail))) {
                 my ($date,$subj,$sname,$sdom) =                  my ($date,undef,$sname,$sdom) =
                                    &Apache::lonmsg::unpackmsgid($msgid,undef,1);                                     &Apache::lonmsg::unpackmsgid($msgid,undef,1);
                 $subj = &Apache::lonnet::escape($subj);  
                 if ($env{'form.sortby'} eq 'subject') {                  if ($env{'form.sortby'} eq 'subject') {
                     push @{$Sortby{$dcmail{$msgid}{subject}}},$msgid;                      push @{$Sortby{$dcmail{$msgid}{subject}}},$msgid;
                 } elsif ($env{'form.sortby'} eq 'message') {                  } elsif ($env{'form.sortby'} eq 'message') {
Line 350  ENDSCRIPT Line 341  ENDSCRIPT
                         }                          }
                         $recipients =~ s/,\s$//;                          $recipients =~ s/,\s$//;
                     }                      }
                     my ($date,$subj,$sname,$sdom) =                      my ($date,undef,$sname,$sdom) =
                                    &Apache::lonmsg::unpackmsgid($msgid,undef,1);                                     &Apache::lonmsg::unpackmsgid($msgid,undef,1);
                     $subj = &Apache::lonnet::escape($subj);  
                     $date = &Apache::lonlocal::locallocaltime($date);                      $date = &Apache::lonlocal::locallocaltime($date);
                     $output .=  '<tr bgcolor="'.$rowColor.'"><td><small>'.$date.'</small></td><td><small>'.&cr_to_br($dcmail{$msgid}{subject}).'</small></td><td><small>'.$sname.':'.$sdom.'</small></td><td><small>'.&cr_to_br($dcmail{$msgid}{message}).'</small></td><td><small>'.$recipients.'</small></td></tr>'."\n";                      $output .=  '<tr bgcolor="'.$rowColor.'"><td><small>'.$date.'</small></td><td><small>'.&cr_to_br($dcmail{$msgid}{subject}).'</small></td><td><small>'.$sname.':'.$sdom.'</small></td><td><small>'.&cr_to_br($dcmail{$msgid}{message}).'</small></td><td><small>'.$recipients.'</small></td></tr>'."\n";
                     $rowNum ++;                      $rowNum ++;
Removed from v.1.14  
changed lines
  Added in v.1.17

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