|
Lines 45-63
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
| 45 |
|
45 |
|
| 46 |
|
46 |
|
| 47 |
my $userenv = C4::Context->userenv; |
47 |
my $userenv = C4::Context->userenv; |
| 48 |
my ($slip, $is_html); |
48 |
my ( $slip, $is_html, $style ); |
| 49 |
if ( my $letter = TransferSlip ($session->param('branch') || $userenv->{branch}, $itemnumber, $barcode, $branchcode) ) { |
49 |
if ( my $letter = TransferSlip ($session->param('branch') || $userenv->{branch}, $itemnumber, $barcode, $branchcode) ) { |
| 50 |
$slip = $letter->{content}; |
50 |
$slip = $letter->{content}; |
| 51 |
$is_html = $letter->{is_html}; |
51 |
$is_html = $letter->{is_html}; |
|
|
52 |
$style = $letter->{style}; |
| 52 |
} |
53 |
} |
| 53 |
else { |
54 |
else { |
| 54 |
$slip = "Item not found"; |
55 |
$slip = "Item not found"; |
| 55 |
} |
56 |
} |
| 56 |
$template->param( |
57 |
$template->param( |
| 57 |
slip => $slip, |
58 |
slip => $slip, |
| 58 |
plain => !$is_html, |
59 |
plain => !$is_html, |
| 59 |
caller => 'transfer', |
60 |
caller => 'transfer', |
| 60 |
stylesheet => C4::Context->preference("SlipCSS"), |
61 |
stylesheet => C4::Context->preference("SlipCSS"), |
|
|
62 |
style => $style, |
| 61 |
); |
63 |
); |
| 62 |
|
64 |
|
| 63 |
output_html_with_http_headers $input, $cookie, $template->output; |
65 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 64 |
- |
|
|