# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Koha;
use C4::Biblio;
use C4::Items;
use C4::Auth;
use C4::Output;
-use C4::Csv;
+
+use Koha::AuthorisedValues;
+use Koha::CsvProfiles;
my $query = new CGI;
template_name => "basket/basket.tt",
query => $query,
type => "intranet",
- flagsrequired => { borrow => 1 },
+ flagsrequired => { catalogue => 1 },
}
);
$hasauthors = 1;
}
- my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'});
- my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'});
+ my $shelflocations =
+ { map { $_->{authorised_value} => $_->{lib} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => $dat->{frameworkcode}, kohafield => 'items.location' } ) };
for my $itm (@items) {
if ($itm->{'location'}){
}
}
# COinS format FIXME: for books Only
- my $coins_format;
my $fmt = substr $record->leader(), 6,2;
my $fmts;
$fmts->{'am'} = 'book';
$template->param(
BIBLIO_RESULTS => $resultsarray,
- csv_profiles => GetCsvProfilesLoop('marc'),
+ csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ],
bib_list => $bib_list,
);