← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:28 2013

Filename/usr/share/koha/lib/C4/VirtualShelves.pm
StatementsExecuted 69 statements in 3.20ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
22299µs3.28msC4::VirtualShelves::::GetSomeShelfNamesC4::VirtualShelves::GetSomeShelfNames
21160µs60µsC4::VirtualShelves::::ShelvesMaxC4::VirtualShelves::ShelvesMax
11130µs30µsC4::VirtualShelves::::BEGIN@34C4::VirtualShelves::BEGIN@34
11119µs25µsC4::VirtualShelves::::BEGIN@20C4::VirtualShelves::BEGIN@20
11119µs45µsC4::VirtualShelves::::BEGIN@21C4::VirtualShelves::BEGIN@21
11117µs80µsC4::VirtualShelves::::BEGIN@23C4::VirtualShelves::BEGIN@23
11115µs113µsC4::VirtualShelves::::BEGIN@25C4::VirtualShelves::BEGIN@25
11112µs72µsC4::VirtualShelves::::BEGIN@27C4::VirtualShelves::BEGIN@27
11112µs15µsC4::VirtualShelves::::BEGIN@24C4::VirtualShelves::BEGIN@24
11110µs87µsC4::VirtualShelves::::BEGIN@32C4::VirtualShelves::BEGIN@32
1119µs42µsC4::VirtualShelves::::BEGIN@28C4::VirtualShelves::BEGIN@28
1119µs46µsC4::VirtualShelves::::BEGIN@29C4::VirtualShelves::BEGIN@29
1118µs40µsC4::VirtualShelves::::BEGIN@30C4::VirtualShelves::BEGIN@30
0000s0sC4::VirtualShelves::::AddShelfC4::VirtualShelves::AddShelf
0000s0sC4::VirtualShelves::::AddToShelfC4::VirtualShelves::AddToShelf
0000s0sC4::VirtualShelves::::DelFromShelfC4::VirtualShelves::DelFromShelf
0000s0sC4::VirtualShelves::::DelShelfC4::VirtualShelves::DelShelf
0000s0sC4::VirtualShelves::::GetAllShelvesC4::VirtualShelves::GetAllShelves
0000s0sC4::VirtualShelves::::GetBibliosShelvesC4::VirtualShelves::GetBibliosShelves
0000s0sC4::VirtualShelves::::GetShelfC4::VirtualShelves::GetShelf
0000s0sC4::VirtualShelves::::GetShelfContentsC4::VirtualShelves::GetShelfContents
0000s0sC4::VirtualShelves::::GetShelvesC4::VirtualShelves::GetShelves
0000s0sC4::VirtualShelves::::HandleDelBorrowerC4::VirtualShelves::HandleDelBorrower
0000s0sC4::VirtualShelves::::ModShelfC4::VirtualShelves::ModShelf
0000s0sC4::VirtualShelves::::ShelfPossibleActionC4::VirtualShelves::ShelfPossibleAction
0000s0sC4::VirtualShelves::::_CheckShelfNameC4::VirtualShelves::_CheckShelfName
0000s0sC4::VirtualShelves::::_biblionumber_sthC4::VirtualShelves::_biblionumber_sth
0000s0sC4::VirtualShelves::::_shelf_countC4::VirtualShelves::_shelf_count
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package C4::VirtualShelves;
2
3# Copyright 2000-2002 Katipo Communications
4#
5# This file is part of Koha.
6#
7# Koha is free software; you can redistribute it and/or modify it under the
8# terms of the GNU General Public License as published by the Free Software
9# Foundation; either version 2 of the License, or (at your option) any later
10# version.
11#
12# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15#
16# You should have received a copy of the GNU General Public License along
17# with Koha; if not, write to the Free Software Foundation, Inc.,
18# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20330µs230µs
# spent 25µs (19+5) within C4::VirtualShelves::BEGIN@20 which was called: # once (19µs+5µs) by C4::Auth::BEGIN@31 at line 20
use strict;
# spent 25µs making 1 call to C4::VirtualShelves::BEGIN@20 # spent 6µs making 1 call to strict::import
21356µs271µs
# spent 45µs (19+26) within C4::VirtualShelves::BEGIN@21 which was called: # once (19µs+26µs) by C4::Auth::BEGIN@31 at line 21
use warnings;
# spent 45µs making 1 call to C4::VirtualShelves::BEGIN@21 # spent 26µs making 1 call to warnings::import
22
23339µs2143µs
# spent 80µs (17+63) within C4::VirtualShelves::BEGIN@23 which was called: # once (17µs+63µs) by C4::Auth::BEGIN@31 at line 23
use Carp;
# spent 80µs making 1 call to C4::VirtualShelves::BEGIN@23 # spent 63µs making 1 call to Exporter::import
24327µs219µs
# spent 15µs (12+4) within C4::VirtualShelves::BEGIN@24 which was called: # once (12µs+4µs) by C4::Auth::BEGIN@31 at line 24
use C4::Context;
# spent 15µs making 1 call to C4::VirtualShelves::BEGIN@24 # spent 4µs making 1 call to C4::Context::import
25341µs2211µs
# spent 113µs (15+98) within C4::VirtualShelves::BEGIN@25 which was called: # once (15µs+98µs) by C4::Auth::BEGIN@31 at line 25
use C4::Debug;
# spent 113µs making 1 call to C4::VirtualShelves::BEGIN@25 # spent 98µs making 1 call to Exporter::import
26
27335µs2132µs
# spent 72µs (12+60) within C4::VirtualShelves::BEGIN@27 which was called: # once (12µs+60µs) by C4::Auth::BEGIN@31 at line 27
use constant SHELVES_MASTHEAD_MAX => 10; #number under Lists button in masthead
# spent 72µs making 1 call to C4::VirtualShelves::BEGIN@27 # spent 60µs making 1 call to constant::import
28330µs274µs
# spent 42µs (9+32) within C4::VirtualShelves::BEGIN@28 which was called: # once (9µs+32µs) by C4::Auth::BEGIN@31 at line 28
use constant SHELVES_COMBO_MAX => 10; #add to combo in search
# spent 42µs making 1 call to C4::VirtualShelves::BEGIN@28 # spent 32µs making 1 call to constant::import
29330µs284µs
# spent 46µs (9+38) within C4::VirtualShelves::BEGIN@29 which was called: # once (9µs+38µs) by C4::Auth::BEGIN@31 at line 29
use constant SHELVES_MGRPAGE_MAX => 20; #managing page
# spent 46µs making 1 call to C4::VirtualShelves::BEGIN@29 # spent 38µs making 1 call to constant::import
30338µs272µs
# spent 40µs (8+32) within C4::VirtualShelves::BEGIN@30 which was called: # once (8µs+32µs) by C4::Auth::BEGIN@31 at line 30
use constant SHELVES_POPUP_MAX => 40; #addbybiblio popup
# spent 40µs making 1 call to C4::VirtualShelves::BEGIN@30 # spent 32µs making 1 call to constant::import
31
32384µs2163µs
# spent 87µs (10+76) within C4::VirtualShelves::BEGIN@32 which was called: # once (10µs+76µs) by C4::Auth::BEGIN@31 at line 32
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
# spent 87µs making 1 call to C4::VirtualShelves::BEGIN@32 # spent 76µs making 1 call to vars::import
33
34
# spent 30µs within C4::VirtualShelves::BEGIN@34 which was called: # once (30µs+0s) by C4::Auth::BEGIN@31 at line 50
BEGIN {
35 # set the version for version checking
3612µs $VERSION = 3.07.00.049;
371900ns require Exporter;
38113µs @ISA = qw(Exporter);
3914µs @EXPORT = qw(
40 &GetShelves &GetShelfContents &GetShelf
41 &AddToShelf &AddShelf
42 &ModShelf
43 &ShelfPossibleAction
44 &DelFromShelf &DelShelf
45 &GetBibliosShelves
46 );
47111µs @EXPORT_OK = qw(
48 &GetAllShelves &ShelvesMax
49 );
5012.55ms130µs}
# spent 30µs making 1 call to C4::VirtualShelves::BEGIN@34
51
52
53=head1 NAME
54
- -
98sub GetShelves {
99 my ($category, $row_count, $offset, $owner) = @_;
100 my @params;
101 my $total = _shelf_count($owner, $category);
102 my $dbh = C4::Context->dbh;
103 my $query = qq{
104 SELECT vs.shelfnumber, vs.shelfname,vs.owner,
105 bo.surname,bo.firstname,vs.category,vs.sortfield,
106 count(vc.biblionumber) as count
107 FROM virtualshelves vs
108 LEFT JOIN borrowers bo ON vs.owner=bo.borrowernumber
109 LEFT JOIN virtualshelfcontents vc USING (shelfnumber) };
110 if($category==1) {
111 $query.= qq{
112 LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber
113 AND sh.borrowernumber=?
114 WHERE category=1 AND (vs.owner=? OR sh.borrowernumber=?) };
115 @params= ($owner, $owner, $owner, $offset||0, $row_count);
116 }
117 else {
118 $query.= 'WHERE category=2 ';
119 @params= ($offset||0, $row_count);
120 }
121 $query.= qq{
122 GROUP BY vs.shelfnumber
123 ORDER BY vs.shelfname
124 LIMIT ?, ?};
125
126 my $sth2 = $dbh->prepare($query);
127 $sth2->execute(@params);
128 my %shelflist;
129 while( my ($shelfnumber, $shelfname, $owner, $surname, $firstname, $category, $sortfield, $count)= $sth2->fetchrow) {
130 $shelflist{$shelfnumber}->{'shelfname'} = $shelfname;
131 $shelflist{$shelfnumber}->{'count'} = $count;
132 $shelflist{$shelfnumber}->{'single'} = $count==1;
133 $shelflist{$shelfnumber}->{'sortfield'} = $sortfield;
134 $shelflist{$shelfnumber}->{'category'} = $category;
135 $shelflist{$shelfnumber}->{'owner'} = $owner;
136 $shelflist{$shelfnumber}->{'surname'} = $surname;
137 $shelflist{$shelfnumber}->{'firstname'} = $firstname;
138 }
139 return ( \%shelflist, $total );
140}
141
142=head2 GetAllShelves
143
- -
154sub GetAllShelves {
155 my ($category,$owner,$adding_allowed) = @_;
156 my @params;
157 my $dbh = C4::Context->dbh;
158 my $query = 'SELECT vs.* FROM virtualshelves vs ';
159 if($category==1) {
160 $query.= qq{
161 LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber
162 AND sh.borrowernumber=?
163 WHERE category=1 AND (vs.owner=? OR sh.borrowernumber=?) };
164 @params = ($owner, $owner, $owner);
165 }
166 else {
167 $query.='WHERE category=2 ';
168 @params = ();
169 }
170 $query.='AND (allow_add=1 OR owner=?) ' if $adding_allowed;
171 push @params, $owner if $adding_allowed;
172 $query.= 'ORDER BY shelfname ASC';
173 my $sth = $dbh->prepare( $query );
174 $sth->execute(@params);
175 return $sth->fetchall_arrayref({});
176}
177
178=head2 GetSomeShelfNames
179
- -
184
# spent 3.28ms (99µs+3.18) within C4::VirtualShelves::GetSomeShelfNames which was called 2 times, avg 1.64ms/call: # once (60µs+2.17ms) by C4::Auth::get_template_and_user at line 282 of /usr/share/koha/lib/C4/Auth.pm # once (40µs+1.01ms) by main::RUNTIME at line 873 of /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
sub GetSomeShelfNames {
18524µs my ($owner, $purpose, $adding_allowed)= @_;
18622µs my ($bar, $pub, @params);
187212µs21.71ms my $dbh = C4::Context->dbh;
# spent 1.71ms making 2 calls to C4::Context::dbh, avg 853µs/call
188
18923µs my $bquery = 'SELECT vs.shelfnumber, vs.shelfname FROM virtualshelves vs ';
190213µs260µs my $limit= ShelvesMax($purpose);
# spent 60µs making 2 calls to C4::VirtualShelves::ShelvesMax, avg 30µs/call
191
19226µs my $qry1= $bquery."WHERE vs.category=2 ";
19322µs $qry1.= "AND (allow_add=1 OR owner=?) " if $adding_allowed;
19423µs push @params, $owner||0 if $adding_allowed;
19526µs $qry1.= "ORDER BY vs.lastmodified DESC LIMIT $limit";
196
197274µs52.78ms unless($adding_allowed && (!defined($owner) || $owner<=0)) {
# spent 1.42ms making 1 call to DBI::db::selectall_arrayref # spent 1.36ms making 1 call to DBD::_::db::selectall_arrayref # spent 6µs making 2 calls to DBI::common::DESTROY, avg 3µs/call # spent 2µs making 1 call to DBD::_mem::common::DESTROY
198 #if adding items, user should be known
199 $pub= $dbh->selectall_arrayref($qry1,{Slice=>{}},@params);
200 }
201
20221µs if($owner) {
203 my $qry2= $bquery. qq{
204 LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber AND sh.borrowernumber=?
205 WHERE vs.category=1 AND (vs.owner=? OR sh.borrowernumber=?) };
206 @params=($owner,$owner,$owner);
207 $qry2.= "AND (allow_add=1 OR owner=?) " if $adding_allowed;
208 push @params, $owner if $adding_allowed;
209 $qry2.= "ORDER BY vs.lastmodified DESC ";
210 $qry2.= "LIMIT $limit";
211 $bar= $dbh->selectall_arrayref($qry2,{Slice=>{}},@params);
212 }
213
214221µs return ( { bartotal => $bar? scalar @$bar: 0, pubtotal => $pub? scalar @$pub: 0}, $pub, $bar);
215}
216
217=head2 GetShelf
218
- -
225sub GetShelf {
226 my ($shelfnumber) = @_;
227 my $dbh = C4::Context->dbh;
228 my $query = qq(
229 SELECT shelfnumber, shelfname, owner, category, sortfield,
230 allow_add, allow_delete_own, allow_delete_other
231 FROM virtualshelves
232 WHERE shelfnumber=?
233 );
234 my $sth = $dbh->prepare($query);
235 $sth->execute($shelfnumber);
236 return $sth->fetchrow;
237}
238
239=head2 GetShelfContents
240
- -
257sub GetShelfContents {
258 my ($shelfnumber, $row_count, $offset, $sortfield, $sort_direction ) = @_;
259 my $dbh=C4::Context->dbh();
260 my $sth1 = $dbh->prepare("SELECT count(*) FROM virtualshelfcontents WHERE shelfnumber = ?");
261 $sth1->execute($shelfnumber);
262 my $total = $sth1->fetchrow;
263 if(!$sortfield) {
264 my $sth2 = $dbh->prepare('SELECT sortfield FROM virtualshelves WHERE shelfnumber=?');
265 $sth2->execute($shelfnumber);
266 ($sortfield) = $sth2->fetchrow_array;
267 }
268 my $query =
269 " SELECT DISTINCT vc.biblionumber, vc.shelfnumber, vc.dateadded, itemtypes.*,
270 biblio.*, biblioitems.itemtype, biblioitems.publicationyear as year, biblioitems.publishercode, biblioitems.place, biblioitems.size, biblioitems.pages
271 FROM virtualshelfcontents vc
272 JOIN biblio ON vc.biblionumber = biblio.biblionumber
273 LEFT JOIN biblioitems ON biblio.biblionumber = biblioitems.biblionumber
274 LEFT JOIN items ON items.biblionumber=vc.biblionumber
275 LEFT JOIN itemtypes ON biblioitems.itemtype = itemtypes.itemtype
276 WHERE vc.shelfnumber=? ";
277 my @params = ($shelfnumber);
278 if($sortfield) {
279 $query .= " ORDER BY " . $dbh->quote_identifier( $sortfield );
280 $query .= " DESC " if ( $sort_direction eq 'desc' );
281 }
282 if($row_count){
283 $query .= " LIMIT ?, ? ";
284 push (@params, ($offset ? $offset : 0));
285 push (@params, $row_count);
286 }
287 my $sth3 = $dbh->prepare($query);
288 $sth3->execute(@params);
289 return ($sth3->fetchall_arrayref({}), $total);
290 # Like the perldoc says,
291 # returns reference-to-array, where each element is reference-to-hash of the row:
292 # like [ $sth->fetchrow_hashref(), $sth->fetchrow_hashref() ... ]
293 # Suitable for use in TMPL_LOOP.
294 # See http://search.cpan.org/~timb/DBI-1.601/DBI.pm#fetchall_arrayref
295 # or newer, for your version of DBI.
296}
297
298=head2 AddShelf
299
- -
310sub AddShelf {
311 my ($hashref, $owner)= @_;
312 my $dbh = C4::Context->dbh;
313
314 #initialize missing hash values to silence warnings
315 foreach('shelfname','category', 'sortfield', 'allow_add', 'allow_delete_own', 'allow_delete_other' ) {
316 $hashref->{$_}= undef unless exists $hashref->{$_};
317 }
318
319 return -1 unless _CheckShelfName($hashref->{shelfname}, $hashref->{category}, $owner, 0);
320
321 my $query = qq(INSERT INTO virtualshelves
322 (shelfname,owner,category,sortfield,allow_add,allow_delete_own,allow_delete_other)
323 VALUES (?,?,?,?,?,?,?));
324
325 my $sth = $dbh->prepare($query);
326 $sth->execute(
327 $hashref->{shelfname},
328 $owner,
329 $hashref->{category},
330 $hashref->{sortfield},
331 $hashref->{allow_add}//0,
332 $hashref->{allow_delete_own}//1,
333 $hashref->{allow_delete_other}//0 );
334 my $shelfnumber = $dbh->{'mysql_insertid'};
335 return $shelfnumber;
336}
337
338=head2 AddToShelf
339
- -
347sub AddToShelf {
348 my ($biblionumber, $shelfnumber, $borrowernumber) = @_;
349 return unless $biblionumber;
350 my $dbh = C4::Context->dbh;
351 my $query = qq(
352 SELECT *
353 FROM virtualshelfcontents
354 WHERE shelfnumber=? AND biblionumber=?
355 );
356 my $sth = $dbh->prepare($query);
357
358 $sth->execute( $shelfnumber, $biblionumber );
359 ($sth->rows) and return; # already on shelf
360 $query = qq(
361 INSERT INTO virtualshelfcontents
362 (shelfnumber, biblionumber, flags, borrowernumber)
363 VALUES (?, ?, 0, ?));
364 $sth = $dbh->prepare($query);
365 $sth->execute( $shelfnumber, $biblionumber, $borrowernumber);
366 $query = qq(UPDATE virtualshelves
367 SET lastmodified = CURRENT_TIMESTAMP
368 WHERE shelfnumber = ?);
369 $sth = $dbh->prepare($query);
370 $sth->execute( $shelfnumber );
371}
372
373=head2 ModShelf
374
- -
388sub ModShelf {
389 my ($shelfnumber,$hashref) = @_;
390 my $dbh = C4::Context->dbh;
391
392 my $query= "SELECT * FROM virtualshelves WHERE shelfnumber=?";
393 my $sth = $dbh->prepare($query);
394 $sth->execute($shelfnumber);
395 my $oldrecord= $sth->fetchrow_hashref;
396 return 0 unless $oldrecord; #not found?
397
398 #initialize missing hash values to silence warnings
399 foreach('shelfname','category', 'sortfield', 'allow_add', 'allow_delete_own', 'allow_delete_other' ) {
400 $hashref->{$_}= undef unless exists $hashref->{$_};
401 }
402
403 #if name or category changes, the name should be tested
404 if($hashref->{shelfname} || $hashref->{category}) {
405 unless(_CheckShelfName(
406 $hashref->{shelfname}//$oldrecord->{shelfname},
407 $hashref->{category}//$oldrecord->{category},
408 $oldrecord->{owner},
409 $shelfnumber )) {
410 return 0; #name check failed
411 }
412 }
413
414 #only the following fields from the hash may be changed
415 $query= "UPDATE virtualshelves SET shelfname=?, category=?, sortfield=?, allow_add=?, allow_delete_own=?, allow_delete_other=? WHERE shelfnumber=?";
416 $sth = $dbh->prepare($query);
417 $sth->execute(
418 $hashref->{shelfname}//$oldrecord->{shelfname},
419 $hashref->{category}//$oldrecord->{category},
420 $hashref->{sortfield}//$oldrecord->{sortfield},
421 $hashref->{allow_add}//$oldrecord->{allow_add},
422 $hashref->{allow_delete_own}//$oldrecord->{allow_delete_own},
423 $hashref->{allow_delete_other}//$oldrecord->{allow_delete_other},
424 $shelfnumber );
425 return $@? 0: 1;
426}
427
428=head2 ShelfPossibleAction
429
- -
445sub ShelfPossibleAction {
446 my ( $user, $shelfnumber, $action ) = @_;
447 $action= 'view' unless $action;
448 $user=0 unless $user;
449
450 if($action =~ /^new/) { #no shelfnumber needed
451 if($action eq 'new_private') {
452 return $user>0;
453 }
454 elsif($action eq 'new_public') {
455 return $user>0 && C4::Context->preference('OpacAllowPublicListCreation');
456 }
457 return 0;
458 }
459
460 return 0 unless defined($shelfnumber);
461
462 my $dbh = C4::Context->dbh;
463 my $query = qq/
464 SELECT COALESCE(owner,0) AS owner, category, allow_add, allow_delete_own, allow_delete_other, COALESCE(sh.borrowernumber,0) AS borrowernumber
465 FROM virtualshelves vs
466 LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber
467 AND sh.borrowernumber=?
468 WHERE vs.shelfnumber=?
469 /;
470 my $sth = $dbh->prepare($query);
471 $sth->execute($user, $shelfnumber);
472 my $shelf= $sth->fetchrow_hashref;
473
474 return 0 unless $shelf && ($shelf->{category}==2 || $shelf->{owner}==$user || ($user && $shelf->{borrowernumber}==$user));
475 if($action eq 'view') {
476 #already handled in the above condition
477 return 1;
478 }
479 elsif($action eq 'add') {
480 return 0 if $user<=0; #should be logged in
481 return 1 if $shelf->{allow_add}==1 || $shelf->{owner}==$user;
482 #owner may always add
483 }
484 elsif($action eq 'delete') {
485 #this answer is just diplomatic: it says that you may be able to delete
486 #some items from that shelf
487 #it does not answer the question about a specific biblio
488 #DelFromShelf checks the situation per biblio
489 return 1 if $user>0 && ($shelf->{allow_delete_own}==1 || $shelf->{allow_delete_other}==1);
490 }
491 elsif($action eq 'manage') {
492 return 1 if $user && $shelf->{owner}==$user;
493 }
494 return 0;
495}
496
497=head2 DelFromShelf
498
- -
508sub DelFromShelf {
509 my ($bibref, $shelfnumber, $user) = @_;
510 my $dbh = C4::Context->dbh;
511 my $query = qq(SELECT allow_delete_own, allow_delete_other FROM virtualshelves WHERE shelfnumber=?);
512 my $sth= $dbh->prepare($query);
513 $sth->execute($shelfnumber);
514 my ($del_own, $del_oth)= $sth->fetchrow;
515 my $r; my $t=0;
516
517 if($del_own) {
518 $query = qq(DELETE FROM virtualshelfcontents
519 WHERE shelfnumber=? AND biblionumber=? AND borrowernumber=?);
520 $sth= $dbh->prepare($query);
521 foreach my $biblionumber (@$bibref) {
522 $sth->execute($shelfnumber, $biblionumber, $user);
523 $r= $sth->rows; #Expect -1, 0 or 1 (-1 means Don't know; count as 1)
524 $t+= ($r==-1)? 1: $r;
525 }
526 }
527 if($del_oth) {
528 #includes a check if borrowernumber is null (deleted patron)
529 $query = qq/DELETE FROM virtualshelfcontents
530 WHERE shelfnumber=? AND biblionumber=? AND
531 (borrowernumber IS NULL OR borrowernumber<>?)/;
532 $sth= $dbh->prepare($query);
533 foreach my $biblionumber (@$bibref) {
534 $sth->execute($shelfnumber, $biblionumber, $user);
535 $r= $sth->rows;
536 $t+= ($r==-1)? 1: $r;
537 }
538 }
539 return $t;
540}
541
542=head2 DelShelf
543
- -
552sub DelShelf {
553 my ($shelfnumber)= @_;
554 return unless $shelfnumber && $shelfnumber =~ /^\d+$/;
555 my $dbh = C4::Context->dbh;
556 my $sth = $dbh->prepare("DELETE FROM virtualshelves WHERE shelfnumber=?");
557 return $sth->execute($shelfnumber);
558}
559
560=head2 GetBibliosShelves
561
- -
566sub GetBibliosShelves {
567 my ( $biblionumber ) = @_;
568 my $dbh = C4::Context->dbh;
569 my $sth = $dbh->prepare('
570 SELECT vs.shelfname, vs.shelfnumber
571 FROM virtualshelves vs
572 JOIN virtualshelfcontents vc ON (vs.shelfnumber= vc.shelfnumber)
573 WHERE vs.category=2
574 AND vc.biblionumber= ?
575 ');
576 $sth->execute( $biblionumber );
577 return $sth->fetchall_arrayref({});
578}
579
580=head2 ShelvesMax
581
- -
591
# spent 60µs within C4::VirtualShelves::ShelvesMax which was called 2 times, avg 30µs/call: # 2 times (60µs+0s) by C4::VirtualShelves::GetSomeShelfNames at line 190, avg 30µs/call
sub ShelvesMax {
59223µs my $which= shift;
59324µs return SHELVES_POPUP_MAX if $which eq 'POPUP';
594240µs return SHELVES_MGRPAGE_MAX if $which eq 'MGRPAGE';
59526µs return SHELVES_COMBO_MAX if $which eq 'COMBO';
59617µs return SHELVES_MASTHEAD_MAX if $which eq 'MASTHEAD';
597 return SHELVES_MASTHEAD_MAX;
598}
599
600=head2 HandleDelBorrower
601
- -
611sub HandleDelBorrower {
612 my ($borrower)= @_;
613 my $query;
614 my $dbh = C4::Context->dbh;
615
616 #Delete shares of this borrower (not lists !)
617 #Although this would be done later via the FK cascaded delete, we do it now.
618 #Because it makes the following delete statement on shelves more meaningful.
619 $query="DELETE FROM virtualshelfshares WHERE borrowernumber=?";
620 $dbh->do($query,undef,($borrower));
621
622 #Delete private lists without owner that now have no shares anymore
623 $query="DELETE vs.* FROM virtualshelves vs LEFT JOIN virtualshelfshares sh USING (shelfnumber) WHERE category=1 AND vs.owner IS NULL AND sh.shelfnumber IS NULL";
624 $dbh->do($query);
625
626 #Change owner for private lists which have shares
627 $query="UPDATE virtualshelves LEFT JOIN virtualshelfshares sh USING (shelfnumber) SET owner=NULL where owner=? AND category=1 AND sh.borrowernumber IS NOT NULL";
628 $dbh->do($query,undef,($borrower));
629
630 #Delete unshared private lists
631 $query="DELETE FROM virtualshelves WHERE owner=? AND category=1";
632 $dbh->do($query,undef,($borrower));
633
634 #Handle public lists owned by borrower
635 $query="UPDATE virtualshelves SET owner=NULL WHERE owner=? AND category=2";
636 $dbh->do($query,undef,($borrower));
637
638 #Handle entries added by borrower to lists of others
639 $query="UPDATE virtualshelfcontents SET borrowernumber=NULL WHERE borrowernumber=?";
640 $dbh->do($query,undef,($borrower));
641}
642
643# internal subs
644
645sub _shelf_count {
646 my ($owner, $category) = @_;
647 my @params;
648 # Find out how many shelves total meet the submitted criteria...
649
650 my $dbh = C4::Context->dbh;
651 my $query = "SELECT count(*) FROM virtualshelves vs ";
652 if($category==1) {
653 $query.= qq{
654 LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber
655 AND sh.borrowernumber=?
656 WHERE category=1 AND (vs.owner=? OR sh.borrowernumber=?) };
657 @params= ($owner, $owner, $owner);
658 }
659 else {
660 $query.='WHERE category=2';
661 @params= ();
662 }
663 my $sth = $dbh->prepare($query);
664 $sth->execute(@params);
665 my ($total)= $sth->fetchrow;
666 return $total;
667}
668
669sub _biblionumber_sth { #only used in obsolete sub below
670 my ($shelf) = @_;
671 my $query = 'select biblionumber from virtualshelfcontents where shelfnumber = ?';
672 my $dbh = C4::Context->dbh;
673 my $sth = $dbh->prepare($query)
674 or die $dbh->errstr;
675 $sth->execute( $shelf )
676 or die $sth->errstr;
677 $sth;
678}
679
680sub _CheckShelfName {
681 my ($name, $cat, $owner, $number)= @_;
682
683 my $dbh = C4::Context->dbh;
684 my @pars;
685 my $query = qq(
686 SELECT DISTINCT shelfnumber
687 FROM virtualshelves
688 LEFT JOIN virtualshelfshares sh USING (shelfnumber)
689 WHERE shelfname=? AND shelfnumber<>?);
690 if($cat==1 && defined($owner)) {
691 $query.= ' AND (sh.borrowernumber=? OR owner=?) AND category=1';
692 @pars=($name, $number, $owner, $owner);
693 }
694 elsif($cat==1 && !defined($owner)) { #owner is null (exceptional)
695 $query.= ' AND owner IS NULL AND category=1';
696 @pars=($name, $number);
697 }
698 else { #public list
699 $query.= ' AND category=2';
700 @pars=($name, $number);
701 }
702 my $sth = $dbh->prepare($query);
703 $sth->execute(@pars);
704 return $sth->rows>0? 0: 1;
705}
706
70715µs1;
708
709__END__
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.