View | Details | Raw Unified | Return to bug 13050
Collapse All | Expand All

(-)a/C4/Letters.pm (-2 / +1 lines)
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'";
(-)a/opac/opac-memberentry.pl (-3 / +1 lines)
Lines 115-122 if ( $action eq 'create' ) { Link Here
115
                module      => 'members',
115
                module      => 'members',
116
                letter_code => 'OPAC_REG_VERIFY',
116
                letter_code => 'OPAC_REG_VERIFY',
117
                tables      => {
117
                tables      => {
118
                    borrower_modifications =>
118
                    borrower_modifications => $verification_token,
119
                      [ $verification_token, $verification_token ],
120
                },
119
                },
121
            );
120
            );
122
121
123
- 

Return to bug 13050