You are viewing a plain text version of this content. The canonical link for it is here.
Posted to docs-cvs@perl.apache.org by st...@apache.org on 2002/06/30 17:52:42 UTC
cvs commit: modperl-docs/lib/DocSet/DocSet HTML.pm PSPDF.pm
stas 2002/06/30 08:52:42
Modified: lib/DocSet/Doc Common.pm
lib/DocSet/DocSet HTML.pm PSPDF.pm
Log:
- make the index_node's meta.id and meta.stitle attributes available
to the templates
Revision Changes Path
1.15 +0 -7 modperl-docs/lib/DocSet/Doc/Common.pm
Index: Common.pm
===================================================================
RCS file: /home/cvs/modperl-docs/lib/DocSet/Doc/Common.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- Common.pm 29 Jun 2002 19:13:49 -0000 1.14
+++ Common.pm 30 Jun 2002 15:52:41 -0000 1.15
@@ -143,13 +143,6 @@
$anchor =~ s/\W/_/g;
my $link = $title->present($self);
- # assuming that the object lives only while a single doc is
- # rendered we can use this seen techniques, by storing the seen
- # anchors within the object itself. unfortunately currently there
- # is no way to dump the context (where the problem is) and
- # workaround is to run with -v, so the error will happen right
- # after reporting the file that was rendered
-
# die on duplicated anchors
my $render_obj = get_render_obj();
$render_obj->{__seen_anchors}{$anchor}++;
1.8 +4 -1 modperl-docs/lib/DocSet/DocSet/HTML.pm
Index: HTML.pm
===================================================================
RCS file: /home/cvs/modperl-docs/lib/DocSet/DocSet/HTML.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- HTML.pm 14 May 2002 05:24:57 -0000 1.7
+++ HTML.pm 30 Jun 2002 15:52:41 -0000 1.8
@@ -121,11 +121,14 @@
};
my $meta = {
+ id => $self->get('id'),
+ stitle => $self->get('stitle'),
title => $self->get('title'),
abstract => $self->get('abstract'),
};
- my $navigator = DocSet::NavigateCache->new($self->cache->path, $self->get('id'));
+ my $navigator = DocSet::NavigateCache->new($self->cache->path,
+ $self->get('id'));
my %args = (
nav => $navigator,
toc => \@toc,
1.5 +7 -4 modperl-docs/lib/DocSet/DocSet/PSPDF.pm
Index: PSPDF.pm
===================================================================
RCS file: /home/cvs/modperl-docs/lib/DocSet/DocSet/PSPDF.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- PSPDF.pm 14 May 2002 10:13:32 -0000 1.4
+++ PSPDF.pm 30 Jun 2002 15:52:41 -0000 1.5
@@ -90,11 +90,14 @@
};
my $meta = {
- title => $self->get('title'),
- abstract => $self->get('abstract'),
- };
+ id => $self->get('id'),
+ stitle => $self->get('stitle'),
+ title => $self->get('title'),
+ abstract => $self->get('abstract'),
+ };
- my $navigator = DocSet::NavigateCache->new($self->cache->path, $self->get('id'));
+ my $navigator = DocSet::NavigateCache->new($self->cache->path,
+ $self->get('id'));
my %args =
(
---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org