Lines 480-486
sub select_all_biblios {
Link Here
|
480 |
$table = 'biblioitems' |
480 |
$table = 'biblioitems' |
481 |
unless grep { /^$table$/ } @tables_allowed_for_select; |
481 |
unless grep { /^$table$/ } @tables_allowed_for_select; |
482 |
my $strsth = qq{ SELECT biblionumber FROM $table }; |
482 |
my $strsth = qq{ SELECT biblionumber FROM $table }; |
483 |
$strsth.=qq{ WHERE $where } if ($where); |
483 |
$strsth.=qq{ WHERE $where AND deleted_on IS NULL} if ($where); |
|
|
484 |
$strsth.=qq{ WHERE deleted_on IS NULL} unless ($where); |
484 |
$strsth.=qq{ LIMIT $length } if ($length && !$offset); |
485 |
$strsth.=qq{ LIMIT $length } if ($length && !$offset); |
485 |
$strsth.=qq{ LIMIT $offset,$length } if ($offset); |
486 |
$strsth.=qq{ LIMIT $offset,$length } if ($offset); |
486 |
my $sth = $dbh->prepare($strsth); |
487 |
my $sth = $dbh->prepare($strsth); |
487 |
- |
|
|