use Mail::Sendmail;
use C4::Auth; # checkauth, getborrowernumber.
+use C4::Context;
use C4::Koha;
use C4::Circulation::Circ2;
use HTML::Template;
# collect the form values and send an email.
my @fields = ('title', 'surname', 'firstname', 'phone', 'faxnumber', 'streetaddress', 'emailaddress', 'city');
my $update;
-my $updateemailaddress = "finlay\@katipo.co.nz"; #Will have to change this! !!!!!!!!!!!!!!!!!!!
+my $updateemailaddress= C4::Context->preference('KohaAdminEmailAddress');
+if ($updateemailaddress eq '') {
+ warn "KohaAdminEmailAddress system preference not set. Couldn't send patron update information for $borr->{'firstname'} $borr->{'surname'} (#$borrowernumber)\n";
+ my $template = gettemplate("kohaerror.tmpl", "opac");
+
+ $template->param(errormessage => 'KohaAdminEmailAddress system preference
+ is not set. Please visit the library to update your user record');
+
+ print $query->header(), $template->output;
+ exit;
+}
+
if ($query->{'title'}) {
# get all the fields:
my $message = <<"EOF";
# do something if it works....
warn "Mail sent ok\n";
print $query->redirect('/cgi-bin/koha/opac-user.pl');
+ exit;
} else {
# do something if it doesnt work....
warn "Error sending mail: $Mail::Sendmail::error \n";