[librdf-rdfa-generator-perl] 18/64: fix some links

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag debian/0.106-1
in repository librdf-rdfa-generator-perl.

commit f3fa342549b07d2d23866c1d10dab969f3b80955
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Fri Jun 4 14:47:00 2010 +0000

    fix some links
    
    --HG--
    branch : RDF-RDFa-Generator
    extra : convert_revision : svn%3A3fe8e991-6959-4966-b76d-b07eca2b6e37/RDF-RDFa-Generator%40388
---
 lib/RDF/RDFa/Generator/HTML/Pretty.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/RDF/RDFa/Generator/HTML/Pretty.pm b/lib/RDF/RDFa/Generator/HTML/Pretty.pm
index ced5ee4..e2a207a 100644
--- a/lib/RDF/RDFa/Generator/HTML/Pretty.pm
+++ b/lib/RDF/RDFa/Generator/HTML/Pretty.pm
@@ -256,7 +256,7 @@ sub _resource_statements
 				my $seealso = $DD->addNewChild(XHTML_NS, 'a');
 				$seealso->setAttribute('about', $st->object->is_resource ? $st->object->uri : '[_:'.$st->object->blank_identifier.']');
 				$seealso->setAttribute('rel', 'seeAlso');
-				$seealso->setAttribute('href', '#'._make_id($st->object->is_resource ? $st->object->uri : $st->object->blank_identifier, $id_prefix));
+				$seealso->setAttribute('href', '#'._make_id($st->object->is_resource ? $st->object->uri : '_:'.$st->object->blank_identifier, $id_prefix));
 				$seealso->appendTextNode($interlink);
 			}
 		}
@@ -274,7 +274,7 @@ sub _resource_statements
 			my $sadata = {};
 			while (my $sast = $iter->next)
 			{
-				my $sas = $sast->subject->is_resource ? $sast->subject->uri : $sast->subject->blank_identifier;
+				my $sas = $sast->subject->is_resource ? $sast->subject->uri : '_:'.$sast->subject->blank_identifier;
 				my $p = $self->_make_curie($sast->predicate->uri, $prefixes);
 				$sadata->{$sas}->{$p} = $sast->predicate->uri;
 			}

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/librdf-rdfa-generator-perl.git