From ddc6eadc7bdc4eac3dc004fe21564298356eb5d8 Mon Sep 17 00:00:00 2001 From: acli Date: Tue, 4 Feb 2003 06:40:04 +0000 Subject: [PATCH] Updated opac-userupdate.pl to work with 1.3 Copied kohaerror.tmpl from 1.2 for opac-userupdate.pl --- koha-tmpl/opac-tmpl/default/en/kohaerror.tmpl | 17 +++++++++++++++++ opac/opac-userupdate.pl | 16 ++++++++++++---- 2 files changed, 29 insertions(+), 4 deletions(-) create mode 100644 koha-tmpl/opac-tmpl/default/en/kohaerror.tmpl diff --git a/koha-tmpl/opac-tmpl/default/en/kohaerror.tmpl b/koha-tmpl/opac-tmpl/default/en/kohaerror.tmpl new file mode 100644 index 0000000000..4ffcd60f2e --- /dev/null +++ b/koha-tmpl/opac-tmpl/default/en/kohaerror.tmpl @@ -0,0 +1,17 @@ + + + +
+ + +
+ + + +
An Error has Occurred
+
+
+ + + + diff --git a/opac/opac-userupdate.pl b/opac/opac-userupdate.pl index 5ef29c43ac..c810b2a34d 100755 --- a/opac/opac-userupdate.pl +++ b/opac/opac-userupdate.pl @@ -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); -- 2.39.5