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 = ( |