version 1.441, 2007/04/07 00:02:31
|
version 1.442, 2007/04/07 00:04:40
|
Line 1742 sub register_insert_xml {
|
Line 1742 sub register_insert_xml {
|
my $parser = HTML::LCParser->new($Apache::lonnet::perlvar{'lonTabDir'} |
my $parser = HTML::LCParser->new($Apache::lonnet::perlvar{'lonTabDir'} |
.'/insertlist.xml'); |
.'/insertlist.xml'); |
my ($tagnum,$in_help)=(0,0); |
my ($tagnum,$in_help)=(0,0); |
|
my @alltags; |
my $tag; |
my $tag; |
while (my $token = $parser->get_token()) { |
while (my $token = $parser->get_token()) { |
if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
Line 1750 sub register_insert_xml {
|
Line 1751 sub register_insert_xml {
|
$tag = $token->[2]{'name'}; |
$tag = $token->[2]{'name'}; |
$insertlist{"$tagnum.tag"} = $tag; |
$insertlist{"$tagnum.tag"} = $tag; |
$insertlist{"$tag.num"} = $tagnum; |
$insertlist{"$tag.num"} = $tagnum; |
|
push(@alltags,$tag); |
} elsif ($in_help && $token->[1] eq 'file') { |
} elsif ($in_help && $token->[1] eq 'file') { |
$key = $tag.'.helpfile'; |
$key = $tag.'.helpfile'; |
} elsif ($in_help && $token->[1] eq 'description') { |
} elsif ($in_help && $token->[1] eq 'description') { |
Line 1763 sub register_insert_xml {
|
Line 1765 sub register_insert_xml {
|
} elsif ($token->[1] eq 'help') { |
} elsif ($token->[1] eq 'help') { |
$in_help=1; |
$in_help=1; |
} elsif ($token->[1] eq 'allow') { |
} elsif ($token->[1] eq 'allow') { |
my $allow = $parser->get_text(); |
$key = $tag.'.allow'; |
foreach my $element (split(',',$allow)) { |
|
$element =~ s/(^\s*|\s*$ )//gx; |
|
push(@{ $insertlist{$tag.'.which'} },$element); |
|
} |
|
} |
} |
if (defined($key)) { |
if (defined($key)) { |
$insertlist{$key} = $parser->get_text(); |
$insertlist{$key} = $parser->get_text(); |
Line 1782 sub register_insert_xml {
|
Line 1780 sub register_insert_xml {
|
} |
} |
} |
} |
} |
} |
|
|
|
# parse the allows and ignore tags set to <show>no</show> |
|
foreach my $tag (@alltags) { |
|
my $allow = $insertlist{"$tag.allow"}; |
|
foreach my $element (split(',',$allow)) { |
|
$element =~ s/(^\s*|\s*$ )//gx; |
|
if ($insertlist{"$element.show"} ne 'no') { |
|
push(@{ $insertlist{$tag.'.which'} },$element); |
|
} |
|
} |
|
} |
} |
} |
|
|
sub register_insert { |
sub register_insert { |