|
Lines 157-162
sub new {
Link Here
|
| 157 |
$response = $class->new( $self, %attr ); |
157 |
$response = $class->new( $self, %attr ); |
| 158 |
} |
158 |
} |
| 159 |
|
159 |
|
|
|
160 |
# Strip trailing slash from requestURL for CGI.pm 4.68+ compatibility |
| 161 |
my $url = $response->requestURL(); |
| 162 |
$url =~ s{/$}{}; |
| 163 |
$response->requestURL($url); |
| 164 |
|
| 160 |
$response->set_handler( XML::SAX::Writer->new( Output => *STDOUT ) ); |
165 |
$response->set_handler( XML::SAX::Writer->new( Output => *STDOUT ) ); |
| 161 |
$response->xslt("/opac-tmpl/xslt/OAI.xslt"); |
166 |
$response->xslt("/opac-tmpl/xslt/OAI.xslt"); |
| 162 |
$response->generate; |
167 |
$response->generate; |
| 163 |
- |
|
|