![[BACK]](/icons/back.gif){kind=icon}
Return to lonannounce.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonannounce.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.84, 2012/04/18 16:22:31 | version 1.85, 2012/08/21 14:36:27 |
|---|---|
| Line 573 ENDDOCUMENT | Line 573 ENDDOCUMENT |
| my $rc; | my $rc; |
| my $message; | my $message; |
| foreach my $key (keys(%env)) { | foreach my $key (keys(%env)) { |
| if ($key=~/^form\.postto\_(\w+[\w|-]*)/) { | if ($key=~/^form\.postto\_(\w+[\w\-]*)/) { |
| $rc = &Apache::lonnet::postannounce | $rc = &Apache::lonnet::postannounce |
| ($1,$env{'form.serverannnounce'}); | ($1,$env{'form.serverannnounce'}); |
| if ($rc eq 'ok') { | if ($rc eq 'ok') { |