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