3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
25 use C4
::Circulation
qw( GetIssuingCharges );
33 my $borrowernumber = $input->param('borrowernumber');
35 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
37 template_name
=> "members/moremember-print.tt",
41 flagsrequired
=> { circulate
=> "circulate_remaining_permissions" },
46 my $patron = Koha
::Patrons
->find( $borrowernumber );
47 my $category = $patron->category;
48 my $data = $patron->unblessed;
49 $data->{description
} = $category->description;
50 $data->{category_type
} = $category->category_type;
52 my ( $total, $accts, $numaccts ) = GetMemberAccountRecords
($borrowernumber);
53 foreach my $accountline (@
$accts) {
54 if ( $accountline->{accounttype
} ne 'F'
55 && $accountline->{accounttype
} ne 'FU' )
57 $accountline->{printtitle
} = 1;
63 my $holds_rs = Koha
::Holds
->search(
64 { borrowernumber
=> $borrowernumber },
70 borrowernumber
=> $borrowernumber,
75 issues
=> build_issue_data
( $borrowernumber ),
76 totalprice
=> $totalprice,
78 reserves
=> build_reserve_data
( $holds_rs ),
81 output_html_with_http_headers
$input, $cookie, $template->output;
83 sub build_issue_data
{
84 my ( $borrowernumber ) = @_;
85 my $issues = GetPendingIssues
( $borrowernumber );
89 my $today = DateTime
->now( time_zone
=> C4
::Context
->tz );
90 $today->truncate( to
=> 'day' );
92 foreach my $issue ( @
{$issues} ) {
95 $totalprice += $issue->{replacementprice
}
96 if ( $issue->{replacementprice
} );
98 #find the charge for an item
99 my ( $charge, $itemtype ) =
100 GetIssuingCharges
( $issue->{itemnumber
}, $borrowernumber );
102 $itemtype = Koha
::ItemTypes
->find( $itemtype );
103 $row{'itemtype_description'} = $itemtype->description; #FIXME Should not it be translated_description
105 $row{'charge'} = sprintf( "%.2f", $charge );
107 $row{date_due
} = $row{date_due_sql
};
109 push( @
{$return}, \
%row );
112 @
{$return} = sort { $a->{date_due
} eq $b->{date_due
} } @
{$return};
118 sub build_reserve_data
{
119 my $reserves = shift;
123 my $today = DateTime
->now( time_zone
=> C4
::Context
->tz );
124 $today->truncate( to
=> 'day' );
126 while ( my $reserve = $reserves->next() ) {
129 title
=> $reserve->biblio()->title(),
130 author
=> $reserve->biblio()->author(),
131 reservedate
=> $reserve->reservedate(),
132 expirationdate
=> $reserve->expirationdate(),
133 waiting_at
=> $reserve->branch()->branchname(),
136 push( @
{$return}, $row );
139 @
{$return} = sort { $a->{reservedate
} <=> $b->{reservedate
} } @
{$return};