Attachment #143115 for bug #26573

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




    Koha::Patron::Attributes->_new_from_dbic($attributes_rs);
}

=head3 categories

Get or set attribute type's categories

    my @categories = $attribute_type->categories->as_list;
    $attribute_type->categories(\@categories);

=cut

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

    if ($categories) {
        my @categorycodes = map { $_->_result } @$categories;
        $self->_result->set_categorycodes(\@categorycodes);
        return $self;
    }

    my $rs = $self->_result->categorycodes;
    return Koha::Patron::Categories->_new_from_dbic($rs);
}

=head2 Internal Methods

=cut

Lines 121-127 sub add_update_attribute_type { Link Here

(-)a/admin/patron-attr-types.pl (-2 / +6 lines)
121	my $mandatory = $input->param('mandatory') ? 1 : 0;	121	my $mandatory = $input->param('mandatory') ? 1 : 0;
122	my $authorised_value_category = $input->param('authorised_value_category');	122	my $authorised_value_category = $input->param('authorised_value_category');
123	my $display_checkout = $input->param('display_checkout') ? 1 : 0;	123	my $display_checkout = $input->param('display_checkout') ? 1 : 0;
124	my $category_code = $input->param('category_code') \|\| undef;
125	my $class = $input->param('class');	124	my $class = $input->param('class');
126		125
127	my $attr_type = Koha::Patron::Attribute::Types->find($code);	126	my $attr_type = Koha::Patron::Attribute::Types->find($code);
Lines 156-162 sub add_update_attribute_type { Link Here
156	mandatory => $mandatory,	155	mandatory => $mandatory,
157	authorised_value_category => $authorised_value_category,	156	authorised_value_category => $authorised_value_category,
158	display_checkout => $display_checkout,	157	display_checkout => $display_checkout,
159	category_code => $category_code,
160	class => $class,	158	class => $class,
161	}	159	}
162	)->store;	160	)->store;
Lines 164-169 sub add_update_attribute_type { Link Here
164	my @branches = grep { ! /^\s*$/ } $input->multi_param('branches');	162	my @branches = grep { ! /^\s*$/ } $input->multi_param('branches');
165	$attr_type->library_limits( \@branches );	163	$attr_type->library_limits( \@branches );
166		164
		165	my @categories = grep { ! /^\s*$/ } $input->multi_param('category_code');
		166	$attr_type->categories([
		167	Koha::Patron::Categories->search({ categorycode => \@categories })->as_list
		168	]);
		169
167	if ( $op eq 'edit' ) {	170	if ( $op eq 'edit' ) {
168	$template->param( edited_attribute_type => $attr_type->code() );	171	$template->param( edited_attribute_type => $attr_type->code() );
169	}	172	}
Lines 236-241 sub edit_attribute_type_form { Link Here
236	$can_be_set_to_unique = 0 if $@;	239	$can_be_set_to_unique = 0 if $@;
237	$attr_type->unique_id(0);	240	$attr_type->unique_id(0);
238	}	241	}
		242
