|
Lines 29-34
use C4::Log;
Link Here
|
| 29 |
use C4::Output; |
29 |
use C4::Output; |
| 30 |
use C4::Templates; |
30 |
use C4::Templates; |
| 31 |
use Koha::Acquisition::Currencies; |
31 |
use Koha::Acquisition::Currencies; |
|
|
32 |
use Koha::MarcModificationTemplates; |
| 32 |
use File::Spec; |
33 |
use File::Spec; |
| 33 |
use IO::File; |
34 |
use IO::File; |
| 34 |
use YAML::XS; |
35 |
use YAML::XS; |
|
Lines 103-108
sub _get_chunk {
Link Here
|
| 103 |
} elsif ( $options{choices} eq 'patron-categories' ) { |
104 |
} elsif ( $options{choices} eq 'patron-categories' ) { |
| 104 |
$options{choices} = { map { $_->categorycode => $_->description } Koha::Patron::Categories->search }; |
105 |
$options{choices} = { map { $_->categorycode => $_->description } Koha::Patron::Categories->search }; |
| 105 |
$add_blank = 1; |
106 |
$add_blank = 1; |
|
|
107 |
} elsif ( $options{choices} eq 'modification-templates' ) { |
| 108 |
$options{choices} = { map { $_->template_id => $_->name } Koha::MarcModificationTemplates->search }; |
| 109 |
$add_blank = 1; |
| 106 |
} else { |
110 |
} else { |
| 107 |
die 'Unrecognized source of preference values: ' . $options{'choices'}; |
111 |
die 'Unrecognized source of preference values: ' . $options{'choices'}; |
| 108 |
} |
112 |
} |