use Carp;
use C4::Context;
-use C4::Circulation;
use C4::Debug;
-use C4::Members;
-require C4::Auth;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
my @params;
my $selection;
if (defined $owner) {
- @params = ($owner, $mincategory, $row_count);
+ @params = ($owner, $mincategory);
$selection = ' WHERE owner = ? AND category = ?';
} else {
- @params = ( $mincategory, $row_count);
+ @params = ( $mincategory);
$selection = ' WHERE category >= ? ';
}
my $query = 'SELECT * FROM virtualshelves';
$query .= $selection;
- $query .= ' ORDER BY lastmodified DESC LIMIT ?';
+ $query .= ' ORDER BY lastmodified DESC';
+ if ($row_count){
+ $query .= ' LIMIT ?';
+ push @params,$row_count;
+ }
my $sth = $dbh->prepare($query);
$sth->execute(@params);
my $shelflist = $sth->fetchall_arrayref({});
}
my $query =
" SELECT vc.biblionumber, vc.shelfnumber, vc.dateadded, itemtypes.*,
- biblio.*, biblioitems.itemtype, biblioitems.publicationyear, biblioitems.publishercode, biblioitems.place, biblioitems.size, biblioitems.pages
+ biblio.*, biblioitems.itemtype, biblioitems.publicationyear as year, biblioitems.publishercode, biblioitems.place, biblioitems.size, biblioitems.pages
FROM virtualshelfcontents vc
LEFT JOIN biblio ON vc.biblionumber = biblio.biblionumber
LEFT JOIN biblioitems ON biblio.biblionumber = biblioitems.biblionumber
my $sth = $dbh->prepare($query);
$sth->execute($shelfnumber);
my ( $owner, $category ) = $sth->fetchrow;
- my $borrower = GetMemberDetails($user);
+ require C4::Members;
+ my $borrower = C4::Members::GetMemberDetails($user);
return 0 if not defined($user);
return 1 if ( $category >= 3); # open list
return 1 if (($category >= 2) and
=cut
sub RefreshShelvesSummary ($$$) {
-
+ require C4::Auth;
my ($sessionID, $loggedinuser, $row_count) = @_;
my $session = C4::Auth::get_session($sessionID);
my ($total, $totshelves, $barshelves, $pubshelves);