Bug 24857: No words
[koha.git] / t / db_dependent / Utils / Datatables_Virtualshelves.t
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
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.
9 #
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.
14 #
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>.
17
18 use Modern::Perl;
19
20 use Test::More tests => 13;
21
22 use C4::Biblio qw( AddBiblio );
23 use C4::Context;
24
25 use Koha::Library;
26 use Koha::Patrons;
27 use Koha::Patron::Categories;
28 use Koha::Virtualshelves;
29
30 use t::lib::Mocks;
31
32 use_ok( "C4::Utils::DataTables::VirtualShelves" );
33
34 my $schema = Koha::Database->new->schema;
35 $schema->storage->txn_begin;
36 my $dbh = C4::Context->dbh;
37
38 $dbh->do(q|DELETE FROM virtualshelves|);
39
40 # Pick a categorycode from the DB
41 my @categories   = Koha::Patron::Categories->search_with_library_limits->as_list;
42 my $categorycode = $categories[0]->categorycode;
43 my $branchcode   = "ABC";
44 my $branch_data = {
45     branchcode     => $branchcode,
46     branchname     => 'my branchname',
47 };
48 Koha::Library->new( $branch_data )->store;
49
50 my %john_doe = (
51     cardnumber   => '123456',
52     firstname    => 'John',
53     surname      => 'Doe',
54     categorycode => $categorycode,
55     branchcode   => $branchcode,
56     dateofbirth  => '',
57     dateexpiry   => '9999-12-31',
58     userid       => 'john.doe',
59 );
60
61 my %jane_doe = (
62     cardnumber   => '234567',
63     firstname    =>  'Jane',
64     surname      => 'Doe',
65     categorycode => $categorycode,
66     branchcode   => $branchcode,
67     dateofbirth  => '',
68     dateexpiry   => '9999-12-31',
69     userid       => 'jane.doe',
70 );
71 my %john_smith = (
72     cardnumber   => '345678',
73     firstname    =>  'John',
74     surname      => 'Smith',
75     categorycode => $categorycode,
76     branchcode   => $branchcode,
77     dateofbirth  => '',
78     dateexpiry   => '9999-12-31',
79     userid       => 'john.smith',
80 );
81
82 my $john_doe_patron = Koha::Patron->new( \%john_doe )->store;
83 $john_doe{borrowernumber} = $john_doe_patron->borrowernumber;
84 $jane_doe{borrowernumber} = Koha::Patron->new( \%jane_doe )->store->borrowernumber;
85 $john_smith{borrowernumber} = Koha::Patron->new( \%john_smith )->store->borrowernumber;
86
87 my $shelf1 = Koha::Virtualshelf->new(
88     {
89         shelfname => 'my first private list (empty)',
90         public    => 0,
91         sortfield => 'author',
92         owner     => $john_doe{borrowernumber},
93     }
94 )->store;
95
96 my $shelf2 = Koha::Virtualshelf->new(
97     {
98         shelfname => 'my second private list',
99         public    => 0,
100         sortfield => 'title',
101         owner     => $john_doe{borrowernumber},
102     }
103 )->store;
104 my $biblionumber1 = _add_biblio('title 1');
105 my $biblionumber2 = _add_biblio('title 2');
106 my $biblionumber3 = _add_biblio('title 3');
107 my $biblionumber4 = _add_biblio('title 4');
108 my $biblionumber5 = _add_biblio('title 5');
109 $shelf2->add_biblio( $biblionumber1, $john_doe{borrowernumber} );
110 $shelf2->add_biblio( $biblionumber2, $john_doe{borrowernumber} );
111 $shelf2->add_biblio( $biblionumber3, $john_doe{borrowernumber} );
112 $shelf2->add_biblio( $biblionumber4, $john_doe{borrowernumber} );
113 $shelf2->add_biblio( $biblionumber5, $john_doe{borrowernumber} );
114
115 my $shelf3 = Koha::Virtualshelf->new(
116     {
117         shelfname => 'The first public list',
118         public    => 1,
119         sortfield => 'author',
120         owner     => $jane_doe{borrowernumber},
121     }
122 )->store;
123 my $biblionumber6 = _add_biblio('title 6');
124 my $biblionumber7 = _add_biblio('title 7');
125 my $biblionumber8 = _add_biblio('title 8');
126 $shelf3->add_biblio( $biblionumber6, $jane_doe{borrowernumber} );
127 $shelf3->add_biblio( $biblionumber7, $jane_doe{borrowernumber} );
128 $shelf3->add_biblio( $biblionumber8, $jane_doe{borrowernumber} );
129
130 my $shelf4 = Koha::Virtualshelf->new(
131     {
132         shelfname => 'my second public list',
133         public    => 1,
134         sortfield => 'title',
135         owner     => $jane_doe{borrowernumber},
136     }
137 )->store;
138 my $biblionumber9  = _add_biblio('title 9');
139 my $biblionumber10 = _add_biblio('title 10');
140 my $biblionumber11 = _add_biblio('title 11');
141 my $biblionumber12 = _add_biblio('title 12');
142 $shelf3->add_biblio( $biblionumber9, $jane_doe{borrowernumber} );
143 $shelf3->add_biblio( $biblionumber10, $jane_doe{borrowernumber} );
144 $shelf3->add_biblio( $biblionumber11, $jane_doe{borrowernumber} );
145 $shelf3->add_biblio( $biblionumber12, $jane_doe{borrowernumber} );
146
147 my $shelf5 = Koha::Virtualshelf->new(
148     {
149         shelfname => 'my third private list',
150         public    => 0,
151         sortfield => 'title',
152         owner     => $jane_doe{borrowernumber},
153     }
154 )->store;
155 my $biblionumber13 = _add_biblio('title 13');
156 my $biblionumber14 = _add_biblio('title 14');
157 my $biblionumber15 = _add_biblio('title 15');
158 my $biblionumber16 = _add_biblio('title 16');
159 my $biblionumber17 = _add_biblio('title 17');
160 my $biblionumber18 = _add_biblio('title 18');
161 $shelf5->add_biblio( $biblionumber13, $jane_doe{borrowernumber} );
162 $shelf5->add_biblio( $biblionumber14, $jane_doe{borrowernumber} );
163 $shelf5->add_biblio( $biblionumber15, $jane_doe{borrowernumber} );
164 $shelf5->add_biblio( $biblionumber16, $jane_doe{borrowernumber} );
165 $shelf5->add_biblio( $biblionumber17, $jane_doe{borrowernumber} );
166 $shelf5->add_biblio( $biblionumber18, $jane_doe{borrowernumber} );
167
168 for my $i ( 6 .. 15 ) {
169     Koha::Virtualshelf->new(
170         {
171             shelfname => "another public list $i",
172             public    => 1,
173             owner     => $john_smith{borrowernumber},
174         }
175     )->store;
176 }
177
178 # Set common datatables params
179 my %dt_params = (
180     iDisplayLength   => 10,
181     iDisplayStart    => 0
182 );
183 my $search_results;
184
185 t::lib::Mocks::mock_userenv({ patron => $john_doe_patron });
186
187 # Search private lists by title
188 $search_results = C4::Utils::DataTables::VirtualShelves::search({
189     shelfname => "ist",
190     dt_params => \%dt_params,
191     public    => 0,
192 });
193
194 is( $search_results->{ iTotalRecords }, 2,
195     "There should be 2 private shelves in total" );
196
197 is( $search_results->{ iTotalDisplayRecords }, 2,
198     "There should be 2 private shelves with title like '%ist%" );
199
200 is( @{ $search_results->{ shelves } }, 2,
201     "There should be 2 private shelves returned" );
202
203 # Search by type only
204 $search_results = C4::Utils::DataTables::VirtualShelves::search({
205     dt_params => \%dt_params,
206     public    => 1,
207 });
208 is( $search_results->{ iTotalRecords }, 12,
209     "There should be 12 public shelves in total" );
210
211 is( $search_results->{ iTotalDisplayRecords }, 12,
212     "There should be 12 private shelves" );
213
214 is( @{ $search_results->{ shelves } }, 10,
215     "There should be 10 public shelves returned" );
216
217 # Search by owner
218 $search_results = C4::Utils::DataTables::VirtualShelves::search({
219     owner => "jane",
220     dt_params => \%dt_params,
221     public    => 1,
222 });
223 is( $search_results->{ iTotalRecords }, 12,
224     "There should be 12 public shelves in total" );
225
226 is( $search_results->{ iTotalDisplayRecords }, 2,
227     "There should be 1 public shelves for jane" );
228
229 is( @{ $search_results->{ shelves } }, 2,
230     "There should be 1 public shelf returned" );
231
232 # Search by owner and shelf name
233 $search_results = C4::Utils::DataTables::VirtualShelves::search({
234     owner => "smith",
235     shelfname => "public list 1",
236     dt_params => \%dt_params,
237     public    => 1,
238 });
239 is( $search_results->{ iTotalRecords }, 12,
240     "There should be 12 public shelves in total" );
241
242 is( $search_results->{ iTotalDisplayRecords }, 6,
243     "There should be 6 public shelves for john with name like %public list 1%" );
244
245 is( @{ $search_results->{ shelves } }, 6,
246     "There should be 6 public chalves returned" );
247
248 sub _add_biblio {
249     my ( $title ) = @_;
250     my $biblio = MARC::Record->new();
251     $biblio->append_fields(
252         MARC::Field->new('245', ' ', ' ', a => $title),
253     );
254     my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, '');
255     return $biblionumber;
256 }
257