434 |
my $out = $result->output; |
my $out = $result->output; |
435 |
|
|
436 |
$out->start_section (role => 'transfer-errors'); |
$out->start_section (role => 'transfer-errors'); |
437 |
|
$out->start_error_list (role => 'transfer-errors'); |
438 |
|
|
439 |
$out->start_tag ('dl'); |
$result->layer_applicable ('transfer'); |
440 |
$result->add_error (layer => 'transfer', |
$result->add_error (layer => 'transfer', |
441 |
level => 'u', |
level => 'u', |
442 |
type => 'resource retrieval error', |
type => 'resource retrieval error', |
443 |
url => $self->{request_uri}, |
url => $self->{request_uri}, |
444 |
text => $self->{error_status_text}); |
text => $self->{error_status_text}); |
|
$out->end_tag ('dl'); |
|
445 |
|
|
446 |
|
$out->end_error_list (role => 'transfer-errors'); |
447 |
$out->end_section; |
$out->end_section; |
448 |
} # generate_transfer_sections |
} # generate_transfer_sections |
449 |
|
|
455 |
|
|
456 |
my $result = shift; |
my $result = shift; |
457 |
|
|
458 |
$self->WebHACC::Input::Error->generate_transfer_sections ($result); |
$self->WebHACC::Input::Error::generate_transfer_sections ($result); |
459 |
$self->WebHACC::Input::HTTP->generate_transfer_sections ($result); |
$self->WebHACC::Input::HTTP::generate_transfer_sections ($result); |
460 |
|
|
461 |
} # generate_transfer_sections |
} # generate_transfer_sections |
462 |
|
|