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