Lines 28-33
use C4::ClassSource qw( GetClassSources GetClassSource );
Link Here
|
28 |
use C4::Output qw( output_html_with_http_headers ); |
28 |
use C4::Output qw( output_html_with_http_headers ); |
29 |
use C4::Templates; |
29 |
use C4::Templates; |
30 |
use Koha::Acquisition::Currencies; |
30 |
use Koha::Acquisition::Currencies; |
|
|
31 |
use Koha::MarcModificationTemplates; |
31 |
use IO::File; |
32 |
use IO::File; |
32 |
use YAML::XS; |
33 |
use YAML::XS; |
33 |
use Encode; |
34 |
use Encode; |
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 'marc-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 |
} |