-[% INCLUDE 'masthead.inc' %] - -

- -

[% firstname %] [% surname %]'s account ⇢ Personal details

- - - - -

Name:	[% firstname %] [% surname %]
-Card number:	[% cardnumber %]

- - - - - - - - - - - - - - - -

Contact details
Mailing address:	[% address %], [% city %]
Permanent address:	[% B_address %], [% B_address2 %], [% B_city %]
Primary phone:	[% IF ( phone ) %][% phone %][% ELSE %] [% END %]
Secondary phone:	[% IF ( mobile ) %][% mobile %][% ELSE %] [% END %]
Fax:	[% IF ( fax ) %][% fax %][% ELSE %] [% END %]
Email:	[% IF ( email ) %][% email %][% ELSE %] [% END %]

- - - - - - - - - - - - - -[% IF ( joiningbranch ) %][% ELSE %] [% END %]

Membership details
Membership number:	[% borrowernumber %]
Membership category:	[% categorycode %]
Joined:	[% dateenrolled %]
Expires:	[% dateexpiry %]
Joining library:	[% joiningbranch %]

- - - - - -

Identity details
DoB:	[% IF ( dateofbirth ) %][% dateofbirth %][% ELSE %] [% END %]
Gender:	[% IF ( sex ) %][% sex %][% ELSE %] [% END %]

- -[% IF ( contactname ) %] - - - - - - - - - - -

Alternate contact details
Alternate contact:	[% IF ( contactname ) %][% contactname %][% ELSE %] [% END %]
Phone:	[% IF ( B_phone ) %][% B_phone %][% ELSE %] [% END %]
Relationship:	[% IF ( relationship ) %][% relationship %][% ELSE %] [% END %]
Notes:	[% IF ( contactnote ) %][% contactnote %][% ELSE %] [% END %]
Guarantor:	[% IF ( guarantorid ) %][% guarantorid %][% ELSE %] [% END %]

- -[% ELSE %] -

No alternate contact on file.

-[% END %] - - - -

-[% INCLUDE 'navigation.inc' %] -[% INCLUDE 'usermenu.inc' %] -

-[% INCLUDE 'opac-bottom.inc' %] diff --git a/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt b/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt deleted file mode 100644 index 320b30b77f..0000000000 --- a/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt +++ /dev/null @@ -1,195 +0,0 @@ -[% USE KohaDates %] - -[% INCLUDE 'doc-head-open.inc' %][% IF ( LibraryNameTitle ) %][% IF ( LibraryNameTitle ) %][% LibraryNameTitle %][% ELSE %]Koha online[% END %][% ELSE %]Koha online[% END %] catalog › Your personal details -[% INCLUDE 'doc-head-close.inc' %] - - -

-[% INCLUDE 'masthead.inc' %] - -

- -

-[% FOREACH BORROWER_INF IN BORROWER_INFO %] -

[% INCLUDE 'patron-title.inc' firstname = BORROWER_INF.firstname surname = BORROWER_INF.surname othernames = BORROWER_INF.othernames cardnumber = BORROWER_INF.cardnumber %]'s account ⇢ Your personal details

- -[% IF ( OPACPatronDetails ) %] -

- -[% IF ( display_patron_image ) %]

- -

[% END %] -

Name

First name:
Other name:
Last name:

- -

Contact information -

Address: - - -
City:
State:
Zip code:
Country:
Primary phone:
Secondary phone:
Other phone:
Fax:
Primary email:
Secondary email:

- -

-Alternate contact information -

- Alternate address: - - - -
City:
State:
Zip code:
Country:
Phone:
Email:

Date of birth:
Gender:

-Library use: -

Card number:
Home library:
Patron number:
Patron category:
Joined:
Expires:
[% patron_attribute.description %] - [% IF ( patron_attribute.value_description ) %] - [% patron_attribute.value_description %]" - [% ELSE %] - [% patron_attribute.value |html_line_break %] - [% END %] -

