gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Made patron update request email address into a system preference: KohaAdminEmailAddress.

This commit is contained in:
tonnesen 2002-10-28 20:54:33 +00:00
parent 1767390817
commit 4c94f948b5
3 changed files with 48 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
koha-tmpl/intranet-tmpl/default/en/kohaerror.tmpl Normal file
View File

@ -0,0 +1,17 @@
<TMPL_INCLUDE NAME="catalogue-top.inc">
<center>
<table border=1 cellspacing=5 bgcolor=red>
<tr><td>
<table border=0 bgcolor=#dddddd>
<tr><th>An Error has Occurred</th></tr>
<tr><td><TMPL_VAR NAME=errormessage></td></tr>
</table>
</td></tr>
</table>
</center>
<TMPL_INCLUDE NAME="catalogue-bottom.inc">

17
koha-tmpl/opac-tmpl/default/en/kohaerror.tmpl Normal file
View File

@ -0,0 +1,17 @@
<TMPL_INCLUDE NAME="opac-top.inc">
<center>
<table border=1 cellspacing=5 bgcolor=red>
<tr><td>
<table border=0 bgcolor=#dddddd>
<tr><th>An Error has Occurred</th></tr>
<tr><td><TMPL_VAR NAME=errormessage></td></tr>
</table>
</td></tr>
</table>
</center>
<TMPL_INCLUDE NAME="opac-bottom.inc">

15
opac/opac-userupdate.pl
View File

@ -6,6 +6,7 @@ use Mail::Sendmail;
use C4::Output; # gettemplate
use C4::Auth; # checkauth, getborrowernumber.
use C4::Context;
use C4::Koha;
use C4::Circulation::Circ2;
@ -26,7 +27,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";
@ -47,6 +59,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";