Lines 35-41
my $input = new CGI;
Link Here
|
35 |
my $sessionID = $input->cookie("CGISESSID"); |
35 |
my $sessionID = $input->cookie("CGISESSID"); |
36 |
my $session = get_session($sessionID); |
36 |
my $session = get_session($sessionID); |
37 |
|
37 |
|
38 |
my $biblionumber = $input->param('biblionumber'); |
38 |
my $itemnumber = $input->param('itemnumber'); |
|
|
39 |
my $biblionumber = $input->param('biblionumber'); |
39 |
my $borrowernumber = $input->param('borrowernumber'); |
40 |
my $borrowernumber = $input->param('borrowernumber'); |
40 |
|
41 |
|
41 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
42 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
Lines 51-57
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
51 |
|
52 |
|
52 |
my $userenv = C4::Context->userenv; |
53 |
my $userenv = C4::Context->userenv; |
53 |
my ($slip, $is_html); |
54 |
my ($slip, $is_html); |
54 |
if ( my $letter = ReserveSlip ($session->param('branch') || $userenv->{branch}, $borrowernumber, $biblionumber) ) { |
55 |
if ( my $letter = ReserveSlip ($session->param('branch') || $userenv->{branch}, $borrowernumber, $biblionumber, $itemnumber) ) { |
55 |
$slip = $letter->{content}; |
56 |
$slip = $letter->{content}; |
56 |
$is_html = $letter->{is_html}; |
57 |
$is_html = $letter->{is_html}; |
57 |
} |
58 |
} |