|
Lines 25-30
use strict;
Link Here
|
| 25 |
use warnings; |
25 |
use warnings; |
| 26 |
use CGI; |
26 |
use CGI; |
| 27 |
use C4::Output; |
27 |
use C4::Output; |
|
|
28 |
use C4::Print; |
| 28 |
use C4::Auth qw/:DEFAULT get_session/; |
29 |
use C4::Auth qw/:DEFAULT get_session/; |
| 29 |
use C4::Dates qw/format_date/; |
30 |
use C4::Dates qw/format_date/; |
| 30 |
use C4::Branch; # GetBranches |
31 |
use C4::Branch; # GetBranches |
|
Lines 172-178
if ( $barcode eq '' && $query->param('charges') eq 'yes' ) {
Link Here
|
| 172 |
} |
173 |
} |
| 173 |
|
174 |
|
| 174 |
if ( $print eq 'yes' && $borrowernumber ne '' ) { |
175 |
if ( $print eq 'yes' && $borrowernumber ne '' ) { |
| 175 |
PrintIssueSlip($session->param('branch') || $branch, $borrowernumber); |
176 |
if ( C4::Context->boolean_preference('printcirculationslips') ) { |
|
|
177 |
my $letter = IssueSlip($branch, $borrowernumber, "QUICK"); |
| 178 |
NetworkPrint($letter->{content}); |
| 179 |
} |
| 176 |
$query->param( 'borrowernumber', '' ); |
180 |
$query->param( 'borrowernumber', '' ); |
| 177 |
$borrowernumber = ''; |
181 |
$borrowernumber = ''; |
| 178 |
} |
182 |
} |
| 179 |
- |
|
|