Please make any necessary changes to your record. Submitting the form will notify a library staff member, who will make the changes permanent.

- Cancel

- -

-[% ELSE %] -

To make changes to your record please contact the library.

-[% IF ( display_patron_image ) %]

- -

[% END %] -

-Contact information -

Name: [% BORROWER_INF.firstname %] [% BORROWER_INF.surname %]
Other name: [% BORROWER_INF.othernames %]
Address: [% BORROWER_INF.streetnumber %] [% BORROWER_INF.address %]
[% BORROWER_INF.address2 %]
City: [% BORROWER_INF.city %]
State: [% BORROWER_INF.state %]
Zip code: [% BORROWER_INF.zipcode %]
Country: [% BORROWER_INF.country %]
Primary phone: [% BORROWER_INF.phone %]
Secondary phone: [% BORROWER_INF.mobile %]
Other phone: [% BORROWER_INF.phonepro %]
Fax: [% BORROWER_INF.fax %]
Primary email: [% BORROWER_INF.email %]
Secondary email: [% BORROWER_INF.emailpro %]

- -

-Personal information -

Date of birth: [% BORROWER_INF.dateofbirth | $KohaDates %]
Gender: -[% IF ( sex == 'F' ) %]Female[% END %] -[% IF ( sex == 'M' ) %]Male[% END %] -

- -

-Alternate contact information -

Alternate address: [% BORROWER_INF.B_streetnumber %] [% BORROWER_INF.B_address %]
[% BORROWER_INF.B_address2 %]
City: [% BORROWER_INF.B_city %]
State: [% BORROWER_INF.B_state %]
Zip code: [% BORROWER_INF.B_zipcode %]
Country: [% BORROWER_INF.B_country %]
Phone: [% BORROWER_INF.B_phone %]
Email: [% BORROWER_INF.B_email %]

- -

-Library use: -

Card number: [% BORROWER_INF.cardnumber %]
Home library: [% BORROWER_INF.branchname %]
Patron number: [% BORROWER_INF.borrowernumber %]
Patron category: [% BORROWER_INF.description %] ([% BORROWER_INF.categorycode %])
Joined: [% BORROWER_INF.dateenrolled | $KohaDates %]
Expires: [% BORROWER_INF.dateexpiry | $KohaDates %]
[% patron_attribute.description %] - [% IF ( patron_attribute.value_description ) %] - [% patron_attribute.value_description %] - [% ELSE %] - [% patron_attribute.value %] - [% END %] -

-[% END %] -[% END %] -

-[% INCLUDE 'navigation.inc' IsPatronPage=1 %] -

