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