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