Return to lonpopulate.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.30, 2005/11/04 21:32:13 | version 1.31, 2005/11/04 21:34:05 |
---|---|
Line 665 ENDTWO | Line 665 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; |
} | } |