/[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.16 by wakaba, Fri Aug 15 05:53:23 2008 UTC revision 1.20 by wakaba, Fri Aug 15 16:44:03 2008 UTC
# Line 181  sub start_section ($%) { Line 181  sub start_section ($%) {
181      if ($self->{section_rank} == 2 or length $opt{parent_id}) {      if ($self->{section_rank} == 2 or length $opt{parent_id}) {
182        my $st = $opt{short_title} || $opt{title};        my $st = $opt{short_title} || $opt{title};
183        push @{$self->{nav}},        push @{$self->{nav}},
184            [$id => $st => $opt{text}];            [$id => $st => $opt{text}] if $self->{section_rank} == 2;
185                
186        $self->start_tag ('script');        $self->start_tag ('script');
187        $self->html (qq[ addSectionLink ('$id', ']);        $self->html (qq[ addSectionLink ('$id', ']);
# 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) : ''
# Line 627  sub generate_input_section ($$) { Line 638  sub generate_input_section ($$) {
638    $out->end_tag ('form');    $out->end_tag ('form');
639    $out->end_section;    $out->end_section;
640    
   $out->end_tag ('fieldset');  
   
641    ## TODO: File upload    ## TODO: File upload
642    
643    $out->start_section (id => 'input-text', title => 'By direct input',    $out->start_section (id => 'input-text', title => 'By direct input',
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.20
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24