Changeset 163 for server/trunk/web/lib/Sophie
- Timestamp:
- 12/21/10 17:29:36 (14 years ago)
- Location:
- server/trunk/web/lib/Sophie
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
server/trunk/web/lib/Sophie/Model/Help/POD.pm
r110 r163 30 30 sub pom { 31 31 my ($self) = @_; 32 return values %{ $self->{pom} } 32 my @pom; 33 foreach (sort keys %{ $self->{pom} }) { 34 push(@pom, $self->{pom}{$_}); 35 } 36 return @pom; 33 37 } 34 38 … … 102 106 } 103 107 108 sub urls_functions { 109 my ($self) = @_; 110 my @pod; 111 foreach my $pom ($self->pom) { 112 foreach my $head1 ($pom->content) { 113 foreach my $item ($head1->content) { 114 my $title = $item->title or next; 115 if ($title =~ /^Url:/) { 116 push(@pod, $item); 117 } 118 } 119 } 120 } 121 my $ppvh = Pod::POM::View::HTML->new; 122 return join("\n\n", map { $_->present($ppvh) } @pod); 123 } 124 104 125 sub ACCEPT_CONTEXT { 105 126 my ($self, $c, @args) = @_;
Note: See TracChangeset
for help on using the changeset viewer.