loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'}));