|
Lines 26-31
use C4::Members;
Link Here
|
| 26 |
|
26 |
|
| 27 |
use C4::VirtualShelves; |
27 |
use C4::VirtualShelves; |
| 28 |
|
28 |
|
|
|
29 |
use Koha::Virtualshelf; |
| 30 |
use Koha::Virtualshelves; |
| 31 |
|
| 29 |
use_ok( "C4::Utils::DataTables::VirtualShelves" ); |
32 |
use_ok( "C4::Utils::DataTables::VirtualShelves" ); |
| 30 |
|
33 |
|
| 31 |
my $dbh = C4::Context->dbh; |
34 |
my $dbh = C4::Context->dbh; |
|
Lines 83-171
$john_doe{borrowernumber} = AddMember( %john_doe );
Link Here
|
| 83 |
$jane_doe{borrowernumber} = AddMember( %jane_doe ); |
86 |
$jane_doe{borrowernumber} = AddMember( %jane_doe ); |
| 84 |
$john_smith{borrowernumber} = AddMember( %john_smith ); |
87 |
$john_smith{borrowernumber} = AddMember( %john_smith ); |
| 85 |
|
88 |
|
| 86 |
my $shelf1 = { |
89 |
my $shelf1 = Koha::Virtualshelf->new( |
| 87 |
shelfname => 'my first private list (empty)', |
90 |
{ |
| 88 |
category => 1, # private |
91 |
shelfname => 'my first private list (empty)', |
| 89 |
sortfield => 'author', |
92 |
category => 1, # private |
| 90 |
}; |
93 |
sortfield => 'author', |
| 91 |
$shelf1->{shelfnumber} = C4::VirtualShelves::AddShelf( $shelf1, $john_doe{borrowernumber} ); |
94 |
owner => $john_doe{borrowernumber}, |
| 92 |
|
95 |
} |
| 93 |
my $shelf2 = { |
96 |
)->store; |
| 94 |
shelfname => 'my second private list', |
97 |
|
| 95 |
category => 1, # private |
98 |
my $shelf2 = Koha::Virtualshelf->new( |
| 96 |
sortfield => 'title', |
99 |
{ |
| 97 |
}; |
100 |
shelfname => 'my second private list', |
| 98 |
$shelf2->{shelfnumber} = C4::VirtualShelves::AddShelf( $shelf2, $john_doe{borrowernumber} ); |
101 |
category => 1, # private |
|
|
102 |
sortfield => 'title', |
| 103 |
owner => $john_doe{borrowernumber}, |
| 104 |
} |
| 105 |
)->store; |
| 99 |
my $biblionumber1 = _add_biblio('title 1'); |
106 |
my $biblionumber1 = _add_biblio('title 1'); |
| 100 |
my $biblionumber2 = _add_biblio('title 2'); |
107 |
my $biblionumber2 = _add_biblio('title 2'); |
| 101 |
my $biblionumber3 = _add_biblio('title 3'); |
108 |
my $biblionumber3 = _add_biblio('title 3'); |
| 102 |
my $biblionumber4 = _add_biblio('title 4'); |
109 |
my $biblionumber4 = _add_biblio('title 4'); |
| 103 |
my $biblionumber5 = _add_biblio('title 5'); |
110 |
my $biblionumber5 = _add_biblio('title 5'); |
| 104 |
C4::VirtualShelves::AddToShelf( $biblionumber1, $shelf2->{shelfnumber}, $john_doe{borrowernumber} ); |
111 |
C4::VirtualShelves::AddToShelf( $biblionumber1, $shelf2->shelfnumber, $john_doe{borrowernumber} ); |
| 105 |
C4::VirtualShelves::AddToShelf( $biblionumber2, $shelf2->{shelfnumber}, $john_doe{borrowernumber} ); |
112 |
C4::VirtualShelves::AddToShelf( $biblionumber2, $shelf2->shelfnumber, $john_doe{borrowernumber} ); |
| 106 |
C4::VirtualShelves::AddToShelf( $biblionumber3, $shelf2->{shelfnumber}, $john_doe{borrowernumber} ); |
113 |
C4::VirtualShelves::AddToShelf( $biblionumber3, $shelf2->shelfnumber, $john_doe{borrowernumber} ); |
| 107 |
C4::VirtualShelves::AddToShelf( $biblionumber4, $shelf2->{shelfnumber}, $john_doe{borrowernumber} ); |
114 |
C4::VirtualShelves::AddToShelf( $biblionumber4, $shelf2->shelfnumber, $john_doe{borrowernumber} ); |
| 108 |
C4::VirtualShelves::AddToShelf( $biblionumber5, $shelf2->{shelfnumber}, $john_doe{borrowernumber} ); |
115 |
C4::VirtualShelves::AddToShelf( $biblionumber5, $shelf2->shelfnumber, $john_doe{borrowernumber} ); |
| 109 |
|
116 |
|
| 110 |
my $shelf3 = { |
117 |
my $shelf3 = Koha::Virtualshelf->new( |
| 111 |
shelfname => 'The first public list', |
118 |
{ |
| 112 |
category => 2, # public |
119 |
shelfname => 'The first public list', |
| 113 |
sortfield => 'author', |
120 |
category => 2, # public |
| 114 |
}; |
121 |
sortfield => 'author', |
| 115 |
$shelf3->{shelfnumber} = C4::VirtualShelves::AddShelf( $shelf3, $jane_doe{borrowernumber} ); |
122 |
owner => $jane_doe{borrowernumber}, |
|
|
123 |
} |
| 124 |
)->store; |
| 116 |
my $biblionumber6 = _add_biblio('title 6'); |
125 |
my $biblionumber6 = _add_biblio('title 6'); |
| 117 |
my $biblionumber7 = _add_biblio('title 7'); |
126 |
my $biblionumber7 = _add_biblio('title 7'); |
| 118 |
my $biblionumber8 = _add_biblio('title 8'); |
127 |
my $biblionumber8 = _add_biblio('title 8'); |
| 119 |
C4::VirtualShelves::AddToShelf( $biblionumber6, $shelf3->{shelfnumber}, $jane_doe{borrowernumber} ); |
128 |
C4::VirtualShelves::AddToShelf( $biblionumber6, $shelf3->shelfnumber, $jane_doe{borrowernumber} ); |
| 120 |
C4::VirtualShelves::AddToShelf( $biblionumber7, $shelf3->{shelfnumber}, $jane_doe{borrowernumber} ); |
129 |
C4::VirtualShelves::AddToShelf( $biblionumber7, $shelf3->shelfnumber, $jane_doe{borrowernumber} ); |
| 121 |
C4::VirtualShelves::AddToShelf( $biblionumber8, $shelf3->{shelfnumber}, $jane_doe{borrowernumber} ); |
130 |
C4::VirtualShelves::AddToShelf( $biblionumber8, $shelf3->shelfnumber, $jane_doe{borrowernumber} ); |
| 122 |
|
131 |
|
| 123 |
my $shelf4 = { |
132 |
my $shelf4 = Koha::Virtualshelf->new( |
| 124 |
shelfname => 'my second public list', |
133 |
{ |
| 125 |
category => 2, # public |
134 |
shelfname => 'my second public list', |
| 126 |
sortfield => 'title', |
135 |
category => 2, # public |
| 127 |
}; |
136 |
sortfield => 'title', |
| 128 |
$shelf4->{shelfnumber} = C4::VirtualShelves::AddShelf( $shelf4, $jane_doe{borrowernumber} ); |
137 |
owner => $jane_doe{borrowernumber}, |
|
|
138 |
} |
| 139 |
)->store; |
| 129 |
my $biblionumber9 = _add_biblio('title 9'); |
140 |
my $biblionumber9 = _add_biblio('title 9'); |
| 130 |
my $biblionumber10 = _add_biblio('title 10'); |
141 |
my $biblionumber10 = _add_biblio('title 10'); |
| 131 |
my $biblionumber11 = _add_biblio('title 11'); |
142 |
my $biblionumber11 = _add_biblio('title 11'); |
| 132 |
my $biblionumber12 = _add_biblio('title 12'); |
143 |
my $biblionumber12 = _add_biblio('title 12'); |
| 133 |
C4::VirtualShelves::AddToShelf( $biblionumber9, $shelf4->{shelfnumber}, $jane_doe{borrowernumber} ); |
144 |
C4::VirtualShelves::AddToShelf( $biblionumber9, $shelf4->shelfnumber, $jane_doe{borrowernumber} ); |
| 134 |
C4::VirtualShelves::AddToShelf( $biblionumber10, $shelf4->{shelfnumber}, $jane_doe{borrowernumber} ); |
145 |
C4::VirtualShelves::AddToShelf( $biblionumber10, $shelf4->shelfnumber, $jane_doe{borrowernumber} ); |
| 135 |
C4::VirtualShelves::AddToShelf( $biblionumber11, $shelf4->{shelfnumber}, $jane_doe{borrowernumber} ); |
146 |
C4::VirtualShelves::AddToShelf( $biblionumber11, $shelf4->shelfnumber, $jane_doe{borrowernumber} ); |
| 136 |
C4::VirtualShelves::AddToShelf( $biblionumber12, $shelf4->{shelfnumber}, $jane_doe{borrowernumber} ); |
147 |
C4::VirtualShelves::AddToShelf( $biblionumber12, $shelf4->shelfnumber, $jane_doe{borrowernumber} ); |
| 137 |
|
148 |
|
| 138 |
my $shelf5 = { |
149 |
my $shelf5 = Koha::Virtualshelf->new( |
| 139 |
shelfname => 'my third private list', |
150 |
{ |
| 140 |
category => 1, # private |
151 |
shelfname => 'my third private list', |
| 141 |
sortfield => 'title', |
152 |
category => 1, # private |
| 142 |
}; |
153 |
sortfield => 'title', |
| 143 |
$shelf5->{shelfnumber} = C4::VirtualShelves::AddShelf( $shelf5, $jane_doe{borrowernumber} ); |
154 |
owner => $jane_doe{borrowernumber}, |
|
|
155 |
} |
| 156 |
)->store; |
| 144 |
my $biblionumber13 = _add_biblio('title 13'); |
157 |
my $biblionumber13 = _add_biblio('title 13'); |
| 145 |
my $biblionumber14 = _add_biblio('title 14'); |
158 |
my $biblionumber14 = _add_biblio('title 14'); |
| 146 |
my $biblionumber15 = _add_biblio('title 15'); |
159 |
my $biblionumber15 = _add_biblio('title 15'); |
| 147 |
my $biblionumber16 = _add_biblio('title 16'); |
160 |
my $biblionumber16 = _add_biblio('title 16'); |
| 148 |
my $biblionumber17 = _add_biblio('title 17'); |
161 |
my $biblionumber17 = _add_biblio('title 17'); |
| 149 |
my $biblionumber18 = _add_biblio('title 18'); |
162 |
my $biblionumber18 = _add_biblio('title 18'); |
| 150 |
C4::VirtualShelves::AddToShelf( $biblionumber13, $shelf5->{shelfnumber}, $jane_doe{borrowernumber} ); |
163 |
C4::VirtualShelves::AddToShelf( $biblionumber13, $shelf5->shelfnumber, $jane_doe{borrowernumber} ); |
| 151 |
C4::VirtualShelves::AddToShelf( $biblionumber14, $shelf5->{shelfnumber}, $jane_doe{borrowernumber} ); |
164 |
C4::VirtualShelves::AddToShelf( $biblionumber14, $shelf5->shelfnumber, $jane_doe{borrowernumber} ); |
| 152 |
C4::VirtualShelves::AddToShelf( $biblionumber15, $shelf5->{shelfnumber}, $jane_doe{borrowernumber} ); |
165 |
C4::VirtualShelves::AddToShelf( $biblionumber15, $shelf5->shelfnumber, $jane_doe{borrowernumber} ); |
| 153 |
C4::VirtualShelves::AddToShelf( $biblionumber16, $shelf5->{shelfnumber}, $jane_doe{borrowernumber} ); |
166 |
C4::VirtualShelves::AddToShelf( $biblionumber16, $shelf5->shelfnumber, $jane_doe{borrowernumber} ); |
| 154 |
C4::VirtualShelves::AddToShelf( $biblionumber17, $shelf5->{shelfnumber}, $jane_doe{borrowernumber} ); |
167 |
C4::VirtualShelves::AddToShelf( $biblionumber17, $shelf5->shelfnumber, $jane_doe{borrowernumber} ); |
| 155 |
C4::VirtualShelves::AddToShelf( $biblionumber18, $shelf5->{shelfnumber}, $jane_doe{borrowernumber} ); |
168 |
C4::VirtualShelves::AddToShelf( $biblionumber18, $shelf5->shelfnumber, $jane_doe{borrowernumber} ); |
| 156 |
|
169 |
|
| 157 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 6', category => 2}, $john_smith{borrowernumber} ); |
170 |
for my $i ( 6 .. 15 ) { |
| 158 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 7', category => 2}, $john_smith{borrowernumber} ); |
171 |
Koha::Virtualshelf->new( |
| 159 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 8', category => 2}, $john_smith{borrowernumber} ); |
172 |
{ |
| 160 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 9', category => 2}, $john_smith{borrowernumber} ); |
173 |
shelfname => "another public list $i", |
| 161 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 10', category => 2}, $john_smith{borrowernumber} ); |
174 |
category => 2, |
| 162 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 11', category => 2}, $john_smith{borrowernumber} ); |
175 |
owner => $john_smith{borrowernumber}, |
| 163 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 12', category => 2}, $john_smith{borrowernumber} ); |
176 |
} |
| 164 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 13', category => 2}, $john_smith{borrowernumber} ); |
177 |
)->store; |
| 165 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 14', category => 2}, $john_smith{borrowernumber} ); |
178 |
} |
| 166 |
C4::VirtualShelves::AddShelf( { shelfname => 'another public list 15', category => 2}, $john_smith{borrowernumber} ); |
|
|
| 167 |
|
| 168 |
|
| 169 |
|
179 |
|
| 170 |
# Set common datatables params |
180 |
# Set common datatables params |
| 171 |
my %dt_params = ( |
181 |
my %dt_params = ( |