version 1.83, 2012/02/22 18:38:29
|
version 1.85, 2012/08/21 14:36:27
|
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 />' |