[LON-CAPA-cvs] cvs: loncom /interface lonannounce.pm

[raeburn]

raeburn		Tue Aug 21 14:36:27 2012 EDT

  Modified files:              
    /loncom/interface	lonannounce.pm 
  Log:
  - Bug 6606. Fix typo in regexp.
  
  
Index: loncom/interface/lonannounce.pm
diff -u loncom/interface/lonannounce.pm:1.84 loncom/interface/lonannounce.pm:1.85
--- loncom/interface/lonannounce.pm:1.84	Wed Apr 18 16:22:31 2012
+++ loncom/interface/lonannounce.pm	Tue Aug 21 14:36:27 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.84 2012/04/18 16:22:31 bisitz Exp $
+# $Id: lonannounce.pm,v 1.85 2012/08/21 14:36:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -573,7 +573,7 @@
             my $rc;
             my $message;
             foreach my $key (keys(%env)) {
-                if ($key=~/^form\.postto\_(\w+[\w|-]*)/) {
+                if ($key=~/^form\.postto\_(\w+[\w\-]*)/) {
                      $rc = &Apache::lonnet::postannounce
                            ($1,$env{'form.serverannnounce'});
                     if ($rc eq 'ok') {