/[suikacvs]/test/html-webhacc/WebHACC/Output.pm
Suika

Diff of /test/html-webhacc/WebHACC/Output.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by wakaba, Fri Aug 15 12:11:56 2008 UTC revision 1.19 by wakaba, Fri Aug 15 14:11:13 2008 UTC
# Line 341  sub xref ($$%) { Line 341  sub xref ($$%) {
341    $self->html ('</a>');    $self->html ('</a>');
342  } # xref  } # xref
343    
344    sub xref_text ($$%) {
345      my ($self, $content, %opt) = @_;
346      $self->html ('<a href="#' . $htescape->($self->input->id_prefix . $opt{target}) . '">');
347      $self->text ($content);
348      $self->html ('</a>');
349    } # xref
350    
351  sub link_to_webhacc ($$%) {  sub link_to_webhacc ($$%) {
352    my ($self, $content, %opt) = @_;    my ($self, $content, %opt) = @_;
353    $opt{url} = './?uri=' . $self->encode_url_component ($opt{url});    $opt{url} = './?uri=' . $self->encode_url_component ($opt{url});
# Line 394  my $get_object_path = sub ($) { Line 401  my $get_object_path = sub ($) {
401  sub node_link ($$) {  sub node_link ($$) {
402    my ($self, $node) = @_;    my ($self, $node) = @_;
403    if ($node->isa ('Message::IF::Node')) {    if ($node->isa ('Message::IF::Node')) {
404      $self->xref ($get_node_path->($node), target => 'node-' . refaddr $node);      $self->xref_text ($get_node_path->($node),
405                          target => 'node-' . refaddr $node);
406    } else {    } else {
407      $self->html ($get_object_path->($node));      $self->html ($get_object_path->($node));
408    }    }
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24