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; |