loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.74, 2001/05/13 20:01:11
+version 1.75, 2001/05/13 21:40:32
  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 {
-   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 @order;
    for ($i=0;$i < $#data; $i++) {