|
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 |
- |
|
|