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

(-)a/opac/opac-userupdate.pl (-8 / +7 lines)
Lines 89-98 if ( $query->param('modify') ) { Link Here
89
89
90
    # get all the fields:
90
    # get all the fields:
91
    my $message = <<"EOF";
91
    my $message = <<"EOF";
92
Patron $borr->{'cardnumber'}
92
Patron $borr->{'cardnumber'} has requested to change her/his personal details.
93
Please check these new details and make the changes to these fields:
93
94
94
has requested to change her/his personal details.
95
Please check these new details and make the changes:
96
EOF
95
EOF
97
96
98
    my $streetnumber = $borr->{'streetnumber'} || '';
97
    my $streetnumber = $borr->{'streetnumber'} || '';
Lines 113-124 EOF Link Here
113
           $borrowerfield  = format_date( $borr->{'dateofbirth'} ) || '';
112
           $borrowerfield  = format_date( $borr->{'dateofbirth'} ) || '';
114
        }
113
        }
115
114
116
        if($borrowerfield eq $newfield) {
115
        if($borrowerfield ne $newfield) {
117
            $message .= "$field : $borrowerfield  -->  $newfield\n";
116
            $message .= $field . " : $borrowerfield  -->  $newfield\n";
118
        } else {
119
            $message .= uc($field) . " : $borrowerfield  -->  $newfield\n";
120
        }
117
        }
121
    }
118
    }
119
120
    $message .= "\nEdit this patron's record: http://".C4::Context->preference('staffClientBaseURL ')."/cgi-bin/koha/members/memberentry.pl?op=modify&borrowernumber=".$borr->{'borrowernumber'}."&categorycode=".$borr->{'categorycode'} if C4::Context->preference('staffClientBaseURL ');
121
122
    $message .= "\n\nThanks,\nKoha\n\n";
122
    $message .= "\n\nThanks,\nKoha\n\n";
123
    my %mail = (
123
    my %mail = (
124
        To      => $updateemailaddress,
124
        To      => $updateemailaddress,
125
- 

Return to bug 7006