Lines 99-106
sub new {
Link Here
|
99 |
unshift @{ $self->{yaz_options} }, '-v', 'none,fatal'; |
99 |
unshift @{ $self->{yaz_options} }, '-v', 'none,fatal'; |
100 |
} |
100 |
} |
101 |
|
101 |
|
102 |
# Set main config for SRU support |
102 |
# Set main config for SRU support and working directory |
103 |
unshift @{ $self->{yaz_options} }, '-f', $self->{config_dir} . 'config.xml' if $self->{config_dir}; |
103 |
if ( $self->{config_dir} ) { |
|
|
104 |
unshift @{ $self->{yaz_options} }, '-f', $self->{config_dir} . 'config.xml'; |
105 |
unshift @{ $self->{yaz_options} }, '-w', $self->{config_dir}; |
106 |
} |
104 |
|
107 |
|
105 |
# Set num to prefetch if not passed |
108 |
# Set num to prefetch if not passed |
106 |
$self->{num_to_prefetch} //= 20; |
109 |
$self->{num_to_prefetch} //= 20; |
107 |
- |
|
|