Parent Directory | Revision Log | Patch
revision 1.9 by wakaba, Sat Jul 14 10:28:52 2007 UTC | revision 1.10 by wakaba, Sat Jul 14 16:32:28 2007 UTC | |
---|---|---|
# | Line 37 sub whole_text ($) { | Line 37 sub whole_text ($) { |
37 | my $doc = $_[0]->owner_document; | my $doc = $_[0]->owner_document; |
38 | my $tw1 = $doc->create_tree_walker | my $tw1 = $doc->create_tree_walker |
39 | ($doc, 0xFFFFFFFF, sub { # SHOW_ALL ENTITY_REFERENCE_NODE | ($doc, 0xFFFFFFFF, sub { # SHOW_ALL ENTITY_REFERENCE_NODE |
40 | ($_[1]->node_type == 5) ? 3 : 1; # FILTER_SKIP FILTER_ACCEPT | ($_[0]->node_type == 5) ? 3 : 1; # FILTER_SKIP FILTER_ACCEPT |
41 | }, 1); | }, 1); |
42 | $tw1->current_node ($_[0]); | $tw1->current_node ($_[0]); |
43 |
|
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |