--- loncom/interface/lonmsg.pm 2010/09/13 23:35:44 1.227 +++ loncom/interface/lonmsg.pm 2010/10/28 16:20:50 1.228 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.227 2010/09/13 23:35:44 raeburn Exp $ +# $Id: lonmsg.pm,v 1.228 2010/10/28 16:20:50 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -985,7 +985,6 @@ sub secapply { my $rec=shift; my $defaultflag=shift; $rec=~s/\s+//g; - $rec=~s/\@/\:/g; my ($adr,$sections_or_groups)=($rec=~/^([^\(]+)\(([^\)]+)\)/); if ($sections_or_groups) { foreach my $item (split(/\;/,$sections_or_groups)) {