|
version 1.143, 2002/01/01 16:37:20
|
version 1.144, 2002/01/02 13:18:26
|
|
Line 1198 sub register_insert {
|
Line 1198 sub register_insert {
|
| my $line = $data[$i]; |
my $line = $data[$i]; |
| my ($mnemonic,@which) = split(/ +/,$line); |
my ($mnemonic,@which) = split(/ +/,$line); |
| my $tag = $insertlist{"$tagnum.tag"}; |
my $tag = $insertlist{"$tagnum.tag"}; |
| for (my $j=0;$j <$#which;$j++) { |
for (my $j=0;$j <=$#which;$j++) { |
| if ( $which[$j] eq 'Y' ) { |
if ( $which[$j] eq 'Y' ) { |
| if ($insertlist{"$j.show"} ne 'no') { |
if ($insertlist{"$j.show"} ne 'no') { |
| push(@{ $insertlist{"$tag.which"} },$j); |
push(@{ $insertlist{"$tag.which"} },$j); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml