-if ($limit) {
- my $recentacquiloop = GetRecentAcqui($limit);
-
- # warn Data::Dumper::Dumper($recentacquiloop);
- $template->param( recentacquiloop => $recentacquiloop, );
-}
-
-# SearchMyLibraryFirst
-if ( C4::Context->preference("SearchMyLibraryFirst") ) {
- if ( C4::Context->userenv ) {
- my $branches = GetBranches();
- my @branchloop;
-
- foreach my $thisbranch ( keys %$branches ) {
- my $selected = 1
- if ( C4::Context->userenv
- && ( $thisbranch eq C4::Context->userenv->{branch} ) );
-
-# warn $thisbranch;
-# warn C4::Context->userenv;
-# warn C4::Context->userenv->{branch};
-# warn " => ".C4::Context->userenv && ($thisbranch eq C4::Context->userenv->{branch});
- my %row = (
- value => $thisbranch,
- selected => $selected,
- branchname => $branches->{$thisbranch}->{'branchname'},
- );
- push @branchloop, \%row;
- }
- $template->param( "mylibraryfirst" => 1, branchloop => \@branchloop );
- }
- else {
- $template->param( "mylibraryfirst" => 0 );
- }
-}
-
-my $borrower = GetMember( $borrowernumber, 'borrowernumber' );
-my @languages;
-my $counter = 0;
-my $langavail = getTranslatedLanguages('opac');
-foreach my $language (@$langavail) {
-
-# next if $currently_selected_languages->{$language};
-# FIXME: could incorporate language_name and language_locale_name for better display
- push @languages,
- { language => $language->{'language_code'}, counter => $counter };
- $counter++;
-}