Bug 11349: Change .tmpl -> .tt in scripts using templates

[koha-ffzg.git] / opac / opac-downloadshelf.pl

diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl
index 1057a16..17ee166 100755 (executable)
--- a/opac/opac-downloadshelf.pl
+++ b/opac/opac-downloadshelf.pl
@@ -36,7 +36,7 @@ my $query = new CGI;
 
 my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
     {
-        template_name   => "opac-downloadshelf.tmpl",
+        template_name   => "opac-downloadshelf.tt",
         query           => $query,
         type            => "opac",
         authnotrequired => 1,
@@ -52,7 +52,6 @@ if ( ShelfPossibleAction( (defined($borrowernumber) ? $borrowernumber : -1), $sh
 
     if ($shelfid && $format) {
 
-        my @shelf               = GetShelf($shelfid);
         my ($items, $totitems)  = GetShelfContents($shelfid);
         my $marcflavour         = C4::Context->preference('marcflavour');
         my $output;
@@ -95,7 +94,7 @@ if ( ShelfPossibleAction( (defined($borrowernumber) ? $borrowernumber : -1), $sh
         print $output;
 
     } else {
-        $template->param(csv_profiles => GetCsvProfilesLoop());
+        $template->param(csv_profiles => GetCsvProfilesLoop('marc'));
         $template->param(shelfid => $shelfid); 
         output_html_with_http_headers $query, $cookie, $template->output;
     }
@@ -103,4 +102,4 @@ if ( ShelfPossibleAction( (defined($borrowernumber) ? $borrowernumber : -1), $sh
 } else {
     $template->param(invalidlist => 1); 
     output_html_with_http_headers $query, $cookie, $template->output;
-}
\ No newline at end of file
+}