Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Sync to same file in 1.2 branch

Browse source
This commit is contained in:
acli 2003-02-04 06:01:52 +00:00
parent dba5a50738
commit ad5c82626d
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
opac/opac-userupdate.pl
View file

@ -5,6 +5,7 @@ use CGI;
use Mail::Sendmail;
use C4::Auth; # checkauth, getborrowernumber.
use C4::Context;
use C4::Koha;
use C4::Circulation::Circ2;
use HTML::Template;
@ -29,7 +30,18 @@ my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
# 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";
@ -50,6 +62,7 @@ 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";