Lines 19-27
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
use CGI qw ( -utf8 ); |
21 |
use CGI qw ( -utf8 ); |
22 |
use C4::Auth qw( get_template_and_user ); |
22 |
use C4::Auth qw( get_template_and_user haspermission ); |
23 |
use C4::Biblio qw( GetMarcBiblio ); |
23 |
use C4::Biblio qw( GetMarcBiblio ); |
24 |
use C4::Circulation qw( barcodedecode ); |
24 |
use C4::Circulation qw( barcodedecode ); |
|
|
25 |
use C4::Context; |
25 |
use C4::Koha qw( |
26 |
use C4::Koha qw( |
26 |
GetNormalizedEAN |
27 |
GetNormalizedEAN |
27 |
GetNormalizedISBN |
28 |
GetNormalizedISBN |
Lines 57-63
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
57 |
my $op = $query->param('op') || 'list'; |
58 |
my $op = $query->param('op') || 'list'; |
58 |
my $referer = $query->param('referer') || $op; |
59 |
my $referer = $query->param('referer') || $op; |
59 |
my $public = $query->param('public') ? 1 : 0; |
60 |
my $public = $query->param('public') ? 1 : 0; |
60 |
my ( $shelf, $shelfnumber, @messages ); |
61 |
my ( $shelf, $shelfnumber, @messages, $allow_transfer ); |
61 |
|
62 |
|
62 |
if ( $op eq 'add_form' ) { |
63 |
if ( $op eq 'add_form' ) { |
63 |
# Only pass default |
64 |
# Only pass default |
Lines 353-358
if ( $op eq 'view' ) {
Link Here
|
353 |
} else { |
354 |
} else { |
354 |
push @messages, { type => 'alert', code => 'does_not_exist' }; |
355 |
push @messages, { type => 'alert', code => 'does_not_exist' }; |
355 |
} |
356 |
} |
|
|
357 |
} elsif( $op eq 'list' ) { |
358 |
$allow_transfer = haspermission( C4::Context->userenv->{id}, { lists => 'edit_public_lists' } ) ? 1 : 0; |
356 |
} |
359 |
} |
357 |
|
360 |
|
358 |
$template->param( |
361 |
$template->param( |
Lines 363-368
$template->param(
Link Here
|
363 |
public => $public, |
366 |
public => $public, |
364 |
print => scalar $query->param('print') || 0, |
367 |
print => scalar $query->param('print') || 0, |
365 |
csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc', used_for => 'export_records' })->as_list ], |
368 |
csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc', used_for => 'export_records' })->as_list ], |
|
|
369 |
allow_transfer => $allow_transfer, |
366 |
); |
370 |
); |
367 |
|
371 |
|
368 |
output_html_with_http_headers $query, $cookie, $template->output; |
372 |
output_html_with_http_headers $query, $cookie, $template->output; |
369 |
- |
|
|