239	$template->param(	243	$template->param(
240	attribute_type => $attr_type,	244	attribute_type => $attr_type,
241	attribute_type_form => 1,	245	attribute_type_form => 1,




use Modern::Perl;

return {
    bug_number => '26573',
    description => 'Add table borrower_attribute_types_categories',
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};

        $dbh->do(q{
            CREATE TABLE IF NOT EXISTS `borrower_attribute_types_categories` (
                `borrower_attribute_type_code` varchar(10) COLLATE utf8mb4_unicode_ci NOT NULL,
                `categorycode` varchar(10) COLLATE utf8mb4_unicode_ci NOT NULL,
                KEY `borrower_attribute_type_code` (`borrower_attribute_type_code`),
                KEY `categorycode` (`categorycode`),
                CONSTRAINT `borrower_attribute_types_categories_borrower_attribute_type_code` FOREIGN KEY (`borrower_attribute_type_code`) REFERENCES `borrower_attribute_types` (`code`) ON DELETE CASCADE ON UPDATE CASCADE,
                CONSTRAINT `borrower_attribute_types_categories_categorycode` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`) ON DELETE CASCADE ON UPDATE CASCADE,
                PRIMARY KEY (`borrower_attribute_type_code`, `categorycode`)
            ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
        });

        say $out "Table 'borrower_attribute_types_categories' created";

        if (column_exists('borrower_attribute_types', 'category_code')) {
            $dbh->do(q{
                INSERT IGNORE INTO borrower_attribute_types_categories (borrower_attribute_type_code, categorycode)
                SELECT `code`, `category_code` FROM `borrower_attribute_types`
                WHERE `category_code` IS NOT NULL
            });

            say $out "Data migrated from 'borrower_attribute_types.category_code' to 'borrower_attribute_types_categories'";

            $dbh->do(q{
                ALTER TABLE `borrower_attribute_types`
                DROP FOREIGN KEY `borrower_attribute_types_ibfk_1`
            });
            $dbh->do(q{
                ALTER TABLE `borrower_attribute_types`
                DROP COLUMN `category_code`
            });

            say $out "Column 'borrower_attribute_types.category_code' deleted";
        }
    },
};




  `staff_searchable` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if this field is searchable via the patron search in the staff interface (1 for yes, 0 for no)',
  `authorised_value_category` varchar(32) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'foreign key from authorised_values that links this custom field to an authorized value category',
  `display_checkout` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if this field displays in checkout screens',
  `category_code` varchar(10) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'defines a category for an attribute_type',
  `class` varchar(255) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '' COMMENT 'defines a class for an attribute_type',
  `keep_for_pseudonymization` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if this field is copied to anonymized_borrower_attributes (1 for yes, 0 for no)',
  `mandatory` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if the attribute is mandatory or not',
  PRIMARY KEY (`code`),
  KEY `auth_val_cat_idx` (`authorised_value_category`),
  KEY `category_code` (`category_code`),
  CONSTRAINT `borrower_attribute_types_ibfk_1` FOREIGN KEY (`category_code`) REFERENCES `categories` (`categorycode`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
/*!40101 SET character_set_client = @saved_cs_client */;


) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Table structure for table `borrower_attribute_types_categories`
--

DROP TABLE IF EXISTS `borrower_attribute_types_categories`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `borrower_attribute_types_categories` (
  `borrower_attribute_type_code` varchar(10) COLLATE utf8mb4_unicode_ci NOT NULL,
  `categorycode` varchar(10) COLLATE utf8mb4_unicode_ci NOT NULL,
  KEY `borrower_attribute_type_code` (`borrower_attribute_type_code`),
  KEY `categorycode` (`categorycode`),
  CONSTRAINT `borrower_attribute_types_categories_borrower_attribute_type_code` FOREIGN KEY (`borrower_attribute_type_code`) REFERENCES `borrower_attribute_types` (`code`) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT `borrower_attribute_types_categories_categorycode` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`) ON DELETE CASCADE ON UPDATE CASCADE,
  PRIMARY KEY (`borrower_attribute_type_code`, `categorycode`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Table structure for table `borrower_attributes`
--




        </li>
        <li>
            <label for="category">Category: </label>
            <select name="category_code" id="category" multiple size="10">
                <option value="">All categories</option>
                [% FOREACH category IN categories %]
                    [% SET selected = 0 %]
                    [% IF attribute_type %]
                        [% FOREACH cat IN attribute_type.categories %]
                            [% IF cat.categorycode == category.categorycode %]
                                [% SET selected = 1 %]
                            [% END %]
                        [% END %]
                    [% END %]
                    [% IF selected %]
                        <option value="[% category.categorycode | html %]" selected>[% category.description |html %]</option>
                    [% ELSE %]
                        <option value="[% category.categorycode | html %]">[% category.description |html %]</option>
                    [% END %]
                [% END %]
            </select>
            <div class="hint">Select "All categories" if this attribute type should always be displayed. Otherwise select categories you want to associate with this value.</div>
        </li>
        <li>
            <label for="class">Class: </label>

            if ( $("#branches option:selected").length < 1 ) {
                $("#branches option:first").attr("selected", "selected");
            }
            if ( $("#category option:selected").length < 1 ) {
                $("#category option:first").attr("selected", "selected");
            }

            $("#opac_display").change( function() {
                if ( this.checked ) {

Lines 1546-1552 legend:hover { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt (-1 / +1 lines)
1546	<legend id="[% pa_loo.class \| html %]_lgd">[% pa_loo.lib \| html %]</legend>	1546	<legend id="[% pa_loo.class \| html %]_lgd">[% pa_loo.lib \| html %]</legend>
1547	[% END %]	1547	[% END %]
1548	[% FOREACH patron_attribute IN pa_loo.items %]	1548	[% FOREACH patron_attribute IN pa_loo.items %]
1549	<li data-category_code="[% patron_attribute.category_code \| html %]">	1549	<li data-category_code="[% patron_attribute.categorycodes.join(' ') \| html %]">
1550	[% IF patron_attribute.mandatory %]	1550	[% IF patron_attribute.mandatory %]
1551	<label for="[% patron_attribute.form_id \| html %]" class="required" required="required">[% patron_attribute.description \| html %]: </label>	1551	<label for="[% patron_attribute.form_id \| html %]" class="required" required="required">[% patron_attribute.description \| html %]: </label>
1552	[% ELSE %]	1552	[% ELSE %]

Lines 248-254 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/borrowers_stats.tt (-1 / +1 lines)
248	</tr>	248	</tr>
249	[% END %]	249	[% END %]
250	[% FOREACH patron_attribute IN pa_loo.items %]	250	[% FOREACH patron_attribute IN pa_loo.items %]
251	<tr data-category_code="[% patron_attribute.category_code \| html %]">	251	<tr>
252	<td>	252	<td>
253	[% patron_attribute.code \| html %]	253	[% patron_attribute.code \| html %]
254	([% patron_attribute.description \| html %])	254	([% patron_attribute.description \| html %])

Lines 518-524 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt (-1 / +1 lines)
518	information_category_node.html("");	518	information_category_node.html("");
519		519
520	if ( category && category.length > 0 ) {	520	if ( category && category.length > 0 ) {
521	information_category_node.html(_("This attribute will be only applied to the patron's category %s").format(category));	521	information_category_node.html(_("This attribute will be only applied to the following patron categories: %s").format(category));
522	}	522	}
523	var disable_input_node = $(li_node).find("input:checkbox[name='disable_input']");	523	var disable_input_node = $(li_node).find("input:checkbox[name='disable_input']");
524	if ( type == 'select' ) {	524	if ( type == 'select' ) {

Lines 66-72 function update_category_code(category_code) { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/js/members.js (-1 / +1 lines)
66	}	66	}
67	var mytables = $(".attributes_table");	67	var mytables = $(".attributes_table");
68	$(mytables).find("li").hide();	68	$(mytables).find("li").hide();
69	$(mytables).find(" li[data-category_code='"+category_code+"']").show();	69	$(mytables).find(" li[data-category_code~='"+category_code+"']").show();
70	$(mytables).find(" li[data-category_code='']").show();	70	$(mytables).find(" li[data-category_code='']").show();
71		71
72	//Change password length hint	72	//Change password length hint

Lines 920-926 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-memberentry.tt (-1 / +1 lines)
920	[% FOREACH pa_value IN pa.values %]	920	[% FOREACH pa_value IN pa.values %]
921	[% IF loop.first %]<a name="patron-attr-start-[% pa.type.code \| html %]"></a>[% END %]	921	[% IF loop.first %]<a name="patron-attr-start-[% pa.type.code \| html %]"></a>[% END %]
922	[% form_id = 'patron-attr-' _ Math.int( Math.rand(1000000) ) %]	922	[% form_id = 'patron-attr-' _ Math.int( Math.rand(1000000) ) %]
923	<li data-category_code="[% pa.type.category_code \| html %]">	923	<li>
924	[% IF pa.type.mandatory && pa.type.opac_editable %]	924	[% IF pa.type.mandatory && pa.type.opac_editable %]
925	<label for="[% form_id \| html %]" class="required">[% pa.type.description \| html %]: </label>	925	<label for="[% form_id \| html %]" class="required">[% pa.type.description \| html %]: </label>
926	[% ELSE %]	926	[% ELSE %]

Lines 857-863 sub patron_attributes_form { Link Here

(-)a/members/memberentry.pl (-1 / +1 lines)
857	description => $attr_type->description(),	857	description => $attr_type->description(),
858	repeatable => $attr_type->repeatable(),	858	repeatable => $attr_type->repeatable(),
859	category => $attr_type->authorised_value_category(),	859	category => $attr_type->authorised_value_category(),
860	category_code => $attr_type->category_code(),	860	categorycodes => [ map { $_->categorycode } $attr_type->categories->as_list ],
861	mandatory => $attr_type->mandatory(),	861	mandatory => $attr_type->mandatory(),
862	};	862	};
863	if (exists $attr_hash{$attr_type->code()}) {	863	if (exists $attr_hash{$attr_type->code()}) {

Lines 486-492 sub patron_attributes_form { Link Here

(-)a/reports/borrowers_stats.pl (-1 lines)
486	description => $attr_type->description(),	486	description => $attr_type->description(),
487	repeatable => $attr_type->repeatable(),	487	repeatable => $attr_type->repeatable(),
488	category => $attr_type->authorised_value_category(),	488	category => $attr_type->authorised_value_category(),
489	category_code => $attr_type->category_code(),
490	};	489	};
491		490
492	my $newentry = { %$entry };	491	my $newentry = { %$entry };




my $attr_type    = $builder->build(
    {
        source => 'BorrowerAttributeType',
        value  => {
            category_code => $categorycode
        }
    }
);
my $attr_type2    = $builder->build(
    {
        source => 'BorrowerAttributeType',
        value  => {
            category_code => $categorycode
        }
    }
);


Lines 230-236 subtest 'store() tests' => sub { Link Here

(-)a/t/db_dependent/Koha/Patron/Attribute.t (-1 lines)
230	mandatory => 0,	230	mandatory => 0,
231	repeatable => 0,	231	repeatable => 0,
232	unique_id => 1,	232	unique_id => 1,
233	category_code => undef
234	}	233	}
235	}	234	}
236	);	235	);




#!/usr/bin/perl

use Modern::Perl;

use Test::More;
use Koha::Database;
use t::lib::TestBuilder;

plan tests => 2;

my $schema  = Koha::Database->new->schema;
my $builder = t::lib::TestBuilder->new;

use_ok('Koha::Patron::Attribute::Type');

subtest 'categories' => sub {
    plan tests => 1;

    $schema->storage->txn_begin;

    my $category1 = $builder->build_object( { class => 'Koha::Patron::Categories' } );
    my $category2 = $builder->build_object( { class => 'Koha::Patron::Categories' } );
    Koha::Patron::Attribute::Types->delete();
    my $attribute_type = Koha::Patron::Attribute::Type->new({
        code => 'TEST',
        description => 'Test attribute type',
    });
    $attribute_type->store();
    $attribute_type->categories([ $category1, $category2 ]);
    $attribute_type->store();
    my @categories = $attribute_type->categories->as_list;
    is (scalar @categories, 2);

    $schema->storage->txn_rollback;
};




    is( Koha::Patron::Attribute::Types->search()->count,
        1, 'Only one object created' );

    my $attribute_type_2 = Koha::Patron::Attribute::Type->new(
        = $builder->build( { source => 'Category' } )->{categorycode};

    my $attribute_type_with_category = Koha::Patron::Attribute::Type->new(
        {   code          => 'code_2',
            description   => 'description',
            category_code => $cateogory_code,
            repeatable    => 0
        }
    )->store();

Lines 506-512 subtest 'add() tests' => sub { Link Here

(-)a/t/db_dependent/api/v1/patrons.t (-2 lines)
506	mandatory => 0,	506	mandatory => 0,
507	repeatable => 1,	507	repeatable => 1,
508	unique => 0,	508	unique => 0,
509	category_code => 'ST'
510	}	509	}
511	}	510	}
512	);	511	);
Lines 517-523 subtest 'add() tests' => sub { Link Here
517	mandatory => 0,	516	mandatory => 0,
518	repeatable => 1,	517	repeatable => 1,
519	unique => 0,	518	unique => 0,
520	category_code => 'ST'
521	}	519	}
522	}	520	}
523	);	521	);




                mandatory     => 1,
                repeatable    => 0,
                unique_id     => 0,
                category_code => undef
            }
        }
    );

                mandatory     => 0,
                repeatable    => 1,
                unique_id     => 0,
                category_code => undef
            }
        }
    );

                mandatory     => 0,
                repeatable    => 0,
                unique_id     => 1,
                category_code => undef
            }
        }
    );

                mandatory     => 1,
                repeatable    => 0,
                unique_id     => 0,
                category_code => undef
            }
        }
    );

                mandatory     => 0,
                repeatable    => 1,
                unique_id     => 0,
                category_code => undef
            }
        }
    );

                mandatory     => 0,
                repeatable    => 0,
                unique_id     => 1,
                category_code => undef
            }
        }
    );

                mandatory     => 0,
                repeatable    => 1,
                unique_id     => 0,
                category_code => undef
            }
        }
    );

                mandatory     => 0,
                repeatable    => 1,
                unique_id     => 0,
                category_code => undef
            }
        }
    );

                mandatory     => 0,
                repeatable    => 0,
                unique_id     => 1,
                category_code => undef
            }
        }
    );

