|
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 |
} |