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

Diff of /test/html-webhacc/WebHACC/Language/CacheManifest.pm

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

revision 1.2 by wakaba, Sun Jul 20 16:53:10 2008 UTC revision 1.3 by wakaba, Mon Jul 21 08:39:12 2008 UTC
# Line 15  sub generate_syntax_error_section ($) { Line 15  sub generate_syntax_error_section ($) {
15    
16    my $out = $self->output;    my $out = $self->output;
17    
18    $out->start_section (id => 'parse-errors', title => 'Parse Errors');    $out->start_section (role => 'parse-errors');
19    $out->start_tag ('dl', id => 'parse-errors-list');    $out->start_error_list (role => 'parse-errors');
20    
21    my $input = $self->input;    my $input = $self->input;
22    my $result = $self->result;    my $result = $self->result;
# Line 26  sub generate_syntax_error_section ($) { Line 26  sub generate_syntax_error_section ($) {
26        ($input->{s}, $input->{uri}, $input->{base_uri}, sub {        ($input->{s}, $input->{uri}, $input->{base_uri}, sub {
27          $result->add_error (@_, layer => 'syntax', index_has_link => 1);          $result->add_error (@_, layer => 'syntax', index_has_link => 1);
28        });        });
29          
30    $out->end_tag ('dl');    $out->end_error_list (role => 'parse-errors');
31    $out->end_section;    $out->end_section;
32  } # generate_syntax_error_section  } # generate_syntax_error_section
33    
# Line 35  sub generate_structure_dump_section ($) Line 35  sub generate_structure_dump_section ($)
35    my $self = shift;    my $self = shift;
36    my $manifest = $self->{structure};    my $manifest = $self->{structure};
37    
38    $self->start_section (id => 'dump-manifest', title => 'Cache Manifest');    $self->start_section (role => 'structure');
39    
40    $self->html (qq[<dl><dt>Explicit entries</dt>]);    $self->html (qq[<dl><dt>Explicit entries</dt>]);
41    my $i = 0;    my $i = 0;
# Line 71  sub generate_structure_error_section ($) Line 71  sub generate_structure_error_section ($)
71    
72    my $out = $self->output;    my $out = $self->output;
73    
74    $out->start_section (id => 'document-errors', title => 'Document Errors');    $out->start_section (role => 'structure-errors');
75    $out->start_tag ('dl');    $out->start_error_list (role => 'structure-errors');
76    
77    my $result = $out->result;    my $result = $out->result;
78    
# Line 80  sub generate_structure_error_section ($) Line 80  sub generate_structure_error_section ($)
80      $result->add_error (@_, layer => 'structure');      $result->add_error (@_, layer => 'structure');
81    });    });
82    
83      $out->end_error_list;
84    $out->end_section;    $out->end_section;
85  } # generate_structure_error_section  } # generate_structure_error_section
86    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24