X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=virtualshelves%2Fdownloadshelf.pl;h=07b2682945f530b10b5f100283dbd97f2d61246c;hb=9d6d641d1f8b77271800f43bc027b651f9aea52b;hp=6d788d91f87a0340b5d546164180d61832495285;hpb=638786e719fb297ae976061b09a71f3d788416f4;p=srvgit diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl index 6d788d91f8..07b2682945 100755 --- a/virtualshelves/downloadshelf.pl +++ b/virtualshelves/downloadshelf.pl @@ -20,20 +20,18 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use Encode qw(encode); -use C4::Auth; -use C4::Biblio; -use C4::Items; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio ); +use C4::Output qw( output_html_with_http_headers ); use C4::Record; -use C4::Ris; +use C4::Ris qw( marc2ris ); use Koha::CsvProfiles; use Koha::Virtualshelves; use utf8; -my $query = new CGI; +my $query = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user ( {