loncom/interface/lonpopulate.pm - diff

Return to lonpopulate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2005/11/04 21:32:13	version 1.32, 2005/11/04 21:55:39
Line 487 ENDTWO	Line 487 ENDTWO
} elsif ($action eq "notify") {	} elsif ($action eq "notify") {
my $notifycount = 0;	my $notifycount = 0;
my @notified = split(/,/,$enrollvar{notifylist});	my @notified = split(/,/,$enrollvar{notifylist});
my $notifycount = 0;
foreach (@notified) {	foreach (@notified) {
unless ($_ eq '') { $notifycount ++; }	unless ($_ eq '') { $notifycount ++; }
}	}
Line 665 ENDTWO	Line 664 ENDTWO
for (my $i=0; $i<@xlists; $i++) {	for (my $i=0; $i<@xlists; $i++) {
my $xl = ' ';	my $xl = ' ';
my $gp = ' ';	my $gp = ' ';
if ($xlists[$i] =~ /(\w+):?(.*)$/) {	if ($xlists[$i] =~ /^([^:]+):?(.*)$/) {
$xl = $1;	$xl = $1;
$gp = $2;	$gp = $2;
}	}