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

[bisitz]

bisitz		Wed Feb 22 18:38:29 2012 EDT

  Modified files:              
    /loncom/interface	lonannounce.pm 
  Log:
  Bugfix: Allow server announcements for servers with machine name containing a dash ("-").
  
  
Index: loncom/interface/lonannounce.pm
diff -u loncom/interface/lonannounce.pm:1.82 loncom/interface/lonannounce.pm:1.83
--- loncom/interface/lonannounce.pm:1.82	Tue Mar 16 20:10:13 2010
+++ loncom/interface/lonannounce.pm	Wed Feb 22 18:38:29 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.82 2010/03/16 20:10:13 raeburn Exp $
+# $Id: lonannounce.pm,v 1.83 2012/02/22 18:38:29 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -571,7 +571,7 @@
     if ($serverpost) {
 	if ($env{'form.serveraction'}) {
 	    foreach my $key (keys(%env)) {
-		if ($key=~/^form\.postto\_(\w+)/) {
+		if ($key=~/^form\.postto\_(\w+[\w|-]*)/) {
 		    $r->print( 
 			'<br />Posting '.$1.': '.&Apache::lonnet::postannounce
 			($1,$env{'form.serverannnounce'}));