Lines 75-80
if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) {
Link Here
|
75 |
|
75 |
|
76 |
# CSV |
76 |
# CSV |
77 |
if ($format =~ /^\d+$/) { |
77 |
if ($format =~ /^\d+$/) { |
|
|
78 |
|
79 |
my $csv_profile = Koha::CsvProfiles->find($format); |
80 |
if ( not $csv_profile or $csv_profile->staff_only ) { |
81 |
print $query->redirect('/cgi-bin/koha/errors/404.pl'); |
82 |
exit; |
83 |
} |
84 |
|
78 |
my @biblios; |
85 |
my @biblios; |
79 |
while ( my $content = $contents->next ) { |
86 |
while ( my $content = $contents->next ) { |
80 |
push @biblios, $content->biblionumber; |
87 |
push @biblios, $content->biblionumber; |
81 |
- |
|
|