Lines 90-96
if (!C4::Context->userenv && !$branch){
Link Here
|
90 |
} |
90 |
} |
91 |
|
91 |
|
92 |
my $barcodes = []; |
92 |
my $barcodes = []; |
93 |
my $batch = $query->param('batch'); |
|
|
94 |
if ( my $barcode = $query->param('barcode') ) { |
93 |
if ( my $barcode = $query->param('barcode') ) { |
95 |
$barcodes = [ $barcode ]; |
94 |
$barcodes = [ $barcode ]; |
96 |
} else { |
95 |
} else { |
Lines 110-118
if ( my $barcode = $query->param('barcode') ) {
Link Here
|
110 |
|
109 |
|
111 |
$barcodes = [ uniq @$barcodes ]; |
110 |
$barcodes = [ uniq @$barcodes ]; |
112 |
|
111 |
|
113 |
my $template_name = $batch |
112 |
my $template_name = q|circ/circulation.tt|; |
114 |
? q|circ/circulation_batch_checkouts.tt| |
113 |
my $borrowernumber = $query->param('borrowernumber'); |
115 |
: q|circ/circulation.tt|; |
114 |
my $borrower = $borrowernumber ? GetMember( borrowernumber => $borrowernumber ) : undef; |
|
|
115 |
my $batch = $query->param('batch'); |
116 |
my $batch_allowed = 0; |
117 |
if ( $batch ) { |
118 |
$template_name = q|circ/circulation_batch_checkouts.tt|; |
119 |
my @batch_category_codes = split '\|', C4::Context->preference('batch_checkouts'); |
120 |
if ( grep {/^$borrower->{categorycode}$/} @batch_category_codes ) { |
121 |
$batch_allowed = 1; |
122 |
} else { |
123 |
$barcodes = []; |
124 |
} |
125 |
} |
116 |
|
126 |
|
117 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user ( |
127 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user ( |
118 |
{ |
128 |
{ |
Lines 143-149
for (@failedreturns) { $return_failed{$_} = 1; }
Link Here
|
143 |
|
153 |
|
144 |
my $findborrower = $query->param('findborrower') || q{}; |
154 |
my $findborrower = $query->param('findborrower') || q{}; |
145 |
$findborrower =~ s|,| |g; |
155 |
$findborrower =~ s|,| |g; |
146 |
my $borrowernumber = $query->param('borrowernumber'); |
|
|
147 |
|
156 |
|
148 |
$branch = C4::Context->userenv->{'branch'}; |
157 |
$branch = C4::Context->userenv->{'branch'}; |
149 |
$printer = C4::Context->userenv->{'branchprinter'}; |
158 |
$printer = C4::Context->userenv->{'branchprinter'}; |
Lines 259-265
if ($findborrower) {
Link Here
|
259 |
} |
268 |
} |
260 |
|
269 |
|
261 |
# get the borrower information..... |
270 |
# get the borrower information..... |
262 |
my $borrower; |
|
|
263 |
if ($borrowernumber) { |
271 |
if ($borrowernumber) { |
264 |
$borrower = GetMemberDetails( $borrowernumber, 0 ); |
272 |
$borrower = GetMemberDetails( $borrowernumber, 0 ); |
265 |
my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber ); |
273 |
my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber ); |
Lines 591-596
$template->param(
Link Here
|
591 |
inprocess => $inprocess, |
599 |
inprocess => $inprocess, |
592 |
is_child => ($borrowernumber && $borrower->{'category_type'} eq 'C'), |
600 |
is_child => ($borrowernumber && $borrower->{'category_type'} eq 'C'), |
593 |
$view => 1, |
601 |
$view => 1, |
|
|
602 |
batch_allowed => $batch_allowed, |
594 |
soundon => C4::Context->preference("SoundOn"), |
603 |
soundon => C4::Context->preference("SoundOn"), |
595 |
fast_cataloging => $fast_cataloging, |
604 |
fast_cataloging => $fast_cataloging, |
596 |
CircAutoPrintQuickSlip => C4::Context->preference("CircAutoPrintQuickSlip"), |
605 |
CircAutoPrintQuickSlip => C4::Context->preference("CircAutoPrintQuickSlip"), |