3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
20 use POSIX
qw(strftime);
22 use Test
::More tests
=> 57;
24 use t
::lib
::TestBuilder
;
29 use Koha
::Notice
::Messages
;
31 use Koha
::Library
::Group
;
32 use Koha
::CirculationRules
;
36 use_ok
('Koha::ArticleRequest');
37 use_ok
('Koha::ArticleRequests');
38 use_ok
('Koha::ArticleRequest::Status');
41 my $schema = Koha
::Database
->new()->schema();
42 $schema->storage->txn_begin();
43 my $builder = t
::lib
::TestBuilder
->new;
44 our $cache = Koha
::Caches
->get_instance;
46 my $dbh = C4
::Context
->dbh;
48 $dbh->do("DELETE FROM circulation_rules");
50 my $biblio = Koha
::Biblio
->new()->store();
51 ok
( $biblio->id, 'Koha::Biblio created' );
53 my $biblioitem = $schema->resultset('Biblioitem')->new(
55 biblionumber
=> $biblio->id
58 ok
( $biblioitem->id, 'biblioitem created' );
60 my $itype = $builder->build({ source
=> 'Itemtype' });
61 my $item = Koha
::Item
->new(
63 biblionumber
=> $biblio->id,
64 biblioitemnumber
=> $biblioitem->id,
65 itype
=> $itype->{itemtype
},
68 ok
( $item->id, 'Koha::Item created' );
70 my $branch = $builder->build({ source
=> 'Branch' });
71 my $category = $builder->build({ source
=> 'Category' });
72 my $patron = $builder->build_object({
73 class => 'Koha::Patrons',
75 categorycode
=> $category->{categorycode
},
76 branchcode
=> $branch->{branchcode
},
77 flags
=> 1,# superlibrarian
80 ok
( $patron->id, 'Koha::Patron created' );
81 my $patron_2 = $builder->build_object({ class => 'Koha::Patrons', value
=> { flags
=> 0 } });
84 Koha
::Notice
::Messages
->delete;
85 my $article_request_title = 'an article request title';
86 my $article_request = Koha
::ArticleRequest
->new(
88 borrowernumber
=> $patron->id,
89 biblionumber
=> $biblio->id,
90 itemnumber
=> $item->id,
91 title
=> $article_request_title,
95 my $notify_message = Koha
::Notice
::Messages
->search->next;
96 is
( $notify_message->letter_code, "AR_".Koha
::ArticleRequest
::Status
::Pending
);
97 # Default AR_PROCESSING template content "Title: <<article_requests.title>>"
98 like
( $notify_message->content, qr{Title: $article_request_title}, 'Values from article_requests table must be fetched for the notification' );
100 $article_request = Koha
::ArticleRequests
->find( $article_request->id );
101 ok
( $article_request->id, 'Koha::ArticleRequest created' );
102 is
( $article_request->status, Koha
::ArticleRequest
::Status
::Pending
, 'New article request has status of Open' );
103 isnt
( $article_request->created_on, undef, 'New article request has created_on date set' );
104 isnt
( $article_request->updated_on, undef, 'New article request has updated_on date set' );
107 Koha
::Notice
::Messages
->delete;
108 $article_request->process();
109 $notify_message = Koha
::Notice
::Messages
->search->next;
110 is
( $notify_message->letter_code, "AR_".Koha
::ArticleRequest
::Status
::Processing
);
111 is
( $article_request->status, Koha
::ArticleRequest
::Status
::Processing
, '$ar->process() changes status to Processing' );
112 isnt
( $article_request->updated_on, undef, 'Updated article request has an updated_on date set' );
115 $article_request->complete();
116 is
( $article_request->status, Koha
::ArticleRequest
::Status
::Completed
, '$ar->complete() changes status to Completed' );
119 $article_request->cancel();
120 is
( $article_request->status, Koha
::ArticleRequest
::Status
::Canceled
, '$ar->complete() changes status to Canceled' );
121 $article_request->status(Koha
::ArticleRequest
::Status
::Pending
);
122 $article_request->store();
124 is
( $article_request->biblio->id, $biblio->id, '$ar->biblio() gets corresponding Koha::Biblio object' );
125 is
( $article_request->item->id, $item->id, '$ar->item() gets corresponding Koha::Item object' );
126 is
( $article_request->borrower->id, $patron->id, '$ar->borrower() gets corresponding Koha::Patron object' );
128 my $ar = $patron->article_requests();
129 is
( ref($ar), 'Koha::ArticleRequests', '$patron->article_requests returns Koha::ArticleRequests object' );
130 is
( $ar->next->id, $article_request->id, 'Returned article request matches' );
132 is
( $patron->article_requests_current()->count(), 1, 'Open request returned for article_requests_current' );
133 $article_request->process();
134 is
( $patron->article_requests_current()->count(), 1, 'Processing request returned for article_requests_current' );
135 $article_request->complete();
136 is
( $patron->article_requests_current()->count(), 0, 'Completed request not returned for article_requests_current' );
137 $article_request->cancel();
138 is
( $patron->article_requests_current()->count(), 0, 'Canceled request not returned for article_requests_current' );
140 $article_request->status(Koha
::ArticleRequest
::Status
::Pending
);
141 $article_request->store();
143 is
( $patron->article_requests_finished()->count(), 0, 'Open request returned for article_requests_finished' );
144 $article_request->process();
145 is
( $patron->article_requests_finished()->count(), 0, 'Processing request returned for article_requests_finished' );
146 $article_request->complete();
147 $article_request->cancel();
148 is
( $patron->article_requests_finished()->count(), 1, 'Canceled request not returned for article_requests_finished' );
150 $article_request->status(Koha
::ArticleRequest
::Status
::Pending
);
151 $article_request->store();
153 $ar = $biblio->article_requests();
154 is
( ref($ar), 'Koha::ArticleRequests', '$biblio->article_requests returns Koha::ArticleRequests object' );
155 is
( $ar->next->id, $article_request->id, 'Returned article request matches' );
157 is
( $biblio->article_requests_current()->count(), 1, 'Open request returned for article_requests_current' );
158 $article_request->process();
159 is
( $biblio->article_requests_current()->count(), 1, 'Processing request returned for article_requests_current' );
160 $article_request->complete();
161 is
( $biblio->article_requests_current()->count(), 0, 'Completed request not returned for article_requests_current' );
162 $article_request->cancel();
163 is
( $biblio->article_requests_current()->count(), 0, 'Canceled request not returned for article_requests_current' );
165 $article_request->status(Koha
::ArticleRequest
::Status
::Pending
);
166 $article_request->store();
168 is
( $biblio->article_requests_finished()->count(), 0, 'Open request returned for article_requests_finished' );
169 $article_request->process();
170 is
( $biblio->article_requests_finished()->count(), 0, 'Processing request returned for article_requests_finished' );
171 $article_request->complete();
172 $article_request->cancel();
173 is
( $biblio->article_requests_finished()->count(), 1, 'Canceled request not returned for article_requests_finished' );
175 my $rule = Koha
::CirculationRules
->set_rule(
177 categorycode
=> undef,
180 rule_name
=> 'article_requests',
184 ok
( $biblio->can_article_request($patron), 'Record is requestable with rule type yes' );
185 is
( $biblio->article_request_type($patron), 'yes', 'Biblio article request type is yes' );
186 ok
( $item->can_article_request($patron), 'Item is requestable with rule type yes' );
187 is
( $item->article_request_type($patron), 'yes', 'Item article request type is yes' );
190 $rule = Koha
::CirculationRules
->set_rule(
192 categorycode
=> undef,
195 rule_name
=> 'article_requests',
196 rule_value
=> 'bib_only',
199 ok
( $biblio->can_article_request($patron), 'Record is requestable with rule type bib_only' );
200 is
( $biblio->article_request_type($patron), 'bib_only', 'Biblio article request type is bib_only' );
201 ok
( !$item->can_article_request($patron), 'Item is not requestable with rule type bib_only' );
202 is
( $item->article_request_type($patron), 'bib_only', 'Item article request type is bib_only' );
205 $rule = Koha
::CirculationRules
->set_rule(
207 categorycode
=> undef,
210 rule_name
=> 'article_requests',
211 rule_value
=> 'item_only',
214 ok
( $biblio->can_article_request($patron), 'Record is requestable with rule type item_only' );
215 is
( $biblio->article_request_type($patron), 'item_only', 'Biblio article request type is item_only' );
216 ok
( $item->can_article_request($patron), 'Item is not requestable with rule type item_only' );
217 is
( $item->article_request_type($patron), 'item_only', 'Item article request type is item_only' );
220 $rule = Koha
::CirculationRules
->set_rule(
222 categorycode
=> undef,
225 rule_name
=> 'article_requests',
229 ok
( !$biblio->can_article_request($patron), 'Record is requestable with rule type no' );
230 is
( $biblio->article_request_type($patron), 'no', 'Biblio article request type is no' );
231 ok
( !$item->can_article_request($patron), 'Item is not requestable with rule type no' );
232 is
( $item->article_request_type($patron), 'no', 'Item article request type is no' );
235 subtest
'search_limited' => sub {
237 my $nb_article_requests = Koha
::ArticleRequests
->count;
239 my $group_1 = Koha
::Library
::Group
->new( { title
=> 'TEST Group 1' } )->store;
240 my $group_2 = Koha
::Library
::Group
->new( { title
=> 'TEST Group 2' } )->store;
241 Koha
::Library
::Group
->new({ parent_id
=> $group_1->id, branchcode
=> $patron->branchcode })->store();
242 Koha
::Library
::Group
->new({ parent_id
=> $group_2->id, branchcode
=> $patron_2->branchcode })->store();
243 t
::lib
::Mocks
::mock_userenv
( { patron
=> $patron } ); # Is superlibrarian
244 is
( Koha
::ArticleRequests
->search_limited->count, $nb_article_requests, 'Koha::ArticleRequests->search_limited should return all article requests for superlibrarian' );
245 t
::lib
::Mocks
::mock_userenv
( { patron
=> $patron_2 } ); # Is restricted
246 is
( Koha
::ArticleRequests
->search_limited->count, 0, 'Koha::ArticleRequests->search_limited should not return all article requests for restricted patron' );
249 subtest
'may_article_request' => sub {
253 t
::lib
::Mocks
::mock_preference
('ArticleRequests', 1);
254 t
::lib
::Mocks
::mock_preference
('ArticleRequestsLinkControl', 'calc');
255 $cache->set_in_cache( Koha
::CirculationRules
::GUESSED_ITEMTYPES_KEY
, {
256 '*' => { 'CR' => 1 },
258 'PT' => { 'BK' => 1 },
261 my $itemtype = Koha
::ItemTypes
->find('CR') // Koha
::ItemType
->new({ itemtype
=> 'CR' })->store;
262 is
( $itemtype->may_article_request, 1, 'SER/* should be true' );
263 is
( $itemtype->may_article_request({ categorycode
=> 'S' }), 1, 'SER/S should be true' );
264 is
( $itemtype->may_article_request({ categorycode
=> 'PT' }), '', 'SER/PT should be false' );
265 t
::lib
::Mocks
::mock_preference
('ArticleRequestsLinkControl', 'always');
266 is
( $itemtype->may_article_request({ categorycode
=> 'PT' }), '1', 'Result should be true when LinkControl is set to always' );
269 $cache->clear_from_cache( Koha
::CirculationRules
::GUESSED_ITEMTYPES_KEY
);
272 $schema->storage->txn_rollback();