version 1.74, 2001/05/13 20:01:11
|
version 1.75, 2001/05/13 21:40:32
|
Line 642 sub warning {
|
Line 642 sub warning {
|
} |
} |
} |
} |
|
|
|
#Should allow multiple definitions of the same tag name |
|
sub register_insert2 { |
|
my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab'); |
|
my $i; |
|
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,$function,$show) = split(/,/, $line); |
|
if ($show eq 'no') { next; } |
|
$insertlist{"$i.tag"} = $tag; |
|
$insertlist{"$i.description"} = $descrip; |
|
$insertlist{"$i.function"} = $function; |
|
} |
|
for (;$i < $#data;$i++) { |
|
my $line = $data[$i]; |
|
my ($tag,@which) = split(/ +/,$line); |
|
for (my $j=0;$j <$#which;$j++) { |
|
if ( $which[$j] eq 'Y' ) { |
|
push(@{ $insertlist{"$tag.which"} },$j); |
|
} |
|
} |
|
} |
|
} |
|
|
sub register_insert { |
sub register_insert { |
my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/insertlist.tab'); |
my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab'); |
my $i; |
my $i; |
my @order; |
my @order; |
for ($i=0;$i < $#data; $i++) { |
for ($i=0;$i < $#data; $i++) { |