Update of /cvsroot/openinteract/OpenInteract2/pkg/system_doc/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27523/system_doc/OpenInteract2/Action
Modified Files:
SystemDoc.pm
Log Message:
OIN-72: move docs to ::App class and remove package doc display functionality
Index: SystemDoc.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/system_doc/OpenInteract2/Action/SystemDoc.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** SystemDoc.pm 5 Dec 2004 08:51:24 -0000 1.13
--- SystemDoc.pm 1 Mar 2005 03:27:16 -0000 1.14
***************
*** 24,76 ****
- sub package_list {
- my ( $self ) = @_;
- $log ||= get_logger( LOG_APP );
-
- # Grab the repository for this website and fetch a list of all the
- # packages, then ask each package for its doc files which we'll
- # treat as POD and (inelegantly) find the TITLE
-
- my $parser = Pod::POM->new;
- my $pkg_list = CTX->repository->fetch_all_packages();
- my %pkg_docs = ();
- foreach my $pkg ( @{ $pkg_list } ) {
- my $pkg_id = $pkg->full_name;
- my $pkg_dir = $pkg->directory;
- my $doc_files = $pkg->get_doc_files;
- $log->is_info &&
- $log->info( "Found ", scalar @{ $doc_files }, " doc files ",
- "in $pkg_id" );
- my @doc_titles = ();
- foreach my $doc_file ( @{ $doc_files } ) {
- $doc_file =~ s/^$pkg_dir//;
- $log->is_debug &&
- $log->debug( "Found doc [$doc_file] in [$pkg_id]" );
- my $content = $pkg->read_file( $doc_file );
- unless ( $content ) {
- $log->warn( "Package failed to read content ",
- "for [$doc_file]" );
- next;
- }
- my $pom = $parser->parse_text( $content );
-
- # assumes the first head1 is a title... reasonable, but
- # still an assumption
-
- my ( $title );
- foreach my $head1 ( $pom->head1 ) {
- $title ||= $head1->content;
- }
- $log->is_debug &&
- $log->debug( "Doc [$doc_file] -> [$title]" );
- push @doc_titles, [ $doc_file, $title ];
- }
- $pkg_docs{ $pkg_id } = \@doc_titles;
- }
- return $self->generate_content(
- { package_docs => \%pkg_docs },
- { name => 'system_doc::package_doc_listing' } );
- }
-
# TODO: Get SPOPS|OI2::Manual stuff in here
--- 24,27 ----
|
