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

Updated opac-userupdate.pl to work with 1.3 

Copied kohaerror.tmpl from 1.2 for opac-userupdate.pl
This commit is contained in:
acli 2003-02-04 06:40:04 +00:00
parent d11fb5906b
commit ddc6eadc7b
2 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

16
opac/opac-userupdate.pl
View File

@ -8,6 +8,7 @@ use C4::Auth; # checkauth, getborrowernumber.
use C4::Context;
use C4::Koha;
use C4::Circulation::Circ2;
use C4::Interface::CGI::Output;
use HTML::Template;
@ -33,21 +34,28 @@ my $update;
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");
my($template) = get_template_and_user({template_name => "kohaerror.tmpl",
query => $query,
type => "opac",
authnotrequired => 1,
flagsrequired => {borrow => 1},
debug => 1,
});
$template->param(errormessage => 'KohaAdminEmailAddress system preference
is not set. Please visit the library to update your user record');
print $query->header(), $template->output;
output_html_with_http_headers $query, $cookie, $template->output;
exit;
}
if ($query->{'title'}) {
# get all the fields:
my $message = <<"EOF";
Borrower $borr->{'cardnumber'} http://intradev.katipo.co.nz/cgi-bin/koha/moremember.pl?bornum=$borrowernumber
Borrower $borr->{'cardnumber'}
has requested to change their personal details. Please check these new details and make the changes:
has requested to change her/his personal details.
Please check these new details and make the changes:
EOF
foreach my $field (@fields){
my $newfield = $query->param($field);