Lines 321-329
sub AddShelf {
Link Here
|
321 |
|
321 |
|
322 |
return -1 unless _CheckShelfName($hashref->{shelfname}, $hashref->{category}, $owner, 0); |
322 |
return -1 unless _CheckShelfName($hashref->{shelfname}, $hashref->{category}, $owner, 0); |
323 |
|
323 |
|
324 |
my $query = qq(INSERT INTO virtualshelves |
324 |
my $query = q|INSERT INTO virtualshelves |
325 |
(shelfname,owner,category,sortfield,allow_add,allow_delete_own,allow_delete_other) |
325 |
(shelfname,owner,category,sortfield,allow_add,allow_delete_own,allow_delete_other, creation_time) |
326 |
VALUES (?,?,?,?,?,?,?)); |
326 |
VALUES (?,?,?,?,?,?,?, NOW()) |
|
|
327 |
|; |
327 |
|
328 |
|
328 |
my $sth = $dbh->prepare($query); |
329 |
my $sth = $dbh->prepare($query); |
329 |
$sth->execute( |
330 |
$sth->execute( |
Lines 467-479
sub ShelfPossibleAction {
Link Here
|
467 |
return 0 unless defined($shelfnumber); |
468 |
return 0 unless defined($shelfnumber); |
468 |
|
469 |
|
469 |
my $dbh = C4::Context->dbh; |
470 |
my $dbh = C4::Context->dbh; |
470 |
my $query = qq/ |
471 |
my $query = q{ |
471 |
SELECT COALESCE(owner,0) AS owner, category, allow_add, allow_delete_own, allow_delete_other, COALESCE(sh.borrowernumber,0) AS borrowernumber |
472 |
SELECT COALESCE(owner,0) AS owner, category, allow_add, allow_delete_own, allow_delete_other, COALESCE(sh.borrowernumber,0) AS borrowernumber |
472 |
FROM virtualshelves vs |
473 |
FROM virtualshelves vs |
473 |
LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber |
474 |
LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber |
474 |
AND sh.borrowernumber=? |
475 |
AND sh.borrowernumber=? |
475 |
WHERE vs.shelfnumber=? |
476 |
WHERE vs.shelfnumber=? |
476 |
/; |
477 |
}; |
477 |
my $sth = $dbh->prepare($query); |
478 |
my $sth = $dbh->prepare($query); |
478 |
$sth->execute($user, $shelfnumber); |
479 |
$sth->execute($user, $shelfnumber); |
479 |
my $shelf= $sth->fetchrow_hashref; |
480 |
my $shelf= $sth->fetchrow_hashref; |