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