13 |
|
|
14 |
my $out = $self->output; |
my $out = $self->output; |
15 |
|
|
16 |
$out->start_section (id => 'parse-errors', title => 'Errors'); |
$out->start_section (role => 'parse-errors'); |
17 |
$out->start_tag ('dl'); |
$out->start_error_list (role => 'parse-errors'); |
18 |
|
|
19 |
$self->result->add_error (input => $self->input, |
$self->result->add_error (input => $self->input, |
20 |
level => 'u', |
level => 'u', |
21 |
layer => 'syntax', |
layer => 'syntax', |
22 |
type => 'media type not supported', |
type => 'media type not supported:syntax', |
23 |
text => $self->input->{media_type}); |
text => $self->input->{media_type}); |
24 |
|
|
25 |
$out->end_tag ('dl'); |
$out->end_error_list (role => 'parse-errors'); |
26 |
$out->end_section; |
$out->end_section; |
27 |
} # generate_syntax_error_section |
} # generate_syntax_error_section |
28 |
|
|