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