Revision: 49
http://fb2-perl-tools.svn.sourceforge.net/fb2-perl-tools/?rev=49&view=rev
Author: shaplov
Date: 2007-08-11 02:23:36 -0700 (Sat, 11 Aug 2007)
Log Message:
-----------
Oups... should be <body name="notes">, not <body type="note">.
One shuold drink less beer before coding ;-)
Modified Paths:
--------------
trunk/fb2-perl-tools/fb2/Footnotes.pm
Modified: trunk/fb2-perl-tools/fb2/Footnotes.pm
===================================================================
--- trunk/fb2-perl-tools/fb2/Footnotes.pm 2007-08-09 20:20:29 UTC (rev 48)
+++ trunk/fb2-perl-tools/fb2/Footnotes.pm 2007-08-11 09:23:36 UTC (rev 49)
@@ -146,7 +146,7 @@
my $node = $_;
foreach ($node->attributes())
{
- if ( ($_->nodeName eq 'type') && ($_->value eq 'note'))
+ if ( ($_->nodeName eq 'name') && ($_->value eq 'notes'))
{
# It's assumed that there is only one note-body in the book
$note_body = $node;
@@ -156,7 +156,7 @@
if (! $note_body)
{
$note_body = $doc->createElement('body');
- $note_body->setAttribute('type','note');
+ $note_body->setAttribute('name','notes');
$book->appendChild($doc->createTextNode(' '));
$book->appendChild($note_body);
$book->appendChild($doc->createTextNode("\n"));
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
