X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=virtualshelves%2Fshelves.pl;h=6a627501efbeca53802124aa2f45a110c19541f5;hb=814a1d4231c8e71613ce58a72b30a539654c34ee;hp=0540f3e4e5a66ff0b439f53c9ca1fe7107e5a2c8;hpb=6d75e385c818212cc10a9832b5a5525cbef6e6b2;p=srvgit

diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl
index 0540f3e4e5..6a627501ef 100755
--- a/virtualshelves/shelves.pl
+++ b/virtualshelves/shelves.pl
@@ -27,6 +27,8 @@ use C4::Items;
 use C4::Members;
 use C4::Output;
 use C4::XSLT;
+
+use Koha::CsvProfiles;
 use Koha::Virtualshelves;
 
 my $query = new CGI;
@@ -309,7 +311,7 @@ $template->param(
     messages => \@messages,
     category => $category,
     print    => scalar $query->param('print') || 0,
-    csv_profiles => GetCsvProfilesLoop('marc'),
+    csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ],
 );
 
 output_html_with_http_headers $query, $cookie, $template->output;