|
Lines 535-541
sub _substitute_tables {
Link Here
|
| 535 |
$values = $param; |
535 |
$values = $param; |
| 536 |
} |
536 |
} |
| 537 |
else { |
537 |
else { |
| 538 |
my @pk; |
|
|
| 539 |
my $sth = _parseletter_sth($table); |
538 |
my $sth = _parseletter_sth($table); |
| 540 |
unless ($sth) { |
539 |
unless ($sth) { |
| 541 |
warn "_parseletter_sth('$table') failed to return a valid sth. No substitution will be done for that table."; |
540 |
warn "_parseletter_sth('$table') failed to return a valid sth. No substitution will be done for that table."; |
|
Lines 575-581
sub _parseletter_sth {
Link Here
|
| 575 |
($table eq 'aqbooksellers') ? "SELECT * FROM $table WHERE id = ?" : |
574 |
($table eq 'aqbooksellers') ? "SELECT * FROM $table WHERE id = ?" : |
| 576 |
($table eq 'aqorders' ) ? "SELECT * FROM $table WHERE ordernumber = ?" : |
575 |
($table eq 'aqorders' ) ? "SELECT * FROM $table WHERE ordernumber = ?" : |
| 577 |
($table eq 'opac_news' ) ? "SELECT * FROM $table WHERE idnew = ?" : |
576 |
($table eq 'opac_news' ) ? "SELECT * FROM $table WHERE idnew = ?" : |
| 578 |
($table eq 'borrower_modifications') ? "SELECT * FROM $table WHERE ( borrowernumber = 0 OR borrowernumber = ? ) AND ( verification_token = '' OR verification_token = ? ) AND ( verification_token != '' OR borrowernumber != 0 )" : |
577 |
($table eq 'borrower_modifications') ? "SELECT * FROM $table WHERE verification_token = ?" : |
| 579 |
undef ; |
578 |
undef ; |
| 580 |
unless ($query) { |
579 |
unless ($query) { |
| 581 |
warn "ERROR: No _parseletter_sth query for table '$table'"; |
580 |
warn "ERROR: No _parseletter_sth query for table '$table'"; |