loncom/interface/lonpopulate.pm - diff

Return to lonpopulate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2005/11/04 21:34:05	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 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;