Lines 149-158 if ( $op eq 'show' ) { Link Here

(-)a/tools/modborrowers.pl (-5 / +2 lines)
149	options => $options,	149	options => $options,
150	};	150	};
151		151
152	my $category_code = $attr_type->category_code;	152	my @categories = $attr_type->categories->as_list;
153	my ( $category_lib ) = map {	153	my ( $category_lib ) = join(', ', map { $_->description } @categories);
154	( defined $category_code and $attr_type->category_code eq $category_code ) ? $attr_type->description : ()
155	} @patron_categories;
156	push @patron_attributes_codes,	154	push @patron_attributes_codes,
157	{	155	{
158	attribute_code => $attr_type->code,	156	attribute_code => $attr_type->code,
159	-

Return to bug 26573

Lines 1129-1142 CREATE TABLE `borrower_attribute_types` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-3 / +18 lines)
1129	`staff_searchable` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if this field is searchable via the patron search in the staff interface (1 for yes, 0 for no)',	1129	`staff_searchable` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if this field is searchable via the patron search in the staff interface (1 for yes, 0 for no)',
1130	`authorised_value_category` varchar(32) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'foreign key from authorised_values that links this custom field to an authorized value category',	1130	`authorised_value_category` varchar(32) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'foreign key from authorised_values that links this custom field to an authorized value category',
1131	`display_checkout` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if this field displays in checkout screens',	1131	`display_checkout` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if this field displays in checkout screens',
1132	`category_code` varchar(10) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'defines a category for an attribute_type',
1133	`class` varchar(255) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '' COMMENT 'defines a class for an attribute_type',	1132	`class` varchar(255) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '' COMMENT 'defines a class for an attribute_type',
1134	`keep_for_pseudonymization` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if this field is copied to anonymized_borrower_attributes (1 for yes, 0 for no)',	1133	`keep_for_pseudonymization` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if this field is copied to anonymized_borrower_attributes (1 for yes, 0 for no)',
1135	`mandatory` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if the attribute is mandatory or not',	1134	`mandatory` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'defines if the attribute is mandatory or not',
1136	PRIMARY KEY (`code`),	1135	PRIMARY KEY (`code`),
1137	KEY `auth_val_cat_idx` (`authorised_value_category`),	1136	KEY `auth_val_cat_idx` (`authorised_value_category`),
1138	KEY `category_code` (`category_code`),
1139	CONSTRAINT `borrower_attribute_types_ibfk_1` FOREIGN KEY (`category_code`) REFERENCES `categories` (`categorycode`)
1140	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;	1137	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
1141	/!40101 SET character_set_client = @saved_cs_client /;	1138	/!40101 SET character_set_client = @saved_cs_client /;
1142		1139
Lines 1157-1162 CREATE TABLE `borrower_attribute_types_branches` ( Link Here
1157	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;	1154	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
1158	/!40101 SET character_set_client = @saved_cs_client /;	1155	/!40101 SET character_set_client = @saved_cs_client /;
1159		1156
		1157	--
		1158	-- Table structure for table `borrower_attribute_types_categories`
		1159	--
		1160
		1161	DROP TABLE IF EXISTS `borrower_attribute_types_categories`;
		1162	/!40101 SET @saved_cs_client = @@character_set_client /;
		1163	/!40101 SET character_set_client = utf8 /;
		1164	CREATE TABLE `borrower_attribute_types_categories` (
		1165	`borrower_attribute_type_code` varchar(10) COLLATE utf8mb4_unicode_ci NOT NULL,
		1166	`categorycode` varchar(10) COLLATE utf8mb4_unicode_ci NOT NULL,
		1167	KEY `borrower_attribute_type_code` (`borrower_attribute_type_code`),
		1168	KEY `categorycode` (`categorycode`),
		1169	CONSTRAINT `borrower_attribute_types_categories_borrower_attribute_type_code` FOREIGN KEY (`borrower_attribute_type_code`) REFERENCES `borrower_attribute_types` (`code`) ON DELETE CASCADE ON UPDATE CASCADE,
		1170	CONSTRAINT `borrower_attribute_types_categories_categorycode` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`) ON DELETE CASCADE ON UPDATE CASCADE,
		1171	PRIMARY KEY (`borrower_attribute_type_code`, `categorycode`)
		1172	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
		1173	/!40101 SET character_set_client = @saved_cs_client /;
		1174
1160	--	1175	--
1161	-- Table structure for table `borrower_attributes`	1176	-- Table structure for table `borrower_attributes`
1162	--	1177	--

Lines 60-65 sub attributes { Link Here

(-)a/Koha/Patron/Attribute/Type.pm (+22 lines)
60	Koha::Patron::Attributes->_new_from_dbic($attributes_rs);	60	Koha::Patron::Attributes->_new_from_dbic($attributes_rs);
61	}	61	}
62		62
		63	=head3 categories
		64
		65	Get or set attribute type's categories
		66
		67	my @categories = $attribute_type->categories->as_list;
		68	$attribute_type->categories(\@categories);
		69
		70	=cut
		71
		72	sub categories {
		73	my ($self, $categories) = @_;
		74
		75	if ($categories) {
		76	my @categorycodes = map { $_->_result } @$categories;
		77	$self->_result->set_categorycodes(\@categorycodes);
		78	return $self;
		79	}
		80
		81	my $rs = $self->_result->categorycodes;
		82	return Koha::Patron::Categories->_new_from_dbic($rs);
		83	}
		84
63	=head2 Internal Methods	85	=head2 Internal Methods
64		86
65	=cut	87	=cut

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug-26573.pl (+45 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => '26573',
	5	description => 'Add table borrower_attribute_types_categories',
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out)};
	9
	10	$dbh->do(q{
	11	CREATE TABLE IF NOT EXISTS `borrower_attribute_types_categories` (
	12	`borrower_attribute_type_code` varchar(10) COLLATE utf8mb4_unicode_ci NOT NULL,
	13	`categorycode` varchar(10) COLLATE utf8mb4_unicode_ci NOT NULL,
	14	KEY `borrower_attribute_type_code` (`borrower_attribute_type_code`),
	15	KEY `categorycode` (`categorycode`),
	16	CONSTRAINT `borrower_attribute_types_categories_borrower_attribute_type_code` FOREIGN KEY (`borrower_attribute_type_code`) REFERENCES `borrower_attribute_types` (`code`) ON DELETE CASCADE ON UPDATE CASCADE,
	17	CONSTRAINT `borrower_attribute_types_categories_categorycode` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`) ON DELETE CASCADE ON UPDATE CASCADE,
	18	PRIMARY KEY (`borrower_attribute_type_code`, `categorycode`)
	19	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
	20	});
	21
	22	say $out "Table 'borrower_attribute_types_categories' created";
	23
	24	if (column_exists('borrower_attribute_types', 'category_code')) {
	25	$dbh->do(q{
	26	INSERT IGNORE INTO borrower_attribute_types_categories (borrower_attribute_type_code, categorycode)
	27	SELECT `code`, `category_code` FROM `borrower_attribute_types`
	28	WHERE `category_code` IS NOT NULL
	29	});
	30
	31	say $out "Data migrated from 'borrower_attribute_types.category_code' to 'borrower_attribute_types_categories'";
	32
	33	$dbh->do(q{
	34	ALTER TABLE `borrower_attribute_types`
	35	DROP FOREIGN KEY `borrower_attribute_types_ibfk_1`
	36	});
	37	$dbh->do(q{
	38	ALTER TABLE `borrower_attribute_types`
	39	DROP COLUMN `category_code`
	40	});
	41
	42	say $out "Column 'borrower_attribute_types.category_code' deleted";
	43	}
	44	},
	45	};

