| 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)'; |