sub get_header {
   my $self = shift;
   Section->new(dbh => $self->dbh, title => "Header");
}
sub get_toc {
   my $self = shift;
   Section->new(dbh => $self->dbh, title => "Contents");
}
sub get_footer {
   my $self = shift;
   Section->new(dbh => $self->dbh, title => "Footer");
}