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.33, 2005/11/07 15:43:31
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;
}	}
Line 2105 sub print_update_result () {	Line 2104 sub print_update_result () {

if (@currxlists > 0) {	if (@currxlists > 0) {
foreach (@currxlists) {	foreach (@currxlists) {
if (m/^(\w+):(\w*)$/) {	if (m/^([^:]+):(\w*)$/) {
unless (grep/^$1$/,@allcourses) {	unless (grep/^$1$/,@allcourses) {
push @allcourses,$1;	push @allcourses,$1;
$LC_code{$1} = $2;	$LC_code{$1} = $2;