loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.227, 2010/09/13 23:35:44	version 1.228, 2010/10/28 16:20:50
Line 985 sub secapply {	Line 985 sub secapply {
my $rec=shift;	my $rec=shift;
my $defaultflag=shift;	my $defaultflag=shift;
$rec=~s/\s+//g;	$rec=~s/\s+//g;
$rec=~s/\@/\:/g;
my ($adr,$sections_or_groups)=($rec=~/^([^$]+)\(([^$]+)\)/);	my ($adr,$sections_or_groups)=($rec=~/^([^$]+)\(([^$]+)\)/);
if ($sections_or_groups) {	if ($sections_or_groups) {
foreach my $item (split(/\;/,$sections_or_groups)) {	foreach my $item (split(/\;/,$sections_or_groups)) {