Lines 224-236 Patron attribute types &rsaquo; Administration &rsaquo; Koha Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/patron-attr-types.tt (-5 / +20 lines)
224	</li>	224	</li>
225	<li>	225	<li>
226	<label for="category">Category: </label>	226	<label for="category">Category: </label>
227	<select name="category_code" id="category">	227	<select name="category_code" id="category" multiple size="10">
228	<option value=""></option>	228	<option value="">All categories</option>
229	[% FOREACH cat IN categories %]	229	[% FOREACH category IN categories %]
230	[% IF ( cat.categorycode == attribute_type.category_code ) %]<option value="[% cat.categorycode \| html %]" selected="selected">[% cat.description \|html %]</option>[% ELSE %]<option value="[% cat.categorycode \| html %]">[% cat.description \|html %]</option>[% END %]	230	[% SET selected = 0 %]
		231	[% IF attribute_type %]
		232	[% FOREACH cat IN attribute_type.categories %]
		233	[% IF cat.categorycode == category.categorycode %]
		234	[% SET selected = 1 %]
		235	[% END %]
		236	[% END %]
		237	[% END %]
		238	[% IF selected %]
		239	<option value="[% category.categorycode \| html %]" selected>[% category.description \|html %]</option>
		240	[% ELSE %]
		241	<option value="[% category.categorycode \| html %]">[% category.description \|html %]</option>
		242	[% END %]
