[Openinteract-commits] CVS: OpenInteract2/pkg/system_doc/OpenInteract2/Action SystemDoc.pm,1.13,1.14

[Chris W. <la...@us...>]

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 ----