@@ -, +, @@ --- C4/Letters.pm | 3 +-- opac/opac-memberentry.pl | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) --- a/C4/Letters.pm +++ a/C4/Letters.pm @@ -535,7 +535,6 @@ sub _substitute_tables { $values = $param; } else { - my @pk; my $sth = _parseletter_sth($table); unless ($sth) { warn "_parseletter_sth('$table') failed to return a valid sth. No substitution will be done for that table."; @@ -575,7 +574,7 @@ sub _parseletter_sth { ($table eq 'aqbooksellers') ? "SELECT * FROM $table WHERE id = ?" : ($table eq 'aqorders' ) ? "SELECT * FROM $table WHERE ordernumber = ?" : ($table eq 'opac_news' ) ? "SELECT * FROM $table WHERE idnew = ?" : - ($table eq 'borrower_modifications') ? "SELECT * FROM $table WHERE ( borrowernumber = 0 OR borrowernumber = ? ) AND ( verification_token = '' OR verification_token = ? ) AND ( verification_token != '' OR borrowernumber != 0 )" : + ($table eq 'borrower_modifications') ? "SELECT * FROM $table WHERE verification_token = ?" : undef ; unless ($query) { warn "ERROR: No _parseletter_sth query for table '$table'"; --- a/opac/opac-memberentry.pl +++ a/opac/opac-memberentry.pl @@ -115,8 +115,7 @@ if ( $action eq 'create' ) { module => 'members', letter_code => 'OPAC_REG_VERIFY', tables => { - borrower_modifications => - [ $verification_token, $verification_token ], + borrower_modifications => $verification_token, }, ); --