View | Details | Raw Unified | Return to bug 16320
Collapse All | Expand All

(-)a/C4/ILSDI/Services.pm (-5 / +4 lines)
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
- 

Return to bug 16320