Lines 23-29
use CGI qw ( -utf8 );
Link Here
|
23 |
|
23 |
|
24 |
use C4::Auth; |
24 |
use C4::Auth; |
25 |
use C4::Output; |
25 |
use C4::Output; |
26 |
use C4::Context; |
|
|
27 |
|
26 |
|
28 |
use Koha::Biblios; |
27 |
use Koha::Biblios; |
29 |
use Koha::Patrons; |
28 |
use Koha::Patrons; |
Lines 40-46
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
Link Here
|
40 |
|
39 |
|
41 |
my $action = $cgi->param('action') || q{}; |
40 |
my $action = $cgi->param('action') || q{}; |
42 |
my $biblionumber = $cgi->param('biblionumber'); |
41 |
my $biblionumber = $cgi->param('biblionumber'); |
43 |
my $homebranch = C4::Context->userenv->{'branch'} || ""; |
|
|
44 |
|
42 |
|
45 |
if ( $action eq 'create' ) { |
43 |
if ( $action eq 'create' ) { |
46 |
my $branchcode = $cgi->param('branchcode'); |
44 |
my $branchcode = $cgi->param('branchcode'); |
47 |
- |
|
|