Attachment #151223 for bug #11844

View | Details | Raw Unified | Return to bug 11844
Collapse All | Expand All




use C4::Context;
use Koha::MarcSubfieldStructures;

=head1 METHODS

=head2 effective_authorised_value_category

Returns the authorised value category of the additional field or the authorised
value category of the MARC field, if any.

    my $av_category = $additional_field->effective_authorised_value_category;

=cut

sub effective_authorised_value_category {
    my ($self) = @_;





use C4::Context;
use Koha::ClassSources;

=head1 NAME

Koha::Template::Plugin::ClassSources - Template::Toolkit plugin for Koha Classification Source Object

=head1 METHODS

=head2 all

Return the list of class sources

    [% class_sources = ClassSources.all() %]
    [% class_sources = ClassSources.all({ selected => $selected }) %]

=cut

sub all {
    my ($self, $params) = @_;


Lines 61-67 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/additional-fields-entry.inc (-2 / +1 lines)
61	[% IF field.marcfield && field.marcfield_mode == 'get' %]	61	[% IF field.marcfield && field.marcfield_mode == 'get' %]
62	This value will be filled with the [% field.marcfield \| html %] subfield of the selected biblio.	62	This value will be filled with the [% field.marcfield \| html %] subfield of the selected biblio.
63	[% ELSIF field.marcfield && field.marcfield_mode == 'set' %]	63	[% ELSIF field.marcfield && field.marcfield_mode == 'set' %]
64	This value will be saved to the [% field.marcfield %] subfield of the selected biblio.	64	This value will be saved to the [% field.marcfield \| html %] subfield of the selected biblio.
65	[% END %]	65	[% END %]
66	</li>	66	</li>
67	[% END %]	67	[% END %]
68	-

Return to bug 11844

Lines 22-27 use base qw( Template::Plugin ); Link Here

(-)a/Koha/Template/Plugin/ClassSources.pm (+15 lines)
22	use C4::Context;	22	use C4::Context;
23	use Koha::ClassSources;	23	use Koha::ClassSources;
24		24
		25	=head1 NAME
		26
		27	Koha::Template::Plugin::ClassSources - Template::Toolkit plugin for Koha Classification Source Object
		28
		29	=head1 METHODS
		30
		31	=head2 all
		32
		33	Return the list of class sources
		34
		35	[% class_sources = ClassSources.all() %]
		36	[% class_sources = ClassSources.all({ selected => $selected }) %]
		37
		38	=cut
		39
25	sub all {	40	sub all {
26	my ($self, $params) = @_;	41	my ($self, $params) = @_;
27		42

Lines 13-18 use base qw(Koha::Object); Link Here

(-)a/Koha/AdditionalField.pm (+11 lines)
13	use C4::Context;	13	use C4::Context;
14	use Koha::MarcSubfieldStructures;	14	use Koha::MarcSubfieldStructures;
15		15
		16	=head1 METHODS
		17
		18	=head2 effective_authorised_value_category
		19
		20	Returns the authorised value category of the additional field or the authorised
		21	value category of the MARC field, if any.
		22
		23	my $av_category = $additional_field->effective_authorised_value_category;
		24
		25	=cut
		26
16	sub effective_authorised_value_category {	27	sub effective_authorised_value_category {
17	my ($self) = @_;	28	my ($self) = @_;
18		29