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

(-)a/reviews/reviewswaiting.pl (-8 / +10 lines)
Lines 67-80 my $reviews = Koha::Reviews->search( Link Here
67
    }
67
    }
68
)->unblessed;
68
)->unblessed;
69
69
70
foreach ( @$reviews ) {
70
for my $review ( @$reviews ) {
71
    my $borrowernumber = $_->{borrowernumber};
71
    my $biblio         = Koha::Biblios->find( $review->{biblionumber} );
72
    my $patron = Koha::Patrons->find( $borrowernumber);
73
    my $biblio         = Koha::Biblios->find( $_->{biblionumber} );
74
    # setting some borrower info into this hash
72
    # setting some borrower info into this hash
75
    $_->{bibliotitle} = $biblio->title;
73
    $review->{bibliotitle} = $biblio->title;
76
    $_->{surname}     = $patron->surname;
74
77
    $_->{firstname}   = $patron->firstname;
75
    my $borrowernumber = $review->{borrowernumber};
76
    my $patron = Koha::Patrons->find( $borrowernumber);
77
    if ( $patron ) {
78
        $review->{surname}     = $patron->surname;
79
        $review->{firstname}   = $patron->firstname;
80
    }
78
}
81
}
79
82
80
my $url = "/cgi-bin/koha/reviews/reviewswaiting.pl?status=$status";
83
my $url = "/cgi-bin/koha/reviews/reviewswaiting.pl?status=$status";
81
- 

Return to bug 19808