231	[% END %]	243	[% END %]
232	</select>	244	</select>
233	<div class="hint">Choose one to limit this attribute to one patron type. Please leave blank if you want these attributes to be available for all types of patrons.</div>	245	<div class="hint">Select "All categories" if this attribute type should always be displayed. Otherwise select categories you want to associate with this value.</div>
234	</li>	246	</li>
235	<li>	247	<li>
236	<label for="class">Class: </label>	248	<label for="class">Class: </label>
Lines 378-383 Patron attribute types &rsaquo; Administration &rsaquo; Koha Link Here
378	if ( $("#branches option:selected").length < 1 ) {	390	if ( $("#branches option:selected").length < 1 ) {
379	$("#branches option:first").attr("selected", "selected");	391	$("#branches option:first").attr("selected", "selected");
380	}	392	}
		393	if ( $("#category option:selected").length < 1 ) {
		394	$("#category option:first").attr("selected", "selected");
		395	}
381		396
382	$("#opac_display").change( function() {	397	$("#opac_display").change( function() {
383	if ( this.checked ) {	398	if ( this.checked ) {

Lines 89-105 my $branchcode = $builder->build( { source => 'Branch' } )->{branchcode}; Link Here

(-)a/t/db_dependent/Auth_with_ldap.t (-6 lines)
89	my $attr_type = $builder->build(	89	my $attr_type = $builder->build(
90	{	90	{
91	source => 'BorrowerAttributeType',	91	source => 'BorrowerAttributeType',
92	value => {
93	category_code => $categorycode
94	}
95	}	92	}
96	);	93	);
97	my $attr_type2 = $builder->build(	94	my $attr_type2 = $builder->build(
98	{	95	{
99	source => 'BorrowerAttributeType',	96	source => 'BorrowerAttributeType',
100	value => {
101	category_code => $categorycode
102	}
103	}	97	}
104	);	98	);
105		99

Line 0 Link Here

(-)a/t/db_dependent/Koha/Patron/Attribute/Type.t (+35 lines)
	1	#!/usr/bin/perl
	2
	3	use Modern::Perl;
	4
	5	use Test::More;
	6	use Koha::Database;
	7	use t::lib::TestBuilder;
	8
	9	plan tests => 2;
	10
	11	my $schema = Koha::Database->new->schema;
	12	my $builder = t::lib::TestBuilder->new;
	13
	14	use_ok('Koha::Patron::Attribute::Type');
	15
	16	subtest 'categories' => sub {
	17	plan tests => 1;
	18
	19	$schema->storage->txn_begin;
	20
	21	my $category1 = $builder->build_object( { class => 'Koha::Patron::Categories' } );
	22	my $category2 = $builder->build_object( { class => 'Koha::Patron::Categories' } );
	23	Koha::Patron::Attribute::Types->delete();
	24	my $attribute_type = Koha::Patron::Attribute::Type->new({
	25	code => 'TEST',
	26	description => 'Test attribute type',
	27	});
	28	$attribute_type->store();
	29	$attribute_type->categories([ $category1, $category2 ]);
	30	$attribute_type->store();
	31	my @categories = $attribute_type->categories->as_list;
	32	is (scalar @categories, 2);
	33
	34	$schema->storage->txn_rollback;
	35	};

Lines 52-64 subtest 'new() tests' => sub { Link Here

(-)a/t/db_dependent/Koha/Patron/Attribute/Types.t (-5 / +1 lines)
52	is( Koha::Patron::Attribute::Types->search()->count,	52	is( Koha::Patron::Attribute::Types->search()->count,
53	1, 'Only one object created' );	53	1, 'Only one object created' );
54		54
55	my $cateogory_code	55	my $attribute_type_2 = Koha::Patron::Attribute::Type->new(
56	= $builder->build( { source => 'Category' } )->{categorycode};
57
58	my $attribute_type_with_category = Koha::Patron::Attribute::Type->new(
59	{ code => 'code_2',	56	{ code => 'code_2',
60	description => 'description',	57	description => 'description',
61	category_code => $cateogory_code,
62	repeatable => 0	58	repeatable => 0
63	}	59	}
64	)->store();	60	)->store();

Lines 92-98 subtest 'add() tests' => sub { Link Here

(-)a/t/db_dependent/api/v1/patrons_extended_attributes.t (-9 lines)
92	mandatory => 1,	92	mandatory => 1,
93	repeatable => 0,	93	repeatable => 0,
94	unique_id => 0,	94	unique_id => 0,
95	category_code => undef
96	}	95	}
97	}	96	}
98	);	97	);
Lines 103-109 subtest 'add() tests' => sub { Link Here
103	mandatory => 0,	102	mandatory => 0,
104	repeatable => 1,	103	repeatable => 1,
105	unique_id => 0,	104	unique_id => 0,
106	category_code => undef
107	}	105	}
108	}	106	}
109	);	107	);
Lines 114-120 subtest 'add() tests' => sub { Link Here
114	mandatory => 0,	112	mandatory => 0,
115	repeatable => 0,	113	repeatable => 0,
116	unique_id => 1,	114	unique_id => 1,
117	category_code => undef
118	}	115	}
119	}	116	}
120	);	117	);
Lines 221-227 subtest 'overwrite() tests' => sub { Link Here
221	mandatory => 1,	218	mandatory => 1,
222	repeatable => 0,	219	repeatable => 0,
223	unique_id => 0,	220	unique_id => 0,
224	category_code => undef
225	}	221	}
226	}	222	}
227	);	223	);
Lines 232-238 subtest 'overwrite() tests' => sub { Link Here
232	mandatory => 0,	228	mandatory => 0,
233	repeatable => 1,	229	repeatable => 1,
234	unique_id => 0,	230	unique_id => 0,
235	category_code => undef
236	}	231	}
237	}	232	}
238	);	233	);
Lines 243-249 subtest 'overwrite() tests' => sub { Link Here
243	mandatory => 0,	238	mandatory => 0,
244	repeatable => 0,	239	repeatable => 0,
245	unique_id => 1,	240	unique_id => 1,
246	category_code => undef
247	}	241	}
248	}	242	}
249	);	243	);
Lines 369-375 subtest 'delete() tests' => sub { Link Here
369	mandatory => 0,	363	mandatory => 0,
370	repeatable => 1,	364	repeatable => 1,
371	unique_id => 0,	365	unique_id => 0,
372	category_code => undef
373	}	366	}
374	}	367	}
375	);	368	);
Lines 418-424 subtest 'update() tests' => sub { Link Here
418	mandatory => 0,	411	mandatory => 0,
419	repeatable => 1,	412	repeatable => 1,
420	unique_id => 0,	413	unique_id => 0,
421	category_code => undef
422	}	414	}
423	}	415	}
424	);	416	);
Lines 429-435 subtest 'update() tests' => sub { Link Here
429	mandatory => 0,	421	mandatory => 0,
430	repeatable => 0,	422	repeatable => 0,
431	unique_id => 1,	423	unique_id => 1,
432	category_code => undef
433	}	424	}
434	}	425	}
435	);	426	);