--- loncom/interface/lonannounce.pm 2010/02/13 16:47:38 1.81 +++ loncom/interface/lonannounce.pm 2012/02/22 18:38:29 1.83 @@ -1,7 +1,7 @@ # The LearningOnline Network # Announce # -# $Id: lonannounce.pm,v 1.81 2010/02/13 16:47:38 raeburn Exp $ +# $Id: lonannounce.pm,v 1.83 2012/02/22 18:38:29 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -62,7 +62,7 @@ sub editfield { 'end' => 'Ending date', 'incrss' => 'Include in course RSS newsfeed'); if ($crstype eq 'Community') { - $lt{'anon'} = &mt('Community Announcements'); + $lt{'annon'} = &mt('Community Announcements'); $lt{'incrss'} = &mt('Include in community RSS newsfeed'); } @@ -571,7 +571,7 @@ ENDDOCUMENT if ($serverpost) { if ($env{'form.serveraction'}) { foreach my $key (keys(%env)) { - if ($key=~/^form\.postto\_(\w+)/) { + if ($key=~/^form\.postto\_(\w+[\w|-]*)/) { $r->print( '
Posting '.$1.': '.&Apache::lonnet::postannounce ($1,$env{'form.serverannnounce'}));