X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=basket%2Fdownloadcart.pl;h=f5cec95e97b3b2457603a9e7fc02b0f7c7f868af;hb=adbcaa99f4f1a0dc3c739cb15b4d3039d2a79c9e;hp=c8fe4b2bef8f0a530e8e61a4b596ec8e3c8b5f69;hpb=baea0a79d5d4dbe46eb052d7e52f5dcf7b5242bc;p=koha.git

diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl
index c8fe4b2bef..f5cec95e97 100755
--- a/basket/downloadcart.pl
+++ b/basket/downloadcart.pl
@@ -17,8 +17,7 @@
 # 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);
@@ -27,10 +26,11 @@ use C4::Auth;
 use C4::Biblio;
 use C4::Items;
 use C4::Output;
-use C4::VirtualShelves;
 use C4::Record;
 use C4::Ris;
-use C4::Csv;
+
+use Koha::CsvProfiles;
+
 use utf8;
 my $query = new CGI;
 
@@ -90,7 +90,7 @@ if ($bib_list && $format) {
     print $output;
 
 } else { 
-    $template->param(csv_profiles => GetCsvProfilesLoop('marc'));
+    $template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ]);
     $template->param(bib_list => $bib_list); 
     output_html_with_http_headers $query, $cookie, $template->output;
 }