-[% INCLUDE 'opac-bottom.inc' %] diff --git a/opac/opac-patron-image.pl b/opac/opac-patron-image.pl index 1935beab0f..d1f4489476 100755 --- a/opac/opac-patron-image.pl +++ b/opac/opac-patron-image.pl @@ -21,27 +21,24 @@ use strict; use warnings; use C4::Members; -use C4::Auth; -my $query = new CGI; +use CGI; +use CGI::Cookie; # need to check cookies before having CGI parse the POST request +use C4::Auth qw(:DEFAULT check_cookie_auth); -my ( $template, $borrowernumber, $cookie ) = get_template_and_user( - { - template_name => "opac-userupdate.tt", - query => $query, - type => "opac", - authnotrequired => 0, - flagsrequired => { borrow => 1 }, - debug => 1, - } -); +my $query = new CGI; unless (C4::Context->preference('OPACpatronimages')) { print $query->header(status => '403 Forbidden - displaying patron images in the OPAC not enabled'); exit; } -my ($borrower)=GetMember('borrowernumber' => $borrowernumber); -my $cardnumber = $borrower->{'cardnumber'}; +my $needed_flags; +my %cookies = fetch CGI::Cookie; +my $sessid = $cookies{'CGISESSID'}->value; +my ($auth_status, $auth_sessid) = check_cookie_auth($sessid, $needed_flags); +my $borrowernumber = C4::Context->userenv->{'number'}; +my $cardnumber = C4::Context->userenv->{'cardnumber'}; + my ($imagedata, $dberror) = GetPatronImage($cardnumber); if ($dberror) { diff --git a/opac/opac-userdetails.pl b/opac/opac-userdetails.pl deleted file mode 100755 index ac10002c5c..0000000000 --- a/opac/opac-userdetails.pl +++ /dev/null @@ -1,56 +0,0 @@ -#!/usr/bin/perl - -# Copyright 2000-2002 Katipo Communications -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along -# with Koha; if not, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - -use strict; -use warnings; - -use CGI; - -use C4::Auth; -use C4::Koha; -use C4::Circulation; - -use C4::Output; -use C4::Dates qw/format_date/; -use C4::Members; - -my $query = new CGI; -my ( $template, $borrowernumber, $cookie ) = get_template_and_user( - { - template_name => "opac-userdetails.tmpl", - query => $query, - type => "opac", - authnotrequired => 0, - flagsrequired => { borrow => 1 }, - debug => 1, - } -); - -# get borrower information .... -my ( $borr ) = GetMemberDetails( $borrowernumber ); - -$borr->{'dateenrolled'} = format_date( $borr->{'dateenrolled'} ); -$borr->{'dateexpiry'} = format_date( $borr->{'dateexpiry'} ); -$borr->{'dateofbirth'} = format_date( $borr->{'dateofbirth'} ); -$borr->{'ethnicity'} = fixEthnicity( $borr->{'ethnicity'} ); - -$template->param($borr); - -output_html_with_http_headers $query, $cookie, $template->output; - diff --git a/opac/opac-userupdate.pl b/opac/opac-userupdate.pl deleted file mode 100755 index 3b90498ef5..0000000000 --- a/opac/opac-userupdate.pl +++ /dev/null @@ -1,188 +0,0 @@ -#!/usr/bin/perl - -# Copyright 2000-2002 Katipo Communications -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along -# with Koha; if not, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - -use strict; -use warnings; - -use CGI; -use Mail::Sendmail; -use Encode; - -use C4::Auth; # checkauth, getborrowernumber. -use C4::Context; -use C4::Koha; -use C4::Circulation; -use C4::Output; -use C4::Dates qw/format_date/; -use C4::Members; -use C4::Members::Attributes; -use C4::Branch; - -my $query = new CGI; - -my ( $template, $borrowernumber, $cookie ) = get_template_and_user( - { - template_name => "opac-userupdate.tmpl", - query => $query, - type => "opac", - authnotrequired => 0, - flagsrequired => { borrow => 1 }, - debug => 1, - } -); - -# get borrower information .... -my ( $borr ) = GetMemberDetails( $borrowernumber ); -my ( $patronemail ) = GetFirstValidEmailAddress($borrowernumber); -my $lib = GetBranchDetail($borr->{'branchcode'}); - -# handle the new information.... -# collect the form values and send an email. -my @fields = ( - 'surname','firstname','othernames','streetnumber','address','address2','city','state','zipcode','country','phone','mobile','fax','phonepro', 'emailaddress','emailpro','B_streetnumber','B_address','B_address2','B_city','B_state','B_zipcode','B_country','B_phone','B_email','dateofbirth','sex' -); -my $update; -my $updateemailaddress = $lib->{'branchemail'}; -$updateemailaddress = C4::Context->preference('KohaAdminEmailAddress') unless( $updateemailaddress =~ /\w+@\w+/); -if ( !$updateemailaddress || $updateemailaddress eq '' ) { - warn -"KohaAdminEmailAddress system preference not set. Couldn't send patron update information for $borr->{'firstname'} $borr->{'surname'} (#$borrowernumber)\n"; - my ($template) = get_template_and_user( - { - template_name => "kohaerror.tmpl", - query => $query, - type => "opac", - authnotrequired => 1, - flagsrequired => { borrow => 1 }, - debug => 1, - } - ); - - $template->param( - noadminemail => 1, - ); - - output_html_with_http_headers $query, $cookie, $template->output; - exit; -} - -if ( !$patronemail || $patronemail eq '' ) { - $patronemail = $updateemailaddress; -}; - -if ( $query->param('modify') ) { - - # get all the fields: - my $message = <<"EOF"; -Patron $borr->{'cardnumber'} has requested to change her/his personal details. -Please check these new details and make the changes to these fields: - -EOF - - my $streetnumber = $borr->{'streetnumber'} || ''; - my $address = $borr->{'address'} || ''; - my $address2 = $borr->{'address2'} || ''; - my $B_streetnumber = $borr->{'B_streetnumber'} || ''; - my $B_address = $borr->{'B_address'} || ''; - my $B_address2 = $borr->{'B_address2'} || ''; - - foreach my $field (@fields) { - my $newfield = decode('utf-8',$query->param($field)) || ''; - my $borrowerfield = ''; - if($borr->{$field}) { - $borrowerfield = $borr->{$field}; - } - - if($field eq "dateofbirth") { - $borrowerfield = format_date( $borr->{'dateofbirth'} ) || ''; - } - - if($borrowerfield ne $newfield) { - $message .= $field . " : $borrowerfield --> $newfield\n"; - } - } - - $message .= "\nEdit this patron's record: http://".C4::Context->preference('staffClientBaseURL ')."/cgi-bin/koha/members/memberentry.pl?op=modify&borrowernumber=".$borr->{'borrowernumber'}."&categorycode=".$borr->{'categorycode'} if C4::Context->preference('staffClientBaseURL '); - - $message .= "\n\nThanks,\nKoha\n\n"; - my %mail = ( - To => $updateemailaddress, - From => $patronemail, - Subject => "User Request for update of Record.", - Message => encode('utf-8', $message), # Mail::Sendmail doesn't like wide characters - 'Content-Type' => 'text/plain; charset="utf-8"', - ); - - if ( sendmail %mail ) { - - # do something if it works.... - print $query->redirect('/cgi-bin/koha/opac-user.pl?patronupdate=sent'); - exit; - } - else { - - # do something if it doesnt work.... - warn "Error sending mail: $Mail::Sendmail::error \n"; - } -} - -$borr->{'ethnicity'} = fixEthnicity( $borr->{'ethnicity'} ); -$borr->{'branchname'} = GetBranchName($borr->{'branchcode'}); - -if (C4::Context->preference('ExtendedPatronAttributes')) { - my $attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber, 'opac'); - if (scalar(@$attributes) > 0) { - $borr->{ExtendedPatronAttributes} = 1; - $borr->{patron_attributes} = $attributes; - } -} - -my $checkin_prefs = C4::Members::Messaging::GetMessagingPreferences({ - borrowernumber => $borrowernumber, - message_name => 'Item Checkout' -}); -for ( keys %{ $checkin_prefs->{transports} }) { - $borr->{"items_returned_$_"} = 1; -} -my $checkout_prefs = C4::Members::Messaging::GetMessagingPreferences({ - borrowernumber => $borrowernumber, - message_name => 'Item Check-in' -}); -for ( keys %{ $checkout_prefs->{transports} }) { - $borr->{"items_borrowed_$_"} = 1; -} - -if (C4::Context->preference('OPACpatronimages')) { - my ($image, $dberror) = GetPatronImage($borr->{'cardnumber'}); - if ($image) { - $template->param( - display_patron_image => 1 - ); - } -} - -my @bordat; -$bordat[0] = $borr; - -$template->param( - BORROWER_INFO => \@bordat, - userupdateview => 1, -); - -output_html_with_http_headers $query, $cookie, $template->output; -- 2.39.5