File Coverage

blib/lib/Kwiki/TableOfContents/Print.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Kwiki::TableOfContents::Print;

use warnings;
use strict;
use Kwiki::Plugin '-Base';
use mixin 'Kwiki::Installer';
use IO::All;
use JSON;
use Data::Dumper;
our $VERSION = '0.02';

const class_title => 'Table of Contents Print';
const class_id => 'toc_print';

sub register {
	my $registry = shift;
	$registry->add(prerequisite => 'toc');
	$registry->add(preload => 'toc_print');
	$registry->add(action => 'print_toc');
}

sub print_toc {
	my $print_page = CGI::param('page_name');
	my $content = join('', map({
		my $page_key = $_->[0];
		my $page_name = $_->[1];
		my $level = $_->[2];
		my $html = $self->hub->pages->new_page($page_key)->to_html;
		$html =~ s|attachments/$print_page/|attachments/$page_key/|gi
			unless $page_key eq $print_page;
		('',
			$page_name,
		'',
		$html)
	} $self->print_pages));
	$self->hub->css->add_file('jstree_print.css');
	$self->render_screen(
		page_html => $content,
	);
}

sub print_pages {
	my $page_name = CGI::param('page_name');
	my $structure = jsonToObj(io->catfile($self->plugin_base_directory,
		'toc', 'structure')->slurp);

	return $page_name eq $self->config->main_page
		? (['HomePage', 'Home Page', 1], $self->tree_to_list($structure, 0))
		: $self->tree_to_list($self->find_node($page_name, $structure), 1);
}

sub tree_to_list {
	my ( $structure, $level, @list ) = @_;
	if( ref($structure) eq 'HASH' ) {
		my $page_name = $self->link_to_pagename(
			$structure->{data}->{href});
		push( @list, [
			$page_name,
			$structure->{data}->{text},
			$level,
		]) if defined $page_name;
		$structure = $structure->{subtree};
	}
	$level++;
	foreach ( @$structure ) {
		@list = $self->tree_to_list($_, $level, @list);
	}
	return @list;
}

sub find_node {
	my ( $page_name, $structure ) = @_;
	foreach ( @$structure ) {
		my $cur = $self->link_to_pagename($_->{data}->{href});
		return $_ if $page_name eq $cur;
		my $next = $self->find_node($page_name, $_->{subtree});
		return $next if defined $next;
	}
	return undef;
}

sub link_to_pagename {
	my ( $link ) = @_;
	return $link =~ /\?(.+)$/ ? $1 : undef;
}

1; # End of Kwiki::TableOfContents::Print
__DATA__