|
Lines 48-53
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
Link Here
|
| 48 |
|
48 |
|
| 49 |
# get borrower information .... |
49 |
# get borrower information .... |
| 50 |
my ( $borr ) = GetMemberDetails( $borrowernumber ); |
50 |
my ( $borr ) = GetMemberDetails( $borrowernumber ); |
|
|
51 |
my ( $patronemail ) = GetFirstValidEmailAddress($borrowernumber); |
| 51 |
my $lib = GetBranchDetail($borr->{'branchcode'}); |
52 |
my $lib = GetBranchDetail($borr->{'branchcode'}); |
| 52 |
|
53 |
|
| 53 |
# handle the new information.... |
54 |
# handle the new information.... |
|
Lines 80-85
if ( !$updateemailaddress || $updateemailaddress eq '' ) {
Link Here
|
| 80 |
exit; |
81 |
exit; |
| 81 |
} |
82 |
} |
| 82 |
|
83 |
|
|
|
84 |
if ( !$patronemail || $patronemail eq '' ) { |
| 85 |
$patronemail = $updateemailaddress; |
| 86 |
}; |
| 87 |
|
| 83 |
if ( $query->param('modify') ) { |
88 |
if ( $query->param('modify') ) { |
| 84 |
|
89 |
|
| 85 |
# get all the fields: |
90 |
# get all the fields: |
|
Lines 117-123
EOF
Link Here
|
| 117 |
$message .= "\n\nThanks,\nKoha\n\n"; |
122 |
$message .= "\n\nThanks,\nKoha\n\n"; |
| 118 |
my %mail = ( |
123 |
my %mail = ( |
| 119 |
To => $updateemailaddress, |
124 |
To => $updateemailaddress, |
| 120 |
From => $updateemailaddress, |
125 |
From => $patronemail, |
| 121 |
Subject => "User Request for update of Record.", |
126 |
Subject => "User Request for update of Record.", |
| 122 |
Message => $message, |
127 |
Message => $message, |
| 123 |
'Content-Type' => 'text/plain; charset="utf8"', |
128 |
'Content-Type' => 'text/plain; charset="utf8"', |
| 124 |
- |
|
|