loncom/interface/lonpopulate.pm - diff

Return to lonpopulate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.29, 2005/11/04 21:25:34	version 1.31, 2005/11/04 21:34:05
Line 485 ENDTWO	Line 485 ENDTWO
</form>	</form>
ENDTWO	ENDTWO
} elsif ($action eq "notify") {	} elsif ($action eq "notify") {
	my $notifycount = 0;
my @notified = split(/,/,$enrollvar{notifylist});	my @notified = split(/,/,$enrollvar{notifylist});
my $notifycount = 0;	my $notifycount = 0;
foreach (@notified) {	foreach (@notified) {
Line 664 ENDTWO	Line 665 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;
}	}