1032 |
|
|
1033 |
sub get_rdf_resource_html ($) { |
sub get_rdf_resource_html ($) { |
1034 |
my $resource = shift; |
my $resource = shift; |
1035 |
if ($resource->{uri}) { |
if (defined $resource->{uri}) { |
1036 |
my $euri = htescape ($resource->{uri}); |
my $euri = htescape ($resource->{uri}); |
1037 |
return '<code class=uri><<a href="' . $euri . '">' . $euri . |
return '<code class=uri><<a href="' . $euri . '">' . $euri . |
1038 |
'</a>></code>'; |
'</a>></code>'; |
1039 |
} elsif ($resource->{bnodeid}) { |
} elsif (defined $resource->{bnodeid}) { |
1040 |
return htescape ('_:' . $resource->{bnodeid}); |
return htescape ('_:' . $resource->{bnodeid}); |
1041 |
} elsif ($resource->{nodes}) { |
} elsif ($resource->{nodes}) { |
1042 |
return '(rdf:XMLLiteral)'; |
return '(rdf:XMLLiteral)'; |