Return to lonpopulate.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.32, 2005/11/04 21:55:39 | version 1.33, 2005/11/07 15:43:31 |
---|---|
Line 2104 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; |