Changeset 1039 for library/doc/toolbox_doc

Timestamp:

06/04/10 13:58:11 (15 years ago)

Author:

miro

Message:

fix

Files:

• library/doc/toolbox_doc/filter_annotated.pl (modified) (3 diffs)

library/doc/toolbox_doc/filter_annotated.pl

@@ -31 +31 @@
 
 my $html = HTML::TreeBuilder->new();
+$html->store_comments(1);
 $html->parse_file($filename);
 my $body = $html->content_array_ref()->[1];
@@ -48 +49 @@
 
 $i = 0;
+my @to_delete;
 while (my $node = $table->content_array_ref()->[$i++]) {
     #;;print_content($node);
@@ -53 +55 @@
                      ->content_array_ref()->[0] #a
                      ->content_array_ref()->[0]; #bdm::ARX
-    ;;;print STDERR "$class\n";
 
-    ;;;map {print STDERR " $_\n"} grep {$_ eq $class} @classes;
+    #;;map {print STDERR " $_\n"} grep {$_ eq $class} @classes;
+    #;;print STDERR "$class\n";
 
-    next if grep {$_ eq $class} @classes;
+    if (grep {$_ eq $class} @classes) {
+        ;;;print "$class is in @classes\n";
+        next;
+    };
 
-    ;;;print STDERR "Hey! I passed after the grep!\n";
+    #;;print STDERR "$class will be detached\n";
+    #;;print STDERR $node->tag() . ' ' . $node->{_parent}->tag() . "\n";
 
-    $node->detach();
+    push @to_delete, $node;
 }
+
+$_->delete() for @to_delete;
+
+#;;print_content($table);
 
 #print the result