Lines 23-37
use Modern::Perl;
Link Here
|
23 |
|
23 |
|
24 |
use CGI qw ( -utf8 ); |
24 |
use CGI qw ( -utf8 ); |
25 |
|
25 |
|
26 |
use C4::Auth qw( get_template_and_user haspermission ); |
26 |
use C4::Auth qw( get_template_and_user haspermission ); |
27 |
use C4::Barcodes::ValueBuilder; |
27 |
use C4::Barcodes::ValueBuilder; |
28 |
use C4::Barcodes; |
28 |
use C4::Barcodes; |
29 |
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal ModBiblio ); |
29 |
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal ModBiblio ); |
30 |
use C4::Circulation qw( barcodedecode LostItem ); |
30 |
use C4::Circulation qw( barcodedecode LostItem ); |
31 |
use C4::Context; |
31 |
use C4::Context; |
32 |
use C4::Members; |
32 |
use C4::Members; |
33 |
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); |
33 |
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); |
34 |
use C4::Search qw( enabled_staff_search_views ); |
34 |
use C4::Search qw( enabled_staff_search_views ); |
35 |
use C4::Acquisition qw( GetOrderFromItemnumber ); |
35 |
use C4::Acquisition qw( GetOrderFromItemnumber ); |
36 |
use Koha::Biblios; |
36 |
use Koha::Biblios; |
37 |
use Koha::Item::Templates; |
37 |
use Koha::Item::Templates; |
Lines 700-711
if ($op) {
Link Here
|
700 |
my @items; |
700 |
my @items; |
701 |
my %warning_messages; |
701 |
my %warning_messages; |
702 |
for my $item ( $biblio->items->as_list, $biblio->host_items->as_list ) { |
702 |
for my $item ( $biblio->items->as_list, $biblio->host_items->as_list ) { |
703 |
my $i = $item->columns_to_str; |
703 |
my $i = $item->columns_to_str; |
704 |
my $i_order = GetOrderFromItemnumber( $i->{itemnumber} ); |
704 |
my $i_order = GetOrderFromItemnumber( $i->{itemnumber} ); |
705 |
my $i_serialid = Koha::Serial::Items->find( { itemnumber => $i->{itemnumber} }, { prefetch => 'serialid' } ); |
705 |
my $i_serialid = Koha::Serial::Items->find( { itemnumber => $i->{itemnumber} }, { prefetch => 'serialid' } ); |
706 |
if ($i_order) { |
706 |
if ($i_order) { |
707 |
$warning_messages{ $i->{itemnumber} } = |
707 |
$warning_messages{ $i->{itemnumber} } = |
708 |
sprintf( 'There is an order (ordernumber %s) on this item', $i_order->{ordernumber} ); |
708 |
sprintf( "There is an order (ordernumber %s) on this item", $i_order->{ordernumber} ); |
709 |
} |
709 |
} |
710 |
if ($i_serialid) { |
710 |
if ($i_serialid) { |
711 |
$warning_messages{ $i->{itemnumber} } = 'A subscription is linked to this item'; |
711 |
$warning_messages{ $i->{itemnumber} } = 'A subscription is linked to this item'; |