View | Details | Raw Unified | Return to bug 17704
Collapse All | Expand All

(-)a/Koha/OAI/Server/Repository.pm (-5 / +18 lines)
Lines 99-105 Note the 'include_items' parameter which is the only mean to return item-level i Link Here
99
99
100
=cut
100
=cut
101
101
102
103
sub new {
102
sub new {
104
    my ($class, %args) = @_;
103
    my ($class, %args) = @_;
105
    my $self = $class->SUPER::new(%args);
104
    my $self = $class->SUPER::new(%args);
Lines 150-158 sub new { Link Here
150
        $response = $class->new($self, %attr);
149
        $response = $class->new($self, %attr);
151
    }
150
    }
152
151
153
    $response->set_handler( XML::SAX::Writer->new( Output => *STDOUT ) );
152
    my $w = XML::SAX::Writer->new( Output => *STDOUT );
154
    $response->xslt( "/opac-tmpl/xslt/OAI.xslt" );
153
155
    $response->generate;
154
    my $driver = HTTP::OAI::SAX::Driver->new(
155
            Handler => my $builder = XML::LibXML::SAX::Builder->new()
156
        );
157
158
    $self->{ driver  } = $driver;
159
    $self->{ builder } = $builder;
160
161
    $driver->start_oai_pmh();
162
163
    $response->set_handler($w);
164
    #$response->xslt( "/opac-tmpl/xslt/OAI.xslt" );
165
    $response->generate($driver);
166
167
    $driver->end_oai_pmh();
168
169
    print $builder->result;
156
170
157
    bless $self, $class;
171
    bless $self, $class;
158
    return $self;
172
    return $self;
159
- 

Return to bug 17704