Parent Directory | Revision Log | Patch
revision 1.2 by jlenton, Wed Apr 9 15:29:14 2003 UTC | revision 1.3 by jlenton, Wed Apr 9 19:59:22 2003 UTC | |
---|---|---|
# | Line 16 sub add_content | Line 16 sub add_content |
16 | my $content = shift; | my $content = shift; |
17 | ||
18 | push @{$self->{CONTENT}}, $content; | push @{$self->{CONTENT}}, $content; |
$content->parent($self); | ||
19 | return @{$self->{CONTENT}}; | return @{$self->{CONTENT}}; |
20 | } | } |
21 | ||
# | Line 51 sub content | Line 49 sub content |
49 | sub canonical | sub canonical |
50 | { | { |
51 | my $self = shift; | my $self = shift; |
52 | return join('', | return join('', map($_->canonical, $self->content)); |
map($_->canonical, $self->content)); | ||
53 | } | } |
54 | ||
55 | sub code | sub code |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |