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

(-)a/cataloguing/moveitem.pl (-11 lines)
Lines 24-38 use Modern::Perl; Link Here
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::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
28
use C4::ClassSource;
29
use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/;
30
27
31
use Koha::Biblios;
28
use Koha::Biblios;
32
33
34
use MARC::File::XML;
35
36
use Koha::Items;
29
use Koha::Items;
37
30
38
my $query = CGI->new;
31
my $query = CGI->new;
Lines 52-59 my ($template, $loggedinuser, $cookie) = get_template_and_user( Link Here
52
    }
45
    }
53
);
46
);
54
47
55
56
57
my $biblio = Koha::Biblios->find( $biblionumber );
48
my $biblio = Koha::Biblios->find( $biblionumber );
58
$template->param(biblio => $biblio);
49
$template->param(biblio => $biblio);
59
$template->param(biblionumber => $biblionumber);
50
$template->param(biblionumber => $biblionumber);
Lines 103-107 else { Link Here
103
    if ( !$biblionumber ) { $template->param( missingbiblionumber => 1 ); }
94
    if ( !$biblionumber ) { $template->param( missingbiblionumber => 1 ); }
104
}
95
}
105
96
106
107
output_html_with_http_headers $query, $cookie, $template->output;
97
output_html_with_http_headers $query, $cookie, $template->output;
108
- 

Return to bug 29179