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

Diff of /test/html-webhacc/WebHACC/Input.pm

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

revision 1.8 by wakaba, Thu Aug 14 15:50:42 2008 UTC revision 1.10 by wakaba, Sat Aug 16 07:42:20 2008 UTC
# Line 348  package WebHACC::Input::Subdocument; Line 348  package WebHACC::Input::Subdocument;
348  push our @ISA, 'WebHACC::Input';  push our @ISA, 'WebHACC::Input';
349    
350  sub new ($$) {  sub new ($$) {
351    my $self = bless {}, shift;    my $self = shift->SUPER::new;
352    $self->{subdocument_index} = shift;    $self->{subdocument_index} = shift;
353    return $self;    return $self;
354  } # new  } # new
# Line 434  sub generate_transfer_sections ($$) { Line 434  sub generate_transfer_sections ($$) {
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    
# Line 454  sub generate_transfer_sections ($$) { Line 455  sub generate_transfer_sections ($$) {
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    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24