Changeset 61

Timestamp:

12/02/10 14:08:50 (14 years ago)

Author:

nanardon

Message:

• fix POD parsing to use head2 for functions

Location:

server/trunk/web/lib/Sophie

Files:

• Controller/Rpms.pm (modified) (1 diff)
• Model/Help/XMLRPC.pm (modified) (1 diff)

server/trunk/web/lib/Sophie/Controller/Rpms.pm

@@ -104 +104 @@
 }
 
-=head1 rpms.location
-
-C<No> doc yet
+=head2 rpms.location (PKGID)
+
+Return all distribution where the package having C<PKGID> can be found.
 
 =cut

server/trunk/web/lib/Sophie/Model/Help/XMLRPC.pm

@@ -47 +47 @@
         my $parser = Pod::POM->new();
         my $pom = $parser->parse($pod);
-        foreach my $item ($pom->content) {
-            if ($method{$item->title}) {
-                $self->{method}{$item->title} = $item;
+        foreach my $head1 ($pom->content) {
+            foreach my $item ($head1->content) {
+                my $title = $item->title or next;
+                $title =~ s/[^\w\._].*$//;
+                if ($method{$title}) {
+                    $self->{method}{$title} = $item;
+                }
             }
         }