+ print $input->redirect("/cgi-bin/koha/opac-suggestions.pl?op=else&deleted=1");
+ exit;
+}
+map{ $_->{'branchcodesuggestedby'}=GetBranchInfo($_->{'branchcodesuggestedby'})->[0]->{'branchname'}} @$suggestions_loop;
+my $supportlist=GetSupportList();
+foreach my $support(@$supportlist){
+ if ($$support{'imageurl'}){
+ $$support{'imageurl'}= getitemtypeimagelocation( 'opac', $$support{'imageurl'} );
+ }
+ else {
+ delete $$support{'imageurl'}
+ }
+}
+
+foreach my $suggestion(@$suggestions_loop) {
+ if($suggestion->{'suggestedby'} == $borrowernumber) {
+ $suggestion->{'showcheckbox'} = $borrowernumber;
+ } else {
+ $suggestion->{'showcheckbox'} = 0;
+ }
+ if($suggestion->{'patronreason'}){
+ $suggestion->{'patronreason'} = GetKohaAuthorisedValueLib("OPAC_SUG",$suggestion->{'patronreason'},1);
+ }
+}
+
+my $patron_reason_loop = GetAuthorisedValues("OPAC_SUG");
+
+# Is the person allowed to choose their branch
+if ( C4::Context->preference("AllowPurchaseSuggestionBranchChoice") ) {
+ my ( $borr ) = GetMemberDetails( $borrowernumber );
+
+# pass the pickup branch along....
+ my $branch = $input->param('branch') || $borr->{'branchcode'} || C4::Context->userenv->{branch} || '' ;
+
+# make branch selection options...
+ my $CGIbranchloop = GetBranchesLoop($branch);
+ $template->param( branch_loop => $CGIbranchloop );