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