From eda7d670f3545bbf0a5704a19920417c71d25e60 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pjm@nac.net>
Date: Sun, 12 Aug 2012 07:35:01 -0400
Subject: Collect sections in book.

---
(limited to 'scripts')

diff --git a/scripts/MarkdownBook/Book.pm b/scripts/MarkdownBook/Book.pm
index f758aa3..3328cae 100644
--- a/scripts/MarkdownBook/Book.pm
+++ b/scripts/MarkdownBook/Book.pm
@@ -40,6 +40,8 @@ sub new
 	}
 	$self->{'dir'} = $dir;
 	$self->{'docs'} = [];
+	$self->{'sections'} = [];
+	$self->{'sections_by_id'} = {};
 
 	open($control_fh, '<', $dir . '/control');
 	while (<$control_fh>) {
@@ -142,6 +144,14 @@ sub create_documents
 	}
 }
 
+sub add_section
+{
+	my ($self, $section) = @_;
+
+	push(@{$self->{'sections'}}, $section);
+	$self->{'sections_by_id'}->{$section->id()} = $section;
+}
+
 sub parse
 {
 	my ($self) = @_;
diff --git a/scripts/MarkdownBook/Document.pm b/scripts/MarkdownBook/Document.pm
index 6b6b966..63750f3 100644
--- a/scripts/MarkdownBook/Document.pm
+++ b/scripts/MarkdownBook/Document.pm
@@ -213,6 +213,7 @@ sub _do_header
 	$section = MarkdownBook::Section->new($self,
 		$section_number, $section_id, $section_title);
 	push(@{$self->{'sections'}}, $section);
+	$self->{'book'}->add_section($section);
 
 	$text = $section_number . ' ' . $section_title;
 
--
cgit v0.9.1