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') { |