| 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)'; |
| 1282 |
while (defined $node) { |
while (defined $node) { |
| 1283 |
my $rs; |
my $rs; |
| 1284 |
if ($node->node_type == 1) { |
if ($node->node_type == 1) { |
| 1285 |
$rs = $node->manakai_local_name; |
$rs = $node->node_name; |
| 1286 |
$node = $node->parent_node; |
$node = $node->parent_node; |
| 1287 |
} elsif ($node->node_type == 2) { |
} elsif ($node->node_type == 2) { |
| 1288 |
$rs = '@' . $node->manakai_local_name; |
$rs = '@' . $node->node_name; |
| 1289 |
$node = $node->owner_element; |
$node = $node->owner_element; |
| 1290 |
} elsif ($node->node_type == 3) { |
} elsif ($node->node_type == 3) { |
| 1291 |
$rs = '"' . $node->data . '"'; |
$rs = '"' . $node->data . '"'; |
Parent Directory
| 
Revision Log
| 
Patch