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

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

Return to bug 17704