X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=members%2Fpurchase-suggestions.pl;h=8e4b76ad59f40042804bf8feedccdfa6de069f43;hb=184c44ee31bf54ad179f9fb9fd501114902a0176;hp=2f7ce49173888b4fca1e05f54f0583a2c9cd3fa8;hpb=c840c9383558db8ebabfb9b84efccf72904ac061;p=koha.git diff --git a/members/purchase-suggestions.pl b/members/purchase-suggestions.pl index 2f7ce49173..8e4b76ad59 100755 --- a/members/purchase-suggestions.pl +++ b/members/purchase-suggestions.pl @@ -26,7 +26,7 @@ use C4::Output; use C4::Members; use C4::Members::Attributes qw(GetBorrowerAttributes); use C4::Suggestions; -use Koha::Patron::Images; +use Koha::Patrons; my $input = new CGI; @@ -35,22 +35,21 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( query => $input, type => "intranet", authnotrequired => 0, - flagsrequired => { borrowers => 1 }, + flagsrequired => { acquisition => 'suggestions_manage' }, debug => 1, } ); my $borrowernumber = $input->param('borrowernumber'); -# Set informations for the patron -my $borrower = GetMemberDetails( $borrowernumber, 0 ); -foreach my $key ( keys %$borrower ) { - $template->param( $key => $borrower->{$key} ); -} +my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in"; +my $patron = Koha::Patrons->find( $borrowernumber ); +output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } ); + +my $category = $patron->category; $template->param( + patron => $patron, suggestionsview => 1, - categoryname => $borrower->{'description'}, - RoutingSerials => C4::Context->preference('RoutingSerials'), ); if (C4::Context->preference('ExtendedPatronAttributes')) { @@ -61,9 +60,6 @@ if (C4::Context->preference('ExtendedPatronAttributes')) { ); } -my $patron_image = Koha::Patron::Images->find($borrowernumber); -$template->param( picture => 1 ) if $patron_image; - my $suggestions = SearchSuggestion( { suggestedby => $borrowernumber } ); $template->param( suggestions => $suggestions );