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