|
Lines 9-15
return {
Link Here
|
| 9 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
9 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
| 10 |
|
10 |
|
| 11 |
# Users to exclude from update, (superlibrarians or borrowers flags) |
11 |
# Users to exclude from update, (superlibrarians or borrowers flags) |
| 12 |
my $sth = $dbh->prepare("SELECT borrowernumber FROM borrowers WHERE flags = 1 OR (flags & 4) > 0"); |
12 |
my $sth = $dbh->prepare("SELECT borrowernumber FROM borrowers WHERE flags = 1 OR flags & (1<<4)"); |
| 13 |
$sth->execute(); |
13 |
$sth->execute(); |
| 14 |
my @exclusions = map { $_->[0] } @{ $sth->fetchall_arrayref }; |
14 |
my @exclusions = map { $_->[0] } @{ $sth->fetchall_arrayref }; |
| 15 |
|
15 |
|
| 16 |
- |
|
|