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

Diff for /loncom/interface/lonannounce.pm between versions 1.83 and 1.84

version 1.83, 2012/02/22 18:38:29 version 1.84, 2012/04/18 16:22:31
Line 569  ENDDOCUMENT Line 569  ENDDOCUMENT
     }      }
 # ------------------------------------------------------------ Process commands  # ------------------------------------------------------------ Process commands
     if ($serverpost) {      if ($serverpost) {
  if ($env{'form.serveraction'}) {          if ($env{'form.serveraction'}) {
     foreach my $key (keys(%env)) {              my $rc;
  if ($key=~/^form\.postto\_(\w+[\w|-]*)/) {              my $message;
     $r->print(               foreach my $key (keys(%env)) {
  '<br />Posting '.$1.': '.&Apache::lonnet::postannounce                  if ($key=~/^form\.postto\_(\w+[\w|-]*)/) {
  ($1,$env{'form.serverannnounce'}));                       $rc = &Apache::lonnet::postannounce
  }                             ($1,$env{'form.serverannnounce'});
     }                      if ($rc eq 'ok') {
  }                          $message .= 
                               &Apache::lonhtmlcommon::confirm_success(
                                   &mt('Announcement posted to [_1]',$1))
                                  .'<br />';
                       } else {
                           $message .=
                               &Apache::lonhtmlcommon::confirm_success(
                                   &mt('Posting announcement to [_1] failed: [_2]'
                                       ,$1,$rc), 1)
                                  .'<br />';
                       }
                   }
               }
               $r->print(&Apache::loncommon::confirmwrapper($message));
           }
  $r->print('<form name="serveranno" method="post">'   $r->print('<form name="serveranno" method="post">'
                  .'<h2>'.&mt('Post Server Announcements').'</h2>'                   .'<h2>'.&mt('Post Server Announcements').'</h2>'
                  .&mt('Post announcements to the system login and roles screen').'<br />'                   .&mt('Post announcements to the system login and roles screen').'<br />'
Removed from v.1.83  
changed lines
  Added in v.1.84

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