diff --git a/C4/Members.pm b/C4/Members.pm index 2c4a5b3739..fc826bc712 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -243,16 +243,6 @@ sub GetMemberDetails { $borrower->{'flags'} = $flags; $borrower->{'authflags'} = $accessflagshash; - # For the purposes of making templates easier, we'll define a - # 'showname' which is the alternate form the user's first name if - # 'other name' is defined. - if ($borrower->{category_type} eq 'I') { - $borrower->{'showname'} = $borrower->{'othernames'}; - $borrower->{'showname'} .= " $borrower->{'firstname'}" if $borrower->{'firstname'}; - } else { - $borrower->{'showname'} = $borrower->{'firstname'}; - } - # Handle setting the true behavior for BlockExpiredPatronOpacActions $borrower->{'BlockExpiredPatronOpacActions'} = C4::Context->preference('BlockExpiredPatronOpacActions') diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl index 03a8c33c63..3e28e3bb2d 100755 --- a/admin/aqbudgets.pl +++ b/admin/aqbudgets.pl @@ -90,7 +90,7 @@ if ( $budget_period_id ) { # USED FOR PERMISSION COMPARISON LATER my $borrower_id = $template->{VARS}->{'USER_INFO'}->{'borrowernumber'}; -my $user = GetMemberDetails($borrower_id); +my $user = C4::Members::GetMember( borrowernumber => $borrower_id ); my $user_branchcode = $user->{'branchcode'}; $template->param( diff --git a/catalogue/detail.pl b/catalogue/detail.pl index 2a6dddbab4..7eb790c5e2 100755 --- a/catalogue/detail.pl +++ b/catalogue/detail.pl @@ -229,7 +229,7 @@ foreach my $item (@items) { # checking for holds my ($reservedate,$reservedfor,$expectedAt,undef,$wait) = GetReservesFromItemnumber($item->{itemnumber}); - my $ItemBorrowerReserveInfo = GetMemberDetails( $reservedfor, 0); + my $ItemBorrowerReserveInfo = C4::Members::GetMember( borrowernumber => $reservedfor); if (C4::Context->preference('HidePatronName')){ $item->{'hidepatronname'} = 1; diff --git a/circ/circulation.pl b/circ/circulation.pl index dc6e1ae745..d020b53c07 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -234,7 +234,7 @@ if ($findborrower) { # get the borrower information..... my $borrower; if ($borrowernumber) { - $borrower = GetMemberDetails( $borrowernumber, 0 ); + $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ); my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber ); # Warningdate is the date that the warning starts appearing diff --git a/circ/returns.pl b/circ/returns.pl index dd05bf5d4e..c592be828d 100755 --- a/circ/returns.pl +++ b/circ/returns.pl @@ -153,7 +153,7 @@ if ( $query->param('resbarcode') ) { # check if we have other reserves for this document, if we have a return send the message of transfer my ( $messages, $nextreservinfo ) = GetOtherReserves($item); - my ($borr) = GetMemberDetails( $nextreservinfo, 0 ); + my $borr = GetMember( borrowernumber => $nextreservinfo ); my $name = $borr->{'surname'} . ", " . $borr->{'title'} . " " . $borr->{'firstname'}; if ( $messages->{'transfert'} ) { $template->param( @@ -376,7 +376,7 @@ if ( $messages->{'WrongTransfer'} and not $messages->{'WasTransfered'}) { my $reserve = $messages->{'ResFound'}; my $branchname = $branches->{ $reserve->{'branchcode'} }->{'branchname'}; - my ($borr) = GetMemberDetails( $reserve->{'borrowernumber'}, 0 ); + my $borr = C4::Members::GetMember( borrowernumber => $reserve->{'borrowernumber'} ); my $name = $borr->{'surname'} . ", " . $borr->{'title'} . " " . $borr->{'firstname'}; $template->param( wname => $name, @@ -402,7 +402,7 @@ if ( $messages->{'WrongTransfer'} and not $messages->{'WasTransfered'}) { if ( $messages->{'ResFound'}) { my $reserve = $messages->{'ResFound'}; my $branchname = $branches->{ $reserve->{'branchcode'} }->{'branchname'}; - my ($borr) = GetMemberDetails( $reserve->{'borrowernumber'}, 0 ); + my $borr = C4::Members::GetMember( borrowernumber => $reserve->{'borrowernumber'} ); if ( $reserve->{'ResFound'} eq "Waiting" or $reserve->{'ResFound'} eq "Reserved" ) { if ( $reserve->{'ResFound'} eq "Waiting" ) { @@ -542,7 +542,7 @@ foreach ( sort { $a <=> $b } keys %returneditems ) { $ri{hour} = $duedate->hour(); $ri{minute} = $duedate->minute(); $ri{duedate} = output_pref($duedate); - my ($b) = GetMemberDetails( $riborrowernumber{$_}, 0 ); + my $b = C4::Members::GetMember( borrowernumber => $riborrowernumber{$_} ); unless ( $dropboxmode ) { $ri{return_overdue} = 1 if (DateTime->compare($duedate, DateTime->now()) == -1); } else { diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl index 1beb6b33fb..6603976f5a 100755 --- a/circ/transferstoreceive.pl +++ b/circ/transferstoreceive.pl @@ -101,7 +101,7 @@ foreach my $br ( keys %$branches ) { # we check if we have a reserv for this transfer my @checkreserv = GetReservesFromItemnumber($num->{'itemnumber'}); if ( $checkreserv[0] ) { - my $getborrower = GetMemberDetails( $checkreserv[1] ); + my $getborrower = C4::Members::GetMember( borrowernumber => $checkreserv[1] ); $getransf{'borrowernum'} = $getborrower->{'borrowernumber'}; $getransf{'borrowername'} = $getborrower->{'surname'}; $getransf{'borrowerfirstname'} = $getborrower->{'firstname'}; diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl index 9fb799a86a..18d82cd965 100755 --- a/circ/waitingreserves.pl +++ b/circ/waitingreserves.pl @@ -189,7 +189,7 @@ sub cancel { # if we have a result if ($nextreservinfo) { my %res; - my $borrowerinfo = GetMemberDetails( $nextreservinfo ); + my $borrowerinfo = C4::Members::GetMember( borrowernumber => $nextreservinfo ); my $iteminfo = GetBiblioFromItemNumber($item); if ( $messages->{'transfert'} ) { $res{messagetransfert} = $messages->{'transfert'}; diff --git a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-account.tt b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-account.tt index e26776c696..316c5bd691 100644 --- a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-account.tt +++ b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-account.tt @@ -13,7 +13,7 @@
diff --git a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-messaging.tt b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-messaging.tt index b27756fe1a..1f30489989 100644 --- a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-messaging.tt +++ b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-messaging.tt @@ -10,7 +10,7 @@
diff --git a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-user.tt b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-user.tt index b5bc8d2cad..16cd8df929 100644 --- a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-user.tt +++ b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-user.tt @@ -12,7 +12,7 @@
@@ -40,24 +40,23 @@
[% END # / IF bor_messages %] - [% FOREACH BORROWER_INF IN BORROWER_INFO %] -

Hello, [% INCLUDE 'patron-title.inc' category_type = BORROWER_INF.category_type firstname = BORROWER_INF.firstname surname = BORROWER_INF.surname othernames = BORROWER_INF.othernames cardnumber = BORROWER_INF.cardnumber %] +

Hello, [% INCLUDE 'patron-title.inc' category_type = BORROWER_INFO.category_type firstname = BORROWER_INFO.firstname surname = BORROWER_INFO.surname othernames = BORROWER_INFO.othernames cardnumber = BORROWER_INFO.cardnumber %]

-

Click here if you're not [% BORROWER_INF.title %] [% INCLUDE 'patron-title.inc' category_type = BORROWER_INF.category_type firstname = BORROWER_INF.firstname surname = BORROWER_INF.surname othernames = BORROWER_INF.othernames cardnumber = BORROWER_INF.cardnumber %]

+

Click here if you're not [% BORROWER_INFO.title %] [% INCLUDE 'patron-title.inc' category_type = BORROWER_INFO.category_type firstname = BORROWER_INFO.firstname surname = BORROWER_INFO.surname othernames = BORROWER_INFO.othernames cardnumber = BORROWER_INFO.cardnumber %]

[% IF ( patronupdate ) %]

Thank you!

Your corrections have been submitted to the library, and a staff member will update your record as soon as possible.

[% END %] [% IF ( BORROWER_INF.warndeparture ) %]
- Please note: Your card will expire on [% BORROWER_INF.warndeparture | $KohaDates %]. Please contact the library for more information. - [% IF ( BORROWER_INF.returnbeforeexpiry ) %] Also note that you must return all checked out items before your card expires.[% END %] + Please note: Your card will expire on [% BORROWER_INFO.warndeparture | $KohaDates %]. Please contact the library for more information. + [% IF ( BORROWER_INFO.returnbeforeexpiry ) %] Also note that you must return all checked out items before your card expires.[% END %]
[% END %] - [% IF ( BORROWER_INF.warnexpired ) %] + [% IF ( BORROWER_INFO.warnexpired ) %]
- Please note: Your account has expired as of [% BORROWER_INF.warnexpired | $KohaDates %]. Please contact the library if you wish to renew your account. + Please note: Your account has expired as of [% BORROWER_INFO.warnexpired | $KohaDates %]. Please contact the library if you wish to renew your account.
[% END %] @@ -83,12 +82,12 @@
    [% IF ( userdebarred ) %] -
  • Please note: Your account has been frozen[% IF ( BORROWER_INF.userdebarreddate ) %] until [% BORROWER_INF.userdebarreddate | $KohaDates %][% END %][% IF ( BORROWER_INF.debarredcomment ) %] with the comment "[% BORROWER_INF.debarredcomment %]"[% END %]. Usually the reason for freezing an account is old overdues or damage fees. If your account page shows your account to be clear, please contact the library.
    • +
  • Please note: Your account has been frozen[% IF ( BORROWER_INFO.userdebarreddate ) %] until [% BORROWER_INFO.userdebarreddate | $KohaDates %][% END %][% IF ( BORROWER_INFO.debarredcomment ) %] with the comment "[% BORROWER_INFO.debarredcomment %]"[% END %]. Usually the reason for freezing an account is old overdues or damage fees. If your account page shows your account to be clear, please contact the library.
    • [% END %] - [% IF ( BORROWER_INF.gonenoaddress ) %] -
  • Please note: According to our records, we don't have up-to-date [% UNLESS ( BORROWER_INF.OPACPatronDetails ) %]contact information[% ELSE %]contact information[% END %] on file. Please contact the library[% IF ( BORROWER_INF.OPACPatronDetails ) %] or use the online update form to submit current information (Please note: there may be a delay in restoring your account if you submit online)[% END %].
    • + [% IF ( BORROWER_INFO.gonenoaddress ) %] +
  • Please note: According to our records, we don't have up-to-date [% UNLESS OPACPatronDetails %]contact information[% ELSE %]contact information[% END %] on file. Please contact the library[% IF OPACPatronDetails %] or use the online update form to submit current information (Please note: there may be a delay in restoring your account if you submit online)[% END %].
    • [% END %] - [% IF ( BORROWER_INF.lost ) %] + [% IF ( BORROWER_INFO.lost ) %]
  • Please note: Your library card has been marked as lost or stolen. If this is an error, please contact the library.
    • [% END %] [% IF ( renewal_blocked_fines ) && ( OpacRenewalAllowed ) %] @@ -282,41 +281,41 @@ [% IF ( OPACFinesTab ) %] - [% IF ( BORROWER_INF.amountoverfive ) %] + [% IF BORROWER_INFO.amountoverfive %]

    Fines and charges

    - +
    Amount
    You currently owe fines and charges amounting to:[% BORROWER_INF.amountoutstanding %][% BORROWER_INFO.amountoutstanding %]
    [% END %] - [% IF ( BORROWER_INF.amountoverzero ) %] + [% IF BORROWER_INFO.amountoverzero %]

    Fines and charges

    - +
    Amount
    You currently owe fines and charges amounting to:[% BORROWER_INF.amountoutstanding %][% BORROWER_INFO.amountoutstanding %]
    [% END %] - [% IF ( BORROWER_INF.amountlessthanzero ) %] + [% IF BORROWER_INFO.amountlessthanzero %]

    Credits

    - +
    Amount
    You have a credit of:[% BORROWER_INF.amountoutstanding %]You have a credit of:[% BORROWER_INFO.amountoutstanding %]
    @@ -324,8 +323,6 @@ [% END %] [% END # / OPACFinesTab %] - [% END # / FOREACH BORROWER_INFO %] - [% IF ( waiting_count && atdestination ) %]
    diff --git a/offline_circ/list.pl b/offline_circ/list.pl index e7e71d453b..87e830aac4 100755 --- a/offline_circ/list.pl +++ b/offline_circ/list.pl @@ -47,7 +47,7 @@ for (@$operations) { my $biblio = GetBiblioFromItemNumber(undef, $_->{'barcode'}); $_->{'bibliotitle'} = $biblio->{'title'}; $_->{'biblionumber'} = $biblio->{'biblionumber'}; - my $borrower = GetMemberDetails(undef,$_->{'cardnumber'}); + my $borrower = C4::Members::GetMember( cardnumber => $_->{'cardnumber'} ); if ($borrower) { $_->{'borrowernumber'} = $borrower->{'borrowernumber'}; $_->{'borrower'} = ($borrower->{'firstname'}?$borrower->{'firstname'}:'').' '.$borrower->{'surname'}; diff --git a/opac/opac-account.pl b/opac/opac-account.pl index af64ffdf77..74ed857fee 100755 --- a/opac/opac-account.pl +++ b/opac/opac-account.pl @@ -39,12 +39,8 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( } ); -# get borrower information .... -my $borr = GetMemberDetails( $borrowernumber ); -my @bordat; -$bordat[0] = $borr; - -$template->param( BORROWER_INFO => \@bordat ); +my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ); +$template->param( BORROWER_INFO => $borrower ); #get account details my ( $total , $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl index a7fcb0301b..7a8971ec2c 100755 --- a/opac/opac-ics.pl +++ b/opac/opac-ics.pl @@ -49,9 +49,6 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( } ); -# get borrower information .... -my ( $borr ) = GetMemberDetails( $borrowernumber ); - # Create Calendar my $calendar = Data::ICal->new(); diff --git a/opac/opac-messaging.pl b/opac/opac-messaging.pl index 7e3d217bd1..7816d60a85 100755 --- a/opac/opac-messaging.pl +++ b/opac/opac-messaging.pl @@ -46,7 +46,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( } ); -my $borrower = GetMemberDetails( $borrowernumber ); +my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ); my $messaging_options = C4::Members::Messaging::GetMessagingOptions(); if ( defined $query->param('modify') && $query->param('modify') eq 'yes' ) { @@ -54,7 +54,7 @@ if ( defined $query->param('modify') && $query->param('modify') eq 'yes' ) { if ( defined $sms && ( $borrower->{'smsalertnumber'} // '' ) ne $sms ) { ModMember( borrowernumber => $borrowernumber, smsalertnumber => $sms ); - $borrower = GetMemberDetails( $borrowernumber ); + $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ); } C4::Form::MessagingPreferences::handle_form_action($query, { borrowernumber => $borrowernumber }, $template); @@ -62,7 +62,7 @@ if ( defined $query->param('modify') && $query->param('modify') eq 'yes' ) { C4::Form::MessagingPreferences::set_form_values({ borrowernumber => $borrower->{'borrowernumber'} }, $template); -$template->param( BORROWER_INFO => [ $borrower ], +$template->param( BORROWER_INFO => $borrower, messagingview => 1, SMSnumber => $borrower->{'smsalertnumber'}, SMSSendDriver => C4::Context->preference("SMSSendDriver"), diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl index 478509628a..e3168eeb8b 100755 --- a/opac/opac-passwd.pl +++ b/opac/opac-passwd.pl @@ -45,8 +45,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( } ); -# get borrower information .... -my ( $borr ) = GetMemberDetails( $borrowernumber ); +my $borr = C4::Members::GetMember( borrowernumber => $borrowernumber ); my $minpasslen = C4::Context->preference("minPasswordLength"); if ( C4::Context->preference("OpacPasswordChange") ) { my $sth = $dbh->prepare("UPDATE borrowers SET password = ? WHERE borrowernumber=?"); diff --git a/opac/opac-privacy.pl b/opac/opac-privacy.pl index dc9b1a5ded..99e3bde97d 100755 --- a/opac/opac-privacy.pl +++ b/opac/opac-privacy.pl @@ -67,8 +67,9 @@ if ($op eq "delete_record") { $template->param( 'err_history_not_deleted' => 1 ); } } + # get borrower privacy .... -my ( $borr ) = GetMemberDetails( $borrowernumber ); +my $borr = C4::Members::GetMember( borrowernumber => $borrowernumber ); $template->param( 'Ask_data' => '1', 'privacy'.$borr->{'privacy'} => 1, diff --git a/opac/opac-user.pl b/opac/opac-user.pl index 8dc222d0df..b1df5ca08a 100755 --- a/opac/opac-user.pl +++ b/opac/opac-user.pl @@ -126,9 +126,6 @@ if ( $borr->{'amountoutstanding'} < 0 ) { $borr->{'amountoutstanding'} = sprintf "%.02f", $borr->{'amountoutstanding'}; -my @bordat; -$bordat[0] = $borr; - # Warningdate is the date that the warning starts appearing if ( $borr->{'dateexpiry'} && C4::Context->preference('NotifyBorrowerDeparture') ) { my $days_to_expiry = Date_to_Days( $warning_year, $warning_month, $warning_day ) - Date_to_Days( $today_year, $today_month, $today_day ); @@ -147,12 +144,11 @@ if ( $borr->{'dateexpiry'} && C4::Context->preference('NotifyBorrowerDeparture') # pass on any renew errors to the template for displaying my $renew_error = $query->param('renew_error'); -$template->param( BORROWER_INFO => \@bordat, +$template->param( BORROWER_INFO => $borr, borrowernumber => $borrowernumber, patron_flagged => $borr->{flagged}, OPACMySummaryHTML => (C4::Context->preference("OPACMySummaryHTML")) ? 1 : 0, surname => $borr->{surname}, - showname => $borr->{showname}, RENEW_ERROR => $renew_error, borrower => $borr, );