View | Details | Raw Unified | Return to bug 34171
Collapse All | Expand All

(-)a/cataloguing/moveitem.pl (-2 / +3 lines)
Lines 23-28 use Modern::Perl; Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Circulation qw( barcodedecode );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
27
28
28
use Koha::Biblios;
29
use Koha::Biblios;
Lines 34-40 my $query = CGI->new; Link Here
34
my $biblionumber = $query->param('biblionumber');
35
my $biblionumber = $query->param('biblionumber');
35
36
36
# The barcode of the item to move
37
# The barcode of the item to move
37
my $barcode	 = $query->param('barcode');
38
my $barcode = barcodedecode($query->param('barcode'));
39
38
40
39
my ($template, $loggedinuser, $cookie) = get_template_and_user(
41
my ($template, $loggedinuser, $cookie) = get_template_and_user(
40
    {
42
    {
41
- 

Return to bug 34171