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

raeburn raeburn@source.lon-capa.org
Tue, 09 Nov 2010 19:00:56 -0000


raeburn		Tue Nov  9 19:00:56 2010 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  - Handle course feedback recipients stored with pre 2.4 LON-CAPA: 
    (a) @ was acceptable separator (in place of :) for username:domain.
    (b) textbox entry for comma-separated list of recipients.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.228 loncom/interface/lonmsg.pm:1.229
--- loncom/interface/lonmsg.pm:1.228	Thu Oct 28 16:20:50 2010
+++ loncom/interface/lonmsg.pm	Tue Nov  9 19:00:56 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.228 2010/10/28 16:20:50 bisitz Exp $
+# $Id: lonmsg.pm,v 1.229 2010/11/09 19:00:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -985,6 +985,9 @@
     my $rec=shift;
     my $defaultflag=shift;
     $rec=~s/\s+//g;
+    unless ($rec =~ /\:/) {
+        $rec=~s/\@/\:/g;
+    }
     my ($adr,$sections_or_groups)=($rec=~/^([^\(]+)\(([^\)]+)\)/);
     if ($sections_or_groups) {
 	foreach my $item (split(/\;/,$sections_or_groups)) {