|
Lines 1993-2005
sub MergeHolds {
Link Here
|
| 1993 |
# don't reorder those already waiting |
1993 |
# don't reorder those already waiting |
| 1994 |
|
1994 |
|
| 1995 |
$sth = $dbh->prepare( |
1995 |
$sth = $dbh->prepare( |
| 1996 |
"SELECT * FROM reserves WHERE biblionumber = ? AND (found <> ? AND found <> ? OR found is NULL) ORDER BY reservedate ASC" |
1996 |
"SELECT * FROM reserves WHERE biblionumber = ? AND (found NOT IN ('W', 'T', 'P') OR found is NULL) ORDER BY reservedate ASC" |
| 1997 |
); |
1997 |
); |
| 1998 |
my $upd_sth = $dbh->prepare( |
1998 |
my $upd_sth = $dbh->prepare( |
| 1999 |
"UPDATE reserves SET priority = ? WHERE biblionumber = ? AND borrowernumber = ? |
1999 |
"UPDATE reserves SET priority = ? WHERE biblionumber = ? AND borrowernumber = ? |
| 2000 |
AND reservedate = ? AND (itemnumber = ? or itemnumber is NULL) " |
2000 |
AND reservedate = ? AND (itemnumber = ? or itemnumber is NULL) " |
| 2001 |
); |
2001 |
); |
| 2002 |
$sth->execute( $to_biblio, 'W', 'T', 'P' ); |
2002 |
$sth->execute( $to_biblio ); |
| 2003 |
my $priority = 1; |
2003 |
my $priority = 1; |
| 2004 |
while ( my $reserve = $sth->fetchrow_hashref() ) { |
2004 |
while ( my $reserve = $sth->fetchrow_hashref() ) { |
| 2005 |
$upd_sth->execute( |
2005 |
$upd_sth->execute( |
| 2006 |
- |
|
|