Lines 17-24
Link Here
|
17 |
# You should have received a copy of the GNU General Public License |
17 |
# You should have received a copy of the GNU General Public License |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
|
19 |
|
20 |
use strict; |
20 |
use Modern::Perl; |
21 |
use warnings; |
|
|
22 |
|
21 |
|
23 |
use CGI qw ( -utf8 ); |
22 |
use CGI qw ( -utf8 ); |
24 |
use Encode qw(encode); |
23 |
use Encode qw(encode); |
Lines 31-36
use C4::Record;
Link Here
|
31 |
use C4::Ris; |
30 |
use C4::Ris; |
32 |
use C4::Csv; |
31 |
use C4::Csv; |
33 |
|
32 |
|
|
|
33 |
use Koha::CsvProfiles; |
34 |
use Koha::Virtualshelves; |
34 |
use Koha::Virtualshelves; |
35 |
|
35 |
|
36 |
use utf8; |
36 |
use utf8; |
Lines 118-124
if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) {
Link Here
|
118 |
} else { |
118 |
} else { |
119 |
$template->param(fullpage => 1); |
119 |
$template->param(fullpage => 1); |
120 |
} |
120 |
} |
121 |
$template->param(csv_profiles => GetCsvProfilesLoop('marc')); |
121 |
$template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ]); |
122 |
$template->param( shelf => $shelf ); |
122 |
$template->param( shelf => $shelf ); |
123 |
output_html_with_http_headers $query, $cookie, $template->output; |
123 |
output_html_with_http_headers $query, $cookie, $template->output; |
124 |
} |
124 |
} |