| 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 |
|
|