[Docutils-checkins] r4906 - trunk/prest/lib/Text/Restructured/Writer/xref.wrt

[<mn...@us...>]

Author: mnodine
Date: 2007-02-02 18:05:00 +0100 (Fri, 02 Feb 2007)
New Revision: 4906

Modified:
   trunk/prest/lib/Text/Restructured/Writer/xref.wrt
Log:
Fixed a bug that occurred if a document had no title section.


Modified: trunk/prest/lib/Text/Restructured/Writer/xref.wrt
===================================================================
--- trunk/prest/lib/Text/Restructured/Writer/xref.wrt	2007-02-02 17:04:01 UTC (rev 4905)
+++ trunk/prest/lib/Text/Restructured/Writer/xref.wrt	2007-02-02 17:05:00 UTC (rev 4906)
@@ -211,7 +211,8 @@
 	    $dom->{content}[0]->Recurse(sub {
 		my ($dom) = @_;
 		$title .= $dom->{text} if $dom->{tag} eq '#PCDATA';
-	    });
+	    }) if $dom->{content}[0]{tag} eq 'title';
+            $title = $dom->{attr}{title} || '' unless $title;
 	    $title =~ s/^(.*?)\.?[\xa0\xc2]+/ /;
 	    my ($number) = ($1);
 	    my $ref = ! defined $number ? $title :