version 1.82, 2010/03/16 20:10:13
|
version 1.83, 2012/02/22 18:38:29
|
Line 571 ENDDOCUMENT
|
Line 571 ENDDOCUMENT
|
if ($serverpost) { |
if ($serverpost) { |
if ($env{'form.serveraction'}) { |
if ($env{'form.serveraction'}) { |
foreach my $key (keys(%env)) { |
foreach my $key (keys(%env)) { |
if ($key=~/^form\.postto\_(\w+)/) { |
if ($key=~/^form\.postto\_(\w+[\w|-]*)/) { |
$r->print( |
$r->print( |
'<br />Posting '.$1.': '.&Apache::lonnet::postannounce |
'<br />Posting '.$1.': '.&Apache::lonnet::postannounce |
($1,$env{'form.serverannnounce'})); |
($1,$env{'form.serverannnounce'})); |