|
Lines 370-376
sub GetPatronInfo {
Link Here
|
| 370 |
delete $borrower->{'password'}; |
370 |
delete $borrower->{'password'}; |
| 371 |
|
371 |
|
| 372 |
# Contact fields management |
372 |
# Contact fields management |
| 373 |
if ( $cgi->param('show_contact') eq "0" ) { |
373 |
if ( defined $cgi->param('show_contact') && $cgi->param('show_contact') eq "0" ) { |
| 374 |
|
374 |
|
| 375 |
# Define contact fields |
375 |
# Define contact fields |
| 376 |
my @contactfields = ( |
376 |
my @contactfields = ( |
|
Lines 387-393
sub GetPatronInfo {
Link Here
|
| 387 |
} |
387 |
} |
| 388 |
|
388 |
|
| 389 |
# Fines management |
389 |
# Fines management |
| 390 |
if ( $cgi->param('show_fines') eq "1" ) { |
390 |
if ( $cgi->param('show_fines') && $cgi->param('show_fines') eq "1" ) { |
| 391 |
my @charges; |
391 |
my @charges; |
| 392 |
for ( my $i = 1 ; my @charge = getcharges( $borrowernumber, undef, $i ) ; $i++ ) { |
392 |
for ( my $i = 1 ; my @charge = getcharges( $borrowernumber, undef, $i ) ; $i++ ) { |
| 393 |
push( @charges, @charge ); |
393 |
push( @charges, @charge ); |
|
Lines 396-402
sub GetPatronInfo {
Link Here
|
| 396 |
} |
396 |
} |
| 397 |
|
397 |
|
| 398 |
# Reserves management |
398 |
# Reserves management |
| 399 |
if ( $cgi->param('show_holds') eq "1" ) { |
399 |
if ( $cgi->param('show_holds') && $cgi->param('show_holds') eq "1" ) { |
| 400 |
|
400 |
|
| 401 |
# Get borrower's reserves |
401 |
# Get borrower's reserves |
| 402 |
my @reserves = GetReservesFromBorrowernumber( $borrowernumber, undef ); |
402 |
my @reserves = GetReservesFromBorrowernumber( $borrowernumber, undef ); |
|
Lines 420-426
sub GetPatronInfo {
Link Here
|
| 420 |
} |
420 |
} |
| 421 |
|
421 |
|
| 422 |
# Issues management |
422 |
# Issues management |
| 423 |
if ( $cgi->param('show_loans') eq "1" ) { |
423 |
if ( $cgi->param('show_loans') && $cgi->param('show_loans') eq "1" ) { |
| 424 |
my $issues = GetPendingIssues($borrowernumber); |
424 |
my $issues = GetPendingIssues($borrowernumber); |
| 425 |
foreach my $issue ( @$issues ){ |
425 |
foreach my $issue ( @$issues ){ |
| 426 |
$issue->{'issuedate'} = $issue->{'issuedate'}->strftime('%Y-%m-%d %H:%M'); |
426 |
$issue->{'issuedate'} = $issue->{'issuedate'}->strftime('%Y-%m-%d %H:%M'); |
| 427 |
- |
|
|