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