version 1.442, 2007/04/07 00:04:40
|
version 1.443, 2007/04/07 01:21:59
|
Line 1698 sub get_param_var {
|
Line 1698 sub get_param_var {
|
} |
} |
} |
} |
|
|
sub register_insert_tab { |
|
my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab'); |
|
my $i; |
|
my $tagnum=0; |
|
my @order; |
|
for ($i=0;$i < $#data; $i++) { |
|
my $line = $data[$i]; |
|
if ( $line =~ /^\#/ || $line =~ /^\s*\n/) { next; } |
|
if ( $line =~ /TABLE/ ) { last; } |
|
my ($tag,$descrip,$color,$function,$show,$helpfile,$helpdesc) = split(/,/, $line); |
|
if ($tag) { |
|
$insertlist{"$tagnum.tag"} = $tag; |
|
$insertlist{"$tag.description"} = $descrip; |
|
$insertlist{"$tag.color"} = $color; |
|
$insertlist{"$tag.function"} = $function; |
|
if (!defined($show)) { $show='yes'; } |
|
$insertlist{"$tag.show"}= $show; |
|
$insertlist{"$tag.helpfile"} = $helpfile; |
|
$insertlist{"$tag.helpdesc"} = $helpdesc; |
|
$insertlist{"$tag.num"}=$tagnum; |
|
$tagnum++; |
|
} |
|
} |
|
$i++; #skipping TABLE line |
|
$tagnum = 0; |
|
for (;$i < $#data;$i++) { |
|
my $line = $data[$i]; |
|
my ($mnemonic,@which) = split(/ +/,$line); |
|
my $tag = $insertlist{"$tagnum.tag"}; |
|
for (my $j=0;$j <=$#which;$j++) { |
|
if ( $which[$j] eq 'Y' ) { |
|
if ($insertlist{"$j.show"} ne 'no') { |
|
push(@{ $insertlist{"$tag.which"} },$insertlist{"$j.tag"}); |
|
} |
|
} |
|
} |
|
$tagnum++; |
|
} |
|
} |
|
|
|
sub register_insert_xml { |
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'); |
Line 1794 sub register_insert_xml {
|
Line 1754 sub register_insert_xml {
|
} |
} |
|
|
sub register_insert { |
sub register_insert { |
# ®ister_insert_tab(@_); |
|
# &dump_insertlist('1'); |
|
# undef(%insertlist); |
|
return ®ister_insert_xml(@_); |
return ®ister_insert_xml(@_); |
# &dump_insertlist('2'); |
# &dump_insertlist('2'); |
} |
} |