|
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 |
- |
|
|