# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
+
use CGI qw ( -utf8 );
use Encode qw( encode );
if ( C4::Context->preference("AllowPurchaseSuggestionBranchChoice") ) {
my $branchcode = $input->param('branchcode') || q{};
- if ( !$branchcode && $borrowernumber ) {
- my $patron = Koha::Patrons->find($borrowernumber);
- $branchcode = $patron->branchcode;
- }
-
- if ( !$branchcode
+ if ( !$branchcode
&& C4::Context->userenv
&& C4::Context->userenv->{branch} )
{