4 use Test
::More tests
=> 40;
7 use Koha
::AdditionalField
;
9 my $dbh = C4
::Context
->dbh;
10 $dbh->{AutoCommit
} = 0;
11 $dbh->{RaiseError
} = 1;
13 $dbh->do( q
|DELETE FROM additional_fields
| );
14 $dbh->do( q
|DELETE FROM additional_field_values
| );
16 my $afs = Koha
::AdditionalField
->all;
17 is
( scalar( @
$afs ), 0, "all: there is no additional field" );
19 my $af1_name = q
|af1
|;
20 my $af1 = Koha
::AdditionalField
->new({
21 tablename
=> 'subscription',
23 authorised_values_category
=> '',
27 is
( $af1->name, $af1_name, "new: name value is kept" );
30 like
( $af1->id, qr
|^\d
+$|, "new: populate id value" );
32 my $af2_name = q
|af2
|;
33 my $af2_marcfield = q
|200$a|;
34 my $af2_searchable = 1;
35 my $af2_tablename = q
|subscription
|;
36 my $af2_avc = q
|LOST
|;
37 my $af2 = Koha
::AdditionalField
->new({
38 tablename
=> $af2_tablename,
40 authorised_value_category
=> $af2_avc,
41 marcfield
=> $af2_marcfield,
42 searchable
=> $af2_searchable,
45 my $af2_id = $af2->id;
46 $af2 = Koha
::AdditionalField
->new({ id
=> $af2_id })->fetch;
47 is
( ref($af2) , q
|Koha
::AdditionalField
|, "fetch: return an object" );
48 is
( $af2->id, $af2_id, "fetch: id for af2" );
49 is
( $af2->tablename, $af2_tablename, "fetch: tablename for af2" );
50 is
( $af2->name, $af2_name, "fetch: name for af2" );
51 is
( $af2->authorised_value_category, $af2_avc, "fetch: authorised_value_category for af2" );
52 is
( $af2->marcfield, $af2_marcfield, "fetch: marcfield for af2" );
53 is
( $af2->searchable, $af2_searchable, "fetch: searchable for af2" );
55 my $af3 = Koha
::AdditionalField
->new({
56 tablename
=> 'a_table',
58 authorised_value_category
=> '',
64 my $af_common = Koha
::AdditionalField
->new({
65 tablename
=> 'subscription',
67 authorised_value_category
=> '',
74 $af3->{tablename
} = q
|another_table
|;
75 $af3->{name
} = q
|af3_mod
|;
76 $af3->{authorised_value_category
} = q
|LOST
|;
77 $af3->{marcfield
} = q
|200$a|;
78 $af3->{searchable
} = 0;
79 my $updated = $af3->update;
80 $af3 = Koha
::AdditionalField
->new({ id
=> $af3->id })->fetch;
81 is
( $updated, 1, "update: return number of affected rows" );
82 is
( $af3->tablename, q
|a_table
|, "update: tablename is *not* updated, there is no sense to copy a field to another table" );
83 is
( $af3->name, q
|af3_mod
|, "update: name" );
84 is
( $af3->authorised_value_category, q
|LOST
|, "update: authorised_value_category" );
85 is
( $af3->marcfield, q
|200$a|, "update: marcfield" );
86 is
( $af3->searchable, q
|0|, "update: searchable" );
89 $afs = Koha
::AdditionalField
->all;
90 is
( scalar( @
$afs ), 4, "all: got 4 additional fields" );
91 $afs = Koha
::AdditionalField
->all({tablename
=> 'subscription'});
92 is
( scalar( @
$afs ), 3, "all: got 3 additional fields for the subscription table" );
93 $afs = Koha
::AdditionalField
->all({searchable
=> 1});
94 is
( scalar( @
$afs ), 3, "all: got 3 searchable additional fields" );
96 $afs = Koha
::AdditionalField
->all;
97 is
( scalar( @
$afs ), 3, "all: got 3 additional fields after deleting one" );
100 # Testing additional field values
102 ## Creating 2 subscriptions
107 use C4
::Serials
::Frequency
;
108 use C4
::Serials
::Numberpattern
;
110 my ($biblionumber, $biblioitemnumber) = AddBiblio
(MARC
::Record
->new, '');
112 my $bpid = AddBudgetPeriod
({
113 budget_period_startdate
=> '2015-01-01',
114 budget_period_enddate
=> '2016-01-01',
117 my $budget_id = AddBudget
({
118 budget_code
=> "ABCD",
119 budget_amount
=> "123.132",
120 budget_name
=> "Périodiques",
121 budget_notes
=> "This is a note",
122 budget_period_id
=> $bpid
125 my $frequency_id = AddSubscriptionFrequency
({ description
=> "Test frequency 1" });
126 my $pattern_id = AddSubscriptionNumberpattern
({
127 label
=> 'Test numberpattern 1',
128 description
=> 'Description for numberpattern 1',
129 numberingmethod
=> '{X}'
132 my $subscriptionid1 = NewSubscription
(
133 undef, "", undef, undef, $budget_id, $biblionumber,
134 '2013-01-01', $frequency_id, undef, undef, undef,
135 undef, undef, undef, undef, undef, undef,
136 1, "notes",undef, '2013-01-01', undef, $pattern_id,
137 undef, undef, 0, "intnotes", 0,
138 undef, undef, 0, undef, '2013-01-01', 0
141 my $subscriptionid2 = NewSubscription
(
142 undef, "", undef, undef, $budget_id, $biblionumber,
143 '2013-01-01', $frequency_id, undef, undef, undef,
144 undef, undef, undef, undef, undef, undef,
145 1, "notes",undef, '2013-01-01', undef, $pattern_id,
146 undef, undef, 0, "intnotes", 0,
147 undef, undef, 0, undef, '2013-01-01', 0
152 $subscriptionid1 => "value_for_af1_$subscriptionid1",
153 $subscriptionid2 => "value_for_af1_$subscriptionid2",
155 $af1->{values} = $af1_values;
159 $subscriptionid1 => "old_value_for_af2_$subscriptionid1",
160 $subscriptionid2 => "old_value_for_af2_$subscriptionid2",
162 $af2->{values} = $af2_values;
164 my $new_af2_values = {
165 $subscriptionid1 => "value_for_af2_$subscriptionid1",
166 $subscriptionid2 => "value_for_af2_$subscriptionid2",
168 $af2->{values} = $new_af2_values;
169 $af2->insert_values; # Insert should replace old values
171 my $common_values = {
172 $subscriptionid1 => 'common_value',
173 $subscriptionid2 => 'common_value',
176 $af_common->{values} = $common_values;
177 $af_common->insert_values;
180 $af1 = Koha
::AdditionalField
->new({ id
=> $af1->id })->fetch;
181 $af2 = Koha
::AdditionalField
->new({ id
=> $af2->id })->fetch;
184 is_deeply
( $af1->values, {$subscriptionid1 => qq|value_for_af1_
$subscriptionid1|, $subscriptionid2 => qq|value_for_af1_
$subscriptionid2| }, "fetch_values: without argument, returns 2 records" );
185 $af1->fetch_values({ record_id
=> $subscriptionid1 });
186 is_deeply
( $af1->values, {$subscriptionid1 => qq|value_for_af1_
$subscriptionid1|}, "fetch_values: values for af1 and subscription1" );
187 $af2->fetch_values({ record_id
=> $subscriptionid2 });
188 is_deeply
( $af2->values, {$subscriptionid2 => qq|value_for_af2_
$subscriptionid2|}, "fetch_values: values for af2 and subscription2" );
192 $af1->fetch_all_values;
194 like
( $@
, qr
|^BAD CALL
|, 'fetch_all_values: fail if called with a blessed object' );
196 my $fetched_values = Koha
::AdditionalField
->fetch_all_values({ tablename
=> 'subscription' });
197 my $expected_values = {
198 $subscriptionid1 => {
199 $af1_name => qq|value_for_af1_
$subscriptionid1|,
200 $af2_name => qq|value_for_af2_
$subscriptionid1|,
201 'common' => q
|common_value
|,
203 $subscriptionid2 => {
204 $af1_name => qq|value_for_af1_
$subscriptionid2|,
205 $af2_name => qq|value_for_af2_
$subscriptionid2|,
206 'common' => q
|common_value
|,
209 is_deeply
( $fetched_values, $expected_values, "fetch_all_values: values for table subscription" );
211 my $expected_values_1 = {
212 $subscriptionid1 => {
213 $af1_name => qq|value_for_af1_
$subscriptionid1|,
214 $af2_name => qq|value_for_af2_
$subscriptionid1|,
215 common
=> q
|common_value
|,
218 my $fetched_values_1 = Koha
::AdditionalField
->fetch_all_values({ tablename
=> 'subscription', record_id
=> $subscriptionid1 });
219 is_deeply
( $fetched_values_1, $expected_values_1, "fetch_all_values: values for subscription1" );
221 # get_matching_record_ids
223 $af1->get_matching_record_ids;
225 like
( $@
, qr
|^BAD CALL
|, 'get_matching_record_ids: fail if called with a blessed object' );
227 my $matching_record_ids = Koha
::AdditionalField
->get_matching_record_ids;
228 is_deeply
( $matching_record_ids, [], "get_matching_record_ids: return [] if no argument given" );
229 $matching_record_ids = Koha
::AdditionalField
->get_matching_record_ids({ tablename
=> 'subscription' });
230 is_deeply
( $matching_record_ids, [], "get_matching_record_ids: return [] if no field given" );
235 value
=> qq|value_for_af1_
$subscriptionid1|
238 $matching_record_ids = Koha
::AdditionalField
->get_matching_record_ids({ tablename
=> 'subscription', fields
=> $fields });
239 is_deeply
( $matching_record_ids, [ $subscriptionid1 ], "get_matching_record_ids: field $af1_name: value_for_af1_$subscriptionid1 matches subscription1" );
244 value
=> qq|value_for_af1_
$subscriptionid1|
248 value
=> qq|value_for_af2_
$subscriptionid1|,
251 $matching_record_ids = Koha
::AdditionalField
->get_matching_record_ids({ tablename
=> 'subscription', fields
=> $fields });
252 is_deeply
( $matching_record_ids, [ $subscriptionid1 ], "get_matching_record_ids: fields $af1_name:value_for_af1_$subscriptionid1 and $af2_name:value_for_af2_$subscriptionid1 match subscription1" );
257 value
=> q
|common_value
|,
260 $matching_record_ids = Koha
::AdditionalField
->get_matching_record_ids({ tablename
=> 'subscription', fields
=> $fields });
261 my $exists = grep /$subscriptionid1/, @
$matching_record_ids;
262 is
( $exists, 1, "get_matching_record_ids: field common: common_value matches subscription1" );
263 $exists = grep /$subscriptionid2/, @
$matching_record_ids;
264 is
( $exists, 1, "get_matching_record_ids: field common: common_value matches subscription2 too" );
265 $exists = grep /not_existent_id/, @
$matching_record_ids;
266 is
( $exists, 0, "get_matching_record_ids: field common: common_value does not inexistent id" );
274 $matching_record_ids = Koha
::AdditionalField
->get_matching_record_ids({ tablename
=> 'subscription', fields
=> $fields, exact_match
=> 0 });
275 $exists = grep /$subscriptionid1/, @
$matching_record_ids;
276 is
( $exists, 1, "get_matching_record_ids: field common: common% matches subscription1" );
277 $exists = grep /$subscriptionid2/, @
$matching_record_ids;
278 is
( $exists, 1, "get_matching_record_ids: field common: common% matches subscription2 too" );
279 $exists = grep /not_existent_id/, @
$matching_record_ids;
280 is
( $exists, 0, "get_matching_record_ids: field common: common% does not inexistent id" );
283 $af1 = Koha
::AdditionalField
->new({ id
=> $af1->id })->fetch;
286 is_deeply
( $af1->values, {$subscriptionid1 => qq|value_for_af1_
$subscriptionid1|, $subscriptionid2 => qq|value_for_af1_
$subscriptionid2| }, "fetch_values: without argument, returns 2 records" );
287 $af1->delete_values({record_id
=> $subscriptionid1});
289 is_deeply
( $af1->values, {$subscriptionid2 => qq|value_for_af1_
$subscriptionid2|}, "fetch_values: values for af2 and subscription2" );
292 is_deeply
( $af1->values, {}, "fetch_values: no values" );