projects
/
koha-ffzg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
BUG FIXING :
[koha-ffzg.git]
/
opac
/
opac-user.pl
diff --git
a/opac/opac-user.pl
b/opac/opac-user.pl
index
274ca0b
..
7fc1f91
100755
(executable)
--- a/
opac/opac-user.pl
+++ b/
opac/opac-user.pl
@@
-76,7
+76,7
@@
$template->param( BORROWER_INFO => \@bordat );
$template->param( borrowernumber => $borrowernumber );
#get issued items ....
$template->param( borrowernumber => $borrowernumber );
#get issued items ....
-my
$issues = GetBorrowerIssues($bor
r);
+my
($countissues,$issues) = GetPendingIssues($borrowernumbe
r);
my $count = 0;
my $overdues_count = 0;
my $count = 0;
my $overdues_count = 0;
@@
-92,7
+92,7
@@
foreach my $issue ( @$issues ) {
$issue->{'reserved'} = 1;
}
$issue->{'reserved'} = 1;
}
- my ( $total , $accts, $numaccts) = Get
BorrowerAcctRecord
( $borrowernumber );
+ my ( $total , $accts, $numaccts) = Get
MemberAccountRecords
( $borrowernumber );
my $charges = 0;
foreach my $ac (@$accts) {
if ( $ac->{'itemnumber'} == $issue->{'itemnumber'} ) {
my $charges = 0;
foreach my $ac (@$accts) {
if ( $ac->{'itemnumber'} == $issue->{'itemnumber'} ) {
@@
-141,8
+141,8
@@
$template->param( overdues_count => $overdues_count );
my $branches = GetBranches();
# now the reserved items....
my $branches = GetBranches();
# now the reserved items....
-my
( $rcount, $reserves ) = FindReserves( undef,
$borrowernumber );
-foreach my $res (@
$
reserves) {
+my
@reserves = GetReservesFromBorrowernumber(
$borrowernumber );
+foreach my $res (@reserves) {
$res->{'reservedate'} = format_date( $res->{'reservedate'} );
my $publictype = $res->{'publictype'};
$res->{$publictype} = 1;
$res->{'reservedate'} = format_date( $res->{'reservedate'} );
my $publictype = $res->{'publictype'};
$res->{$publictype} = 1;
@@
-152,12
+152,15
@@
foreach my $res (@$reserves) {
$res->{'reserves_title'} = $biblioData->{'title'};
}
$res->{'reserves_title'} = $biblioData->{'title'};
}
-$template->param( RESERVES => $reserves );
-$template->param( reserves_count => $rcount );
+use Data::Dumper;
+warn Dumper(@reserves);
+
+$template->param( RESERVES => \@reserves );
+$template->param( reserves_count => $#reserves+1 );
my @waiting;
my $wcount = 0;
my @waiting;
my $wcount = 0;
-foreach my $res (@
$
reserves) {
+foreach my $res (@reserves) {
if ( $res->{'itemnumber'} ) {
my $item = GetItem( $res->{'itemnumber'});
$res->{'holdingbranch'} =
if ( $res->{'itemnumber'} ) {
my $item = GetItem( $res->{'itemnumber'});
$res->{'holdingbranch'} =