/[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.17 by wakaba, Fri Aug 15 08:36:41 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    }    }
# Line 443  sub nl_text ($$;%) { Line 451  sub nl_text ($$;%) {
451          $msg =~ s{<var>{text}</var>}{          $msg =~ s{<var>{text}</var>}{
452            defined $opt{text} ? $htescape->($opt{text}) : ''            defined $opt{text} ? $htescape->($opt{text}) : ''
453          }ge;          }ge;
454            $msg =~ s{<var>{value}</var>}{
455              defined $opt{value} ? $htescape->($opt{value}) : ''
456            }ge;
457          $msg =~ s{<var>{local-name}</var>}{          $msg =~ s{<var>{local-name}</var>}{
458            UNIVERSAL::can ($node, 'manakai_local_name')            UNIVERSAL::can ($node, 'manakai_local_name')
459              ? $htescape->($node->manakai_local_name) : ''              ? $htescape->($node->manakai_local_name) : ''
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.19
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24